Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

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?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://366391]
[amitkumarj441]: Hey everyone
[amitkumarj441]: I need to ask a question, where can I post my problem?
[Discipulus]: everyone is me
[Discipulus]: Seekers of Perl Wisdom is the for asking question
[Discipulus]: be sure to use code tags for code and data
[Discipulus]: and to show some effort while asking
[Discipulus]: <code> code and data</code>
[Discipulus]: amitkumarj441 more atention you put asking, more attentio you got in answers

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (6)
As of 2017-04-26 20:21 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (488 votes). Check out past polls.