Fjerne alle linie der starter med XX

indlæser du filen linie for linie?

jeg plejer bare at bruge

LINE:
while (my $l = <$FH> ) {
  next LINE if $l =~ /.../;
  ...
}

Jeg var ikke lige nået til hvordan jeg skulle læse filen :) Men har i mellem tiden fundet ud af at:
grep -v WARNING file.txt gør lige hvad jeg har brug for.

Men takker for svaret. Point?

anbefaling: få fat på Programming Perl samt evt. Perl cookbook

Din egen løsning skelner ikke mellem om WARNING står i starten af linjen eller et andet sted, men det er måske i virkeligheden også lige meget når det kommer til stykket.

daleif's kode modificeret til at gøre dette:

LINE:
while (my $l = <$FH> ) {
  next LINE if $l =~ /^WARNING/;
  ...
}

Selv ville jeg nu nok hellere have brugt awk men det er vist et spørgsmål om smak og behag. :^)

next LINE if $l =~ /^\s*WARNING/;

er måske bedre, ved ikke lige hvilket program det var der lavede filen

@daleif: er det ikke lidt overflødigt at bruge en label her?

Du kan jo bare skrive

next if $l =~ /^WARNING/;

Brian

jo, det er rent og skær af god vane (Kig i Perl Best Practices), så er der slet ingen tvivl når man læser koden.

@daleif - tak for uddybningen. Jeg har læst mange Perl-bøger gennem tiden, men ikke lige den. Jeg erindrer heller ikke at være stødt på den praksis før, men jeg kan da sagtens se ideen. Jeg synes dog nok, at det er en anelse overkill, men never mind that.

det er en rigtig god bog, med en masse gode forslag til hvordan man skriver god perl kode. Ikke bare god kode men også kode som bliver nemmere for andre at vedligeholde bagefter.

ok, jeg er ikke altid lige god til at overholde dem, men alligevel.