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