2013年2月27日星期三

Perl : 把quotemeta反过来,反转义

见:http://www.perlmonks.org/?node_id=91629

       
sub reverse_quotemeta {
    my ($data) = @_;
    my $string = '$data = "' . qq|$data| . '";';
    eval $string;
    return $data;
} ## end sub reverse_quotemeta

没有评论:

发表评论