こんにちは、以下のシナリオのシェル スクリプトを作成しました。
今日のすべてのファイルを検索して読み取り、~ で区切られた 6 番目のフィールドを取得します。
================
#!/usr/bin/ksh
DATE=`date | awk '{print $2 " " $3}'`
TIMESTAMP=`date +"%m%d%Y"`
for filename in `ls -ltr | grep -i "$DATE"| awk '{print $9}'`
do
cat $filename | grep -i ^01 | awk -F'~' '{print $6}' >> /tmp/log.$TIMESTAMP
done
================
誰かがこれに相当する perl を提供してくれませんか。