archive/eggdrop
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

some more special characters masked and url escaped for handling hash

Browse source
This commit is contained in:
lookshe 2013-07-29 14:17:23 +02:00
parent b3b232e370
commit 3bc9de5a3c
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
file.pl
View file

@ -18,7 +18,10 @@ $type =~ s/\)/\\\)/g;
$type =~ s/\[/\\\[/g;
$type =~ s/\]/\\\]/g;
$type =~ s/\^/\\\^/g;
$type =~ s/\#/\\\#/g;
$type =~ s/\*/\\\*/g;
my $type_out = $ARGV[0];
my $type_esc = uri_escape($ARGV[0]);
my $file = $ARGV[1];
my $skipFile = $ARGV[2];
@ -54,7 +57,7 @@ if ($found == 0) {
#my $scrapp = scraper {
# process '//table/tr/td', 'chars[]' => 'TEXT';
#};
my $wikiurl = "http://www.file-extensions.org/search/?searchstring=$ARGV[0]";
my $wikiurl = "http://www.file-extensions.org/search/?searchstring=$type_esc";
my $scrapp = scraper {
process '//table/tr/td', 'chars[]' => 'TEXT';
process '//div//p', 'results[]' => 'TEXT';