徒然なるままに

findってあんまり使わないけど… 今頃になって、知ったというか、調べたというか…。 一体何年使っているんだと言われそうなくらい初期の頃から使っているのに、こんな使い方したことなかったなぁと、自分でも驚いた。 忘れないとは思うけど、きっと同じような人がいるだろうと思うので、書いておく。 これまでの使い方 いままで、findを使う時って、 特定の拡張子が含まれている サイズが1MB以上 何日前より古いファイル 30分以内に編集したファイル なんて使い方が多かった。 でもって、中身を検索するならgrepだし…。 もちろん、パイプも使うし、xargsも使ってきた。 今回、はて？と考えた事 今回相談があって、LibreOfficeで編集ができないファイルがある。とな…。 調べてみると、オーナーがnobodyになっている。 ちょいちょい不具合もあるので、根本原因は調査中だけど、編集できないのは困るというので、急ぎで修正する必要がある。 さて、user_aのホームフォルダ以下で、user_aがユーザではないファイルを探す…。 まず、思いついたのは findだよなぁと…。 # find /home/user_a -user user_a これだと、user_aが所有者のファイルがリストアップされる。 あれ？ 否定はどうするんだ？？？と grep -v はよく使うけれど、findの条件否定って、よくよく考えると使ったことがないような気がする。（20年近くUNIX系触っているのに…） まずは、Helpだよね。 $ find --help 使用法: find [-H] [-L] [-P] [-Olevel] [-D help|tree|search|stat|rates|opt|exec] [path...] [expression] デフォルトのパスはカレントディレクトリです。デフォルトの評価式 (expression) は -print です。評価式は演算子、オプション、テストおよびアクションで構成されます。 演算子 (優先順位は降順です。特に指定がない場合は -and が暗黙的に使用されます):      ...

Perlでプログラムをガシガシと 昨年納品したプログラムの、追加機能の要求が上がったので、見直しを行っていた。 今回は、DBを使うほど件数が増えそうにもない。 履歴を見て登録されているユーザか、そうでないかを判別するだけなので、ハッシュをファイルに紐付けて、簡易のDBとして使うことにする。 　昔なら、メモリがパンクするんじゃ？とかディスク遅いっすとか思ったりして躊躇するんだろうけど、今どきはドンドンメモリ使っちゃおう！ファイル使っちゃおう！なんて思ったりもする。 さて、前回利用したモジュールは Jcode; MIME::Parser; MIME::WordDecoder; File::Basename; File::Path; Fcntl; File::Temp; 書き出してみるとこんなにもあった。 でもって、今回新たに Storable; 当然、稼働しているプログラムなので、直接いじるわけにはいかない。 とりあえず、ローカルでテストをする。 ソースを取り出して、修正内容を細かく分割。 それぞれテストして、組み立て…。 と、最初のテストで躓いた。 ローカルの環境が、この春に14.04で準備したNewマシンなので、モジュールが入っていない！ モジュールのインストール そもそも、最初のuse Jcode;でエラー吐いているし… ということで、インストールしようとしたが、コマンドを全く思い出せない。 あれれ？　どうやら老化と共にやってくるアレか？ # perl -MCPAN -e shell これが思い出せずに、仕方なくググりました。 いやぁ、外部記憶に入れておいて良かったゎ（泣）　というか、内部記憶から消去されている模様。 忘れないように、自分を戒めるために記録しておく。 作業自体は、コマンド入力して完了するのに１分もかからないというのに、思い出そうとした時間の方が長いとは…。 root@X200:~# perl -MCPAN -e shell CPAN.pm requires configuration, but most of it can be done automaticall...