11 Jan
2011
11 Jan
'11
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>
_______________________________________________
GALPon mailing list
GALPon(a)listas.galpon.org
https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon
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>
_______________________________________________
GALPon mailing list
GALPon(a)listas.galpon.org
https://listas.galpon.org/cgi-bin/mailman/listinfo/galpon
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