Programming/Shell Script

Perl 스크립트

perl -pi -e '$a=0, undef $/ if($a!=0 && s/[\w\b\s\x00-\x7f\n]+//smg);$a++' test

디렉토리별 파일 개수 확인

특정 위치에서 하위 디렉토리만 스캔하고 디렉토리별 파일의 개수를 확인하는 스크립트를 만들어 봤습니다. for x in `find . -maxdepth 2 -mindepth 2 -type d -print` do echo $x, `find $x -type f|wc -l`; done

웹로직 서버 인스턴스 상태 체크

while : do state=`java -classpath /.../wlserver_10.3/server/lib/weblogic.jar weblogic.Admin -url t3://ip_address:port -username "username" -password "password" GETSTATE| cut -d\: -f2` if [[ "$state" == *RUNNING* ]]; then break else sleep 5 fi done