Foro de elhacker.net

• Se permite cualquier lenguaje de programación que utilice expresiones regulares (preferiblemente scripting, ya que la mayoría conoce por lo menos 1)
• Cuando se plantea un reto mas, el usuario que respondió al reto deberá explicar la expresión que utilizo, así los demás aprenden xD (opcional)
• Si nadie responde al reto, el auto deberá autor responderse he iniciar un nuevo reto
• El que realiza el reto puede poner condiciones para realizar el reto, ejemplo: prohibiendo el uso de modificadores
• Los usuarios pueden descartar las expresiones planteada para resolver un reto si esta no puede funcionar bien en todos los casos

Objetivo: Capturar Hola mundo
Cadena: 1!"#Hola mundo¬¬

$string =~ m/.*#(\w.*)¬¬+.*/;
$string =~ m/(Hola mundo)/;
 

$cadena = 'hOla munDo xD';
$cadena =~ s/(?i)([a-z]+)(?-i)(?#this is perl)[\s\,]*/¬¬$1/g;

¬¬hOla¬¬munDo¬¬xD

xxxxxx DD DD@D #|!c asasØ a/aaaW 56a

<?php
$string = 'xxxxxx DD DD@D #|!c asasØ a/aaaW 56a';
$filter = '/[a-zA-ZÖ×Ø]{3,4}/';
$result = preg_replace($filter,'',$string);
print $result;
// $result = xx DD DD@D #|!c Ø a/ 56a
?>
 

o234m$g·%· we  31234 %· (will) ""· WEHATE/POLICE (r0ock) (yñço&u)

Ê ÙÔ Ö ÓÒ ÁÒ ÓÖÑ ÓÒ ÐØ ÈÖ × ÓÒ ÄÓ× Ë ×Ø Ñ × Ù×ÕÙ Ê ×ÔÙ ×Ø

<?php
$string = 'o234m$g·%· we  31234 %· (will) ""· WEHATE/POLICE (r0ock) (yñço&u)';
$result = preg_replace('/[^a-z]+/','',$string);
print $result;
//omgwewillrockyou
?>

YoyA@gmaal-ES.com ->True
Yo Ya@gmaail-Es.com -> False
Yoya@.com -> False
XD@xd-Xd.xd -> True

<?php
 
$txt = "hola 3455345 sdfsdf 345435,3454 sdfsdf j ksjdh skdjfh 1.233.555,34534 asdasd as 344.34 qweqwe 23,324.324 qweqwe -234324324";
preg_match_all("/([\d\-\,\.]+)/", $txt, $captura, PREG_SET_ORDER);
   foreach ($captura as $salida):
      echo $salida[1];
      echo "<br>";
   endforeach;
 
?>

3455345
345435,3454
1.233.555,34534
344.34
23,324.324
-234324324

hola 3455345 sdfsdf 345435,3454 sdfsdf j ksjdh skdjfh 1.233.555,34534 asdasd as 344.34 qweqwe 23,324.324 qweqwe -234324324

#!/usr/bin/perl
$text = 'hola 3455345 sdfsdf 345435,3454 sdfsdf j ksjdh skdjfh 1.233.555,34534 asdasd as 344.34 qweqwe 23,324.324 qweqwe -234324324';
 
while($text =~ m/(?:\s)([\d\.]+\,\d+(?=\s)|\d+\,\d+(?=\s)|\d+(?=\s)|\-\d+)/g)
{
   print $1, "\n";
}

3455345
345435,3454
1.233.555,34534
-234324324