#!/usr/bin/perl
if ("Welcome to Groad.net it is good" =~ /(\w+)\.(\w+)/) {
print "$1 $2\n";
print "That actually matched '$&' \n";
print "Before match '$`' \n";
print "After match '$'' \n";
}
# ./character.pl
Groad net
That actually matched 'Groad.net'
Before match 'Welcome to '
After match ' it is good'
#!/usr/bin/perl
while (<>) {
chomp;
if (/groad/) {
print "Matched: |<[ ubbcodeplace_1 ]>|\n";
} else {
print "No match: |$_|\n";
}
}
# ./mode.pl
www.net
No match: |www.net|
www.groad.net
Matched: |www.<groad>.net|
欢迎光临 曲径通幽论坛 (http://www.groad.net/bbs/) | Powered by Discuz! X3.2 |