Foro de elhacker.net

#!/usr/bin/perl -w
 
$txt = "Hola quieres aprender a usar Expresiones regulares??";
 
if($txt =~ /(Hola)\s\w*\s\w*\s[a]\s\w*?\s(Expresiones)\s([a-z?]+)/){
print "$1\n$2\n$3\n";
}
 
exit;
 

yoya@Yoya-desktop:~/Escritorio$ perl a.pl
Hola
Expresiones
regulares??

<?php
 
$txt = "Hola quieres aprender a usar Expresiones regulares??";
preg_match("/(Hola)\s\w*\s\w*\s[a]\s\w*?\s(Expresiones)\s([a-z?]+)/", $txt, $captura);
echo "$captura[1]\n$captura[2]\n$captura[3]";
 
?>

yoya@Yoya-desktop:~/Escritorio$ php a.php
Hola
Expresiones
regulares??

#!/usr/bin/perl -w
 
$txt = "xDD&xxDS";#Cadena de texto que contiene el caracter & que queremos obtener
if($txt =~ m/(&)/){
print $1, "\n";
}
exit;

yoya@Yoya-desktop:~/Escritorio$ perl a.pl
&

#!/usr/bin/perl -w
 
my $var1 = 'aojojaono218asada';
my $var2 = 'aojosaasonon0548';
 
if($var1 =~ m/\d/){print "Cadena->$var1 => Existen numero en la primera cadena\n"}
else{print "no existe numero en la primera cadena\n";}
 
if($var1 =~ m/[A-Z]/){print "Cadena->$var2 =>Existen caracter mayuscula en la cadena\n";}
else{print "Cadena->$var2 => No existe caracter en mayuscula en la cadena\n";}

yoya@Yoya-desktop:~/Escritorio$ perl a.pl
Cadena->aojojaono218asada => Existen numero en la primera cadena
Cadena->aojosaasonon0548 => No existe caracter en mayuscula en la cadena