ereg() oder der ganz normale Wahnsinn

[Anatol]

Hallo Thomas,

Ich hoffe, ich hab dich richtig verstanden. Auf diese Weise
kannst du die Zeilen ausfindig machen, in denen NumOfBooks="x" mit x=0-9 +-* vorkommt:

$linein="test.txt";
open(FILE, "<$linein");
while(<FILE>) {
chop;
@Inhalt = split(/\n/);
foreach $line (@Inhalt) {
  if($line =~ /NumOfBooks/ && $line =~ /[0-9] +-*/)
  {
   print "$line\n";
  }
}
}
close FILE;

hoffentlich hilfts dir weiter.

viele Grüße,
Anatol