程嶏清单7-10.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 5 行

$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;