From 3bc9de5a3c00144e24b4bbc04f43c174b5303a6a Mon Sep 17 00:00:00 2001
From: lookshe <lookshe@fumuga.com>
Date: Mon, 29 Jul 2013 14:17:23 +0200
Subject: some more special characters masked and url escaped for handling hash

---
 file.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/file.pl b/file.pl
index eb16920..1eaa01f 100644
--- a/file.pl
+++ b/file.pl
@@ -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';
-- 
cgit v1.2.3