Question

perl脚本截取字符串的问题

<?xml version="1.0" encoding="UTF-8"?><RMBP>111</RMBP>^H^H^H^H^H^H^H^H...

字符串如上：尾部的^H长度是不定的
思路：只要找到最后一个>的下标，截取这个下标前面的部分

求perl脚本语言怎么写

Answer 1

$string = '<?xml version="1.0" encoding="UTF-8"?><RMBP>111</RMBP>^H^H^H^H^H^H^H^H...';
if($string =~ m/((?<=<\/RMBP>)[^>]+)/g){
 print $1 , "\n";
} 
结果：
^H^H^H^H^H^H^H^H...

追问

我是要取到那段xml报文，不是要后面的那些^H字符

追答

那具体是那段啊？

追问

111

就是得到这段XML报文咯

追答

$string = '<?xml version="1.0" encoding="UTF-8"?><RMBP>111</RMBP>^H^H^H^H^H^H^H^H...';
if($string =~ m/(<\?xml.+<\/RMBP>)/g){
 print $1 , "\n";
} 
结果：
<?xml version="1.0" encoding="UTF-8"?><RMBP>111</RMBP>

追问

你的$1哪里来的？我需要把输出结果赋值到一个变量里面

追答

$1是正则表达式匹配分组来的啊。你把$1赋值给你的变量就可以了啊