Using perl Syntax Highlighting
print "\ninicio [4 dígitos]: ";
my $inicio = <STDIN>;
chop ($inicio);
print "\nfinal [4 digitos]: ";
my $final = <STDIN>;
chop ($final);
my $inicio = <STDIN>;
chop ($inicio);
print "\nfinal [4 digitos]: ";
my $final = <STDIN>;
chop ($final);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
$inicio siempre es menor que $final. Pongamos que meto $inicio=9 y $final=11. Lo que quiero es crear los siguientes ficheros:
Using perl Syntax Highlighting
for (my $i=$inicio; $i<=$final; $i++)
{
open (OUT, ">", "read_".$i.".xml") or die "No\n";
#ETC ...
}
{
open (OUT, ">", "read_".$i.".xml") or die "No\n";
#ETC ...
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Pero en lugar de:
- Código: Seleccionar todo
read_0009.xml
read_0010.xml
read_0011.xml
Me sale:
- Código: Seleccionar todo
read_0009.xml
read_10.xml
read_11.xml
¿Alguien sabe cómo conseguir lo que quiero?
