Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]6744[/thread]

Text zwischen zwei Werten extrahieren?

Leser: 1


<< >> 5 Einträge, 1 Seite
nikster
 2005-02-26 17:05
#52159 #52159
User since
2004-05-19
12 Artikel
BenutzerIn
[default_avatar]
Hallo Forum.
Ich habe folgendes Problem:
Ich habe ein ziemlich langes Textfile in das ich Aenderungen eintrage...
Jede Aenderung ist numeriert, das sieht etwa folgendermassen aus:

1024
blablabla
****
1025
schwafelschwafel
****

Jetzt wuerde ich gerne dieses Textfile (eine Datenbank waere wahrscheinlich besser gewesen...) ueber ein Perlscript abfragen. Also:
1024 eingeben...
und den ganzen Text zwischen 1024 und **** ausgegeben bekommen.
Wie ich den Punkt 1024 finde weiss ich schon aber wie ich alles bis zu *** in eine Variable/Array speichere weiss ich nicht.

Koennte mir da jemand helfen?

Danke schonmal

Niels
esskar
 2005-02-26 17:11
#52160 #52160
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
zeig mal deinen code; dann erweitern wir!
pq
 2005-02-26 17:17
#52161 #52161
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
my $value = 1024;
while (<FH>) {
 print "ok\n" if m/^$value$/ ... m/^\*{4}$/
}
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
nikster
 2005-02-27 14:21
#52162 #52162
User since
2004-05-19
12 Artikel
BenutzerIn
[default_avatar]
Hallo :)
Entschuldigt die spaete Antwort...
Ich danke euch fuer eure Antworten (besonders natuerlich pq) es funktioniert jetzt wunderbar.

Danke :)

Niels
pq
 2005-02-27 16:14
#52163 #52163
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
die doku zum flip-flop operator ... steht übrigens in perldoc perlop.
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
<< >> 5 Einträge, 1 Seite



View all threads created 2005-02-26 17:05.