Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

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.

Replies are listed 'Best First'.
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 musing on the Monastery: (4)
As of 2020-10-20 14:25 GMT
Find Nodes?
    Voting Booth?
    My favourite web site is:

    Results (210 votes). Check out past polls.