• Publicidad

Rescatar el nombre de un archivo

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Rescatar el nombre de un archivo

Notapor Katty » 2006-11-03 12:58 @582

Hola a todos:

Tengo la siguiente inquietud: ¿¿¿Cómo puedo rescatar el nombre del archivo que estoy leyendo???

Es decir, si leo desde los archivos ENTRADA.TXT y TEMP.TXT, ¿¿¿ cómo puedo rescatar dichos nombres para asociarlos a sus correspondientes archivos de salida SALIDA_ENTRADA.TXT y SALIDA_TEMP.TXT ???

Saludos, Katty.
Katty
Perlero nuevo
Perlero nuevo
 
Mensajes: 16
Registrado: 2006-08-30 17:11 @757

Publicidad

Notapor monoswim » 2006-11-03 13:28 @602

Te refieres a que tienes un ENTRADA.TXT en una variable y quieres tener sólo ENTRADA...Si es así es fácil

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
my ($nombre, $extension) = split(/\./,$file_name);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Espero que te sirva

Saludos
MonoSwim
Perl Programming Language
Avatar de Usuario
monoswim
Perlero nuevo
Perlero nuevo
 
Mensajes: 452
Registrado: 2003-11-18 16:13 @717
Ubicación: Buenos Aires

Notapor explorer » 2006-11-03 13:30 @604

Si ejecutas el programa como
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
perl programa.pl ENTRADA.TXT
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
entonces, mientras Perl abre el fichero ENTRADA.TXT y lo envía a la entrada estándar y puedes leerlo, el nombre del fichero sigue estando dentro del array @ARGV.

Puedes imprimirlo con
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
print $ARGV[0];
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
pero, ¡atención!, debes hacerlo ANTES de haber terminado de leer el fichero de entrada.

Puedes hacerlo nada más empezar el programa:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/bin/perl -l
$fichero = $ARGV[0];
print <>;
print $fichero;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados