[완료]비기닝 펄(perl) 을 보면서 드는 생각.....

doodoo@doodoo:~/bin$ cat burn.sh 
IMG_SIZE=`mkisofs -R -J -quiet -print-size ./ 2>&1 \
| sed -e "s/.* = //"`
echo $IMG_SIZE
[ "$IMG_SIZE" -gt 30 ] && mkisofs -R -J ./ \
|wodim -dao -v speed=24 dev=ATAPI:0,1,0 tsize=${IMG_SIZE}s -data - 

doodoo@doodoo:~/bin$ cat hw742.sh 
#!/bin/sh
cd '/home/doodoo/.wine/drive_c/Program Files/Sierra/Homeworld2/Bin/Release'
wine "Homeworld2.exe" -w 1680 -h 1050 -mod Complex741.big -hardwarecursor -refresh 120

doodoo@doodoo:~/bin$ cat tstip.sh
#!/bin/sh
addr=`/sbin/ifconfig |grep Mask |grep -v 127 |/usr/bin/awk '{print $2}'`
echo $addr > Ltstip.txt
 
addr1=`w3m -dump <a href="http://u-ip.net" rel="nofollow">http://u-ip.net</a> | grep "Your IP"| sed -e 's/.*\ \([0-9]\+\.[0-9]\+\.[0-9]\+\.[0-9]\+\).*/\1/'`
echo addr:$addr1 >> Ltstip.txt

function bs {
	cd ./`ls BT* | sed -n '/^BT-.*:$/h;/^BT-.*:$/!{'/$1/'{g;s/://;p}}'`
}
function bm {
	ind=`pwd`
	for i in *torrent;do wget --spider "http://localhost:4080/submit?q=dllink $ind/$i";sleep 1;done
}