En mi programa necesito que el usuario ingrese 6 caracteres para crear un directorio. Más adelante en el programa se genera un fichero y lo coloca en esa carpeta creada.
Esto es lo que tengo
Using perl Syntax Highlighting
print " \f \a Especifique Cliente ( 6 Caracteres ) : \ t"
$cliente=<STDIN>;chop($cliente);
mkdir("$cliente",0755) || die "No se puede crear :$!";
#***En esta linea se genera el fichero y se guarda en X carpeta
$cliente=<STDIN>;chop($cliente);
mkdir("$cliente",0755) || die "No se puede crear :$!";
#***En esta linea se genera el fichero y se guarda en X carpeta
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Quisiera copiar el fichero a la carpeta $cliente. He intentado:
Using perl Syntax Highlighting
system('copy fichero.txt c:\$cliente '); #..pero no reconoce la variable ..
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Y también quisiera saber cómo restringir al usuario para que sólo ingrese 6 caracteres en la variable $cliente...
De antemano muchas gracias
), deberás tener cuidado con los back-slash:
. El programa lo estoy haciendo desde Linux Red Hat, pero tiene que correr en MS-DOS.
