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

Kalmuecke

2006-11-06 15:56

User since
2006-10-14
68 Artikel
BenutzerIn
[default_avatar]

Kann mir jemand sagen wie ich nur die Zeilen einer Datei einlesen kann, die zwischen den Begrenzungsworten "START" und "ENDE" stehen?

Alles andere interessiert mich aus der Datei nicht!

Danke im voraus!

renee

2006-11-06 16:04

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

my @lines;
open my $fh,'<',$file or die $!;
while(<$fh>){
    if(/START/ .. /ENDE/){
        push(@lines,$_);
    }
}
close $fh;

print $_ for @lines;

Das ist der sogenannte Flip-Flop-Operator...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Kalmuecke

2006-11-06 16:16

User since
2006-10-14
68 Artikel
BenutzerIn
[default_avatar]

@ Renee!

Booaarh wie geil ist das denn!!! :D:D
So schnell eine Antwort, die funktioniert auch gleich noch auf Anhieb!

Big thanks! :)

bloonix

2006-11-07 10:28

User since
2005-12-17
1615 Artikel
HausmeisterIn

[quote=renee,06.11.2006, 15:04]Das ist der sogenannte Flip-Flop-Operator...[/quote]
Wo finde ich denn hierzu was in $perldoc?

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.

renee

2006-11-07 10:33

User since
2003-08-04
14371 Artikel
ModeratorIn

perlop - Range Operators

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

pq

2006-11-07 10:45

User since
2003-08-04
12208 Artikel
Admin1

[quote=opi,07.11.2006, 09:28][quote=renee,06.11.2006, 15:04]Das ist der sogenannte Flip-Flop-Operator...[/quote]
Wo finde ich denn hierzu was in $perldoc?[/quote]
zu operatoren findest du was in perlop, und da haettest
du einfach nach 'flip' suchen brauchen.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Kalmuecke

2006-11-07 15:08