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;}
我要把<>和里面的內(nèi)容去掉，可是我用這樣的匹配$1=s/\<.*\>?//g; 最后得到的是空，該如何做，求幫忙！

q1208c

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

復制代碼

feiying00917

多謝，可以了回復 2# q1208c


   

yestreenstars

不知道樓主為什么要在>后面加個問號

q1208c

回復 4# yestreenstars

或許樓主想把這一行全干掉.

   

yestreenstars

回復 5# q1208c

好吧~
   

feiying00917

沒有經(jīng)驗啊，真的是全部干掉了，可以解釋下嗎回復 5# q1208c


   

q1208c

回復 7# feiying00917

>? 表示 有沒有 這個 > 都可以. 如果這樣, 那么, 前面的 .* 就可以直接匹配到行尾了.
   

feiying00917

多謝，可以加你QQ友嗎？回復 8# q1208c


   

q1208c

回復 9# feiying00917

我們公司不讓用 QQ.