[linux] perl script help

[Lubomir Host]

On Thu, Mar 01, 2007 at 05:03:14PM +0100, maros franko wrote:
> Dobry den,
> 
> pokusam sa vytvorit v perle script ktory nacita html subor, a najde
> riadok v ktorom sa vyskytuje "daky" text.
> Vyzera takto:

open (FILE, "temp.txt") || die "Can't open temp file. $!";
$count = 1;
while (my $line = <FILE>) {
  if ($line =~ m/tr/)
  {
    print $count++,"-->",$line,"\n";
  }else{
    print $line,"\n";
  }
}

Ale pri parsovani HTML by som sa radsej pozrel na modul
HTML::TreeBuilder


-- 
  ,''`.  Lubomir Host 'rajo' <rajo AT platon.sk>    ICQ #:  257322664
 : :' :  Jabber: rajo AT jabber.platon.sk      VoIP: callto://rajo207
 `. `'   WWW: http://rajo.platon.sk/  Platon Group: http://platon.sk/
   `-    GnuPG key: DC0C C7EA 55C8 B089 C41D 944A F251 A93A 2361 A82F