VIPUL / WWW-Spinn3r-2.00200001 / examples / parse_file.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

              
#!/usr/bin/perl -s
use lib qw(../lib lib);
use WWW::Spinn3r; 
usage();
my $feed = WWW::Spinn3r->new( from_file => $filename, debug => 1 );
while (my $item = $feed->next()) { 
    print "Title: $$item{title}\n";
    print "Type: $$item{'weblog:publisher_type'}\n";
}
sub usage { 
    unless ($filename) { 
        print "$0 -vendor=VENDOR -filename=FILENAME\n";
        exit(1);
    }
}