30 lines
535 B
Perl
30 lines
535 B
Perl
#!/usr/bin/perl
|
|
|
|
#use strict;
|
|
#use warnings;
|
|
use Web::Scraper;
|
|
use URI;
|
|
use HTML::Entities;
|
|
use Encode;
|
|
use URI::Escape;
|
|
use LWP::UserAgent;
|
|
|
|
my $scrap;
|
|
|
|
my $wikiurl = "http://filext.com/file-extension/$ARGV[0]";
|
|
|
|
my $scrapp = scraper {
|
|
process '//table/tr/td', 'chars[]' => 'TEXT';
|
|
};
|
|
my $url = URI->new($wikiurl);
|
|
my $blubb = $scrapp->scrape($url);
|
|
my $list = $blubb->{'chars'};
|
|
|
|
binmode(STDOUT, ":utf8");
|
|
|
|
for($i = 0; $i <= $#$list;$i++) {
|
|
if ($$list[$i] =~ /^Extension: $ARGV[0]$/i)
|
|
{
|
|
print "$$list[$i+4]\n";
|
|
}
|
|
}
|