Hi all, I'm hoping soemone will be able to help me out here. I'm a Perl newbie and I'm using the following code to skip the first 10 lines and any blank lines of an array, then split the individual lines... The problem is that the if ... next code used to skip the first/blank lines does not appear to work. When The code gets to the stage of popping and shifting, it is still working on the first lines of the file. Does anyone know what is causing this? The original code actually came from an O'Reilly book which makes it all the more confusing ! :( Any help would be sincerely appreciated! Cheers in advance, TB34
foreach (@rebasefile) {
   if (/1 .. 10/) {next;}
   if (/^\s*$/)   {next;}

   my @fields = split("",$_);
   $name = shift(@fields);
   $site = pop(@fields);
   $regexp = IUB_to_regexp($site);
   $rebasehash{$name}="$site $regexp";
}
return %rebasehash;
}

[download]

Janitored by Arunbear - added code tags, as per Monastery guidelines

In reply to Cannot skip first lines in array by travisbickle34

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.