Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: question about perl

by Ryszard (Priest)
on Mar 13, 2002 at 00:10 UTC ( #151272=note: print w/ replies, xml ) Need Help??

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; }

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.

Comment on Re: question about perl
Download Code
Re: Re: question about perl
by defyance (Curate) on Mar 13, 2002 at 00:26 UTC
    If you change this:

    my @files = `find . -name "*.pl";

    To this:

    my @files = `find . -name "*.pl"`;

    It will work, but make all of your *.pl files say nothing but #!/usr/local/bin/perl. Thought I'd point that out.

    -- Yes, I am a criminal. My crime is that of defyance.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://151272]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (12)
As of 2015-03-27 18:07 GMT
Find Nodes?
    Voting Booth?

    When putting a smiley right before a closing parenthesis, do you:

    Results (616 votes), past polls