|
![]() ![]() ![]() ![]() ![]() |
#!/usr/local/bin/perl use strict; use warnings; use IO::File; my $addressbook = "addressbook"; my $book = new IO::File $addressbook or die "Cannot open $addressbook: $!\n"; while (defined (my $line = $book->readline)) { chomp $line; my ($name, $address) = split /:/, $line; printf "%-20s | %s\n", $name, $address; } $book->close; |
![]() | Anstelle von <$book> wurde $book->readline
verwendet.
|
![]() | Eingelesene Zeilen werden explizit an $line
zugewiesen anstatt implizit an $_.
|
![]() | Es wird explizit mit defined überprüft, ob
das Einlesen klappte.
|
![]() | Bei chomp und split wird explizit $line
genannt.
|
![]() ![]() ![]() ![]() ![]() |
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |