<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 5.50.4207.2601" name=GENERATOR></HEAD>
<BODY>
<P><FONT size=2>Ziv!<BR><BR>Evo, se enkrat imam to vprasanje...<BR>Najprej
recem:<BR><BR>#!/usr/bin/perl -w<BR>use HTML::Parser;<BR>use strict;<BR>use
diagnostics;<BR><BR>Potem pa:<BR><BR>my $count =
1;<BR><BR>while(<FILE>)<BR>{<BR> my $main_line = $_;<BR> my
@line = split(/\t/,$main_line); # delimit the line<BR> <BR> my
$fullhtml = $line[12];<BR><BR> my @tags; <FONT color=#ff0000># ce ne dam
tegale notri, zajavka da zahteva explicit package...<BR></FONT><BR> my
$p=HTML::Parser->new(start_h=>[\@tags,"text"],<BR>
end_h=>[\@tags,"text"]);<BR><BR> # Parserju povemo, da nas zanimajo
tako start (<>) kot end (</>) tagi, in da<BR> # naj celoten
text taga shrani v polje @tags.<BR>
$p->parse($fullhtml);<BR> <BR> # Elementi @tags so zdaj polja, ki
imajo vsako en element, zato moramo<BR> # @tags se "splosciti".<BR>
@tags=map($_=$$_[0],@tags);<BR><BR> print "St. vrstice: $count. TAGI:
@tags\n";<BR> <FONT color=#ff0000># potem bi rad prestel vse img tage, vse
a href tage, itd... PROBLEM je, da je polje @tags PRAZNO. $fullhtml je
gotovo prava spremenljivka.</FONT></FONT><FONT size=2><BR>
$count++;<BR>}</FONT> </P></BODY></HTML>