Quiero sacar el valor que está entre <dia>y</dia> y el valor que está entre <mes>y</mes>.
Yo he programado esto en PHP con la función explode() pero en el Perl no veo una función que me haga esto. He estado investigando y vi una: la función split...
Escribí esta parte... y
me retorna los valores que le pedí del día, pero se agregan los demás... valores... ¿Cómo puedo hacerlo?Using perl Syntax Highlighting
#!/usr/bin/perl -w
use strict;
use warnings;
use CGI ':standard';
my $cgi = CGI->new();
print $cgi->header();
my $data = '<dia>15 hoy</dia> bla bla bla fe4<etc> <mes>enero 1</mes>sssas';
print split(/[<dia><\/dia>]/, $data);
exit 0;
use strict;
use warnings;
use CGI ':standard';
my $cgi = CGI->new();
print $cgi->header();
my $data = '<dia>15 hoy</dia> bla bla bla fe4<etc> <mes>enero 1</mes>sssas';
print split(/[<dia><\/dia>]/, $data);
exit 0;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Gracias por su ayuda, muy buen foro
