Jeff Thomas wrote:
>
> Hello,
Hello,
> I have over 1000 files that I need to delete the first five lines of text from.
> This needed to be done, like yesterday. I started writting an Applescript to do
> this but ran into a bug with Folder Actions and attached scripts that stopped my
> progress dead. Would someone please show me how this is done with perl.
#!/usr/bin/perl -w
use strict;
use Tie::File;
for my $file ( @ARGV ) {
tie my @array, 'Tie::File', $file or die "Cannot open $file: $!";
splice @array, 0, 5;
untie @array;
}
__END__
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
