程嶏清单7-10.txt

< linux网络编程工具>>配套源码

$input = "This \nis \none \nscalar \n\object.\n That has multiple lines\n";
print "Matched object\n" if $input =~ m/^object/m;
print "Matched scalar\n" if $input =~ m/scalar$/m;
print "Matched object\n" if $input =~ m/^scalar/m;