| [ CnUnix ] in KIDS 글 쓴 이(By): cookie () 날 짜 (Date): 2002년 9월 27일 금요일 오전 01시 10분 39초 제 목(Title): perl script 하나만 부탁 이거 shell로 된 프로그램인데 perl로 다시 번역 해주실분 부탁 합니다. 즉 각 사용자의 홈 디렉터리를 scan 해서 .gotmail이란 파일 있으면 읽어서 다른 건 다 무시하고 username과 password를 추출해서 외부 프로 그램 (이것도 펄 스크립트) 를 실행하는 겁니다. #!/bin/sh SHELL=/bin/sh GOTMAIL="/usr/local/bin/gotmail --silent --only-new --mark-read" # LIST=`cut -d: -f1,6 /etc/passwd | grep :/home/` for usr in $LIST do set `echo $usr | sed 's/:/ /'` if [ -f $2/.gotmail ] ; then args=" -f $1 `sed -n \ -e 's/^username *= *\([A-Za-z0-9]*\)/-u \1/ip' \ -e 's/^password *= *\([^ ]*\)/-p \1/ip' $2/.gotmail`" $GOTMAIL $args fi done |