Hallo batel wastel,
also das was du da freundlicher Weise gepostet hast das
funktioniert leider nicht
Ich habe die Lösung von Semjon Michailowitsch mal ausprobiert, funktioniert wunderbar. Vielleicht hast Du dich nur irgendwo vertippt.
Hier nochmals seine Lösung, von mir nur leicht ausgebaut (aber das wesentliche hat Semjon Michailowitsch schon gebracht):
#!/usr/bin/perl
use strict;
my $file = @ARGV[0];
open (IN, ") {
if (/ (\w+)/g) { print $1, "\n"; }
}
Findet von zwei hintereinanderstehenden ID-Tags, etwa so
1A2B3C 1A2fdr
nur den ersten, und ID-Tags, die auf der nächsten Zeile weitergehen
mehr als eine Zeile
findet es noch gar nicht. Sonstige Sonderfälle habe ich noch nicht getestet, aber irgendwas muss ja auch noch für dich übrigbleiben :wink:
Viele Grüße
Marvin