Re: Re: Re: HTML Formattting

How about something like this:

open(T,"test.html") || die ("Unable to open file. $!\n");
while(<T>) {
# preprocessing with s/.../ as above
    if (/^;Town/) {
        $town = <T>;
        chomp $town;
        $town =~ s/;//g;
        print "Found a town: $town\n";
    }
}
[download]

Note, I've only tested this very quickly. It could probably do with better error handling etc...

Comment on Re: Re: Re: HTML Formattting Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: HTML Formattting by minixman (Beadle) on May 13, 2004 at 14:35 UTC
i Did find a quick way that does work very well. If you have an file that looks something like this ; Notes ID ; bhenry this will work `open(R,"file.html") \|\| die("errro, $1n\"); while (<R>) { $pattern = "Notes ID"; next if ! /$pattern/; die "End of EOF \n" if ! defined ($_=<R>); $_ =~ s/<[^>]+>//g; # This just removes HTML Tages $_ =~ s/<!//g; # This removes more HTML tages $_ =~ s/&nbsp//g; # Remove HTML spaces $_ =~ s/;//g; # remove ; printf ("$pattern = $_ \n"); # Print patter` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Re: Re: HTML Formattting
by minixman (Beadle) on May 13, 2004 at 14:35 UTC

If you have an file that looks something like this
; Notes ID
; bhenry

this will work

open(R,"file.html") || die("errro, $1n\"); 
    while (<R>) {
     $pattern = "Notes ID"; 
     next if ! /$pattern/;        
     die "End of EOF \n" if ! defined ($_=<R>);
     $_ =~ s/<[^>]+>//g; # This just removes HTML Tages 
     $_ =~ s/<!//g; # This removes more HTML tages 
     $_ =~ s/&nbsp//g; # Remove HTML spaces 
     $_ =~ s/;//g; # remove ; 
     printf ("$pattern = $_ \n"); # Print patter
[download]

[reply]
[d/l]