Using perl Syntax Highlighting
print "\n\nAl terminar de introducir los datos pulsar:\n";
print "Ctrl+D en Unix\n";
print "Ctrl+Z en MS-DOS\n";
print "---------------------------\n";
@datos2 = <STDIN>;
open (LECTURA,">lectura.txt");
foreach $lectura(@datos2)
{
print LECTURA $lectura;
}
close (LECTURA);
print "Ctrl+D en Unix\n";
print "Ctrl+Z en MS-DOS\n";
print "---------------------------\n";
@datos2 = <STDIN>;
open (LECTURA,">lectura.txt");
foreach $lectura(@datos2)
{
print LECTURA $lectura;
}
close (LECTURA);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Antes, en un momento del programa sí me iba, pero de repente corrigiendo pequeños fallos dejó de irme... y no sé por qué.
Le he dado permisos y todo por si las moscas... y nada.
Quiero que todo lo que escribas en consola lo guarde en el .txt, hasta que la cierras.