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