perl 例子

$cond =~ s/\[COL\:([\w_]+)\]/\$\$phash_msg\{\"$1\"\}/ig;

my %hashMessage = $oldMsg =~ /(\w+)=\'([^\']*)\'/g;

perl -e "print crypt ('blah','iv');"