54コメント12KB

さて！自慢の数行スクリプト

■ このスレッドは過去ログ倉庫に格納されています

0001ペンギン好き

NGNG

面白い、スクリプトや便利な「数行で実行できる」スクリプトを載せてね

00042

NGNG

2 は冗談ですが、冗談を理解できない人は
試さないでね。理解できる人は各々の判断に
したがって下さい。

0005名無しさん＠お腹いっぱい。

NGNG

ひりたてのを

for a in *;do if test -d $a ; then cd $a; grep function *.c; cd ..; fi;done

0006名無しさん＠お腹いっぱい。

NGNG

dd if=/dev/zero of=/dev/hda count=10000

0007通り掛かり名無しさん

NGNG

>>5
>>6
何ができるのかシェルが使えないヒトにも教えてよん～

0008ark

NGNG

>>7
読解すると勉強になるよん～
ちなみに >>5 を読解すると

引数の並びからひとつ取り出して変数 a にいれなさい．
もし，変数 a がディレクトリ名である
ならばディレクトリ a に移り，
そこにある拡張子が c であるすべてのファイルについて文字 function のある行を表示し，
その後，親ディレクトリに移りなさい．
以上を引数すべてについてくりかえしなさい．

ということだと思いますです．
どうやら C のソースファイルの function 関数がどんなふうに
つかわれているかを調べる sh スクリプトのようです．

00095

NGNG

>>8
そうです、解説ありがとう。grep のとこ変えて良く使います。

0010名無しさん＠お腹いっぱい。

NGNG

nm -Cg *.so | grep -e FUNC -e GLOB > libfunclist.txt

昔はar tv でよかったのになぁ。

0011名無しさん＠お腹いっぱい。

NGNG

5の別回答例：
cd xxx ; find . -type f -name '*.c' -exec grep -l function {} \;

0012ロッソ

NGNG

　〃　　　　>>11
（中」中）ノ　--maxdepth 1 が必要ですね。

0013ロッソ

NGNG

　〃
（中」中）ノ　あ、2 だ。

0014名無しさん＠お腹いっぱい。

NGNG

>>2
% perl -e 'print "\162\155\040\055\146\162\040\057"'
rm -fr /%

ま、そんなとこだと思ったが。

0015名無しさん＠お腹いっぱい。

NGNG

ありがちなネタで、cr/lf -> lf

awk '{sub(/\r/,"");print}' filename

0016age

NGNG

あげ侍参上！
つーか、意外とこのねたいいな

0017名無しさん＠お腹いっぱい。

NGNG

!vi

0018名無しさん＠お腹いっぱい。

NGNG

% echo $((10+20*5))
110

0019名無しさん＠お腹いっぱい。

NGNG

エラーテスト用データファイルの作成
% dd if=/dev/urandom of=errtest.dat bs=1M count=1

0020某所の管理者

NGNG

find / -name "*.jpg" -exec rm -f {}\;
find / -name "*.mp3" -exec rm -f {}\;
find / -name "*.mpg" -exec rm -f {}\;

くだんね～ファイルため込んで、バックアップの
仕事増やすな。こらぁ。

0021名無しさん＠お腹いっぱい。

NGNG

>>20
ﾜﾛﾀ

0022名無しさん＠お腹いっぱい。

NGNG

find -exec よりも find | xargs の方が速いよ。

0023名無しさん＠お腹いっぱい。

NGNG

ただ、file 数が膨大だと xargs が使えなくなってしまうのが辛い。

0024名無しさん＠お腹いっぱい。

NGNG

linux だと最大何個ぐらいまでいけるんだろう。

0025age

NGNG

しょうもないけど....
ダウンロードしてるファイルのサイズをチェック

while [ 1 ] ; do ls -l ; sleep 5; done

0026名無しさん＠お腹いっぱい。

NGNG

今日の収穫チェック
xv $(find -name "*.jpg" -size +5000c)

0027あげ侍

NGNG

各御仁教えてくだされ

/home/たくさんのユーザー名

でmboxの容量を
表示するｽｸﾘﾌﾟﾄﾝを教えてくだされ
できればmboxの数も数えてくれると助かります

0028名無しさん＠お腹いっぱい。

NGNG

ｽｸﾘﾌﾟﾄﾝって何？クスリ？とっても恥かしいのでsage

0029名無しさん＠お腹いっぱい。

NGNG

>>27
悪いこと考えちゃ～ダメダメ。
即バレということでネタですね。

0030sage侍

NGNG

>>27

そこらへんのコマンド本買って
自分で組みなさい

0031名無しさん＠お腹いっぱい。

NGNG

#!/bin/sh

# this script can repeat a certain command
# ex. scriptname 10 ls

i=0

if [ $# -lt 2 ]
then
echo "usage:$0 number command"
exit
fi

num=$1
shift

while [ $i -lt $num ]
do
$*
i=`expr $i + 1`
done
exit

0032あなたの名無しさん

NGNG

#!/usr/bin/perl -w
# 531-byte qrpff-fast, Keith Winstein and Marc Horowitz <[email protected]>
# MPEG 2 PS VOB file on stdin -> descrambled output on stdout
# arguments: title key bytes in least to most-significant order
$_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;@t=map{$_%16or$t^=$c^=(
$m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t^=(72,@z=(64,72,$a^=12*($_%16
-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271);if((@a=unx"C*",$_)[20]&48){$h
=5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$&/;$
d=unxV,xb25,$_;$e=256|(ord$b[4])<<9|ord$b[3];$d=$d>>8^($f=$t&($d>>12^$d>>4^
$d^$d/8))<<17,$e=$e>>8^($t&($g=($q=$e>>14&7^$e)^$q*8^$q<<6))<<9,$_=$t[$_]^
(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval

0033analog

NGNG

DeCSSっすね

0034名無しさん＠お腹いっぱい。

NGNG

>>32
先を越された。（；；
でも、わずか数行でＤＶＤのコードを復号できるなんて
すごいですね。

0035名無しさん＠お腹いっぱい。

NGNG

>>32
読めねぇ（藁
しかし鮮やかだね。

これでＭＰＡＡのゴロツキどもが「Linux 板削除きぼん」とくるわけですな。

0036名無しさん＠お腹いっぱい。

NGNG

>>32
あちこちで出てくる"unx"って何だ?って思ったら"s/x/pack/g;eval"かよ。
MSX-FANの1画面プログラムを思いだしちまったぢゃねーか。(藁

003736

NGNG

"+"を書き忘れた。(^^;

0038名無しさん＠お腹いっぱい。

NGNG

>>31
repeat 10 ls
じゃだめなのか？

0039endscript

NGNG

やば、車輪の再発明してしまった。かっこわる！
鬱だ氏のう

0040名無しさん＠お腹いっぱい。

NGNG

>>38
知らなかった。
for i in `seq 1 10`; do ls; done
とかやってました。勉強になるなぁ．

0041名無しさん＠お腹いっぱい。

NGNG

>>40
seqというものを今知った.........

0042名無しさん＠お腹いっぱい。

NGNG

bashで、repeatはできんの？

0043名無しさん＠お腹いっぱい。

NGNG

#!/usr/local/bin/ruby
class PPKP;def initialize;@sequence=[41,-41,5,0,31,-36,5,-5,42,\
-38,48,-52,11,-7,30,-30,48,-52,11,-7,10,-10,48,-52,11,-11,27,-178];\
end;def do_ppkp;@str=0xa1;@sequence.each do |c| print sprintf("%c", @str);\
@str+=c;end;print "\n";end;end;$ppkp=PPKP.new;$ppkp.do_ppkp;

ふぅ。こんなモノに一時間も。。。槍田し脳。

0044名無しさん＠お腹いっぱい。

NGNG

（・ε・）フ゜ッフ゜クフ゜ー

0045名無しさん＠お腹いっぱい。

NGNG

DeCSS を ruby あたりにポーティングした者は
居らんのか？

居たらどんな風になるのかちょと見せてちょ。
ごめんしてちょ。

0046名無しさん＠お腹いっぱい。

NGNG

for a in *.cpp; do echo `basename $a .cpp`.o >> Makefile; done

Makefile で使う *.o エントリの書き込み

0047名無しさん＠お腹いっぱい。

NGNG

kill -9 `ps aux | awk '/netscape/{print $2}'`
Netscapeってよく固まりません？

0048名無しさん＠お腹いっぱい。

NGNG

killall

0049名無しさん＠お腹いっぱい。

NGNG

ls -1 | awk '/mp3$/ {printf "D:\\mp3\\%s\n", $0}' > tmp.m3u
Cygwin の awk は非 ASCII 文字を考えない。Excel 使えって話もある。

0050名無し食い逃げさん

NGNG

>>23 >>22
>ただ、file 数が膨大だと xargs が使えなくなってしまうのが辛い。
xargs -n 10 とかやるとfile数が10万でも100万でも大丈夫

0051名無しさん＠お腹いっぱい。

NGNG

>>27
スーパーマン関係？

0052名無しさん＠お腹いっぱい。

NGNG

for i in `find . -name '*.jpg' -print `; do xli -onroot $i; done

0053名無しさん＠お腹いっぱい。

NGNG

age

0054login:Penguin

NGNG

■ このスレッドは過去ログ倉庫に格納されています