Hi all - hello Community,
i am new to Linux and new to PERL too. I am trying to get this perl script up and running. I have installed OpenSuse 11.3
What is wanted: I have a bunch of HTML-files, stored in a folder.
with the Perl-Script (see below) i want to parse the HTML-files.
I have stored the script to the following place:
**Basisfolder [german!!] > user > perl > **
My question is - how to name the paths …
a. to the html-folder that contains the HTML-files that need to be parsed (i named this folder html.files)
b. how to name the file that has to be created…
i suggest that this files also is located in the same directory: **Basisfolder [german!!] > user > perl > **
guess that this makes it easy…
Please do not bear with me for the Noob-Questions. If i have to explain more - please let me know!
Love to hear from your - Many thanks in advance for any and all help.
dilbertone!
see here the code…
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use HTML::TokeParser;
# my $file = 'school.html';
my @html_files = File::Find::Rule->file->name( '*.html.files' )->in( $html_dir );
my $p = HTML::TokeParser->new($file) or die "Can't open: $!";
my %school;
while (my $tag = $p->get_tag('div', '/html')) {
# first move to the right div that contains the information
last if $tag->[0] eq '/html';
next unless exists $tag->[1]{'id'} and $tag->[1]{'id'} eq 'inhalt_large';
$p->get_tag('h1');
$school{'location'} = $p->get_text('/h1');
while (my $tag = $p->get_tag('div')) {
last if exists $tag->[1]{'id'} and $tag->[1]{'id'} eq 'fusszeile';
# get the school name from the heading
next unless exists $tag->[1]{'class'} and $tag->[1]{'class'} eq 'fm_linkeSpalte';
$p->get_tag('h2');
$school{'name'} = $p->get_text('/h2');
# verify format for school type
$tag = $p->get_tag('span');
unless (exists $tag->[1]{'class'} and $tag->[1]{'class'} eq 'schulart_text') {
warn "unexpected format: parsing stopped";
last;
}
$school{'type'} = $p->get_text('/span');
# verify format for address
$tag = $p->get_tag('p');
unless (exists $tag->[1]{'class'} and $tag->[1]{'class'} eq 'einzel_text') {
warn "unexpected format: parsing stopped";
last;
}
$school{'address'} = clean_address($p->get_text('/p'));
# find the description
$tag = $p->get_tag('p');
$school{'description'} = $p->get_text('/p');
}
}
print qq/$school{'name'}
/;
print qq/$school{'location'}
/;
print qq/$school{'type'}
/;
foreach (@{$school{'address'}}) {
print "$_
";
}
print qq/
Description: $school{'description'}
/;
sub clean_address {
my $text = shift;
my @lines = split "
", $text;
foreach (@lines) {
s/^\s+//;
s/\s+$//;
}
return \@lines;
}
Love to hear from you!
