Foro - Perl en Español

por **zolidus** » 2015-07-27 05:54 @287

PerlPowerTools proporciona la implementación en Perl de las herramientas estándar de UNIX (cat,grep,cut,..).
En la documentación desafortunadamente no se incluyen ejemplos de los usos de estos comandos (en Perl).

Mi duda es sobre cómo utilizar estas implementaciones dentro de un script de Perl (en caso que se pueda).
La instalación de este módulo a partir de los repositorios mediante línea de comandos
(cpanm PerlPowerTools) no representa ningún problema. En la carpeta de instalación se encuentran los
subdirectorios "lib", "man" y "bin", siendo en esta última donde se encuentran los scripts de Perl.

Ejecutando dichos scripts desde la línea de comandos "./cat -n archivo1 archivo2 (por ejemplo)" obtengo las
salidas que podría esperar de los respectivos comandos de UNIX.

Mi duda es sobre si se pueden cargar dichas herramientas en la ejecución de un script de Perl,
algo como esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use 5.14.2;
use strict;
local::lib;
use PerlPowerTools;
 
# Saber la línea en la cual aparece palabra en documento
my $line = "cat -n archivo | grep palabra | cut -f 1";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sé que lo anterior se puede realizar mediante el comando system() o directamente utilizando las comillas invertidas
`` (suponiendo que perl corre en UNIX). Les agradecería mucho cualquier información que pudieran proporcionarme al respecto.

Hay documentación por cada herramienta, pero si no hay ejemplos, es quizás porque lo que aparece en la sección SYNOPSIS es suficiente para entender cómo usarlos.

Otra forma de obtener más documentación es mirando las páginas de manual de los comandos del sistema que se llamen igual. Por ejemplo, man tr

También, en la carpeta de test, hay unos pocos ejemplos de cómo acceder a ellos.

La forma de utilizarlos en Perl ya te lo dice en la página de manual de PerlPowerTools: úsalos de la misma manera en que usarías los comandos del sistema. Eso quiere decir que deberás usar comillas invertidas (o qx(), que es lo mismo) o system(). La única preocupación es que deberás asegurarte que estás accediendo a la ruta correcta, en lugar de usar el $PATH por defecto, y por tanto, estás usando los comandos del sistema.

En sistemas como Windows, como no suelen tener instalados los comandos del sistema que tenemos en UNIX/Linux, pues es más fácil detectar ese caso.

De todas maneras, el uso principal de estas herramientas no son para que sean usadas dentro de scripts, sino para ser usadas desde la línea de comandos en aquellos sistemas que no los tienen (como el caso de Windows). Principalmente, porque Perl es capaz de resolver esos problemas de forma más eficiente y rápida que llamar a comandos externos.

En el ejemplo que has puesto, usas tres comandos para saber en qué líneas aparece una palabra. Eso mismo se puede resolver escribiendo un poquito más:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
open FILE, '<kk.txt';
while (<FILE>) {
    if (/palabra/) {
        print "$.\n";
        last;
    }
}
close FILE;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

o más reducido:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
open FILE, 'kk.txt';
while (<FILE>) {
    print "$.\n" and last if /palabra/ 
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Así te ahorras tres llamadas externas.

Foro - Perl en Español

Uso del Perl Power Tools

Uso del Perl Power Tools

Publicidad

Re: Uso del Perl Power Tools

¿Quién está conectado?