Foro - Perl en Español

por **BigBear** » 2013-12-21 12:19 @555

Tengo el siguiente código.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
use Cwd;
 
sub cargar_archivo {
if($^O =~/Win/) {
system("start $_[0]");
} else {
system("firefox $_[0]");        
}
}
 
cargar_archivo(getcwd()."/logs_html/logs.html");
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El problema es que no me carga el archivo html. ¿Qué estoy haciendo mal?

getcwd() no devuelve la ruta del programa, sino el directorio de trabajo actual (en el momento de llamar a getcwd()).

Si no se ha cambiado con un chdir(), getcwd() será el del directorio desde donde se ejecutó el programa (que no tiene que ser necesariamente el mismo que en donde reside el programa).

Ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

explorer:~/Documentos/Desarrollo> cat kk.pl
#!/usr/bin/perl
use v5.16;
use Cwd;
say getcwd();
chdir '/home/explorer';
say getcwd();
explorer:~/Documentos/Desarrollo> ./kk.pl  # llamamos al programa desde el mismo directorio
/home/explorer/Documentos/Desarrollo
/home/explorer
explorer:~/Documentos/Desarrollo> cd ..
explorer:~/Documentos> Desarrollo/kk.pl    # llamamos al programa desde otra posición
/home/explorer/Documentos
/home/explorer
explorer:~/Documentos>
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Error cargando archivos html

Error cargando archivos html

Publicidad

Re: Error cargando archivos html

Re: Error cargando archivos html

Re: Error cargando archivos html

Re: Error cargando archivos html

Re: Error cargando archivos html

¿Quién está conectado?