Perl如何克服这样的贪婪匹配

feiying00917

#!/usr/bin/perl -w
open (FILE,">test.txt";
#if ($_=~/^\text\:bookmark text\:name=\"\_\_RefNumPara\_\_80266\_1546026487\"\/\>([\s\<\>\w\d\.\'\(\)\/\"\:]+)\<text\:bookmark\-end text\:name\=\"\_\_RefNumPara\_\_80266\_1546026487\"\/\>/)
$_='<text:bookmark text:name="__RefNumPara__80266_1546026487"/><text:span text:style-name="T22">On schematic page 42, the pin CSPBAVE (7) of instance U58 (MAXIM – </text:span><text:bookmark-start text:name="__DdeLink__60226_1521216572"/><text:span text:style-name="T22">MAX17611) is connect to </text:span><text:bookmark-end text:name="__DdeLink__60226_1521216572"/><text:span text:style-name="T22">CSBN(N-side), while the device datasheet (MAX17611_DS.pdf – Page23) indicates &apos;Connect CSPBAVE to the positive side of the differential output of the external current-sense averaging network&apos;. Recommend connecting this pin to positive side pin CSPB1 (. <text:s/>(Major)</text:span><text:bookmark-end text:name="__RefNumPara__80266_1546026487"/>';
if ($_=~/\<text\:bookmark text\:name=\"\_\_RefNumPara\_\_80266\_1546026487\"\/\>(.+)\<text\:bookmark\-end text\:name\=\"\_\_RefNumPara\_\_80266\_1546026487\"\/\>/)
{
        $1=s/\<.*\>?//g;
        print FILE $1;}
我要把<>和里面的内容去掉，可是我用这样的匹配$1=s/\<.*\>?//g; 最后得到的是空，该如何做，求帮忙！

q1208c

1. s/\<.*?\>//g;

复制代码

feiying00917

多谢，可以了回复 2# q1208c


   

yestreenstars

不知道楼主为什么要在>后面加个问号

q1208c

回复 4# yestreenstars

或许楼主想把这一行全干掉.

   

yestreenstars

回复 5# q1208c

好吧~
   

feiying00917

没有经验啊，真的是全部干掉了，可以解释下吗回复 5# q1208c


   

q1208c

回复 7# feiying00917

>? 表示 有没有 这个 > 都可以. 如果这样, 那么, 前面的 .* 就可以直接匹配到行尾了.
   

feiying00917

多谢，可以加你QQ友吗？回复 8# q1208c


   

q1208c

回复 9# feiying00917

我们公司不让用 QQ.