#------------------------------------------------------------------------##!../../iw-perl/bin/iwperluse strict;use Fcntl qw(EFAULT :flock);my($ofh, $num);my($sequencefile) = "D:/iw-home/custom/bin/DoNotModifyMe.seq";sysopen(FH, "$sequencefile", O_RDWR | O_CREAT) or die "can't open numfile: $!";# autoflush FH$ofh = select(FH); $| = 1; select ($ofh);flock(FH, LOCK_EX) or die "can't write-lock numfile: $!";$num = <FH> || 0;seek(FH, 0, 0) or die "can't rewind numfile : $!";print FH $num+1, "\n" or die "can't write numfile: $!";truncate(FH, tell(FH)) or die "can't truncate numfile: $!";close(FH) or die "can't close numfile: $!"; chomp $num;print <<END;<substitution><default>ENDprintf ("%08d", $num);print <<END;</default></substitution>END#------------------------------------------------------------------------#
<!-- ============================================ --><item name="ID"> <description>Unique ID</description> <label>ID</label> <text size="10"> <inline command="D:/iw-home/iw-perl/bin/iwperl /iw-home/custom/bin/counter.ipl"/> </text></item><!-- ============================================ -->