regex.pl

来自「在unix下使用正则表达式」· PL 代码 · 共 7 行

#!/usr/bin/perl -w
$line="Subject: Re: happy hacking!!!";
if ( $line =~ m/^Subject: (.*)/ ) {
    print "The subject is: $1\n";
}