PyukiWiki CVS Commit
pyuki****@lists*****
2012年 6月 22日 (金) 21:59:11 JST
Index: PyukiWiki-Devel-UTF8/build/regipv6.regex diff -u PyukiWiki-Devel-UTF8/build/regipv6.regex:1.92 PyukiWiki-Devel-UTF8/build/regipv6.regex:1.93 --- PyukiWiki-Devel-UTF8/build/regipv6.regex:1.92 Fri Jun 22 08:50:19 2012 +++ PyukiWiki-Devel-UTF8/build/regipv6.regex Fri Jun 22 21:59:11 2012 @@ -1,12 +1,12 @@ ################################################################## -# $Id: regipv6.regex,v 1.92 2012/06/21 23:50:19 papu Exp $ +# $Id: regipv6.regex,v 1.93 2012/06/22 12:59:11 papu Exp $ ################################################################## # IPV6 regex ################################################################## # http://d.hatena.ne.jp/taichitaichi/20110112/1294819517 # http://ahhuhahhuh.blogspot.com/2010/02/ipv6.html -if(0) { +if(1) { $regipv6=<<EOM; ( ( @@ -70,12 +70,14 @@ EOM $regipv6=~s/[\r\n\t\s]//g; -print "^$regipv6"; +#print "^$regipv6"; } # from Regexp::IPv6 +if(0) { + my $IPv4 = "((25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2})[.](25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2})[.](25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2})[.](25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2}))"; my $G = "[0-9a-fA-F]{1,4}"; @@ -94,3 +96,5 @@ $IPv6_re = qr/$IPv6_re/; print "$IPv6_re"; + +}