#!/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 'Connect CSPBAVE to the positive side of the differential output of the external current-sense averaging network'. 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 时间: 2014-07-14 07:07
;
. <text:s/>(Major)</text:span><text:bookmark-end text:name="__RefNumPara__80266_1546026487"/>';
好吧~
