Zeilen lesen und ausgeben?: Zeilen lesen und ausgeben? - #9926 (Perl/CGI)

bloonix

2007-04-30 11:38

User since
2005-12-17
1615 Artikel
HausmeisterIn

Salut BlackExe,

[quote=BlackExe,30.04.2007, 00:42]

Code: (dl )

open(FILE, "< $datei1") or die("$!");
my @main = <FILE>;
close(FILE) or die("$!");

my $main = "@main";

[/quote]
Wieviele Kopien brauchst du denn noch? Du hast den Inhalt der ganzen
Datei dann einmal in @main und dann noch in $main. Musst du den Text
darin noch verarbeiten oder möchtest du nur eine weitere speicher-
fressende Applikation schreiben? :)

Falls du den Inhalt nicht mehr weiter verarbeiten musst, wie wäre es dann
mit:

Code: (dl )

1
2
3

open my $fh, '<', $file or die $!;
{ local $_; print while <$fh>; }
close $fh;

Ansonsten würde ich meinen es reicht entweder

my @main = <$fh>;

oder

my $main = do { local $/; <$fh>; };

Viele Grüße,
opi

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.