
23.02.2008, 22:16
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме: 5128756
Репутация:
2032
|
|
Сообщение от $p01nt
простенький вопрос . В общем я скачиваю хтмл страничку и выдергиваю все от тега до тега - все ок НО выдергивается только один раз , нужен цикл , как реализовать ?
КОД :
open(FIL,">sait.txt");
@loleg=$content =~m {<[<th>]+/?>(.+?)</?[\/th]+>};
print FIL @loleg;
open(FIL,">sait.txt");
@loleg=$content =~m {<[<th>]+/?>(.+?)</?[\/th]+>}g;
my $i = 0;
foreach $line (@loleg) { $lolarr[$i] = $line; $i++;}
print FIL @loleg;
Последний раз редактировалось Piflit; 23.02.2008 в 22:32..
|
|
|