#!/usr/bin/perl
$_ = "groad.net";
if (/(www)?(groad.net)/) {
print "you want to vist $2\n";
}
$_ = "www.groad.net";
if (/(www)?(.groad.net)/) {
print "you want to vist $1$2\n";
}
运行输出:
# ./question.pl
you want to vist groad.net
you want to vist www.groad.net