Hola, compañeros, tengo una duda.
El siguiente código me abre un fichero y elimina las palabras que no deseo, por ejemplo NOSIG, AUTO o 9999.
Esto lo hace correctamente, son cadenas fijas.
#!/usr/local/bin/perl
my $replacestring = "AUTO";
my $replacestring2 = "9999";
my $replacestring3 = "NOSIG";
#my $replacestring4 = "*V*";
open(my $infile,"<","metars.csv") or die $!;
open (my $outfile,">","outmetars.csv") or die $!;
while (<$infile>)
{
$_=~s/$replacestring//g;
$_=~s/$replacestring2//g;
$_=~s/$replacestring3//g;
# $_=~s/$replacestring4//g;
print $outfile $_;
}
close $infile; ...