シェル、オークの質問コーナー

1 ：はろう ：01/09/12 23:02

ない！！のでつくりました

38 ：名無しさん＠お腹いっぱい。 ：01/09/19 18:50

awk、sedでできることはperlでなんでもできふか？
perlってやっぱ覚えとくと便利で不可？

39 ：名無しさん＠お腹いっぱい。 ：01/09/19 18:55

>38
perl は system を使えばなんでもできるYo!

40 ：名無し ：01/09/19 19:11

awkもsystemなかったか？

41 ：名無しさん＠お腹いっぱい。 ：01/09/19 19:14

>>39
なるー。るびーも能力的には互角？
まあ、テキスト処理が楽に統一的に使えそうでいいな
っておもてマフ。

42 ：名無しさん＠お腹いっぱい。 ：01/09/19 22:31

>>38
perlは、syscall.phをrequireして、
引数をpackして直接syscallよびだすとなんでもできるよ

43 ：名無しさん＠お腹いっぱい。 ：01/09/19 23:14

>>40
systemはawkにもある。
>>36って同じ質問をいくつものスレッドでするし、
前の$15の件も解決したんだか、しないんだか何も言わないし
なんだかな〜。

44 ：名無しさん＠お腹いっぱい。 ：01/09/19 23:33

>43
たぶん望む答えが出てきてないんだろうな。
つーか、自分が何を望んでいるかがわかってないのか。

45 ：はろう ：01/09/20 11:05

すみません　私がｶｷｺしてるのはここと便利なシェルをみせろの二つっす
$15の問題は解決しました
けどもawk　-f　でやると動きませんが
-fなしだと動きます。

46 ：名無しさん＠お腹いっぱい。 ：01/09/20 18:03

＜SunOS 5.7＞
指定されたディレクトリのファイルを圧縮して
ｆｔｐで他のサーバに格納するシェルを作りました。（シェル自体はテスト済み）

こいつを時間起動で毎日一回動かすようにする為、crontabに
登録したのですが、シェルが動く毎にメールが帰ってきます。

＜クーロン登録内容＞
* 22 * * 1-5 backup.sh >/dev/null

＜メール内容＞
：
：
produced the following output:
stty: : No such device or address
：

処理自体はうまく動いて、ｆｔｐも特に問題は無いのですが
メールが来るのがうっとうしいです。

メール出さないようにするにはどうすればいいんですかね？

47 ：名無しさん＠お腹いっぱい。 ：01/09/20 23:42

>>36
専用のsoftware, "analog"じゃ駄目なの?

48 ：名無しさん＠お腹いっぱい。 ：01/09/21 00:27

>46
完全にメールを受け取らない（クーロン正常/異常）場合
* 22 * * 1-5 backup.sh >/dev/null　2>&1

やってみれ

49 ：名無しさん＠お腹いっぱい。 ：01/09/21 01:07

シェル作ったんか…。凄いね。

50 ：名無しさん＠お腹いっぱい。 ：01/09/21 01:13

そろそろドンパチが始まるかも知れないから　シェルより
シェルターを作った方がいいかもね

51 ：名無しさん＠お腹いっぱい。 ：01/09/21 22:32

> /dev/null 2>&1
だろが！！！

馬鹿たれが！！！！！！！！！！！！！！！！！！！！！！！

そんなこともわからんのか！！！！！！！！！！！！！！

チンカス

52 ：名無しさん＠お腹いっぱい。 ：01/09/22 05:20

マンカス！

53 ：はろう ：01/09/28 19:03

ふう。
"analog"っすか。
修行いてきやす。
仕事忙しくてみれないこのごろ。

54 ：名無しさん＠お腹いっぱい。 ：01/10/01 22:04

質問。

ツリーになっているディレクトリから、ファイル名とファイルサイズが同じ複
数のファイルを発見し、適当な一つ(最新のものかなあ。あんまりこだわらな
い) を残して他を消したいんですが、エレガントなのはどういう方法だと
思いますか? (なにをしているかは見当つくよね。美術画像の整理。)

perlかなんかで書くんだろうけど、オレの技量だと1週間かかっちゃう。

同じことしている人がいたら教えてください。

55 ：名無しさん＠お腹いっぱい。 ：01/10/01 22:31

それ以前にリンクの使い方を覚える、っていうのは？

56 ：名無しさん＠お腹いっぱい。 ：01/10/01 22:36

>>54
find . -ls | awk '{ path=$NF ; gsub(".*/", "", $NF); print $7"-"$NF" "path}' | sort | awk 'BEGIN{ name=""} { if ( name == $1 ) { print $2 } else { name = $1} }' | xargs rm

なんつーか力業くさいが。当然テストもしてないぞ?
あ、もちろん妙なファイル名使う子は使っちゃいけないぞ

57 ：名無しさん＠お腹いっぱい。 ：01/10/01 22:37

>>55

ハード/シンボリックリンクのことですね。
それは知ってる(と思う)

複数の美術館からもらってきた美術画像に同じものが
大量に含まれているんですよ。

58 ：55 ：01/10/01 22:44

>>57
そっか。ごめんね。鬱死。

59 ：名無しさん＠お腹いっぱい。 ：01/10/01 22:53

>>56

なるほど.... find -lsで"バイト数-名前 ディレクトリつきの名前" という形
にしてソートして抽出するわけですね。変なファイル名もはいっているので
(オレが作ったわけじゃないから)、自分でももうちょっと考えてみます。

しかしよく考えたら数万行ソートしなきゃならんのだな。

60 ：名無しさん＠お腹いっぱい。 ：01/10/01 23:06

>>59
> しかしよく考えたら数万行ソートしなきゃならんのだな。
ソート(そーっと)やって下さい。(オヤヂギャグ)

61 ：59 ：01/10/01 23:12

11万行ぐらいあるけど、
今の機械ではこれくらい一瞬ですね。

変な名前のファイルはあらかじめ排除しておくことにしたけど、
大文字小文字の問題があることを発見したのでもうちょっと検査中。

参考になりました。ども。

62 ：名無しさん＠お腹いっぱい。 ：01/10/02 05:15

>>57
キャッツアイ？

63 ：59 ：01/10/07 17:20

その後、ファイル名とサイズがいっしょってだけでは
まだまだ重複があることに気づき、

find -type f -exec md5 -r {} \;
してリストをつくり、
#! /usr/bin/perl
while(<>) {
($md5, $filename) = /^([0-9a-z]+) (.*)$/;
if ($md5 =~ $prev_md5) {
print "$prev_filename\n$filename\n";
}
$prev_md5 = $md5; $prev_filename = $filename;
}
ってなフィルタを通して
MD5がいっしょのファイルを抽出することにしました。

ばかみたい。

64 ：名無しさん＠お腹いっぱい。 ：01/10/07 17:30

どっかで見た記憶が... と思って freshmeat で "duplicate"
で検索すると、そのものズバリのソフトが結構出て来たぞ。

65 ：名無しさん＠お腹いっぱい。 ：01/10/07 17:36

多くは書かないたった一行。

66 ：名無しさん＠お腹いっぱい。 ：01/10/07 18:20

>>65
うまい！座布団３枚！

67 ：59 ：01/10/07 19:03

>>65
やっぱり rm -rf * ってこと?

68 ：かりんと ：01/10/07 21:16

お祝いに美術画像おくれ。

read.cgi ver5.26+ (01/10/21-)