にひりずむ::しんぷる - 最近のセットアップスクリプトの書き方
コードジェネレーターというかスニペットというかセットアップスクリプトというかそういうのを、最近は以下のような感じで書いてる。 実際には Getopt::Long なんかと組み合わせて使う。 #!/usr/bin/env perl use strict; use warnings; use File::Basename qw/dirname/; use File::Path qw/mkpath/; use File::Slurp qw/write_file/; use Data::Section::Simple qw/get_data_section/; use Text::Xslate; use 5.12.1; my $app = shift || die 'Usage: gen.pl app'; mkdir $app or die "$app: $!"; chdir $app; my $
Cwd::Guardっていうモジュールを出していた話 - blog.nomadscafe.jp
OrePANを弄っているときに、任意のスコープで一時的にchdirして作業後、スコープ外れれば自動で元のディレクトリに戻るモジュールあれば欲しいなと思ったので書いてみた。 use Cwd::Guard; use File::Temp; use Path::Class; my $tmpdir = Path::Class::dir(File::Temp::tempdir()); my $pkgdir; { my $guard = cwd_guard($tmpdir); # chdir to $tmpdir my($root, @others) = `tar ztf $tarfile` or die "Bad archive $tarfile"; chomp $root; $root =~ s{^(.+?)/.*$}{$1}; system "tar", "zxf", "$tarfile"; d
cpan をベロッと検索するやつ - tokuhirom's blog
c9s の http://github.com/c9s/cpansearch とかは別に PP でもいいんじゃないの？とおもったので、PP でかいてみた。 #!/usr/bin/perl use strict; use warnings; use File::HomeDir; use File::Spec; use Getopt::Long; our $VERSION = 0.01; my $mirror = 'http://cpan.nctu.edu.tw/'; my $localfile = File::Spec->catfile(File::HomeDir->my_home(), '.cpanspp.gz'); &main;exit; sub main { my $pattern = shift @ARGV || die "Usage: $0 pattern"; GetOptions
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
