Changeset a1439aa in lab.git for Dev/pukiwikiplus/getsource.pl

Timestamp:

May 21, 2011 12:48:14 AM (13 years ago)

Author:

mitty <mitty@…>

Branches:

master, trunk

Children:

e3948e3

Parents:

74f778c

Message:

• accept -f option to save wiki text to file

git-svn-id: ​https://lab.mitty.jp/svn/lab/trunk@121 7d2118f6-f56c-43e7-95a2-4bb3031d96e7

File:

• Dev/pukiwikiplus/getsource.pl (modified) (3 diffs)

Dev/pukiwikiplus/getsource.pl

@@ -11 +11 @@
 
 if (@ARGV < 1) {
-    print "$0: url_to_pukiwikiplus_page\n";
+    print "$0: [-f] url_to_pukiwikiplus_page\n";
     exit;
+}
+
+my $file;
+if ($ARGV[0] eq '-f') {
+    $file = shift @ARGV;
 }
 
@@ -20 +25 @@
 if ($url !~ /cmd=source/ ) {
     $url =~ s#\?(.+)#\?cmd=source&page=$1#;
+    if ($file) {
+        $file = wikifile($1) . '.txt';
+    }
 }
 
@@ -31 +39 @@
 my $text = $source->scrape( URI->new($url) );
 
+if ($file) {
+    print STDERR "saving: '$file'\n";
+    open STDOUT, ">$file";
+}
 print encode('utf8', $text);
+
+
+sub wikifile {
+    my $pagename = shift @_;
+    
+    $pagename =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
+    return uc unpack("H*", $pagename);
+}