Desarrollo de Python
  1. Desarrollo de Python
  3. ¿Cómo llamar a un script de Python desde Perl?
Intereting Posts
Dar formato a una tabla que se agregó a un gráfico utilizando pandas.DataFrame.plot Sirviendo la API REST de Python (matraz) sobre HTTP2 Actualizar el estado de Facebook usando Python Agregué una variable de configuración SECRET_KEY a mi aplicación Django en Heroku pero ahora no funcionará localmente Psycopg2, Postgresql, Python: la forma más rápida de inserción masiva Extracción de elementos de formato de documento de MS Word junto con información de texto sin formato Desembalaje lista de longitud variable devuelta desde la función IronPython WPF con RevitPythonShell Matplotlib: Haga que todos los valores en el rango se muestren en el eje x ¿Por qué los lenguajes de script no envían Unicode a la consola de Windows? ¿Cómo imprimir fácilmente texto ascii-art? ¿Por qué puedo agregar el valor booleano Falso pero no Verdadero en un conjunto en Python? ¿Cómo funciona el reactor retorcido de Python? Python Pandas Si el valor en la columna B = es igual a , reemplace la columna A con “T” cómo agregar encabezados http a un paquete detectado mediante scapy

¿Cómo llamar a un script de Python desde Perl?

Necesito llamar “/usr/bin/pdf2txt.py” con algunos argumentos de mi script de Perl. Cómo debería hacer esto ?

Si necesita capturar STDOUT : 

my $ret = `/usr/bin/pdf2txt.py arg1 arg2`;

Puede capturar fácilmente STDERR redirigiéndolo a STDOUT: 

 my $ret = `/usr/bin/pdf2txt.py arg1 arg2 2>&1`;

Si necesita capturar el estado de salida , puede utilizar: 

 my $ret = system("/usr/bin/pdf2txt.py arg1 arg2");

Tenga en cuenta que tanto `` como system() bloquean hasta que el progtwig termina de ejecutarse.

Si no desea esperar, o si necesita capturar tanto el estado STDOUT / STDERR como el estado de salida, debe usar IPC :: Open3 . 

 my $output = `/usr/bin/pdf2txt.py arg1 arg2`;

Si no necesita la salida del script, pero desea el código de retorno, use system() : 

 ... my $bin = "/usr/bin/pdf2txt.py"; my @args = qw(arg1 arg2 arg3); my $cmd = "$bin ".join(" ", @args); system ($cmd) == 0 or die "command was unable to run to completion:\n$cmd\n";

La buena respuesta de Francisco: 

 my $ret = `/usr/bin/pdf2txt.py arg1 arg2 2>&1`;

es simplificado por Blagovest Buyukliev: 

 my $ret = `/usr/bin/pdf2txt.py arg1 arg2`;

La alternativa es, 

 my $ret = system(/usr/bin/pdf2txt.py arg1 arg2`);

No creo que funcione porque la salida se imprime en la pantalla y no se captura por $ret