Re: question about perl

in reply to How do I change the shebang line for all perl scripts in a directory

A quick (untested) hack:

#!/usr/bin/perl -w

use strict;

my @files = `find . -name "*.pl"`;
foreach my $file (@files) {

    local*FH;
    open(FH, ">$file");
    my @contents = <FH>;
    $contents[0]="#!/usr/local/bin/perl -w";
    print FH $_ foreach (@contents);
    close FH;

}
[download]

Yup, I'm aware of the bad practice in this script, however, its just a quick hack.

NB: I've taken the liberty to add warnings (-w) to your shebang, and it may break your scripts, although, it shouldnt.. :-)

Update: Fixed typo as per defyance's comment. Please note the "untested" disclaimer.

In Section Seekers of Perl Wisdom