Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

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 surveying the Monastery: (8)
As of 2018-08-20 16:12 GMT
Find Nodes?
    Voting Booth?
    Asked to put a square peg in a round hole, I would:

    Results (192 votes). Check out past polls.