Yuji Shimada xaicron
xaicron
/ gist:304564
Created
February 15, 2010 11:19
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/env perl | |
| use strict; | |
| use warnings; | |
| use Encode qw/decode/; | |
| use Gtk2 -init; | |
| use Pod::Usage qw/pod2usage/; | |
| use opts; | |
| opts |
xaicron
/ gist:310323
Created
February 21, 2010 13:49
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| > perl -MWin32::Unicode::Native -e "print Encode::decode cp932 => shift" ほげ | |
| ほげ | |
| > echo hoge > hoge.txt 2>&1 | |
| > perl -MWin32::Unicode::Native -e "print Encode::decode cp932 => shift" ほげ | |
| 縺ｻ縺 |
xaicron
/ gist:310303
Created
February 21, 2010 13:14
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Beginning a new cpanminus installation: build direcotry is C:\Documents and Settings\xai\.cpanm\build-1266758002.2976 | |
| Fetching http://search.cpan.org/CPAN/authors/id/M/MI/MIYAGAWA/App-CPAN-Fresh-0.08.tar.gz | |
| Unpacking App-CPAN-Fresh-0.08.tar.gz... | |
| Entering App-CPAN-Fresh-0.08... | |
| Checking configure dependencies from META.yml... | |
| Checking if you have ExtUtils::MakeMaker 6.42... Yes (6.56) | |
| Checking dependencies from MYMETA.yml... | |
| Finding PREREQ from Makefile... | |
| Checking if you have URI 0... Yes (1.52) | |
| Checking if you have ExtUtils::MakeMaker 6.42... Yes (6.56) |
xaicron
/ php-funcref_fight_chart.txt
Created
March 7, 2010 06:59
— forked from yusukebe/php-funcref_fight_chart.txt
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| $ git shortlog -sn|perl -E'while(<>){($d[$i],$t[$i++])=/(\d+)\s+([^\n]+)/}say"http://chart.apis.google.com/chart?cht=p3&chs=800x300&chd=t:".join(",",@d)."&chl=".join"|",map{s/\s/%20/g;$_}@t' |
xaicron
/ gist:324387
Created
March 7, 2010 14:30
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/env perl | |
| use strict; | |
| use warnings; | |
| use autodie; | |
| use Config::Pit qw/pit_get/; | |
| use Web::Scraper qw/scraper process/; | |
| use WWW::Mechanize; | |
| use LWP::Simple qw/mirror/; | |
| use File::Basename qw/basename/; |
xaicron
/ gist:326741
Created
March 9, 2010 16:09
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| diff --git a/lib/App/cpanminus/script.pm b/lib/App/cpanminus/script.pm | |
| index d5c07e0..50ecfef 100644 | |
| --- a/lib/App/cpanminus/script.pm | |
| +++ b/lib/App/cpanminus/script.pm | |
| @@ -471,6 +471,7 @@ sub run { | |
| waitpid $pid, 0; | |
| return !$?; | |
| } else { | |
| + exec 'dir'; | |
| close STDIN unless $self->{verbose}; |
xaicron
/ gist:327844
Created
March 10, 2010 13:13
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| > growlnotify.com /? | |
| Send a Growl notification to a local or remote host | |
| growlnotify [/t:title] [/id:id] [/s:sticky] [/p:priority] [/i:icon] | |
| [/a:application] [/r:type] [/n:type] | |
| [/cu:callbackurl] | |
| [/host:host] [/port:port] | |
| [/pass:password] [/enc:algorithm] [/hash:algorithm] | |
| [/silent:nooutput] |
xaicron
/ gist:327960
Created
March 10, 2010 15:09
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!perl | |
| use strict; | |
| use warnings; | |
| use File::Spec; | |
| use Getopt::Long qw/GetOptions/; | |
| use Pod::Usage qw/pod2usage/; | |
| our $VERSION = 0.01; |
xaicron
/ gist:329267
Created
March 11, 2010 15:57
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| alias cpan-uninstall='perl -MExtUtils::Install -MExtUtils::Installed -e "unshift@ARGV,new ExtUtils::Installed;sub a{\@ARGV};uninstall((eval{a->[0]->packlist(a->[1])}||do{require CPAN;a->[0]->packlist(CPAN::Shell->expandany(a->[1])->distribution->base_id=~m/(.*)-[^-]+$/)})->packlist_file,1,a->[2])"' |
xaicron
/ gist:329273
Created
March 11, 2010 16:03
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #! C:/Perl/bin/perl | |
| # | |
| # $Id: ldbconv.pl,v 0.7 2009/03/20 08:52:09 xaicron Exp xaicron $ | |
| # | |
| # livedoor blog用 script converter | |
| # Perlスクリプトの色を変える | |
| # 入力ファイルがutf8で書かれていることが前提 | |
| # | |
| # *更新履歴* | |
| # |