Re: [GALPon] perl @ linux

11 Jan 2011

puedes enviar a la lista: el strace -e open perl codigo.pl pczedtvd
pczedtvd.txt 2>&1|tail ?
2011/1/11 Rafa Toucedo &lt;debian.vigo(a)gmail.com&gt;
...
  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 &lt;debian.vigo(a)gmail.xn--com&gt;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 &lt;alberto(a)pesadilla.org&gt;
 strace -e open perl programa.pl parametro1 parametro2

 así mirarás que está intentando abrir
 2011/1/11 Rafa Toucedo &lt;debian.vigo(a)gmail.com&gt;
  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

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

Re: [GALPon] perl @ linux