Saya memiliki kode di bawah ini untuk mengganti beberapa strigns dalam beberapa file, tetapi untuk loop memeriksa file pertama dan tidak mengeksekusi skrip perl. di bawah ini adalah kode saya
if [ -f zebu.work.post_opt/ZEBU_CTO_FT_MOD.v ]
then
for file in $(./zebu.work.post_opt/ZEBU_CTO_FT_MOD*);
do
perl -i -p -e 's/input/inout/g' $file;
perl -i -p -e 's/output/inout/g' $file;
perl -i -p -e 's/wire.*\n/tran\(i0,\ o\);/g' $file;
perl -i -p -e 's/assign.*\n//g' $file;
done
fi
$(...)
sekitar pola globbing nama file Anda. Anda tidak perlu substitusi perintah di sana. Anda juga dapat menggabungkan empat doa Perl untuk satu doa untuk kecepatan.