File Slurp
Marcel Grunauer
marcel.grunauer at lovely.net
Fri Nov 26 04:29:49 CST 1999
* * * vienna-pm-list * * *
Hi,
sorry wegen des geänderten Subjects, aber ich hab die Roland's mail
verloren. Anyway.
Statt ein Modul zu bemühen, geht's auch mit einem Einzeiler. Sei
$filename der Name des Files, dessen Inhalt einzulesen ist.
my $content = do { local ($/, @ARGV) = (undef, $filename); <> };
D.h. wir simulieren, dass der filename ueber die command-line
uebergeben wird und lesen das ganze File ein, weil ja $/ undefined
ist. Und damit wir @ARGV nicht zerstören, machen wir's local. Eine der
wenigen Verwendungen für local.
--
Marcel, Perl Padawan
sub AUTOLOAD{$_=$AUTOLOAD;s;.*::;;;y;_; ;;print}&Just_Another_Perl_Hacker;
###
You are subscribed to vienna-pm-list
http://www.fff.at/fff/vienna.pm/
More information about the Vienna-pm
mailing list