txt 2 re
knowing is obsolete :: regular expression generator (perl php python java javascript coldfusion c c++ ruby vb vbscript j# c# c++.net vb.net)
 
 
 
Enter the string that you want to use a regular expression on:
1
   
 
Select the elements that you want to extract to run regular expression generator:
2
1
c 1
d1
4
c 4
d4
day14
int14
:
c :
M
c M
wM
a
c a
wa
r
c r
wr
usstatear
varMar
wordMar
monthMar
:
c :
2
c 2
d2
0
c 0
d0
1
c 1
d1
9
c 9
d9
day19
year2019
int2019
ddmmmyyyy14:Mar:2019
_
c _
ws_
"
c "
T
c T
wT
h
c h
wh
i
c i
wi
s
c s
ws
varThis
wordThis
_
c _
ws_
i
c i
wi
s
c s
ws
varis
wordis
_
c _
ws_
a
c a
wa
n
c n
wn
varan
wordan
_
c _
ws_
E
c E
wE
x
c x
wx
a
c a
wa
m
c m
wm
p
c p
wp
l
c l
wl
e
c e
we
varExample
wordExample
!
c !
"
c "
string"This_is_an_Example!"
< Source String
What to click?  extract any integer in this position
extract this integer (2006) in this position
 
3Perl regular expression program that extracts the selected elements from the entered string:
[Perl] PHP Python Java Javascript ColdFusion C C++ Ruby VB VBScript J#.net C#.net C++.net VB.net 
 
#!/usr/bin/perl

# URL that generated this code:
# http://txt2re.com/index.php3?s=14:Mar:2019%20%22This%20is%20an%20Example!%22&50&73&9999

$txt='14:Mar:2019 "This is an Example!"';

$re1='';	#  1
$re2='.*?';	# Non-greedy match on filler
$re3='.';	# Uninteresting: c
$re4='.*?';	# Non-greedy match on filler
$re5='.';	# Uninteresting: c
$re6='.*?';	# Non-greedy match on filler
$re7='.';	# Uninteresting: c
$re8='.*?';	# Non-greedy match on filler
$re9='.';	# Uninteresting: c
$re10='.*?';	# Non-greedy match on filler
$re11='.';	# Uninteresting: c
$re12='.*?';	# Non-greedy match on filler
$re13='.';	# Uninteresting: c
$re14='.*?';	# Non-greedy match on filler
$re15='.';	# Uninteresting: c
$re16='.*?';	# Non-greedy match on filler
$re17='.';	# Uninteresting: c
$re18='.*?';	# Non-greedy match on filler
$re19='.';	# Uninteresting: c
$re20='.*?';	# Non-greedy match on filler
$re21='.';	# Uninteresting: c
$re22='.*?';	# Non-greedy match on filler
$re23='.';	# Uninteresting: c
$re24='.*?';	# Non-greedy match on filler
$re25='.';	# Uninteresting: c
$re26='.*?';	# Non-greedy match on filler
$re27='.';	# Uninteresting: c
$re28='.*?';	# Non-greedy match on filler
$re29='.';	# Uninteresting: c
$re30='.*?';	# Non-greedy match on filler
$re31='.';	# Uninteresting: c
$re32='.*?';	# Non-greedy match on filler
$re33='.';	# Uninteresting: c
$re34='.*?';	# Non-greedy match on filler
$re35='.';	# Uninteresting: c
$re36='.*?';	# Non-greedy match on filler
$re37='.';	# Uninteresting: c
$re38='.*?';	# Non-greedy match on filler
$re39='.';	# Uninteresting: c
$re40='.*?';	# Non-greedy match on filler
$re41='.';	# Uninteresting: c
$re42='(.)';	# Any Single Character 1
$re43='.*?';	# Non-greedy match on filler
$re44='.';	# Uninteresting: c
$re45='.*?';	# Non-greedy match on filler
$re46='.';	# Uninteresting: c
$re47='.*?';	# Non-greedy match on filler
$re48='.';	# Uninteresting: c
$re49='.*?';	# Non-greedy match on filler
$re50='.';	# Uninteresting: c
$re51='.*?';	# Non-greedy match on filler
$re52='.';	# Uninteresting: c
$re53='.*?';	# Non-greedy match on filler
$re54='.';	# Uninteresting: c
$re55='.*?';	# Non-greedy match on filler
$re56='.';	# Uninteresting: c
$re57='.*?';	# Non-greedy match on filler
$re58='.';	# Uninteresting: c
$re59='.*?';	# Non-greedy match on filler
$re60='(.)';	# Any Single Character 2

$re=$re1.$re2.$re3.$re4.$re5.$re6.$re7.$re8.$re9.$re10.$re11.$re12.$re13.$re14.$re15.$re16.$re17.$re18.$re19.$re20.$re21.$re22.$re23.$re24.$re25.$re26.$re27.$re28.$re29.$re30.$re31.$re32.$re33.$re34.$re35.$re36.$re37.$re38.$re39.$re40.$re41.$re42.$re43.$re44.$re45.$re46.$re47.$re48.$re49.$re50.$re51.$re52.$re53.$re54.$re55.$re56.$re57.$re58.$re59.$re60;
if ($txt =~ m/$re/is)
{
    $1=$1;
    $c1=$2;
    $c2=$3;
    print "($1) ($c1) ($c2) \n";
}

#-----
# Paste the code into a new perl file. Then in Unix:
# $ perl x.pl 
#-----
 
 
  home     faq              ©2006 mark james ennis