Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
        my @pages = split(/\+\+/, $_);
        my @SonarData = ();
        my %DOWN = ();
  2. or download this
    C:\src\perl\perlmonks\636961>perl -wc 636961.pl
"my" variable @pages masks earlier declaration in same scope at 636961
+.pl line 17.
String found where operator expected at 636961.pl line 220, near "$  p
+rint "@SonarData\n""