Hello, ALL!. I am new to perl, and am having problems with perl syntax. Im trying to find different ways to construct the same test. Here is the code Im playing with that strips comments from perl code. 


#!/usr/bin/perl -W

if (scalar(@ARGV)) {
    open INP, "<$ARGV[0]" or die "Couldn't open file: [$ARGV[0]] $!\n"
+;
} else {
    print "usage: $0 [filename]\n";
    print "       ex: $0 myfile.pl > newfile.pl ";
    exit(0);
}

READ: while (<INP>) {                                
    # 1: Doesnt Work 
    # next READ if (/^\s*#/) unless (/^#!/);
    # 2: Doesnt Work
    # {next READ if (/^\s*#/)} unless (/^#!/);
    # 3: Doesnt Work
    # if (/^\s*#/) { next READ } unless (/^#!/);
    # 4: Doesnt Work
    # unless (/^#!/) next READ if (/^\s*#/);
    # 5: Does Work 
    unless (/^#!/) {next READ if (/^\s*#/)};
    print;
}

close (INP);

[download]

I am confused how in #4, placing { } around "next READ if (/^\s*#/)" allows perl to parse my code correctly ie #5. But doesnt help in the other cases.


Thanks!
zzspectrez...

In reply to Help with perl syntax by zzspectrez

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.