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