Need a script to process some files

perl -e 'for (`ls *.ttf`) { s/\.ttf\s*$//; system ("touch $_.pfb") }'

Rick Rosinski <rick@rickrosinski.com> wrote:
> I have too many fonts to process them individually. Does anybody
> have a script handy that will read a directory of *.ttf and run
> an external command that will run "touch <whater>.pfb", basically
> creating empty files - all with .pfb as the extension instead of .ttf?