Chinaunix

标题: 文本查找求助2-姓名及电话 [打印本页]

作者: bikkuri 时间: 2017-03-04 12:48
标题: 文本查找求助2-姓名及电话
本帖最后由 bikkuri 于 2017-03-04 12:52 编辑

大家好！
我刚开始学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 时间: 2017-03-04 13:18
本帖最后由 bikkuri 于 2017-03-04 13:40 编辑

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

#! /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 时间: 2017-03-04 14:24

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

复制代码

作者: bikkuri 时间: 2017-03-04 16:11
谢谢您的答复！

回复 3# sunzhiguolu

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)