Datei einlesen von "START" bis "ENDE" - #71489 (Allgemeines zu Perl)

bloonix

2006-11-07 17:22

User since
2005-12-17
1615 Artikel
HausmeisterIn

[quote=renee,06.11.2006, 15:04]

Code: (dl )

1
2
3

while(<$fh>){
    if(/START/ .. /ENDE/){
        push(@lines,$_);

[/quote]

Verbesserungsvorschlag:

Code: (dl )

1
2
3

while(defined (my $line = <$fh>)){
   if($line =~ /START/ .. $line =~ /ENDE/){
       push(@lines,$line);

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.