Die <DATA> -Syntax in Perl
Wo finde ich mehr über die folgende Syntax in Perl?
Die Verbindung zwischen<DATA>
und__DATA__
ist unklar.
while (my $date_string = <DATA>) {
chomp($date_string);
next if not length $date_string;
print "$date_string ist Unixtime ",
$lang_date->str2time($date_string),
" und ",
$lang_date->time2str( '%d.%m.%Y %T (%Z)',$lang_date->str2time($date_string) ),
"\n";
}
__DATA__
1.3.1999
1 Marz 1999
1. Marz 1999
1/3/1999