xaicron

use strict;
use warnings;
use utf8;
use LWP::Simple;
use URI::Escape;
use Encode;

my %SUFFIX = (
    37 => '.mp4',
    35 => '.flv',

xaicron

diff --git a/bin/pm-uninstall b/bin/pm-uninstall
index 32b7fcb..0439174 100755
--- a/bin/pm-uninstall
+++ b/bin/pm-uninstall
@@ -135,6 +135,7 @@ sub uninstall_from_packlist {
         print -f $_ ? 'unlink   ' : 'not found', " : $_\n" if $opt->{verbose};
         unlink $_ or warn "$_: $!\n";
     }
+    close $fh;

xaicron

#!/usr/bin/env perl

use strict;
use warnings;
use ExtUtils::MakeMaker;
use Config;
use File::Find;

my $max = 0;
my $data = +{};

xaicron

#! 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で書かれていることが前提
#
# *更新履歴*
# 

xaicron

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

#!perl

use strict;
use warnings;
use File::Spec;
use Getopt::Long qw/GetOptions/;
use Pod::Usage qw/pod2usage/;

our $VERSION = 0.01;

xaicron

> 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

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

#!/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

$ 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'