#!/usr/bin/perl
# URL that generated this code:
# http://txt2re.com/index.php3?s=42%2043&2&-10&-6&-1
$txt='42 43';
$re1='(42)'; # Integer Number 1
$re2='(2)'; # Any Single Digit 1
$re3='( )'; # Any Single Character 1
$re4='(\\d+)'; # Integer Number 2
$re=$re1.$re2.$re3.$re4;
if ($txt =~ m/$re/is)
{
$int1=$1;
$d1=$2;
$c1=$3;
$int2=$4;
print "($int1) ($d1) ($c1) ($int2) \n";
}
#-----
# Paste the code into a new perl file. Then in Unix:
# $ perl x.pl
#-----
 
Feedback
KisnardOnline::
perfect perfect perfect... get some ads on this site, so we can thank you more
Wed, 29 May 2013 10:21PM
ShubhamGupta::
Saved my day!
Wed, 29 May 2013 11:36PM
::
Thu, 30 May 2013 12:02AM
Astarte::
Awesome, just awesome!
Thu, 30 May 2013 12:03AM
David Dawkins::
Excellent tool, where's the donate link? thank-you !!!