Help for this page

Select Code to Download


  1. or download this
    perl -pi.bak -e 's[^#!/usr/local/bin/perl][#!/usr/bin/perl]' *.pl
  2. or download this
    perl -pi.bak -e 'BEGIN{$c=@ARGV};s[^#!/usr/local/bin/perl][#!/usr/bin/
+perl] && $c-- if $c> @ARGV' *.pl
  3. or download this
    perl -pi.bak -e 'BEGIN{undef $/};s[^#\!/usr/local/bin/perl][#\!/usr/bi
+n/perl]' *.pl