Foro - Perl en Español

por **n3td1srupt** » 2013-07-16 12:07 @547

Hola, foro. Bueno, mi pregunta es esta: me gustaría poder coger el texto que se halla entre dos patrones o entre dos palabras. Lo único que por el momento he podido hacer es cargar en un array el texto y luego analizar los elementos del array en busca de esa secuencia de texto de inicio, y luego vuelvo a recorrer el array en busca de la secuencia final. Sin embargo, esto no es ni elegante ni útil cuando se trata de gran información. Entonces, me gustaría saber cómo proceder para crear una función más efectiva y rápida que esto, además que ni siquiera he hecho funcionar mi anterior idea al 100%.

Gracias,
SAlu2,
¡n3td1srupt!

Package: gedit

Priority: optional

Section: gnome

Installed-Size: 2731

Maintainer: Ubuntu Desktop Team <[email protected]>

Original-Maintainer: Debian GNOME Maintainers <[email protected]>

Architecture: amd64

Version: 3.6.2-0ubuntu1

Depends: python2.7, python (>= 2.7.1-0ubuntu2), python (<< 2.<img src="http://perlenespanol.com/foro/images/smilies/icon_cool.gif" alt="8)" title="Cool" />, libatk1.0-0 (>= 1.12.4), libc6 (>= 2.14), libcairo2 (>= 1.2.4), libenchant1c2a (>= 1.6), libgdk-pixbuf2.0-0 (>= 2.22.0), libgirepository-1.0-1 (>= 0.9.3), libglib2.0-0 (>= 2.33.14), libgtk-3-0 (>= 3.6.0), libgtksourceview-3.0-0 (>= 3.0.0), libice6 (>= 1:1.0.0), libpango1.0-0 (>= 1.14.0), libpeas-1.0-0 (>= 1.1.0), libsm6, libx11-6, libxml2 (>= 2.7.4), libzeitgeist-1.0-1 (>= 0.3.2), gir1.2-atk-1.0, gir1.2-freedesktop, gir1.2-gdkpixbuf-2.0, gir1.2-glib-2.0, gir1.2-gtk-3.0, gir1.2-gtksource-3.0, gir1.2-pango-1.0, gedit-common (>= 3.6), gedit-common (<< 3.7), gsettings-desktop-schemas, python-gi (>= 3.0), python-gi-cairo (>= 3.0), gir1.2-peas-1.0, iso-codes

Recommends: zenity, yelp

Suggests: gedit-plugins

Breaks: gedit-plugins (<< 2.91)

Filename: pool/main/g/gedit/gedit_3.6.2-0ubuntu1_amd64.deb

Size: 525026

MD5sum: be01ff349e91f39a5c0eb5816aaa65b7

SHA1: 71dd08365c8f882501e32ea134e87ccc23d34a5f

SHA256: 5ae0cebd20a90b344ca2117d001ded3106aa165b5d18c16e2d02d4f3a166821c

Description-es: Editor de texto oficial del entorno de escritorio GNOME

 gedit es un editor de texto que tiene la mayoría de las características de

 cualquier editor estándar, extendiendo estas características básicas con

 otras normalmente no encontradas en simples editores de texto. gedit es

 una aplicación gráfica que permite editar varios archivos de texto en una

 ventana (también conocido como pestañas o MDI).

 .

 gedit permite editar texto internacional ya que usa la codificación UTF-8

 de Unicode para los archivos editados. Su conjunto de características

 básicas incluyen resaltado de sintaxis para código fuente, autotabulación,

 impresión y previsualización de la impresión.

 .

 gedit también es ampliable mediante su sistema de extensiones, que

 actualmente permite hacer comprobaciones ortográficas, comparar archivos,

 visualizar los archivos de registro de CVS y ajustar los niveles de

 tabulación.

Homepage: http://www.gnome.org/projects/gedit/

Description-md5: 5091aaf6659e6bf7ca9b32695a59f9cd

Bugs: https://bugs.launchpad.net/ubuntu/+filebug

Origin: Ubuntu

Supported: 9m

Task: ubuntu-desktop, ubuntu-usb, edubuntu-desktop, edubuntu-usb, ubuntustudio-desktop, ubuntu-gnome-desktopColoreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ahora bien, solo quiero obtener desde el apartado Description-es hasta Description-md5. Esto lo hago así porque ejecutando el comando sobre varios paquetes siempre se usa la misma estructura de información, entonces si solo quiero obtener la descripción, la etiqueta de entrada sería Description-es: y la de final sería Description-md5:.

Gracias.

por **explorer** » 2013-07-16 13:59 @624

Entonces es sencillo, usando el operador flip-flop:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

perl-E'open F, "apt-cache show gedit |"; while (<F>) { print if /^Description-..:/ .. /^Description-md5:/; }'Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Incluso puedes entubar la salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

apt-cache show gedit |perl-nE'print if /^Description-..:/ .. /^Description-md5:/'Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **n3td1srupt** » 2013-07-16 14:15 @635

Sencillamente, impresionante, impresionante, realmente tengo que hacer un lema:

Cuando explorer codea, Perl se manifiesta. ¡je,je,je!

Muchas gracias de verdad, aunque realmente me cuesta entender el ejemplo porque me parece críptico. Tendré que estudiar mucho, supongo, pero muchas gracias.

SAlu2
¡n3td1srupt!

por **explorer** » 2013-07-16 14:31 @646

n3td1srupt escribiste:me cuesta entender el ejemplo porque me parece críptico

Bueno... eso es porque estamos en el foro Intermedio :wink:

por **n3td1srupt** » 2013-07-16 14:42 @654

Gracias de veras.

Es todo parte de un proyecto que espero no dejar atrás como hago con todos los demás, porque me frustro en ciertos lugares...

Este es el código que tenía que diseñar:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#       TuxCentre Project
#
#
#       apt-show-description.pl 
#
#
#       Thanks to explorer explorer-u254.html & 
#       his post post35136.html#p35136
#
#       
#
#       n3td1srupt | Twitter--> @n3td1srupt
#
 
$array=scalar(grep $_,@ARGV); # GET ONLY THE NUMBER OF DEFINED ELEMENTS OF AN ARRAY
 
for ($check=0; $check<$array; $check++ )
{
        
        $info_package=qx(apt-cache show $ARGV[$check] | perl -nE 'print if /^Description-..:/ .. /^Description-md5:/');
        print $info_package,"\n";
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-07-16 20:04 @877

Llamar a un programa Perl dentro de otro programa Perl... no es propio de este foro de Intermedio...

Esta es una de las posibles soluciones:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
@ARGV > 0
    or die "Uso: $0 <Debian software name> [ <Debian software name> ... ]\n";
 
foreach my $software (@ARGV) {
 
    open my $APT, '-|', "apt-cache show \Q$software\E";
 
    while (<$APT>) {
        if (my $linea = /^Description-..:/ .. /^Description-md5:/) {
 
            last if $linea =~ /E0$/;    # obviar la última línea
 
            if ($linea == 1) {          # formatear el titular
                s/^Description.+[:]\s*//;
                $_ = "$software: " . ucfirst($_) . ('=' x length $_) . "\n";
            }
 
            s/^\s+//;                   # caso del espacio delante de las líneas
            s/^[.]$//;                  # caso de líneas con solo un '.'
 
            print;
        }
    }
 
    print "\n";
 
    close $APT;
}
 
__END__
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Probando con apt-show-description.pl gedit joe, sale:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

gedit: Editor de texto oficial del entorno de escritorio GNOME

========================================================

gedit es un editor de texto que tiene la mayoría de las características de

cualquier editor estándar, extendiendo estas características básicas con

otras normalmente no encontradas en simples editores de texto. gedit es una

aplicación gráfica que permite editar varios archivos de texto en una

ventana (también conocido como pestañas o MDI).

gedit permite editar texto internacional ya que usa la codificación UTF-8

de Unicode para los archivos editados. Su conjunto de características

básicas incluyen resaltado de sintaxis para código fuente, autotabulación,

impresión y previsualización de la impresión.

gedit también es ampliable mediante su sistema de extensiones, que

actualmente permite hacer comprobaciones ortográficas, comparar archivos,

visualizar los archivos de registro de CVS y ajustar los

niveles de tabulación.

Homepage: http://www.gnome.org/projects/gedit/

joe: Amigable editor de texto a pantalla completa

=============================================

Joe (Joe's Own Editor), tiene la apariencia de la mayoría de los editores

de texto: las secuencias de teclas son remanentes de los editores Wordstar

y Turbo C, pero su conjunto de características es mucho más amplio. Joe

tiene todas las características que un usuario de Unix puede esperar: uso

completo de termcap/terminfo, completa integración con Unix al estilo VI,

un poderoso archivo de cofiguración y un sistema de búsqueda con

expresiones regulares. También tiene seis tarjetas de ayuda y referencia

que están siempre disponibles, y una intuitiva, sencilla y bien pensada

interfaz de usuario.

Joe tiene un excelente algoritmo optimizado de actualización de la

pantalla, múltiples ventanas (a través/entre las cuales puede desplazarse)

y carece de la confusa noción de buffers nombrados. Tiene historial de

órdenes, expansión con tabulador en los menús de selección de archivos,

funciones de deshacer y rehacer, (des)indentación y formateo de párrafos,

filtrado de bloques resaltados a través de cualquier orden externa de

Unix, edición de una tubería desde o hacia una orden, y copia, corte,

eliminación o filtrado de bloques de texto.

A través de sencillos archivos de configuración al estilo QEdit, Joe puede

ajustarse para emular editores como Pico o Emacs, así como una completa

imitación de Wordstar, y un modo restrictivo (que deja editar sólo los

archivos especificados en la línea de órdenes). Joe también tiene una

actualización diferida de la pantalla para manejar «typeahead», y asegura que

el diferido no sea pasado por el buffer de la tty. Es usable incluso a 2400

baudios, y funcionará en cualquier tipo de terminal sana.

Homepage: http://joe-editor.sourceforge.net/Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Coger texto entre dos patrones determinados

Coger texto entre dos patrones determinados

Publicidad

Re: Cojer texto entre dos patrones determinados

Re: Coger texto entre dos patrones determinados

Re: Coger texto entre dos patrones determinados

Re: Coger texto entre dos patrones determinados

Re: Coger texto entre dos patrones determinados

Re: Coger texto entre dos patrones determinados

Re: Coger texto entre dos patrones determinados

¿Quién está conectado?