Opened by Kruemel at 2011-08-31 09:55
User since
2005-01-17
14775 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2005-01-17
14775 Artikel
Admin1
Ein Fall für den Flip-Flop-Operator in Perl.
Beispiel:
Beispiel im Perl-Magazin:
http://www.perl-magazin.de/download.cgi?issue=12
Last edited: 2011-08-31 11:17:05 +0200 (CEST)
Beispiel:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
#!/usr/bin/perl while (<DATA>) { # Daten einlesen if (/\/begin / .. /\/end /) { next; # Daten überspringen } print; # sonst Daten ausgeben } __DATA__ /begin blubber skdjflkdsjf sdlkfjdsk lksjflksdj aajjllja /end blubber Zorg Zack Murks Foo Bar Wall Tim Towdy /begin meaaahhh sdlkfjdsk lksjflksdj aajjllja /end meaaahhh Muh Wuff Miau
Beispiel im Perl-Magazin:
http://www.perl-magazin.de/download.cgi?issue=12
Last edited: 2011-08-31 11:17:05 +0200 (CEST)