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

sabrina

2006-09-26 15:07

User since
2006-08-03
264 Artikel
BenutzerIn
[default_avatar]

ich arbeite momentan an zwei skripten einmal mit und einmal ohne split.
hier die mit split version:

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;
my $fes = 'lala.txt';
my $fest = 'lalagesamt.txt';
my @lines;
my $columns = 3;
open (my $fh,'<',$fes) or die $!;
while (my $line = <$fh>){
chomp $line;
$line =~ s:\b(MFG|DOME/GT|OG)\b::go;
my @line = (split(/[\s]+/,$line))[0..($columns-1)];
push(@lines,\@line);
}
print join(";",@$_),"\n"for(@lines);
close $fh or die $!;
open(my $w_fh, '>', $fest) or die $!;
print $w_fh join(";",@$_),"\n"for(@lines);
close $w_fh or die $!;

ich hoffe ich hab keine rechtschreibfehler drin. :D
lg sabrina

edit eingabe dateien sind zb.

Code: (dl )

1
2
3

6535486         MFG        87,64     jhz        OG
9876333                      39,09      fr         OG       35[56]443
8794300                      76,23                 OG

koennt auch den erstenedit nehmen den hab ich ausversehen geloescht.\n\n