Opened by RhoenSprudel at 2014-11-28 22:51
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
das geht relativ einfach beim einlesen der datei:
$/ ist der "zeilentrenner", wobei zeile eben in deinem fall ein block ist.
der text ist dann allerdings "zeilen"-ende und nicht -anfang, und wird daher mit chomp einfach entfernt, da du die information vermutlich eh nicht brauchst (ist ja anscheinend immer gleich).
ansonsten kannst du auch die datei komplett in einen string einlesen und dann mit split bearbeiten.
Code (perl): (dl
)
1 2 3 4 5
open my $fh, "<", $filename or die $!; local $/ = "###### interface INFORMATION ######\n"; my @blocks = <$fh>; chomp @blocks; close $fh;
$/ ist der "zeilentrenner", wobei zeile eben in deinem fall ein block ist.
der text ist dann allerdings "zeilen"-ende und nicht -anfang, und wird daher mit chomp einfach entfernt, da du die information vermutlich eh nicht brauchst (ist ja anscheinend immer gleich).
ansonsten kannst du auch die datei komplett in einen string einlesen und dann mit split bearbeiten.
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:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem