|
>>4869 しも よくわかりませんが ls(1) の結果は使えないんでしたっけ? あとは cksum・wc・find とか。それ以外なら awk・perl あたりでしょうか。 cksum http://docs.hp.com/ja/B2355-60129/cksum.1.html wc http://docs.hp.com/ja/B2355-60129/wc.1.html find . -ls http://docs.hp.com/ja/B2355-60129/find.1.html |
|
>>4870 68user ありがとうございます。 ファイル個々のサイズはcksumやwcで確かに確認できました。 ディレクトリのサイズはbyte表示させる事は不可能なのでしょうか？ duを使用しましたが、KBだったのとブロック単位でした。 |
|
>>4871 しも HP-UX に限らず、du ではブロックカウント機能しかないと思います。 http://sonic64.com/2004-05-26.html のように自前でカウントするしかないでしょう。 |
|
cygwinでbash not find ：bash.exeというエラーがでんだけどどうすれば いいか教えろ！！！！！どーせ暇だろ！ニート諸君、俺様の変わりに調べろ！ パスの設定はしてある。 俺も暇じゃないから５分やるですぐ調べて返信しろ。貴様らは蛆虫だ。 ./bashrc等も完璧 しかーーーーし動かん。楽勝だて。 |
|
お世話になります。 質問のときだけ現れてスミマセン。 Perl で、 filename -> title aaa.html -> aaaについて bbb.html -> bbbについて ccc.html -> cccについて みたいなタブ区切りのテキストを読んで処理するとき、カンタンには while (<>) { ($filename, $title) = <>; } のようにすると思いますが、１行目に見出しが入っていて、 これを捨てたいと思います。 今は、 $trash = <>; while (<>) { ($filename, $title) = <>; } のようにしていますが、 $trash が１回しか使われていませんが書き間違いではありませんか、 という警告が出ます。 警告だから無視すればいいようなものですが、 もっとスマートな書き方はあるでしょうか。 |
|
>>4874 ふくし - <>; - my $trash = <>; - (undef)=<>; のいずれかでどうでしょうか。Perl5.8.8 では問題ありませんでした。 |
|
>>4875 68user さん、ありがとうございます。 いずれも 5.10.0 でもうまくいきました。 (undef) = <>; というのは自分で思いついていたんですが、 リストコンテクストで評価されて、 全部の行が代入されたのち２行目以降は捨てられる （１行目も undef だから捨てられる） ような気がしていました。 ありがとうございます。 |
|
>>4876 ふくし ああそうですね。書くなら (undef)=scalar(<IN>); でしょうか。しかし仕事でこのコード見たらイラッとしますねぇ。 |
|
>>4873 大臣 ご期待に沿えず残念ですが、たぶん多忙で善良なプロの皆さんとかからの 回答になると思います。 どのくらい完璧か晒したら進言あるかもですよ。 |
|
そういえば（どういえばだ）以前（数年前）Perl で goto FIN; sub foo {} FIN: だとエラーになるけど goto FIN; FIN: sub foo {} または goto FIN; sub foo {} FIN: ; だとダメ、という件があったんだけど、急に思い立って perlbug してみました。 ２時間後に返事が来て（すげえな）perlsyn に書いてあるけど それはバグではない、ラベルの後には１個以上の文がなければならないと いうことです。ＦＡＱらしいですね。 |
|
>>4872 68user 返信が遅くなりました。 68userさんの仰るように、自分でツールを作成する必要がある事を理解しました。 awkを使って作成しようと思います。 初めて作るので、時間がかかりそうですが結果はまた報告にきます。 ありがとうございました。 |
|
>>4883 しも さん、 どっちみち初心者だったら awk より Perl をおすすめします。 汎用性があるし可読性も高くできると思います。 ちょっと書いてみるとこんな感じでしょうか。 ★さしでがましければすみません。ここで読むのやめてください ^^ ★ ★ #! /bin/perl -w # dsize -- カレントディレクトリ以下のファイルサイズを集計 use File::Find; $total = 0; find(\&fileProc, '.'); print "Total\t$size\n"; sub fileProc { return unless -f $_; $size = -s $_; print "$File::Find::name\t$size\n"; $total += $size; } |