|
как извлечь строки без html
как извлечь строки без html ,есть файл email.txt :
http://vk.com/login.php?regemail=ine...il.ru#Aakj1vKk > http://www.inetgiant.com/Relist.aspx...1078@gmail.com </div><a href=3D"http://www.inetgiant.com/Relist.aspx?adId=3D3088021&em= ail=3Dadmin171078@gmail.com" target=3D"_blank">http://www.inetgiant.com/Rel= > http://www.inetgiant.com/Relist.aspx...1078@gmail.com </div><a href=3D"http://www.inetgiant.com/Relist.aspx?adId=3D3087995&em= ail=3Dadmin171078@gmail.com" target=3D"_blank">http://www.inetgiant.com/Rel= > http://www.inetgiant.com/Relist.aspx...1078@gmail.com </div><a href=3D"http://www.inetgiant.com/Relist.aspx?adId=3D3087933&em= ail=3Dadmin171078@gmail.com" target=3D"_blank">http://www.inetgiant.com/Rel= надо получить: http://www.inetgiant.com/Relist.aspx...1078@gmail.com http://www.inetgiant.com/Relist.aspx...1078@gmail.com http://www.inetgiant.com/Relist.aspx...1078@gmail.com мой код: Код:
#!/usr/bin/perl use URI::Find; use LWP::Simple; use Email::Simple; $link=0; $i=0;$j=0; $stroka=0; @llines=(); @masive=(); open(SALES,"email.txt"); while ($line= <SALES>) { $massive[$i]=$line; $i++; } close SALES; print"printing counter\n"; print $i; print "-------------------------element-----------\n"; for($counter=0;$counter<=$i;$counter++) { if ($massive[$counter] =~m/Classified Reminder*/) {print " $counter \n ";} } for($counter2=0;$counter2<=$i;$counter2++,$j++) { if (($massive[$counter2] =~m/http*/) && ($massive[$counter2!=~m/a href*/]) ) {$link=" $massive[$counter2] ";print $link;print "\n";} } |
| Время: 06:14. |
Время: 06:14.
© OSzone.net 2001-