Help for this page

Select Code to Download

Select or download this

sub findLines;
    foreach $line (@data) {
...
                        }
                    }
                }

Select or download this

 
Wed,Jun,13,01:00:29,2012,777,23,0,15,6,0,0,2
Wed,Jun,13,01:01:29,2012,782,18,0,14,3,0,0,1
Wed,Jun,13,01:02:29,2012,787,13,0,10,3,0,0,0