[[Perl]] +Linuxコマンドでファイル数を数える --サイズ $ du -h -s ./ --ファイル数 find . | wc -l +ファイルに含まれる文字数を数える useFile::Find; @ARGV=qw(.)unless@ARGV; findsub{push@list,$File::Find::name,-d&&'/',"\n"},@ARGV; chomp@list; foreach(@list){ unless($_){next;} if(/^\//){next;} if(/htm$|html$/){ $HtmlCount++; system("nkf -w $_ > $TmpFile"); $w3m=`w3m-dump$TmpFile`; $w3m_length = length $w3m; $HtmlLength += length $w3m; } @dot=split(/\./,$_); $FileType{$dot[@dot-1]}++; $AllCount++; } @FileType=sort{$FileType{$b}<=>$FileType{$a}}keys%FileType; for($i=0;$i<@FileType;$i++){ print"$i$FileType[$i]$FileType{$FileType[$i]}\n"; } print"All$AllCount\n"; print"Html総文字数UTF8length$HtmlLengthファイル数$HtmlCount\n"; $AveLength=$HtmlLength/$HtmlCount; print"HTML平均文字数(UTF8なので3バイト)$AveLength\n"; $AveLength3=$HtmlLength/$HtmlCount/3; print"HTML平均文字数$AveLength3\n";