Cauko, potreboval by som pomct:
foreach $handleLine (@handleFile){
if ( $handleLine =~ /<div style='margin-top: 15px; font-family: verdana; font-size: 10pt; color: #666666; font-weight: bold; '>/) {
if($handleLine =~ /ekonomika/) { $categorie= 'eko';}
elsif($handleLine =~ /svet/) { $categorie= 'sve'; }
elsif($handleLine =~ /sport/) { $categorie= 'spo'; }
elsif($handleLine =~ /nazory/) { $categorie= 'naz'; }
elsif($handleLine =~ /kultura/) { $categorie= 'kul'; }
elsif($handleLine =~ /slovensko/) { $categorie= 'svk'; }
elsif($handleLine =~ /financie/) { $categorie= 'fin'; }
elsif($handleLine =~ /video/) { $categorie= 'vid'; }
else {$categorie = 'oth';}
}
if($handleLine =~ /<li style='list-style-type: none; color: #ffa500; '>/)
{
@href = split(/'/,$handleLine);
foreach $part (@href){
if($part =~ /detail/) {
printf "$categorie";
$part = "http:\/\/hn.hnoline.sk"."$part\n";
if ($categorie eq 'eko') { push(@eko,$part); }
elsif($categorie eq 'sve') { push(@sve, $part); }
elsif($categorie eq 'spo') { push(@spo, $part); }
elsif($categorie eq 'naz') { push(@naz, $part); }
elsif($categorie eq 'kul') { push(@kul, $part); }
elsif($categorie eq 'svk') { push(@svk, $part); }
elsif($categorie eq 'fin') { push(@fin, $part); }
elsif($categorie eq 'vid') { push(@vid, $part); }
else { push(@oth, $part); }
}
}
}
}
toto je cast kodu ktori mi trosku rozparsuje html a nieco z neho povybera, konkretne linky na clanky.
potrebujem ich vsak delit podla kategorie, a ked parsujem subor ktori stiahnem tak mi to bezi, ale ked dam stiahnut viacero suborov z netu postupne, tak mi to vobec nebezi... vobec neviem preco???
ma niekto nejaky napad kto robil nieco s perlom ?
