Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Comment Stripper script for unix

by Zaxo (Archbishop)
on Jun 14, 2004 at 02:49 UTC ( #366391=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    -if ( $us eq "ee" ) { $comm = ';'; } else { $comm = '#'; }
    +if ( $us eq "ee" ) { $comm = ';'; } else { $comm = '
    
  2. or download this
    -   die(&pwarn($comm)) if $topline =~ /\#\!.*perl/i ;
    +   die(&pwarn($comm)) if $topline =~ /\
    
  3. or download this
    -     if ( $topline =~ /(\s+)\#\!/ ) {
    +     if ( $topline =~ /(\s+)\
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (12)
As of 2014-09-17 20:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (99 votes), past polls