Foro - Perl en Español

Hola estimados, ¿es posible que me echen una mano con Perl? Necesito extraer cierto dato dentro de una línea, por ejemplo:

<dato1>2732</dato1>
<dato2>10440</dato2>
<dato3>10441</dato3>

y solo debo rescatar lo que está entre '>' y '<', o sea
2732
10440
10441

¿Cómo puedo hacer esto? Gracias.

Tengo el siguiente código. El problema es que devuelve algo sin forma.

use Image::Caa;
use Image::Magick;


# load an image

my $image = Image::Magick->new;
$image->Read('asciiuno.jpg');


# display it as ASCII Art

my $caa = new Image::Caa();
$caa->draw_bitmap(0, 0, 40, 20, $image);


y devuelve esto (es más largo):

←[37;2;40;6mM←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m
@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;2;40;6mM←[0m←[37;1;
40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[
37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;2;40;6mM←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←
[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40
;6m8←[0m←[37;2;40;6mM←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37
;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;2;40;6mM←[0
m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6
m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;2;40;6mM←[0m
←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m
8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m#←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;
40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[
37;1;40;6m#←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←
[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m#←[0m←[37;1;40
;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37
;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m#←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0
m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6
m@←[0m←[37;1;40;6m#←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m
←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m
@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;
40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6mG←[0m←[37;2;40;6mK←[0m←[37;1;40;6mS←[0m←[
37;2;40;6mf←[0m←[37;2;40;6m$←[0m←[37;2;40;6mt←[0m←[37;2;40;6m$←[0m←[37;2;40;6mt←


No sé ...

Hola a todos:

He escrito un socket siguiendo los ejemplos que hay en Internet. Funciona bien.
El único problema es que cuando cierro el cliente se cierra también el servidor,
¿hay alguna manera de evitar esto?

Muchas gracias,
Jorge.

Version Tk de este simple script para hacer ASCII Art desde una palabra.

El código

[
#!usr/bin/perl
#ASCII Art 0.1
#Version Tk
#Coded By Doddy H
#Thanks to : reLlene,MARKO,explorer

use Tk;
use Tk::Dialog;
use List::Util "max";

if ( $^O eq 'MSWin32' ) {
use Win32::Console;
Win32::Console::Free();
}

my %letras = (

a => "
@
@
@ @
@ @
@ @
@ @
@@@@@
@ @
@ @
",

b => " ...

Sin mucho que decir dejo este simple script para hacer ASCII Art desde una palabra.

El código


#!usr/bin/perl
#ASCII Art 0.1
#Coded By Doddy H

use List::Util "max";
use Time::HiRes "usleep";

my %letras = (

a => "
@
@
@ @
@ @
@ @
@ @
@@@@@
@ @
@ @
",

b => "
@@@@
@ @
@ @
@ @
@@@@
@ @
@ @
@ @
@@@@
", ...

Ya se están publicando las fotos y vídeos del mayor evento Perl del año: YAPC::Asia, celebrado hace unos días en Tokio.

Resumen de lestrrat (en inglés)

Hola.

Quisiera que en el siguiente script sólo me aparecieran 25 registros por página, es decir, 25 registros en la primera página, y si hay más registros en sucesivas páginas.

Muchas gracias.

#!/usr/bin/perl

use CGI::Carp qw( fatalsToBrowser );

do 'sessions.cgi';
do 'paidmembers.cgi';

if ( $ENV{REQUEST_METHOD} eq 'POST' ) {
read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );
}
else { $buffer = $ENV{QUERY_STRING} }
@pairs = split( /&/, $buffer );
foreach $pair (@pairs) {
( $name, $value ...

Artículo

Aún en construcción, pero para los que estáis usando Windows en 64 bits, puede ser una solución a las distribuciones que no encontráis en el resto de repositorios.

Hola, soy nuevo en Perl. Por lo general programo en C++, pero mi padre me recomendó hacer este proyecto en Perl puesto a su parecido con PHP (posteriormente lo debo publicar en web).

Se trata de un examen de preguntas al azar de 3 niveles diferentes: 5 de nivel 1, 5 nivel 2 y 1 nivel 3.

Previamente el programa debe comprobar tu identidad y verificar si no diste el examen antes, si lo hiciste ...

Hola.

¿Cómo podría obtener de este string solo lo que está marcado con una expresión regular?

>gi|207855516|ref|NC_011294.1|:2565-3494 Salmonella enterica subsp. enterica serovar Enteritidis str. P125109 chromosome, complete genome

Gracias de antemano y saludos.