Dateien eröffnen III

addresses2.pl

#!/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;

Dies Skript ist äquivalent zum vorherigen, verzichtet jedoch auf $_ und die implizite Verwendung von defined:

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.

	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.