perl @ linux - GALPon

Alberto González Rodríguez

11 Jan 11 Jan

10:06 a.m.

strace -e open perl programa.pl parametro1 parametro2 así mirarás que está intentando abrir 2011/1/11 Rafa Toucedo <debian.vigo(a)gmail.com>

...

Buenos días , he "recodificado" un programa en perl que nativamente funcionaba en Ruin2 con sus respectivas rutas (C:\....) lo que he hecho básicamente es modificar las rutas por las "nativas" de Linux (del tipo /home/...) y lanzarlo con el ejecutable de perl *perl programa.pl, *este programa contiene parámetros a la hora de ejecutarlo, es un ID y un nombre de archivo del tipo *perl programa.pl parametro1 parametro2 *pero cuando lo lanzo me dice que "parametro1" no lo encuentra (es un archivo de texto plano que contiene una cadena alfanumérica) lo hago como root y nada... si hago un "*cat*" del archivo con su ruta exacta me visualiaza el mismo.... el "chown" lo tengo a root:root en toda la estructura de carpetas , mi duda es si al lanzar perl usa el usuario root o si a esa ruta le tengo que dar otro tipo de permisos gracias! _______________________________________________ GALPon mailing list GALPon(a)listas.galpon.org https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon

Reply

Rafa Toucedo

11:31 a.m.

perdón la "síntesis" normal sería perl codigo.pl pczedtvd pczedtvd.txt (el txt de 2º) y el resultado idéntico. si accedo al fichero que el programa no encuentra veo que existe y lo puede leer. *# cat /home/pilote/psaftp/envoi/pczedtvd.txt 20110107pIp * El 11 de enero de 2011 11:28, Rafa Toucedo <debian.vigo(a)gmail.com> escribió:

...

pues hecho el strace: NOTA: lo que he puesto en "rojo" es la salida normal si hiciese perl codigo.pl pczedtvd. pczedtvd.txt el 1er parámetro es un ID el 2º un archivo de texto plano de 1 línea # strace -e open perl codigo.pl pczedtvd.txt pczedtvd open("/etc/ld.so.cache", O_RDONLY) = 3 open("/lib64/libm.so.6", O_RDONLY) = 3 open("/lib64/libdl.so.2", O_RDONLY) = 3 open("/lib64/libcrypt.so.1", O_RDONLY) = 3 open("/lib64/libpthread.so.0", O_RDONLY) = 3 open("/lib64/libc.so.6", O_RDONLY) = 3 open("/dev/urandom", O_RDONLY) = 3 open("/usr/lib/locale/locale-archive", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale/locale.alias", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_IDENTIFICATION", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_IDENTIFICATION", O_RDONLY) = 3 open("/usr/lib64/gconv/gconv-modules.cache", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_MEASUREMENT", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_MEASUREMENT", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_TELEPHONE", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_TELEPHONE", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_ADDRESS", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_ADDRESS", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_NAME", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_NAME", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_PAPER", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_PAPER", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_MESSAGES", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_MESSAGES", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.utf8/LC_MESSAGES/SYS_LC_MESSAGES", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_MONETARY", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_MONETARY", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_COLLATE", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_COLLATE", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_TIME", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_TIME", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_NUMERIC", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_NUMERIC", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_CTYPE", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_CTYPE", O_RDONLY) = 3 open("/dev/urandom", O_RDONLY) = 3 open("codigo.pl", O_RDONLY) = 3 open("/usr/lib/perl5/5.10.0/Net/FTP.pm", O_RDONLY) = 4 open("/usr/lib/perl5/5.10.0/strict.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/vars.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/warnings/register.pm", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/warnings.pm", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/Carp.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/Exporter.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Socket.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/XSLoader.pm", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/auto/Socket/Socket.so", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Socket.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Handle.pm", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/Symbol.pm", O_RDONLY) = 7 open("/usr/lib/perl5/5.10.0/SelectSaver.pm", O_RDONLY) = 7 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO.pm", O_RDONLY) = 7 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/auto/IO/IO.so", O_RDONLY) = 7 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Errno.pm", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Config.pm", O_RDONLY) = 7 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Socket/INET.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/Exporter/Heavy.pm", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Socket/UNIX.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/Time/Local.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/integer.pm", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/constant.pm", O_RDONLY) = 6 open("/etc/localtime", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/Net/Cmd.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/utf8.pm", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/Net/Config.pm", O_RDONLY) = 5 open("/etc/nsswitch.conf", O_RDONLY) = 5 open("/etc/ld.so.cache", O_RDONLY) = 5 open("/lib64/libnss_compat.so.2", O_RDONLY) = 5 open("/lib64/libnsl.so.1", O_RDONLY) = 5 open("/etc/ld.so.cache", O_RDONLY) = 5 open("/lib64/libnss_nis.so.2", O_RDONLY) = 5 open("/lib64/libnss_files.so.2", O_RDONLY) = 5 open("/etc/passwd", O_RDONLY|O_CLOEXEC) = 5 open("/etc/shadow", O_RDONLY|O_CLOEXEC) = 5 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Fcntl.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/auto/Fcntl/Fcntl.so", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/Getopt/Long.pm", O_RDONLY) = 4 open("/usr/lib/perl5/5.10.0/overload.pm", O_RDONLY) = 5 open("/home/pilote/psaftp/log/lock.dat", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-langpack/es_ES.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale/es_ES.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-bundle/es_ES.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-langpack/es_ES.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale/es_ES.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-bundle/es_ES.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-langpack/es_ES/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale/es_ES/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-bundle/es_ES/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-langpack/es.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale/es.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-bundle/es.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-langpack/es.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale/es.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-bundle/es.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-langpack/es/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale/es/LC_MESSAGES/libc.mo", O_RDONLY) = 3 open("/usr/lib64/gconv/ISO8859-1.so", O_RDONLY) = 3 open("/home/pilote/psaftp/log/lock.dat", O_WRONLY|O_CREAT|O_TRUNC, 0666) = 3 open("/home/pilote/psaftp/log/log.txt", O_RDWR|O_CREAT|O_APPEND, 0666) = 3 open("/home/pilote/psaftp/log/err.txt", O_WRONLY|O_CREAT|O_TRUNC, 0666) = 4 open("/etc/services", O_RDONLY|O_CLOEXEC) = 4 open("/etc/resolv.conf", O_RDONLY) = 4 open("/etc/resolv.conf", O_RDONLY) = 4 open("/etc/host.conf", O_RDONLY) = 4 open("/etc/hosts", O_RDONLY|O_CLOEXEC) = 4 open("/etc/ld.so.cache", O_RDONLY) = 4 open("/lib64/libnss_mdns4_minimal.so.2", O_RDONLY) = 4 open("/etc/ld.so.cache", O_RDONLY) = 4 open("/lib64/libnss_dns.so.2", O_RDONLY) = 4 open("/lib64/libresolv.so.2", O_RDONLY) = 4 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Select.pm", O_RDONLY) = 5 *Estas conectado a la maquina remota UserID y contrasen~a aceptados por la maquina remota* open("/home/pilote/psaftp/log/err.txt", O_WRONLY|O_CREAT|O_TRUNC, 0666) = 2 open("/home/pilote/psaftp/envoi/pczedtvd", O_RDONLY) = -1 ENOENT (No such file or directory) *El archivo /home/pilote/psaftp/envoi/pczedtvd no existe ! crea uno antes de lanzar esta aplicacion... Adios...* Es que me da rabia dejar el .exe con Wine por que no soy yo muy de Wine (si puede funcionar en Linux de forma nativa) y yo de "élfico" lo justo ;-) 2011/1/11 Alberto González Rodríguez <alberto(a)pesadilla.org> strace -e open perl programa.pl parametro1 parametro2

así mirarás que está intentando abrir 2011/1/11 Rafa Toucedo <debian.vigo(a)gmail.com>

Buenos días , he "recodificado" un programa en perl que nativamente funcionaba en Ruin2 con sus respectivas rutas (C:\....) lo que he hecho básicamente es modificar las rutas por las "nativas" de Linux (del tipo /home/...) y lanzarlo con el ejecutable de perl *perl programa.pl, *este programa contiene parámetros a la hora de ejecutarlo, es un ID y un nombre de archivo del tipo *perl programa.pl parametro1 parametro2 *pero cuando lo lanzo me dice que "parametro1" no lo encuentra (es un archivo de texto plano que contiene una cadena alfanumérica) lo hago como root y nada... si hago un "*cat*" del archivo con su ruta exacta me visualiaza el mismo.... el "chown" lo tengo a root:root en toda la estructura de carpetas , mi duda es si al lanzar perl usa el usuario root o si a esa ruta le tengo que dar otro tipo de permisos gracias! _______________________________________________ GALPon mailing list GALPon(a)listas.galpon.org https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon

_______________________________________________ GALPon mailing list GALPon(a)listas.galpon.org https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon

Reply

Rafa Toucedo

12:13 p.m.

por que me equivoqué cuando pegué el resultado, incialmente puse arch.ext arch cuando era al revés arch arch.ext un lío.- El 11 de enero de 2011 11:48, Eduardo Diaz Comellas <ediaz(a)ultreia.xn--es>escribi-nlbcribió:

...

Hola, Rafa Toucedo escribió: perl codigo.pl pczedtvd pczedtvd.txt (el txt de 2º) y el resultado idéntico. Pues está intentando abrir el archivo sin extensión... ¿estás seguro de la sintaxis?

open("/home/pilote/psaftp/envoi/pczedtvd", O_RDONLY) = -1 ENOENT (No such file or directory) *El archivo /home/pilote/psaftp/envoi/pczedtvd no existe ! crea uno antes de lanzar esta aplicacion... Adios...* Salu2

-- <http://www.ultreia.es>Eduardo Diaz Comellas ediaz(a)ultreia.es -- Ultreia Comunicaciones S.L. <http://www.ultreia.es> Tlf: 986243324 -- Skype: ultreiavigo [image: AVISO LEGAL-LOPD] Para ver la política de protección de datos, consulte http://www.ultreia.es/contacto.htm [image: MEDIO AMBIENTE] Antes de imprimir este correo, piense si es necesario. El medio ambiente es cosa de todos. _______________________________________________ GALPon mailing list GALPon(a)listas.galpon.org https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon

Reply

Rafa Toucedo

12:13 p.m.

# strace -e open perl codigo.pl pczedtvd pczedtvd.txt 2>&1|tail open("/lib64/libnss_dns.so.2", O_RDONLY) = 4 open("/lib64/libresolv.so.2", O_RDONLY) = 4 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Select.pm", O_RDONLY) = 5 open("/home/pilote/psaftp/log/err.txt", O_WRONLY|O_CREAT|O_TRUNC, 0666) = 2 open("/home/pilote/psaftp/envoi/pczedtvd.txt", O_RDONLY) = 5 Estas conectado a la maquina remota UserID y contrasen~a aceptados por la maquina remota El archivo /home/pilote/psaftp/envoi/pczedtvd.txt no existe ! crea uno antes de lanzar esta aplicacion... Adios... 2011/1/11 Alberto González Rodríguez <alberto(a)pesadilla.org>

...

puedes enviar a la lista: el strace -e open perl codigo.pl pczedtvd pczedtvd.txt 2>&1|tail ? 2011/1/11 Rafa Toucedo <debian.vigo(a)gmail.com>

perdón la "síntesis" normal sería perl codigo.pl pczedtvd pczedtvd.txt (el txt de 2º) y el resultado idéntico. si accedo al fichero que el programa no encuentra veo que existe y lo puede leer. *# cat /home/pilote/psaftp/envoi/pczedtvd.txt 20110107pIp * El 11 de enero de 2011 11:28, Rafa Toucedo <debian.vigo(a)gmail.xn--com>escribi-yobcribió:

pues hecho el strace: NOTA: lo que he puesto en "rojo" es la salida normal si hiciese perl codigo.pl pczedtvd. pczedtvd.txt el 1er parámetro es un ID el 2º un archivo de texto plano de 1 línea # strace -e open perl codigo.pl pczedtvd.txt pczedtvd open("/etc/ld.so.cache", O_RDONLY) = 3 open("/lib64/libm.so.6", O_RDONLY) = 3 open("/lib64/libdl.so.2", O_RDONLY) = 3 open("/lib64/libcrypt.so.1", O_RDONLY) = 3 open("/lib64/libpthread.so.0", O_RDONLY) = 3 open("/lib64/libc.so.6", O_RDONLY) = 3 open("/dev/urandom", O_RDONLY) = 3 open("/usr/lib/locale/locale-archive", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale/locale.alias", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_IDENTIFICATION", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_IDENTIFICATION", O_RDONLY) = 3 open("/usr/lib64/gconv/gconv-modules.cache", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_MEASUREMENT", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_MEASUREMENT", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_TELEPHONE", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_TELEPHONE", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_ADDRESS", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_ADDRESS", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_NAME", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_NAME", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_PAPER", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_PAPER", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_MESSAGES", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_MESSAGES", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.utf8/LC_MESSAGES/SYS_LC_MESSAGES", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_MONETARY", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_MONETARY", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_COLLATE", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_COLLATE", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_TIME", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_TIME", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_NUMERIC", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_NUMERIC", O_RDONLY) = 3 open("/usr/lib/locale/es_ES.UTF-8/LC_CTYPE", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/lib/locale/es_ES.utf8/LC_CTYPE", O_RDONLY) = 3 open("/dev/urandom", O_RDONLY) = 3 open("codigo.pl", O_RDONLY) = 3 open("/usr/lib/perl5/5.10.0/Net/FTP.pm", O_RDONLY) = 4 open("/usr/lib/perl5/5.10.0/strict.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/vars.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/warnings/register.pm", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/warnings.pm", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/Carp.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/Exporter.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Socket.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/XSLoader.pm", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/auto/Socket/Socket.so", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Socket.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Handle.pm", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/Symbol.pm", O_RDONLY) = 7 open("/usr/lib/perl5/5.10.0/SelectSaver.pm", O_RDONLY) = 7 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO.pm", O_RDONLY) = 7 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/auto/IO/IO.so", O_RDONLY) = 7 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Errno.pm", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Config.pm", O_RDONLY) = 7 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Socket/INET.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/Exporter/Heavy.pm", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Socket/UNIX.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/Time/Local.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/integer.pm", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/constant.pm", O_RDONLY) = 6 open("/etc/localtime", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/Net/Cmd.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/utf8.pm", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/Net/Config.pm", O_RDONLY) = 5 open("/etc/nsswitch.conf", O_RDONLY) = 5 open("/etc/ld.so.cache", O_RDONLY) = 5 open("/lib64/libnss_compat.so.2", O_RDONLY) = 5 open("/lib64/libnsl.so.1", O_RDONLY) = 5 open("/etc/ld.so.cache", O_RDONLY) = 5 open("/lib64/libnss_nis.so.2", O_RDONLY) = 5 open("/lib64/libnss_files.so.2", O_RDONLY) = 5 open("/etc/passwd", O_RDONLY|O_CLOEXEC) = 5 open("/etc/shadow", O_RDONLY|O_CLOEXEC) = 5 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Fcntl.pm", O_RDONLY) = 5 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/auto/Fcntl/Fcntl.so", O_RDONLY) = 6 open("/usr/lib/perl5/5.10.0/Getopt/Long.pm", O_RDONLY) = 4 open("/usr/lib/perl5/5.10.0/overload.pm", O_RDONLY) = 5 open("/home/pilote/psaftp/log/lock.dat", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-langpack/es_ES.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale/es_ES.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-bundle/es_ES.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-langpack/es_ES.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale/es_ES.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-bundle/es_ES.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-langpack/es_ES/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale/es_ES/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-bundle/es_ES/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-langpack/es.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale/es.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-bundle/es.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-langpack/es.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale/es.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-bundle/es.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale-langpack/es/LC_MESSAGES/libc.mo", O_RDONLY) = -1 ENOENT (No such file or directory) open("/usr/share/locale/es/LC_MESSAGES/libc.mo", O_RDONLY) = 3 open("/usr/lib64/gconv/ISO8859-1.so", O_RDONLY) = 3 open("/home/pilote/psaftp/log/lock.dat", O_WRONLY|O_CREAT|O_TRUNC, 0666) = 3 open("/home/pilote/psaftp/log/log.txt", O_RDWR|O_CREAT|O_APPEND, 0666) = 3 open("/home/pilote/psaftp/log/err.txt", O_WRONLY|O_CREAT|O_TRUNC, 0666) = 4 open("/etc/services", O_RDONLY|O_CLOEXEC) = 4 open("/etc/resolv.conf", O_RDONLY) = 4 open("/etc/resolv.conf", O_RDONLY) = 4 open("/etc/host.conf", O_RDONLY) = 4 open("/etc/hosts", O_RDONLY|O_CLOEXEC) = 4 open("/etc/ld.so.cache", O_RDONLY) = 4 open("/lib64/libnss_mdns4_minimal.so.2", O_RDONLY) = 4 open("/etc/ld.so.cache", O_RDONLY) = 4 open("/lib64/libnss_dns.so.2", O_RDONLY) = 4 open("/lib64/libresolv.so.2", O_RDONLY) = 4 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Select.pm", O_RDONLY) = 5 *Estas conectado a la maquina remota UserID y contrasen~a aceptados por la maquina remota* open("/home/pilote/psaftp/log/err.txt", O_WRONLY|O_CREAT|O_TRUNC, 0666) = 2 open("/home/pilote/psaftp/envoi/pczedtvd", O_RDONLY) = -1 ENOENT (No such file or directory) *El archivo /home/pilote/psaftp/envoi/pczedtvd no existe ! crea uno antes de lanzar esta aplicacion... Adios...* Es que me da rabia dejar el .exe con Wine por que no soy yo muy de Wine (si puede funcionar en Linux de forma nativa) y yo de "élfico" lo justo ;-) 2011/1/11 Alberto González Rodríguez <alberto(a)pesadilla.org> strace -e open perl programa.pl parametro1 parametro2

así mirarás que está intentando abrir 2011/1/11 Rafa Toucedo <debian.vigo(a)gmail.com> > Buenos días , > > he "recodificado" un programa en perl que nativamente funcionaba en > Ruin2 con sus respectivas rutas (C:\....) lo que he hecho básicamente es > modificar las rutas por las "nativas" de Linux (del tipo /home/...) y > lanzarlo con el ejecutable de perl *perl programa.pl, *este programa > contiene parámetros a la hora de ejecutarlo, es un ID y un nombre de archivo > del tipo *perl programa.pl parametro1 parametro2 *pero cuando lo lanzo > me dice que "parametro1" no lo encuentra (es un archivo de texto plano que > contiene una cadena alfanumérica) lo hago como root y nada... si hago un " > *cat*" del archivo con su ruta exacta me visualiaza el mismo.... el > "chown" lo tengo a root:root en toda la estructura de carpetas , mi duda es > si al lanzar perl usa el usuario root o si a esa ruta le tengo que dar otro > tipo de permisos > > > gracias! > > > _______________________________________________ > GALPon mailing list > GALPon(a)listas.galpon.org > https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon > > _______________________________________________ GALPon mailing list GALPon(a)listas.galpon.org https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon

_______________________________________________ GALPon mailing list GALPon(a)listas.galpon.org https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon

Reply

Rafa Toucedo

1:15 p.m.

Según instrucciones del Sr Couto... he sustituido lo "rojo" por lo "azul" y el error ha desaparecido pero me temo que no funciona... lo que se consigue con el cambio de "código" es que no salte el error, digo esto por que tarda muchísimo en aparecer el "done" por lo que sospecho que no da el error y da un falso "positivo"... sub Envoi { open(STDERR, "> $FichierErreur"); *# open(FILE, $_[0]); # if($! eq "") {* # le fichier a envoyer existe *if(open(FILE, $_[0])) {* close FILE; } else { print "El archivo $_[0] no existe !\ncrea uno antes de lanzar esta aplicacion...\n"; close FILE; return -1; } print "\nLanzando archivo : ".scalar(localtime)."\nEspera...\n"; print LOGFILE scalar(localtime) . " : Lanzando archivo : $_[2].\n"; if ($f1 ne $fic1) { $ftp->binary(); } $ftp->put($_[0], $_[1]); close(STDERR); $nberr = &GestionErreur; if ($! eq "" && $nberr == 0) { print "Archivo enviado a la maquina remota\n"; print "Archivo transferido correctamente a ".scalar(localtime)."\n"; print LOGFILE scalar(localtime) . " : " . $_[2] . ". Transferencia correcta\n"; return 0; } else { # La gestión de errores se produce al llamar al método 'GestionErreur' print LOGFILE scalar(localtime) . " : $_[2] : Archivo no enviado a la maquina remota\n"; return -1; } } 2011/1/11 Alberto González Rodríguez <alberto(a)pesadilla.org>

...

y cual es la parte de código que lanza "El archivo <ruta> no existe" 2011/1/11 Rafa Toucedo <debian.vigo(a)gmail.com>

# strace -e open perl codigo.pl pczedtvd pczedtvd.txt 2>&1|tail open("/lib64/libnss_dns.so.2", O_RDONLY) = 4 open("/lib64/libresolv.so.2", O_RDONLY) = 4 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Select.pm", O_RDONLY) = 5 open("/home/pilote/psaftp/log/err.txt", O_WRONLY|O_CREAT|O_TRUNC, 0666) = 2 open("/home/pilote/psaftp/envoi/pczedtvd.txt", O_RDONLY) = 5 Estas conectado a la maquina remota UserID y contrasen~a aceptados por la maquina remota El archivo /home/pilote/psaftp/envoi/pczedtvd.txt no existe ! crea uno antes de lanzar esta aplicacion... Adios... 2011/1/11 Alberto González Rodríguez <alberto(a)pesadilla.org>

puedes enviar a la lista: el strace -e open perl codigo.pl pczedtvd pczedtvd.txt 2>&1|tail ? 2011/1/11 Rafa Toucedo <debian.vigo(a)gmail.com>

perdón la "síntesis" normal sería perl codigo.pl pczedtvd pczedtvd.txt (el txt de 2º) y el resultado idéntico. si accedo al fichero que el programa no encuentra veo que existe y lo puede leer. *# cat /home/pilote/psaftp/envoi/pczedtvd.txt 20110107pIp * El 11 de enero de 2011 11:28, Rafa Toucedo <debian.vigo(a)gmail.xn--com>escribi-yobcribió: > pues hecho el strace: > > > NOTA: lo que he puesto en "rojo" es la salida normal si hiciese perl > codigo.pl pczedtvd. pczedtvd.txt > el 1er parámetro es un ID el 2º un archivo de texto plano de 1 línea > > > # strace -e open perl codigo.pl pczedtvd.txt pczedtvd > > > > open("/etc/ld.so.cache", O_RDONLY) = 3 > open("/lib64/libm.so.6", O_RDONLY) = 3 > open("/lib64/libdl.so.2", O_RDONLY) = 3 > open("/lib64/libcrypt.so.1", O_RDONLY) = 3 > open("/lib64/libpthread.so.0", O_RDONLY) = 3 > open("/lib64/libc.so.6", O_RDONLY) = 3 > open("/dev/urandom", O_RDONLY) = 3 > open("/usr/lib/locale/locale-archive", O_RDONLY) = -1 ENOENT (No such > file or directory) > open("/usr/share/locale/locale.alias", O_RDONLY) = 3 > open("/usr/lib/locale/es_ES.UTF-8/LC_IDENTIFICATION", O_RDONLY) = -1 > ENOENT (No such file or directory) > open("/usr/lib/locale/es_ES.utf8/LC_IDENTIFICATION", O_RDONLY) = 3 > open("/usr/lib64/gconv/gconv-modules.cache", O_RDONLY) = 3 > open("/usr/lib/locale/es_ES.UTF-8/LC_MEASUREMENT", O_RDONLY) = -1 > ENOENT (No such file or directory) > open("/usr/lib/locale/es_ES.utf8/LC_MEASUREMENT", O_RDONLY) = 3 > open("/usr/lib/locale/es_ES.UTF-8/LC_TELEPHONE", O_RDONLY) = -1 ENOENT > (No such file or directory) > open("/usr/lib/locale/es_ES.utf8/LC_TELEPHONE", O_RDONLY) = 3 > open("/usr/lib/locale/es_ES.UTF-8/LC_ADDRESS", O_RDONLY) = -1 ENOENT > (No such file or directory) > open("/usr/lib/locale/es_ES.utf8/LC_ADDRESS", O_RDONLY) = 3 > open("/usr/lib/locale/es_ES.UTF-8/LC_NAME", O_RDONLY) = -1 ENOENT (No > such file or directory) > open("/usr/lib/locale/es_ES.utf8/LC_NAME", O_RDONLY) = 3 > open("/usr/lib/locale/es_ES.UTF-8/LC_PAPER", O_RDONLY) = -1 ENOENT (No > such file or directory) > open("/usr/lib/locale/es_ES.utf8/LC_PAPER", O_RDONLY) = 3 > open("/usr/lib/locale/es_ES.UTF-8/LC_MESSAGES", O_RDONLY) = -1 ENOENT > (No such file or directory) > open("/usr/lib/locale/es_ES.utf8/LC_MESSAGES", O_RDONLY) = 3 > open("/usr/lib/locale/es_ES.utf8/LC_MESSAGES/SYS_LC_MESSAGES", > O_RDONLY) = 3 > open("/usr/lib/locale/es_ES.UTF-8/LC_MONETARY", O_RDONLY) = -1 ENOENT > (No such file or directory) > open("/usr/lib/locale/es_ES.utf8/LC_MONETARY", O_RDONLY) = 3 > open("/usr/lib/locale/es_ES.UTF-8/LC_COLLATE", O_RDONLY) = -1 ENOENT > (No such file or directory) > open("/usr/lib/locale/es_ES.utf8/LC_COLLATE", O_RDONLY) = 3 > open("/usr/lib/locale/es_ES.UTF-8/LC_TIME", O_RDONLY) = -1 ENOENT (No > such file or directory) > open("/usr/lib/locale/es_ES.utf8/LC_TIME", O_RDONLY) = 3 > open("/usr/lib/locale/es_ES.UTF-8/LC_NUMERIC", O_RDONLY) = -1 ENOENT > (No such file or directory) > open("/usr/lib/locale/es_ES.utf8/LC_NUMERIC", O_RDONLY) = 3 > open("/usr/lib/locale/es_ES.UTF-8/LC_CTYPE", O_RDONLY) = -1 ENOENT (No > such file or directory) > open("/usr/lib/locale/es_ES.utf8/LC_CTYPE", O_RDONLY) = 3 > open("/dev/urandom", O_RDONLY) = 3 > open("codigo.pl", O_RDONLY) = 3 > open("/usr/lib/perl5/5.10.0/Net/FTP.pm", O_RDONLY) = 4 > open("/usr/lib/perl5/5.10.0/strict.pm", O_RDONLY) = 5 > open("/usr/lib/perl5/5.10.0/vars.pm", O_RDONLY) = 5 > open("/usr/lib/perl5/5.10.0/warnings/register.pm", O_RDONLY) = 6 > open("/usr/lib/perl5/5.10.0/warnings.pm", O_RDONLY) = 6 > open("/usr/lib/perl5/5.10.0/Carp.pm", O_RDONLY) = 5 > open("/usr/lib/perl5/5.10.0/Exporter.pm", O_RDONLY) = 5 > open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Socket.pm", > O_RDONLY) = 5 > open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/XSLoader.pm", > O_RDONLY) = 6 > open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/auto/Socket/Socket.so", > O_RDONLY) = 5 > open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Socket.pm", > O_RDONLY) = 5 > open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Handle.pm", > O_RDONLY) = 6 > open("/usr/lib/perl5/5.10.0/Symbol.pm", O_RDONLY) = 7 > open("/usr/lib/perl5/5.10.0/SelectSaver.pm", O_RDONLY) = 7 > open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO.pm", O_RDONLY) > = 7 > open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/auto/IO/IO.so", > O_RDONLY) = 7 > open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Errno.pm", > O_RDONLY) = 6 > open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Config.pm", > O_RDONLY) = 7 > open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Socket/INET.pm", > O_RDONLY) = 5 > open("/usr/lib/perl5/5.10.0/Exporter/Heavy.pm", O_RDONLY) = 6 > open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Socket/UNIX.pm", > O_RDONLY) = 5 > open("/usr/lib/perl5/5.10.0/Time/Local.pm", O_RDONLY) = 5 > open("/usr/lib/perl5/5.10.0/integer.pm", O_RDONLY) = 6 > open("/usr/lib/perl5/5.10.0/constant.pm", O_RDONLY) = 6 > open("/etc/localtime", O_RDONLY) = 5 > open("/usr/lib/perl5/5.10.0/Net/Cmd.pm", O_RDONLY) = 5 > open("/usr/lib/perl5/5.10.0/utf8.pm", O_RDONLY) = 6 > open("/usr/lib/perl5/5.10.0/Net/Config.pm", O_RDONLY) = 5 > open("/etc/nsswitch.conf", O_RDONLY) = 5 > open("/etc/ld.so.cache", O_RDONLY) = 5 > open("/lib64/libnss_compat.so.2", O_RDONLY) = 5 > open("/lib64/libnsl.so.1", O_RDONLY) = 5 > open("/etc/ld.so.cache", O_RDONLY) = 5 > open("/lib64/libnss_nis.so.2", O_RDONLY) = 5 > open("/lib64/libnss_files.so.2", O_RDONLY) = 5 > open("/etc/passwd", O_RDONLY|O_CLOEXEC) = 5 > open("/etc/shadow", O_RDONLY|O_CLOEXEC) = 5 > open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Fcntl.pm", > O_RDONLY) = 5 > open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/auto/Fcntl/Fcntl.so", > O_RDONLY) = 6 > open("/usr/lib/perl5/5.10.0/Getopt/Long.pm", O_RDONLY) = 4 > open("/usr/lib/perl5/5.10.0/overload.pm", O_RDONLY) = 5 > open("/home/pilote/psaftp/log/lock.dat", O_RDONLY) = -1 ENOENT (No such > file or directory) > open("/usr/share/locale-langpack/es_ES.UTF-8/LC_MESSAGES/libc.mo", > O_RDONLY) = -1 ENOENT (No such file or directory) > open("/usr/share/locale/es_ES.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = > -1 ENOENT (No such file or directory) > open("/usr/share/locale-bundle/es_ES.UTF-8/LC_MESSAGES/libc.mo", > O_RDONLY) = -1 ENOENT (No such file or directory) > open("/usr/share/locale-langpack/es_ES.utf8/LC_MESSAGES/libc.mo", > O_RDONLY) = -1 ENOENT (No such file or directory) > open("/usr/share/locale/es_ES.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 > ENOENT (No such file or directory) > open("/usr/share/locale-bundle/es_ES.utf8/LC_MESSAGES/libc.mo", > O_RDONLY) = -1 ENOENT (No such file or directory) > open("/usr/share/locale-langpack/es_ES/LC_MESSAGES/libc.mo", O_RDONLY) > = -1 ENOENT (No such file or directory) > open("/usr/share/locale/es_ES/LC_MESSAGES/libc.mo", O_RDONLY) = -1 > ENOENT (No such file or directory) > open("/usr/share/locale-bundle/es_ES/LC_MESSAGES/libc.mo", O_RDONLY) = > -1 ENOENT (No such file or directory) > open("/usr/share/locale-langpack/es.UTF-8/LC_MESSAGES/libc.mo", > O_RDONLY) = -1 ENOENT (No such file or directory) > open("/usr/share/locale/es.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 > ENOENT (No such file or directory) > open("/usr/share/locale-bundle/es.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) > = -1 ENOENT (No such file or directory) > open("/usr/share/locale-langpack/es.utf8/LC_MESSAGES/libc.mo", > O_RDONLY) = -1 ENOENT (No such file or directory) > open("/usr/share/locale/es.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 > ENOENT (No such file or directory) > open("/usr/share/locale-bundle/es.utf8/LC_MESSAGES/libc.mo", O_RDONLY) > = -1 ENOENT (No such file or directory) > open("/usr/share/locale-langpack/es/LC_MESSAGES/libc.mo", O_RDONLY) = > -1 ENOENT (No such file or directory) > open("/usr/share/locale/es/LC_MESSAGES/libc.mo", O_RDONLY) = 3 > open("/usr/lib64/gconv/ISO8859-1.so", O_RDONLY) = 3 > open("/home/pilote/psaftp/log/lock.dat", O_WRONLY|O_CREAT|O_TRUNC, > 0666) = 3 > open("/home/pilote/psaftp/log/log.txt", O_RDWR|O_CREAT|O_APPEND, 0666) > = 3 > open("/home/pilote/psaftp/log/err.txt", O_WRONLY|O_CREAT|O_TRUNC, 0666) > = 4 > open("/etc/services", O_RDONLY|O_CLOEXEC) = 4 > open("/etc/resolv.conf", O_RDONLY) = 4 > open("/etc/resolv.conf", O_RDONLY) = 4 > open("/etc/host.conf", O_RDONLY) = 4 > open("/etc/hosts", O_RDONLY|O_CLOEXEC) = 4 > open("/etc/ld.so.cache", O_RDONLY) = 4 > open("/lib64/libnss_mdns4_minimal.so.2", O_RDONLY) = 4 > open("/etc/ld.so.cache", O_RDONLY) = 4 > open("/lib64/libnss_dns.so.2", O_RDONLY) = 4 > open("/lib64/libresolv.so.2", O_RDONLY) = 4 > open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Select.pm", > O_RDONLY) = 5 > *Estas conectado a la maquina remota > UserID y contrasen~a aceptados por la maquina remota* > open("/home/pilote/psaftp/log/err.txt", O_WRONLY|O_CREAT|O_TRUNC, 0666) > = 2 > open("/home/pilote/psaftp/envoi/pczedtvd", O_RDONLY) = -1 ENOENT (No > such file or directory) > *El archivo /home/pilote/psaftp/envoi/pczedtvd no existe ! > crea uno antes de lanzar esta aplicacion... > Adios...* > > > Es que me da rabia dejar el .exe con Wine por que no soy yo muy de Wine > (si puede funcionar en Linux de forma nativa) y yo de "élfico" lo justo ;-) > > > > > > 2011/1/11 Alberto González Rodríguez <alberto(a)pesadilla.org> > > strace -e open perl programa.pl parametro1 parametro2 >> >> así mirarás que está intentando abrir >> >> 2011/1/11 Rafa Toucedo <debian.vigo(a)gmail.com> >> >>> Buenos días , >>> >>> he "recodificado" un programa en perl que nativamente funcionaba en >>> Ruin2 con sus respectivas rutas (C:\....) lo que he hecho básicamente es >>> modificar las rutas por las "nativas" de Linux (del tipo /home/...) y >>> lanzarlo con el ejecutable de perl *perl programa.pl, *este programa >>> contiene parámetros a la hora de ejecutarlo, es un ID y un nombre de archivo >>> del tipo *perl programa.pl parametro1 parametro2 *pero cuando lo >>> lanzo me dice que "parametro1" no lo encuentra (es un archivo de texto plano >>> que contiene una cadena alfanumérica) lo hago como root y nada... si hago un >>> "*cat*" del archivo con su ruta exacta me visualiaza el mismo.... el >>> "chown" lo tengo a root:root en toda la estructura de carpetas , mi duda es >>> si al lanzar perl usa el usuario root o si a esa ruta le tengo que dar otro >>> tipo de permisos >>> >>> >>> gracias! >>> >>> >>> _______________________________________________ >>> GALPon mailing list >>> GALPon(a)listas.galpon.org >>> https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon >>> >>> >> >> _______________________________________________ >> GALPon mailing list >> GALPon(a)listas.galpon.org >> https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon >> >> > _______________________________________________ GALPon mailing list GALPon(a)listas.galpon.org https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon

_______________________________________________ GALPon mailing list GALPon(a)listas.galpon.org https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon

Reply

José Manuel Ciges Regueiro

1:44 p.m.

Pásate por EAMP (justo después del despacho de Claudia, la secretaria)esta tarde a partir de las 15h30 y si quieres le echamos un vistazo. Ciges El 11 de enero de 2011 13:15, Rafa Toucedo <debian.vigo(a)gmail.com> escribió:

...

Según instrucciones del Sr Couto... he sustituido lo "rojo" por lo "azul" y el error ha desaparecido pero me temo que no funciona... lo que se consigue con el cambio de "código" es que no salte el error, digo esto por que tarda muchísimo en aparecer el "done" por lo que sospecho que no da el error y da un falso "positivo"... sub Envoi { open(STDERR, "> $FichierErreur"); *# open(FILE, $_[0]); # if($! eq "") {* # le fichier a envoyer existe *if(open(FILE, $_[0])) {* close FILE; } else { print "El archivo $_[0] no existe !\ncrea uno antes de lanzar esta aplicacion...\n"; close FILE; return -1; } print "\nLanzando archivo : ".scalar(localtime)."\nEspera...\n"; print LOGFILE scalar(localtime) . " : Lanzando archivo : $_[2].\n"; if ($f1 ne $fic1) { $ftp->binary(); } $ftp->put($_[0], $_[1]); close(STDERR); $nberr = &GestionErreur; if ($! eq "" && $nberr == 0) { print "Archivo enviado a la maquina remota\n"; print "Archivo transferido correctamente a ".scalar(localtime)."\n"; print LOGFILE scalar(localtime) . " : " . $_[2] . ". Transferencia correcta\n"; return 0; } else { # La gestión de errores se produce al llamar al método 'GestionErreur' print LOGFILE scalar(localtime) . " : $_[2] : Archivo no enviado a la maquina remota\n"; return -1; } } 2011/1/11 Alberto González Rodríguez <alberto(a)pesadilla.org>

y cual es la parte de código que lanza "El archivo <ruta> no existe" 2011/1/11 Rafa Toucedo <debian.vigo(a)gmail.com>

# strace -e open perl codigo.pl pczedtvd pczedtvd.txt 2>&1|tail open("/lib64/libnss_dns.so.2", O_RDONLY) = 4 open("/lib64/libresolv.so.2", O_RDONLY) = 4 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Select.pm", O_RDONLY) = 5 open("/home/pilote/psaftp/log/err.txt", O_WRONLY|O_CREAT|O_TRUNC, 0666) = 2 open("/home/pilote/psaftp/envoi/pczedtvd.txt", O_RDONLY) = 5 Estas conectado a la maquina remota UserID y contrasen~a aceptados por la maquina remota El archivo /home/pilote/psaftp/envoi/pczedtvd.txt no existe ! crea uno antes de lanzar esta aplicacion... Adios... 2011/1/11 Alberto González Rodríguez <alberto(a)pesadilla.org>

puedes enviar a la lista: el strace -e open perl codigo.pl pczedtvd pczedtvd.txt 2>&1|tail ? 2011/1/11 Rafa Toucedo <debian.vigo(a)gmail.com> > perdón la "síntesis" normal sería > > perl codigo.pl pczedtvd pczedtvd.txt (el txt de 2º) y el resultado > idéntico. > > si accedo al fichero que el programa no encuentra veo que existe y lo > puede leer. > > *# cat /home/pilote/psaftp/envoi/pczedtvd.txt > > 20110107pIp > * > > El 11 de enero de 2011 11:28, Rafa Toucedo <debian.vigo(a)gmail.xn--com>escribi-yobcribió: > > >> pues hecho el strace: >> >> >> NOTA: lo que he puesto en "rojo" es la salida normal si hiciese perl >> codigo.pl pczedtvd. pczedtvd.txt >> el 1er parámetro es un ID el 2º un archivo de texto plano de 1 línea >> >> >> # strace -e open perl codigo.pl pczedtvd.txt pczedtvd >> >> >> >> open("/etc/ld.so.cache", O_RDONLY) = 3 >> open("/lib64/libm.so.6", O_RDONLY) = 3 >> open("/lib64/libdl.so.2", O_RDONLY) = 3 >> open("/lib64/libcrypt.so.1", O_RDONLY) = 3 >> open("/lib64/libpthread.so.0", O_RDONLY) = 3 >> open("/lib64/libc.so.6", O_RDONLY) = 3 >> open("/dev/urandom", O_RDONLY) = 3 >> open("/usr/lib/locale/locale-archive", O_RDONLY) = -1 ENOENT (No such >> file or directory) >> open("/usr/share/locale/locale.alias", O_RDONLY) = 3 >> open("/usr/lib/locale/es_ES.UTF-8/LC_IDENTIFICATION", O_RDONLY) = -1 >> ENOENT (No such file or directory) >> open("/usr/lib/locale/es_ES.utf8/LC_IDENTIFICATION", O_RDONLY) = 3 >> open("/usr/lib64/gconv/gconv-modules.cache", O_RDONLY) = 3 >> open("/usr/lib/locale/es_ES.UTF-8/LC_MEASUREMENT", O_RDONLY) = -1 >> ENOENT (No such file or directory) >> open("/usr/lib/locale/es_ES.utf8/LC_MEASUREMENT", O_RDONLY) = 3 >> open("/usr/lib/locale/es_ES.UTF-8/LC_TELEPHONE", O_RDONLY) = -1 ENOENT >> (No such file or directory) >> open("/usr/lib/locale/es_ES.utf8/LC_TELEPHONE", O_RDONLY) = 3 >> open("/usr/lib/locale/es_ES.UTF-8/LC_ADDRESS", O_RDONLY) = -1 ENOENT >> (No such file or directory) >> open("/usr/lib/locale/es_ES.utf8/LC_ADDRESS", O_RDONLY) = 3 >> open("/usr/lib/locale/es_ES.UTF-8/LC_NAME", O_RDONLY) = -1 ENOENT (No >> such file or directory) >> open("/usr/lib/locale/es_ES.utf8/LC_NAME", O_RDONLY) = 3 >> open("/usr/lib/locale/es_ES.UTF-8/LC_PAPER", O_RDONLY) = -1 ENOENT (No >> such file or directory) >> open("/usr/lib/locale/es_ES.utf8/LC_PAPER", O_RDONLY) = 3 >> open("/usr/lib/locale/es_ES.UTF-8/LC_MESSAGES", O_RDONLY) = -1 ENOENT >> (No such file or directory) >> open("/usr/lib/locale/es_ES.utf8/LC_MESSAGES", O_RDONLY) = 3 >> open("/usr/lib/locale/es_ES.utf8/LC_MESSAGES/SYS_LC_MESSAGES", >> O_RDONLY) = 3 >> open("/usr/lib/locale/es_ES.UTF-8/LC_MONETARY", O_RDONLY) = -1 ENOENT >> (No such file or directory) >> open("/usr/lib/locale/es_ES.utf8/LC_MONETARY", O_RDONLY) = 3 >> open("/usr/lib/locale/es_ES.UTF-8/LC_COLLATE", O_RDONLY) = -1 ENOENT >> (No such file or directory) >> open("/usr/lib/locale/es_ES.utf8/LC_COLLATE", O_RDONLY) = 3 >> open("/usr/lib/locale/es_ES.UTF-8/LC_TIME", O_RDONLY) = -1 ENOENT (No >> such file or directory) >> open("/usr/lib/locale/es_ES.utf8/LC_TIME", O_RDONLY) = 3 >> open("/usr/lib/locale/es_ES.UTF-8/LC_NUMERIC", O_RDONLY) = -1 ENOENT >> (No such file or directory) >> open("/usr/lib/locale/es_ES.utf8/LC_NUMERIC", O_RDONLY) = 3 >> open("/usr/lib/locale/es_ES.UTF-8/LC_CTYPE", O_RDONLY) = -1 ENOENT (No >> such file or directory) >> open("/usr/lib/locale/es_ES.utf8/LC_CTYPE", O_RDONLY) = 3 >> open("/dev/urandom", O_RDONLY) = 3 >> open("codigo.pl", O_RDONLY) = 3 >> open("/usr/lib/perl5/5.10.0/Net/FTP.pm", O_RDONLY) = 4 >> open("/usr/lib/perl5/5.10.0/strict.pm", O_RDONLY) = 5 >> open("/usr/lib/perl5/5.10.0/vars.pm", O_RDONLY) = 5 >> open("/usr/lib/perl5/5.10.0/warnings/register.pm", O_RDONLY) = 6 >> open("/usr/lib/perl5/5.10.0/warnings.pm", O_RDONLY) = 6 >> open("/usr/lib/perl5/5.10.0/Carp.pm", O_RDONLY) = 5 >> open("/usr/lib/perl5/5.10.0/Exporter.pm", O_RDONLY) = 5 >> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Socket.pm", >> O_RDONLY) = 5 >> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/XSLoader.pm", >> O_RDONLY) = 6 >> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/auto/Socket/Socket.so", >> O_RDONLY) = 5 >> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Socket.pm", >> O_RDONLY) = 5 >> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Handle.pm", >> O_RDONLY) = 6 >> open("/usr/lib/perl5/5.10.0/Symbol.pm", O_RDONLY) = 7 >> open("/usr/lib/perl5/5.10.0/SelectSaver.pm", O_RDONLY) = 7 >> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO.pm", >> O_RDONLY) = 7 >> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/auto/IO/IO.so", >> O_RDONLY) = 7 >> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Errno.pm", >> O_RDONLY) = 6 >> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Config.pm", >> O_RDONLY) = 7 >> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Socket/INET.pm", >> O_RDONLY) = 5 >> open("/usr/lib/perl5/5.10.0/Exporter/Heavy.pm", O_RDONLY) = 6 >> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Socket/UNIX.pm", >> O_RDONLY) = 5 >> open("/usr/lib/perl5/5.10.0/Time/Local.pm", O_RDONLY) = 5 >> open("/usr/lib/perl5/5.10.0/integer.pm", O_RDONLY) = 6 >> open("/usr/lib/perl5/5.10.0/constant.pm", O_RDONLY) = 6 >> open("/etc/localtime", O_RDONLY) = 5 >> open("/usr/lib/perl5/5.10.0/Net/Cmd.pm", O_RDONLY) = 5 >> open("/usr/lib/perl5/5.10.0/utf8.pm", O_RDONLY) = 6 >> open("/usr/lib/perl5/5.10.0/Net/Config.pm", O_RDONLY) = 5 >> open("/etc/nsswitch.conf", O_RDONLY) = 5 >> open("/etc/ld.so.cache", O_RDONLY) = 5 >> open("/lib64/libnss_compat.so.2", O_RDONLY) = 5 >> open("/lib64/libnsl.so.1", O_RDONLY) = 5 >> open("/etc/ld.so.cache", O_RDONLY) = 5 >> open("/lib64/libnss_nis.so.2", O_RDONLY) = 5 >> open("/lib64/libnss_files.so.2", O_RDONLY) = 5 >> open("/etc/passwd", O_RDONLY|O_CLOEXEC) = 5 >> open("/etc/shadow", O_RDONLY|O_CLOEXEC) = 5 >> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Fcntl.pm", >> O_RDONLY) = 5 >> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/auto/Fcntl/Fcntl.so", >> O_RDONLY) = 6 >> open("/usr/lib/perl5/5.10.0/Getopt/Long.pm", O_RDONLY) = 4 >> open("/usr/lib/perl5/5.10.0/overload.pm", O_RDONLY) = 5 >> open("/home/pilote/psaftp/log/lock.dat", O_RDONLY) = -1 ENOENT (No >> such file or directory) >> open("/usr/share/locale-langpack/es_ES.UTF-8/LC_MESSAGES/libc.mo", >> O_RDONLY) = -1 ENOENT (No such file or directory) >> open("/usr/share/locale/es_ES.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = >> -1 ENOENT (No such file or directory) >> open("/usr/share/locale-bundle/es_ES.UTF-8/LC_MESSAGES/libc.mo", >> O_RDONLY) = -1 ENOENT (No such file or directory) >> open("/usr/share/locale-langpack/es_ES.utf8/LC_MESSAGES/libc.mo", >> O_RDONLY) = -1 ENOENT (No such file or directory) >> open("/usr/share/locale/es_ES.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = >> -1 ENOENT (No such file or directory) >> open("/usr/share/locale-bundle/es_ES.utf8/LC_MESSAGES/libc.mo", >> O_RDONLY) = -1 ENOENT (No such file or directory) >> open("/usr/share/locale-langpack/es_ES/LC_MESSAGES/libc.mo", O_RDONLY) >> = -1 ENOENT (No such file or directory) >> open("/usr/share/locale/es_ES/LC_MESSAGES/libc.mo", O_RDONLY) = -1 >> ENOENT (No such file or directory) >> open("/usr/share/locale-bundle/es_ES/LC_MESSAGES/libc.mo", O_RDONLY) = >> -1 ENOENT (No such file or directory) >> open("/usr/share/locale-langpack/es.UTF-8/LC_MESSAGES/libc.mo", >> O_RDONLY) = -1 ENOENT (No such file or directory) >> open("/usr/share/locale/es.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 >> ENOENT (No such file or directory) >> open("/usr/share/locale-bundle/es.UTF-8/LC_MESSAGES/libc.mo", >> O_RDONLY) = -1 ENOENT (No such file or directory) >> open("/usr/share/locale-langpack/es.utf8/LC_MESSAGES/libc.mo", >> O_RDONLY) = -1 ENOENT (No such file or directory) >> open("/usr/share/locale/es.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 >> ENOENT (No such file or directory) >> open("/usr/share/locale-bundle/es.utf8/LC_MESSAGES/libc.mo", O_RDONLY) >> = -1 ENOENT (No such file or directory) >> open("/usr/share/locale-langpack/es/LC_MESSAGES/libc.mo", O_RDONLY) = >> -1 ENOENT (No such file or directory) >> open("/usr/share/locale/es/LC_MESSAGES/libc.mo", O_RDONLY) = 3 >> open("/usr/lib64/gconv/ISO8859-1.so", O_RDONLY) = 3 >> open("/home/pilote/psaftp/log/lock.dat", O_WRONLY|O_CREAT|O_TRUNC, >> 0666) = 3 >> open("/home/pilote/psaftp/log/log.txt", O_RDWR|O_CREAT|O_APPEND, 0666) >> = 3 >> open("/home/pilote/psaftp/log/err.txt", O_WRONLY|O_CREAT|O_TRUNC, >> 0666) = 4 >> open("/etc/services", O_RDONLY|O_CLOEXEC) = 4 >> open("/etc/resolv.conf", O_RDONLY) = 4 >> open("/etc/resolv.conf", O_RDONLY) = 4 >> open("/etc/host.conf", O_RDONLY) = 4 >> open("/etc/hosts", O_RDONLY|O_CLOEXEC) = 4 >> open("/etc/ld.so.cache", O_RDONLY) = 4 >> open("/lib64/libnss_mdns4_minimal.so.2", O_RDONLY) = 4 >> open("/etc/ld.so.cache", O_RDONLY) = 4 >> open("/lib64/libnss_dns.so.2", O_RDONLY) = 4 >> open("/lib64/libresolv.so.2", O_RDONLY) = 4 >> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Select.pm", >> O_RDONLY) = 5 >> *Estas conectado a la maquina remota >> UserID y contrasen~a aceptados por la maquina remota* >> open("/home/pilote/psaftp/log/err.txt", O_WRONLY|O_CREAT|O_TRUNC, >> 0666) = 2 >> open("/home/pilote/psaftp/envoi/pczedtvd", O_RDONLY) = -1 ENOENT (No >> such file or directory) >> *El archivo /home/pilote/psaftp/envoi/pczedtvd no existe ! >> crea uno antes de lanzar esta aplicacion... >> Adios...* >> >> >> Es que me da rabia dejar el .exe con Wine por que no soy yo muy de >> Wine (si puede funcionar en Linux de forma nativa) y yo de "élfico" lo justo >> ;-) >> >> >> >> >> >> 2011/1/11 Alberto González Rodríguez <alberto(a)pesadilla.org> >> >> strace -e open perl programa.pl parametro1 parametro2 >>> >>> así mirarás que está intentando abrir >>> >>> 2011/1/11 Rafa Toucedo <debian.vigo(a)gmail.com> >>> >>>> Buenos días , >>>> >>>> he "recodificado" un programa en perl que nativamente funcionaba en >>>> Ruin2 con sus respectivas rutas (C:\....) lo que he hecho básicamente es >>>> modificar las rutas por las "nativas" de Linux (del tipo /home/...) y >>>> lanzarlo con el ejecutable de perl *perl programa.pl, *este >>>> programa contiene parámetros a la hora de ejecutarlo, es un ID y un nombre >>>> de archivo del tipo *perl programa.pl parametro1 parametro2 *pero >>>> cuando lo lanzo me dice que "parametro1" no lo encuentra (es un archivo de >>>> texto plano que contiene una cadena alfanumérica) lo hago como root y >>>> nada... si hago un "*cat*" del archivo con su ruta exacta me >>>> visualiaza el mismo.... el "chown" lo tengo a root:root en toda la >>>> estructura de carpetas , mi duda es si al lanzar perl usa el usuario root o >>>> si a esa ruta le tengo que dar otro tipo de permisos >>>> >>>> >>>> gracias! >>>> >>>> >>>> _______________________________________________ >>>> GALPon mailing list >>>> GALPon(a)listas.galpon.org >>>> https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon >>>> >>>> >>> >>> _______________________________________________ >>> GALPon mailing list >>> GALPon(a)listas.galpon.org >>> https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon >>> >>> >> > > _______________________________________________ > GALPon mailing list > GALPon(a)listas.galpon.org > https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon > > _______________________________________________ GALPon mailing list GALPon(a)listas.galpon.org https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon

_______________________________________________ GALPon mailing list GALPon(a)listas.galpon.org https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon

Reply

Rafa Toucedo

3:43 p.m.

ahora parece que funciona con las modificaciones que he puesto en rojo, me devuelve a modo de archivo de log esto: Net::FTP=GLOB(0xb86380)>>> ALLO 16 Net::FTP=GLOB(0xb86380)<<< 200 ALLO Command received. Net::FTP=GLOB(0xb86380)>>> PORT 10,159,172,201,172,160 Net::FTP=GLOB(0xb86380)<<< 200 PORT Command executed. Net::FTP=GLOB(0xb86380)>>> STOR pczedtvd! Net::FTP=GLOB(0xb86380)<<< 125 STOR Command accepted, transfer starting REQUEST: 01222050. Net::FTP=GLOB(0xb86380)<<< 226-Transfer completed successfully. Net::FTP=GLOB(0xb86380)<<< 226 bytes RECV : 17 records processed : 1 lo cual me confirma la recepción del archivo, ahora el problema es de sintaxis dado que no es capaz de abrir el archivo de Log para comrpobar... he puesto en azul donde pienso está el problema: #!/usr/bin/perl -w use Net::FTP; #use Term::ReadKey; use Getopt::Long; $t0=@ARGV[0]; $t1=@ARGV[1]; # Posici�n de las opciones de la l�nea de comando. GetOptions("force" => \$force); # Anulamos el CTRL+C $SIG{INT} = "IGNORE"; # Localizaci�n de los ficheros de LOG. $FichierErreur = "/home/pilote/Psaftp/LOG/err.txt"; $FichierLog = "/home/pilote/Psaftp/LOG/LOG.txt"; $FichierLock = "/home/pilote/Psaftp/LOG/lock.dat"; # Localizaci�n de ficheros de env�o. $fic1=$t1; $Fichier="/home/pilote/Psaftp/envoi/$fic1"; $Idf=$t0."!"; $Libelle="Enviando archivo : $fic1 $Idf "; ($f1,$f2) = split(/\.zip\Z/, $fic1); # Usuario y contrase�a para la conexi�n FTP. $userID="***********"; $userPass="**********"; # Direcci�n del FTP $Host="************"; # $Port="4102"; dejamos el puerto estandar (21). # ****************************************************** # * Procedimiento de gesti�n de errores * # ****************************************************** sub success { open(SUCCESS,"$FichierErreur") || die "imposible abrir $success"; while (<SUCCESS>) { s/\n//; if ( $_ =~ /.*(REQUEST:).*/) { &request("$_"); } } close(SUCCESS); } sub request{ ($a,$b) = $_[0] =~ /.*\s\d{3}\s(.*)\sCommand.*(REQUEST:\s.*\.).*/; print LOGFILE scalar(localtime) . " : $a\t$b\n"; } sub erreur { $nberreur=0; open(ERREUR,"$FichierErreur") || die "imposible abrir $erreur"; while (<ERREUR>) { s/\n//; if ( $_ =~ /.*(\(TRC=).*/) { $nberreur = $nberreur + 1; &trc("$_"); } } if($nberreur>0) { print "�error! mira el fichero de LOG para mas detalles.\n"; close(ERREUR); return -1; } else { close(ERREUR); return 0; } } sub trc { ($c) = $_[0] =~ /.*(\s\d{3}.*)/; print LOGFILE scalar(localtime) . " : " . ($c) ."\n"; } sub GestionErreur { &success; $rep = &erreur; return $rep; } # *********************************** # * PROCEDIMIENTO DE FIN DE PROGRAMA* # *********************************** sub End_Prog { print "\n\nPulsa enter para salir del programa"; $fin = <STDIN>; chop($fin); } # *************************************************************** # * PROCEDIMIENTO DE CONEXION Y AUTENTICACION DEL SERVIDOR * # *************************************************************** # * Los par�metros son : * # * $_[0] : nombre del servidor remoto * # * $_[1] : userID de la conexi�n * # * $_[2] : contrase�a asociada al * # *************************************************************** sub Authentification { open(STDERR, " > $FichierErreur"); * $ftp = Net::FTP->new($_[0], Timeout => 30, Port => 21, Debug => 3, Passive => 0);* * if ($ftp == undef) {* print "Incapaz de conectarse al host remoto\n"; print "El mensaje de error es : $@\n"; print LOGFILE scalar(localtime) . " : Incapaz de establecer conexion con la m�quina remota\n"; print LOGFILE "El mensaje de error es :" . $@ . "\n"; return -1; } print "Estas conectado a la maquina remota\n"; print LOGFILE scalar(localtime) . " : Conexion estsablecida con la maquina remota\n"; $rep = $ftp->login($_[1], $_[2]); close(STDERR); if ($rep == undef) { GestionErreur; print "Conexion rechazada : � comprueba tu usuario y contrasen~a !\n"; print LOGFILE scalar(localtime) . " : Conexion rechazada : � comprueba tu usuario y contrasen~a !\n"; return -1; } print "UserID y contrasen~a aceptados por la maquina remota\n"; print LOGFILE scalar(localtime) . " : UserID y contrasen~a aceptados por la maquina remota\n"; return 0; } # ************************************************************ # * PROCEDIMIENTO DE ENVIO DE FICHEROS * # ************************************************************ # * Los par�metros son * # * $_[0] : nombre del fichero a transferir. * # * $_[1] : <IDF>! : IDF a utilizar para el envio * # * $_[2] : redacci�n del log de transferencia * # ************************************************************ sub Envoi { open(STDERR, " > $FichierErreur"); open (FILE,$_[0]); #$archivo = new IO::File; #if($archivo->open($_[0])){ #print $_[0]; if( -e $_[0] ) { # le fichier a envoyer existe close FILE; } else { print "El archivo $_[0] no existe !\ncrea uno antes de lanzar esta aplicacion...\n"; close FILE; return -1; } print "\nLanzando archivo : ".scalar(localtime)."\nEspera...\n"; print LOGFILE scalar(localtime) . " : Lanzando archivo : $_[2].\n"; if ($f1 ne $fic1) { $ftp->binary(); } $ftp->put($_[0], $_[1]); close(STDERR); $nberr = &GestionErreur; if ($! eq " " && $nberr == 0) { print "Archivo enviado a la maquina remota\n"; print "Archivo transferido correctamente a ".scalar(localtime)."\n"; print LOGFILE scalar(localtime) . " : " . $_[2] . ". Transferencia correcta\n"; return 0; } else { # La gesti�n de errores se produce al llamar al m�todo "GestionErreur" print LOGFILE scalar(localtime) . " : $_[2] : Archivo no enviado a la maquina remota\n"; return -1; } } # ************************************************** # * Principal * # ************************************************** # Comprobar si ya est� funcionando if ($force) { unlink($FichierLock); open(LOCK, "> $FichierLock"); close(LOCK); } else { # ver si ya est� en marcha open(LOCK, "$FichierLock"); if($! eq "") { close(LOCK); print "La aplicacion ya se esta ejecutando!\nadios!\n"; End_Prog; exit 0; } else { close(LOCK); open(LOCK, "> $FichierLock"); close(LOCK); } } # ouvre le fichier de log open(LOGFILE, "+>> $FichierLog"); print LOGFILE "************************************************************************************************\n"; # phase d"authentification $rep = Authentification($Host, $userID, $userPass); # transfert if ($rep == 0) { &Envoi($Fichier,$Idf,$Libelle); } close(LOGFILE); unlink($FichierErreur); unlink($FichierLock); $ftp->quit(); print "Adios...\n"; #End_Prog; El 11 de enero de 2011 13:46, José Manuel Ciges Regueiro <zaipower(a)ciges.net

...

escribió:

...

Pásate por EAMP (justo después del despacho de Claudia, la secretaria)esta tarde a partir de las 15h30 y si quieres le echamos un vistazo. Ciges El 11 de enero de 2011 13:15, Rafa Toucedo <debian.vigo(a)gmail.xn--com>escribi-yobcribió: Según instrucciones del Sr Couto... he sustituido lo "rojo" por lo "azul"

y el error ha desaparecido pero me temo que no funciona... lo que se consigue con el cambio de "código" es que no salte el error, digo esto por que tarda muchísimo en aparecer el "done" por lo que sospecho que no da el error y da un falso "positivo"... sub Envoi { open(STDERR, "> $FichierErreur"); *# open(FILE, $_[0]); # if($! eq "") {* # le fichier a envoyer existe *if(open(FILE, $_[0])) {* close FILE; } else { print "El archivo $_[0] no existe !\ncrea uno antes de lanzar esta aplicacion...\n"; close FILE; return -1; } print "\nLanzando archivo : ".scalar(localtime)."\nEspera...\n"; print LOGFILE scalar(localtime) . " : Lanzando archivo : $_[2].\n"; if ($f1 ne $fic1) { $ftp->binary(); } $ftp->put($_[0], $_[1]); close(STDERR); $nberr = &GestionErreur; if ($! eq "" && $nberr == 0) { print "Archivo enviado a la maquina remota\n"; print "Archivo transferido correctamente a ".scalar(localtime)."\n"; print LOGFILE scalar(localtime) . " : " . $_[2] . ". Transferencia correcta\n"; return 0; } else { # La gestión de errores se produce al llamar al método 'GestionErreur' print LOGFILE scalar(localtime) . " : $_[2] : Archivo no enviado a la maquina remota\n"; return -1; } } 2011/1/11 Alberto González Rodríguez <alberto(a)pesadilla.org>

y cual es la parte de código que lanza "El archivo <ruta> no existe" 2011/1/11 Rafa Toucedo <debian.vigo(a)gmail.com>

# strace -e open perl codigo.pl pczedtvd pczedtvd.txt 2>&1|tail open("/lib64/libnss_dns.so.2", O_RDONLY) = 4 open("/lib64/libresolv.so.2", O_RDONLY) = 4 open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Select.pm", O_RDONLY) = 5 open("/home/pilote/psaftp/log/err.txt", O_WRONLY|O_CREAT|O_TRUNC, 0666) = 2 open("/home/pilote/psaftp/envoi/pczedtvd.txt", O_RDONLY) = 5 Estas conectado a la maquina remota UserID y contrasen~a aceptados por la maquina remota El archivo /home/pilote/psaftp/envoi/pczedtvd.txt no existe ! crea uno antes de lanzar esta aplicacion... Adios... 2011/1/11 Alberto González Rodríguez <alberto(a)pesadilla.org> > puedes enviar a la lista: el strace -e open perl codigo.pl pczedtvd > pczedtvd.txt 2>&1|tail ? > > > 2011/1/11 Rafa Toucedo <debian.vigo(a)gmail.com> > >> perdón la "síntesis" normal sería >> >> perl codigo.pl pczedtvd pczedtvd.txt (el txt de 2º) y el resultado >> idéntico. >> >> si accedo al fichero que el programa no encuentra veo que existe y lo >> puede leer. >> >> *# cat /home/pilote/psaftp/envoi/pczedtvd.txt >> >> 20110107pIp >> * >> >> El 11 de enero de 2011 11:28, Rafa Toucedo <debian.vigo(a)gmail.xn--com>escribi-yobcribió: >> >> >>> pues hecho el strace: >>> >>> >>> NOTA: lo que he puesto en "rojo" es la salida normal si hiciese perl >>> codigo.pl pczedtvd. pczedtvd.txt >>> el 1er parámetro es un ID el 2º un archivo de texto plano de 1 línea >>> >>> >>> # strace -e open perl codigo.pl pczedtvd.txt pczedtvd >>> >>> >>> >>> open("/etc/ld.so.cache", O_RDONLY) = 3 >>> open("/lib64/libm.so.6", O_RDONLY) = 3 >>> open("/lib64/libdl.so.2", O_RDONLY) = 3 >>> open("/lib64/libcrypt.so.1", O_RDONLY) = 3 >>> open("/lib64/libpthread.so.0", O_RDONLY) = 3 >>> open("/lib64/libc.so.6", O_RDONLY) = 3 >>> open("/dev/urandom", O_RDONLY) = 3 >>> open("/usr/lib/locale/locale-archive", O_RDONLY) = -1 ENOENT (No such >>> file or directory) >>> open("/usr/share/locale/locale.alias", O_RDONLY) = 3 >>> open("/usr/lib/locale/es_ES.UTF-8/LC_IDENTIFICATION", O_RDONLY) = -1 >>> ENOENT (No such file or directory) >>> open("/usr/lib/locale/es_ES.utf8/LC_IDENTIFICATION", O_RDONLY) = 3 >>> open("/usr/lib64/gconv/gconv-modules.cache", O_RDONLY) = 3 >>> open("/usr/lib/locale/es_ES.UTF-8/LC_MEASUREMENT", O_RDONLY) = -1 >>> ENOENT (No such file or directory) >>> open("/usr/lib/locale/es_ES.utf8/LC_MEASUREMENT", O_RDONLY) = 3 >>> open("/usr/lib/locale/es_ES.UTF-8/LC_TELEPHONE", O_RDONLY) = -1 >>> ENOENT (No such file or directory) >>> open("/usr/lib/locale/es_ES.utf8/LC_TELEPHONE", O_RDONLY) = 3 >>> open("/usr/lib/locale/es_ES.UTF-8/LC_ADDRESS", O_RDONLY) = -1 ENOENT >>> (No such file or directory) >>> open("/usr/lib/locale/es_ES.utf8/LC_ADDRESS", O_RDONLY) = 3 >>> open("/usr/lib/locale/es_ES.UTF-8/LC_NAME", O_RDONLY) = -1 ENOENT (No >>> such file or directory) >>> open("/usr/lib/locale/es_ES.utf8/LC_NAME", O_RDONLY) = 3 >>> open("/usr/lib/locale/es_ES.UTF-8/LC_PAPER", O_RDONLY) = -1 ENOENT >>> (No such file or directory) >>> open("/usr/lib/locale/es_ES.utf8/LC_PAPER", O_RDONLY) = 3 >>> open("/usr/lib/locale/es_ES.UTF-8/LC_MESSAGES", O_RDONLY) = -1 ENOENT >>> (No such file or directory) >>> open("/usr/lib/locale/es_ES.utf8/LC_MESSAGES", O_RDONLY) = 3 >>> open("/usr/lib/locale/es_ES.utf8/LC_MESSAGES/SYS_LC_MESSAGES", >>> O_RDONLY) = 3 >>> open("/usr/lib/locale/es_ES.UTF-8/LC_MONETARY", O_RDONLY) = -1 ENOENT >>> (No such file or directory) >>> open("/usr/lib/locale/es_ES.utf8/LC_MONETARY", O_RDONLY) = 3 >>> open("/usr/lib/locale/es_ES.UTF-8/LC_COLLATE", O_RDONLY) = -1 ENOENT >>> (No such file or directory) >>> open("/usr/lib/locale/es_ES.utf8/LC_COLLATE", O_RDONLY) = 3 >>> open("/usr/lib/locale/es_ES.UTF-8/LC_TIME", O_RDONLY) = -1 ENOENT (No >>> such file or directory) >>> open("/usr/lib/locale/es_ES.utf8/LC_TIME", O_RDONLY) = 3 >>> open("/usr/lib/locale/es_ES.UTF-8/LC_NUMERIC", O_RDONLY) = -1 ENOENT >>> (No such file or directory) >>> open("/usr/lib/locale/es_ES.utf8/LC_NUMERIC", O_RDONLY) = 3 >>> open("/usr/lib/locale/es_ES.UTF-8/LC_CTYPE", O_RDONLY) = -1 ENOENT >>> (No such file or directory) >>> open("/usr/lib/locale/es_ES.utf8/LC_CTYPE", O_RDONLY) = 3 >>> open("/dev/urandom", O_RDONLY) = 3 >>> open("codigo.pl", O_RDONLY) = 3 >>> open("/usr/lib/perl5/5.10.0/Net/FTP.pm", O_RDONLY) = 4 >>> open("/usr/lib/perl5/5.10.0/strict.pm", O_RDONLY) = 5 >>> open("/usr/lib/perl5/5.10.0/vars.pm", O_RDONLY) = 5 >>> open("/usr/lib/perl5/5.10.0/warnings/register.pm", O_RDONLY) = 6 >>> open("/usr/lib/perl5/5.10.0/warnings.pm", O_RDONLY) = 6 >>> open("/usr/lib/perl5/5.10.0/Carp.pm", O_RDONLY) = 5 >>> open("/usr/lib/perl5/5.10.0/Exporter.pm", O_RDONLY) = 5 >>> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Socket.pm", >>> O_RDONLY) = 5 >>> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/XSLoader.pm", >>> O_RDONLY) = 6 >>> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/auto/Socket/Socket.so", >>> O_RDONLY) = 5 >>> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Socket.pm", >>> O_RDONLY) = 5 >>> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Handle.pm", >>> O_RDONLY) = 6 >>> open("/usr/lib/perl5/5.10.0/Symbol.pm", O_RDONLY) = 7 >>> open("/usr/lib/perl5/5.10.0/SelectSaver.pm", O_RDONLY) = 7 >>> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO.pm", >>> O_RDONLY) = 7 >>> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/auto/IO/IO.so", >>> O_RDONLY) = 7 >>> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Errno.pm", >>> O_RDONLY) = 6 >>> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Config.pm", >>> O_RDONLY) = 7 >>> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Socket/INET.pm", >>> O_RDONLY) = 5 >>> open("/usr/lib/perl5/5.10.0/Exporter/Heavy.pm", O_RDONLY) = 6 >>> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Socket/UNIX.pm", >>> O_RDONLY) = 5 >>> open("/usr/lib/perl5/5.10.0/Time/Local.pm", O_RDONLY) = 5 >>> open("/usr/lib/perl5/5.10.0/integer.pm", O_RDONLY) = 6 >>> open("/usr/lib/perl5/5.10.0/constant.pm", O_RDONLY) = 6 >>> open("/etc/localtime", O_RDONLY) = 5 >>> open("/usr/lib/perl5/5.10.0/Net/Cmd.pm", O_RDONLY) = 5 >>> open("/usr/lib/perl5/5.10.0/utf8.pm", O_RDONLY) = 6 >>> open("/usr/lib/perl5/5.10.0/Net/Config.pm", O_RDONLY) = 5 >>> open("/etc/nsswitch.conf", O_RDONLY) = 5 >>> open("/etc/ld.so.cache", O_RDONLY) = 5 >>> open("/lib64/libnss_compat.so.2", O_RDONLY) = 5 >>> open("/lib64/libnsl.so.1", O_RDONLY) = 5 >>> open("/etc/ld.so.cache", O_RDONLY) = 5 >>> open("/lib64/libnss_nis.so.2", O_RDONLY) = 5 >>> open("/lib64/libnss_files.so.2", O_RDONLY) = 5 >>> open("/etc/passwd", O_RDONLY|O_CLOEXEC) = 5 >>> open("/etc/shadow", O_RDONLY|O_CLOEXEC) = 5 >>> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/Fcntl.pm", >>> O_RDONLY) = 5 >>> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/auto/Fcntl/Fcntl.so", >>> O_RDONLY) = 6 >>> open("/usr/lib/perl5/5.10.0/Getopt/Long.pm", O_RDONLY) = 4 >>> open("/usr/lib/perl5/5.10.0/overload.pm", O_RDONLY) = 5 >>> open("/home/pilote/psaftp/log/lock.dat", O_RDONLY) = -1 ENOENT (No >>> such file or directory) >>> open("/usr/share/locale-langpack/es_ES.UTF-8/LC_MESSAGES/libc.mo", >>> O_RDONLY) = -1 ENOENT (No such file or directory) >>> open("/usr/share/locale/es_ES.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = >>> -1 ENOENT (No such file or directory) >>> open("/usr/share/locale-bundle/es_ES.UTF-8/LC_MESSAGES/libc.mo", >>> O_RDONLY) = -1 ENOENT (No such file or directory) >>> open("/usr/share/locale-langpack/es_ES.utf8/LC_MESSAGES/libc.mo", >>> O_RDONLY) = -1 ENOENT (No such file or directory) >>> open("/usr/share/locale/es_ES.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = >>> -1 ENOENT (No such file or directory) >>> open("/usr/share/locale-bundle/es_ES.utf8/LC_MESSAGES/libc.mo", >>> O_RDONLY) = -1 ENOENT (No such file or directory) >>> open("/usr/share/locale-langpack/es_ES/LC_MESSAGES/libc.mo", >>> O_RDONLY) = -1 ENOENT (No such file or directory) >>> open("/usr/share/locale/es_ES/LC_MESSAGES/libc.mo", O_RDONLY) = -1 >>> ENOENT (No such file or directory) >>> open("/usr/share/locale-bundle/es_ES/LC_MESSAGES/libc.mo", O_RDONLY) >>> = -1 ENOENT (No such file or directory) >>> open("/usr/share/locale-langpack/es.UTF-8/LC_MESSAGES/libc.mo", >>> O_RDONLY) = -1 ENOENT (No such file or directory) >>> open("/usr/share/locale/es.UTF-8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 >>> ENOENT (No such file or directory) >>> open("/usr/share/locale-bundle/es.UTF-8/LC_MESSAGES/libc.mo", >>> O_RDONLY) = -1 ENOENT (No such file or directory) >>> open("/usr/share/locale-langpack/es.utf8/LC_MESSAGES/libc.mo", >>> O_RDONLY) = -1 ENOENT (No such file or directory) >>> open("/usr/share/locale/es.utf8/LC_MESSAGES/libc.mo", O_RDONLY) = -1 >>> ENOENT (No such file or directory) >>> open("/usr/share/locale-bundle/es.utf8/LC_MESSAGES/libc.mo", >>> O_RDONLY) = -1 ENOENT (No such file or directory) >>> open("/usr/share/locale-langpack/es/LC_MESSAGES/libc.mo", O_RDONLY) = >>> -1 ENOENT (No such file or directory) >>> open("/usr/share/locale/es/LC_MESSAGES/libc.mo", O_RDONLY) = 3 >>> open("/usr/lib64/gconv/ISO8859-1.so", O_RDONLY) = 3 >>> open("/home/pilote/psaftp/log/lock.dat", O_WRONLY|O_CREAT|O_TRUNC, >>> 0666) = 3 >>> open("/home/pilote/psaftp/log/log.txt", O_RDWR|O_CREAT|O_APPEND, >>> 0666) = 3 >>> open("/home/pilote/psaftp/log/err.txt", O_WRONLY|O_CREAT|O_TRUNC, >>> 0666) = 4 >>> open("/etc/services", O_RDONLY|O_CLOEXEC) = 4 >>> open("/etc/resolv.conf", O_RDONLY) = 4 >>> open("/etc/resolv.conf", O_RDONLY) = 4 >>> open("/etc/host.conf", O_RDONLY) = 4 >>> open("/etc/hosts", O_RDONLY|O_CLOEXEC) = 4 >>> open("/etc/ld.so.cache", O_RDONLY) = 4 >>> open("/lib64/libnss_mdns4_minimal.so.2", O_RDONLY) = 4 >>> open("/etc/ld.so.cache", O_RDONLY) = 4 >>> open("/lib64/libnss_dns.so.2", O_RDONLY) = 4 >>> open("/lib64/libresolv.so.2", O_RDONLY) = 4 >>> open("/usr/lib/perl5/5.10.0/x86_64-linux-thread-multi/IO/Select.pm", >>> O_RDONLY) = 5 >>> *Estas conectado a la maquina remota >>> UserID y contrasen~a aceptados por la maquina remota* >>> open("/home/pilote/psaftp/log/err.txt", O_WRONLY|O_CREAT|O_TRUNC, >>> 0666) = 2 >>> open("/home/pilote/psaftp/envoi/pczedtvd", O_RDONLY) = -1 ENOENT (No >>> such file or directory) >>> *El archivo /home/pilote/psaftp/envoi/pczedtvd no existe ! >>> crea uno antes de lanzar esta aplicacion... >>> Adios...* >>> >>> >>> Es que me da rabia dejar el .exe con Wine por que no soy yo muy de >>> Wine (si puede funcionar en Linux de forma nativa) y yo de "élfico" lo justo >>> ;-) >>> >>> >>> >>> >>> >>> 2011/1/11 Alberto González Rodríguez <alberto(a)pesadilla.org> >>> >>> strace -e open perl programa.pl parametro1 parametro2 >>>> >>>> así mirarás que está intentando abrir >>>> >>>> 2011/1/11 Rafa Toucedo <debian.vigo(a)gmail.com> >>>> >>>>> Buenos días , >>>>> >>>>> he "recodificado" un programa en perl que nativamente funcionaba en >>>>> Ruin2 con sus respectivas rutas (C:\....) lo que he hecho básicamente es >>>>> modificar las rutas por las "nativas" de Linux (del tipo /home/...) y >>>>> lanzarlo con el ejecutable de perl *perl programa.pl, *este >>>>> programa contiene parámetros a la hora de ejecutarlo, es un ID y un nombre >>>>> de archivo del tipo *perl programa.pl parametro1 parametro2 *pero >>>>> cuando lo lanzo me dice que "parametro1" no lo encuentra (es un archivo de >>>>> texto plano que contiene una cadena alfanumérica) lo hago como root y >>>>> nada... si hago un "*cat*" del archivo con su ruta exacta me >>>>> visualiaza el mismo.... el "chown" lo tengo a root:root en toda la >>>>> estructura de carpetas , mi duda es si al lanzar perl usa el usuario root o >>>>> si a esa ruta le tengo que dar otro tipo de permisos >>>>> >>>>> >>>>> gracias! >>>>> >>>>> >>>>> _______________________________________________ >>>>> GALPon mailing list >>>>> GALPon(a)listas.galpon.org >>>>> https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon >>>>> >>>>> >>>> >>>> _______________________________________________ >>>> GALPon mailing list >>>> GALPon(a)listas.galpon.org >>>> https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon >>>> >>>> >>> >> >> _______________________________________________ >> GALPon mailing list >> GALPon(a)listas.galpon.org >> https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon >> >> > > _______________________________________________ > GALPon mailing list > GALPon(a)listas.galpon.org > https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon > > _______________________________________________ GALPon mailing list GALPon(a)listas.galpon.org https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon

_______________________________________________ GALPon mailing list GALPon(a)listas.galpon.org https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon

Reply

Rafa Toucedo

11:21 a.m.

#!/usr/bin/perl use Net::FTP; #use Term::ReadKey; use Getopt::Long; $t0=@ARGV[0]; $t1=@ARGV[1]; así comienza el código... para el "debug" le pongo el -w ó -W en #/usr/bin/perl pero me da warnings que molestan mas que otra cosa El 11 de enero de 2011 10:25, Rafa Couto <rafacouto(a)gmail.com> escribió:

...

Mete una primera línea para ver el valor de los parámetros que se le pasa, algo como: print join('-',@ARGV); Recuerda que el parámetro primero es $ARGV[0] Saludos, RC 2011/1/11 Rafa Toucedo <debian.vigo(a)gmail.com>

Buenos días , he "recodificado" un programa en perl que nativamente funcionaba en Ruin2 con sus respectivas rutas (C:\....) lo que he hecho básicamente es modificar las rutas por las "nativas" de Linux (del tipo /home/...) y lanzarlo con el ejecutable de perl *perl programa.pl, *este programa contiene parámetros a la hora de ejecutarlo, es un ID y un nombre de archivo del tipo *perl programa.pl parametro1 parametro2 *pero cuando lo lanzo me dice que "parametro1" no lo encuentra (es un archivo de texto plano que contiene una cadena alfanumérica) lo hago como root y nada... si hago un "*cat*" del archivo con su ruta exacta me visualiaza el mismo.... el "chown" lo tengo a root:root en toda la estructura de carpetas , mi duda es si al lanzar perl usa el usuario root o si a esa ruta le tengo que dar otro tipo de permisos gracias! _______________________________________________ GALPon mailing list GALPon(a)listas.galpon.org https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon

-- Rafa Couto - http://caligari.treboada.net GNU/Linux user #99126 - http://counter.li.org GPG key - http://bit.ly/D76ABDEC _______________________________________________ GALPon mailing list GALPon(a)listas.galpon.org https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon

Reply

Eduardo Diaz Comellas

10:41 a.m.

Hola Rafa, Rafa Toucedo escribió:

...

rutas (C:\....) lo que he hecho básicamente es modificar las rutas por las "nativas" de Linux (del tipo /home/...) y lanzarlo con el ejecutable de perl *perl programa.pl <http://programa.pl>, *este programa contiene parámetros a la hora de ejecutarlo, es un ID y un nombre de archivo del tipo *perl programa.pl <http://programa.pl> parametro1 parametro2 *pero cuando lo lanzo me dice que "parametro1" no lo encuentra (es un archivo de texto plano que contiene una cadena alfanumérica) lo hago como root y nada... si hago un "*cat*" del archivo

Perl no va a cambiar los privilegios efectivos a no ser que le mandes hacerlo... Asegúrate de que todos los caracteres especiales se escapan adecuadamente, no vaya a ser que no encuentre los archivos por eso. Salu2 -- <http://www.ultreia.es>Eduardo Diaz Comellas ediaz(a)ultreia.es <mailto:ediaz@ultreia.es> -- Ultreia Comunicaciones S.L. <http://www.ultreia.es> Tlf: 986243324 -- Skype: ultreiavigo <skype:ultreiavigo?call> AVISO LEGAL-LOPD Para ver la política de protección de datos, consulte http://www.ultreia.es/contacto.htm MEDIO AMBIENTE Antes de imprimir este correo, piense si es necesario. El medio ambiente es cosa de todos.

Reply