ディレクトリ以下の*.flvファイルのファイルサイズの合計なら $ find . -name '*.flv' -ls | perl -a -n -e 'print "$F[6]\n";' | perl -e 'while(<>){chomp;$sum+=$_;}print "$sum\n";'

パスが通っているところにfilesize.plで保存して実行権限つけたとして こんな感じで使える $ find -type f | filesize.pl -h 2.27K #!/usr/bin/perl use strict; use Getopt::Std; # commandline options my %opts; getopt('kmgt', \%opts); # Read filelist…

-e で出来る。 -e $FILENAME なお、 -e : ファイルが存在するかどうか -z : ファイルがあってサイズが0より大きいかどうか -f : ファイルかどうか -d : ディレクトリかどうか -l : シンボリックリンクかどうか などがある

use ExtUtils::testlib をいれると、モジュールをmake したディレクトリでモジュールが使えるようになる。 開発中のテストに便利

ダウンロードは http://www.swig.org/ よりconfigureのオプションでの各言語のPathの指定は、実行ファイルを指定する # cd /usr/local/src # tar xfz ~/tmp/swig-1.3.27.tar.gz # cd swig-1.3.27 # ./configure --with-perl5=/usr/local/bin/perl --with-pyt…

単純にHTTPで取得したいだけなら、LWPより軽くてよいよい。CGI等に便利 http://search.cpan.org/~rhooper/HTTP-Lite-2.1.6/Lite.pm use HTTP::Lite: $http = new HTTP::Lite; $req = $http->request($uri); defined($req) or die; print $req->body();