#!/bin/sh #! -*- perl -*- eval 'exec $PERLLOCATION/bin/perl -x $0 ${1+"$@"} ;' if 0; # assume all files have the form: basename.0001.tif foreach $file (<*.tif>) { ($basename, $frame) = $file =~ /(.*)\.(\d+)\.tif$/; system "txmake $basename.$frame.tif $basename.$frame.tx"; }