Thank you, wog, I was looking for code similar as your approach, but I failed to find any suitable solution. I've tweaked and wrapped the code a bit, just to run it under MacPerl.
#!perl -w
use strict;
my $tmpdir = 'Disco:Carpeta_Idioma:';
my $file = "$tmpdir" . 'diccionario';
my $file_out = "$tmpdir" . 'diccionario2';
open(IN, "<$file") || die "Can't open $file: $!\n";
open(OUT, ">$file_out") || die "Can't open $file_out: $!\n";
while (<IN>) {
print OUT unless ( y/a//>3 | y/b//>1 |
y/c//>1 | y/d//>2 |
y/e//>8 | y/g//>1 |
y/i//>3 | y/j//>1 |
y/l//>2 | y/m//>3 |
y/n//>3 | y/o//>4 |
y/r//>3 | y/s//>6 |
y/t//>1 | y/u//>2 |
y/v//>2
)
}
close IN;
close OUT;
The code snippet looked nice indented on my Mac. Hope it looks fine here too.
Best regards,
Richard
| [reply] [d/l] |