文本查找求助2-姓名及电话

bikkuri

大家好！
我刚开始学perl，很多问题不太懂，希望向大家请教。
有下面一个文本。


</style><div id="Container33ad72988ea7e4629d2cf104bd6f7d36_PeopleSearch2017" class="psrch-FullResult"><div id="UserPhoto"><a href="https://mysite.int.nokia.com/Person.aspx?accountname=nsn-intra\mluo001" id="33ad72988ea7e4629d2cf104bd6f7d36_PeopleSearch2017_CSR_IMGL" title="Luo, Ming (Nokia - CN)"><img id="CSR_IMG_33ad72988ea7e4629d2cf104bd6f7d36_PeopleSearch2017" src="https://myspace.inside.nsn.com/_layouts/images/O14_person_placeHolder_192.png" alt="Luo, Ming (Nokia - CN)" border="0" /></a></div><span id="JBean"><img alt="" border="0" height="12" width="12" src="/_layouts/images/IMNHDR.GIF"mailto:'ming.luo@nokia.com'">'ming.luo@nokia.com')" ShowOfflinePawn="1" id="CSRP_33ad72988ea7e4629d2cf104bd6f7d36_PeopleSearch2017,type=smtp" /></span><div id="ContactInfo" style="padding-bottom:36px;"><ul id="MiniContactCard"><li id="NameField"><a href="https://mysite.int.nokia.com/Person.aspx?accountname=nsn-intra\mluo001" id="33ad72988ea7e4629d2cf104bd6f7d36_PeopleSearch2017_CSR" style="color:#124191 !important;">Luo, Ming (Nokia - CN)</a></li><li id="JobTitleField">Consultant Engineer</li><li id="DepartmentField">ION S IP & Opt Tec Ass CenB</li></ul><ul id="MiniContactCard"><li id="PhoneField">Internal Phone: <a id="33ad72988ea7e4629d2cf104bd6f7d36_PeopleSearch2017_internalphone" href="sip:8806128@nsn.com" style="color:#124191 !important">8806128</a></li><br /><li id="OfficeField">Office Phone: +8621545045556701</li><br /><li id="MobileField">Mobile Phone: +8618600000000</li><br /><li id="EmailField">Email: <a id="33ad72988ea7e4629d2cf104bd6f7d36_PeopleSearch2017_EmailLink" href="mailto:ming.luo@nokia.com" style="color:#124191 !important">ming.luo@nokia.com</a><br /></li>   </ul><ul id="Actions"><li id="AddColleagueLinkField"><a id="33ad72988ea7e4629d2cf104bd6f7d36_PeopleSearch2017_AddColleagueLink" style="color: #124191 !important;" href="https://myspace.inside.nokiasiemensnetworks.com/_layouts/QuickLinks.aspx?Mode=Person&data=nsn-intra\mluo001"


想从中抓出姓名Luo, Ming (Nokia - CN)和电话号码+8618600000000并赋值给变量$name和$mobile。

请问用perl应该怎么写？
谢谢！

bikkuri

我用下面的代码得到了姓名和电话号码。

#! /usr/bin/perl
if (open (FH, "mluo001")) {
     while ( <FH> ) {
          if (/title=\"(.+)\"><img\ id=.*$/)   { $name = $1; }
          if (/Mobile Phone:\s*(.+)\<\/li\>\<br.*$/)   { $mobile = $1; }
     }
}
close FH;
print "$name:$mobile";

sunzhiguolu

1. 
   
2. my (undef, $name) = split (/!important;">/);
   
3. if ($name =~ /([^<>]+)/){
   
4.         print $1, "\n";
   
5. }
   

复制代码

bikkuri

谢谢您的答复！

回复 3# sunzhiguolu