我怎样才能让perl解释代表地址的字符串变量

Question

我想用这样的perl脚本将输入提供给C程序 ./cprogram $(perl -e 'print "\xab\xcd\xef";').

但是,必须从文件中读取字符串.所以我得到这样的东西: ./cprogram $(perl -e 'open FILE, "<myfile.txt"; $file_contents = do { local $/; <FILE> }; print $file_contents'.但是,现在perl将字符串解释为字符串"\xab\xcd\xef",我希望它将其解释为第一个示例中的字节序列.

怎么能实现这一目标？它必须在没有File :: Slurp的服务器上运行.

Answer 1

在第一种情况下,您将三个字节AB CD EF(由字符串文字生成"\xAB\xCD\xEF")传递给print.

在第二种情况下,您必须传递除这三个字节之外的其他内容print.我怀疑你是路过的十二个字符串\xAB\xCD\xEF来print.

所以你的问题变成:如何将十二个字符的字符串\xAB\xCD\xEF转换为三个字节AB CD EF.好吧,你需要某种解析器,比如

s/\\x([0-9a-fA-F][0-9a-fA-F])|\\([^x])|([^\\]+)/
   $1 ? chr(hex($1)) : $2 ? $2 : $3
/eg

它在这里工作:

$ perl -e'print "\\xAB\\xCD\\xEF";' >file

$ echo -n "$( perl -0777pe'
     s{\\x([0-9a-fA-F][0-9a-fA-F])|\\([^x])|([^\\]+)}{
        $1 ? chr(hex($1)) : $2 // $3
     }eg;
  ' file )" | od -t x1
0000000 ab cd ef
0000003