Monday, December 03, 2001, 8:14:48 PM, Wright, Thomas wrote:
WT> When I do this in Perl thusly:
WT> $oldfile = `system "ls -1r $oldfile.\*.orig | head -1"`;
you want to use system *or* backticks, not both.
$oldfile = `ls|head`;
should do the trick
here's something that will do it just in perl. very naive though -
it's going to call stat() about a million times (which is bad)
$oldfile = (sort { (stat $b)[9] <=> (stat $a)[9] } <*> )[0];
i'd say that if you're happy with the shell way then stick with it -
it's going to make far more sense to you, and whoever has to maintain
the script later.
--
Best regards,
Daniel mailto:[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
