einzelne Woerter entfernen: nicht ganze zeilen - #70176 (Allgemeines zu Perl)

docsnyder

2006-09-25 16:55

User since
2005-09-08
300 Artikel
BenutzerIn

Hi Sabrina!

Warum machst Du denn überhaupt den split()?

Im Grunde genügt Dir das:

Code: (dl )

while (my $line = <$fh>){
  chomp $line;

  $line =~s:\bMFG\b::g;
  $line =~s:\bDOME/GT\b::g;
  $line =~s:\bOG\b::g;

  push(@lines, $line);
}

oder

Code: (dl )

while (my $line = <$fh>){
  chomp $line;

  $line =~s:\b(MFG|DOME/GT|OG)\b::go;

  push(@lines, $line);
}

oder

Code: (dl )

while (my $line = <$fh>){
  chomp $line;

  push(@lines, $line =~s:\b(MFG|DOME/GT|OG)\b::go);
}

Das Array @lines kannst Du dann anschliessend in die Ausgabe-Datei schreiben.

*lg*, Doc