Lo que quiero hacer es poner en un archivo las palabras que empiecen por a o A , en otro archivo las que empiecen por b o B, etc...
Para esto tengo que hacer:
Using perl Syntax Highlighting
open A, '>>', 'A.txt' or die $!;
open B, '>>', 'B.txt' or die $!;
open C, '>>', 'C.txt' or die $!;
etc...
open B, '>>', 'B.txt' or die $!;
open C, '>>', 'C.txt' or die $!;
etc...
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Quería saber si hay alguna forma de crear esos archivos sin que tenga que escribir tanto. Pensé en hacer lo siguiente:
Using perl Syntax Highlighting
for my $i (65 .. 90) {
my $letra = chr($i);
open (OUT.$letra, ">> $letra.txt") or die "Cannot open output file\n";
}
my $letra = chr($i);
open (OUT.$letra, ">> $letra.txt") or die "Cannot open output file\n";
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Me abre los archivos y funciona correctamente cuando escribo con:
Using perl Syntax Highlighting
if ($start =~ /A/) {print OUTA $line,"\n";}
elsif ($start =~ /B/) {print OUTB $line,"\n";}
elsif ($start =~ /C/) {print OUTC $line,"\n";}
etc...
elsif ($start =~ /B/) {print OUTB $line,"\n";}
elsif ($start =~ /C/) {print OUTC $line,"\n";}
etc...
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Y por último los cierro:
Using perl Syntax Highlighting
Todo funciona... pero si digo que use strict, me devuelve errores.
y además si uso el use warnings me devuelve varios warnings...
No sé cuál sería la mejor forma de abrir todos esos archivos, de escribir en ellos y por último cerrarlos sin tener que escribir tantas líneas.
Al mismo tiempo sería interesante la posibilidad de que no devolviese ningún warning y que funcionase empleando el strict.
A ver si a alguien se le ocurre algo y me puede ayudar.
Gracias de antemano.