#!/usr/bin/perl
chomp ($_ = <STDIN>);
if (/^http:\/\//) {
print "Yes, it match a url.(use //)\n";
} else {
print "Not match a url.\n";
}
if (m{^http://}) {
print "Yes, it match a url.(use {})\n";
} else {
print "Not match a url.\n";
}
if (m<^http://>) {
print "Yes, it match a url.(use <>)\n";
} else {
print "Not match a url.\n";
}
# ./mmatch.pl
http://www.groad.net
Yes, it match a url.(use //)
Yes, it match a url.(use {})
Yes, it match a url.(use <>)
欢迎光临 曲径通幽论坛 (http://www.groad.net/bbs/) | Powered by Discuz! X3.2 |