Help for this page

Select Code to Download


  1. or download this
    foreach (@regexes){
($fileBodyMatch, $decode ) = checkFileBody ($file, $_->{bodyregex});
}
  2. or download this
    open ( DKT, "gunzip -c $filename | ") or die "Can't open pipe to $file
+name\n";
  3. or download this
    while (<DKT>){
 my $line =$_;
#process data in here
}