Help for this page

Select Code to Download


  1. or download this
    my @customerarray = ( ... );

...
open FH, '>', "$cuslist.tmp" or die "Can't open $cuslist.tmp: $!";
print FH "$_\n" for @keep;
close FH;
  2. or download this
    open FH, '>', "$cuslist.tmp" or die "Can't open $cuslist.tmp: $!";
print FH "$_\n" for grep { time - split '::', $_)[2] <= 15*24*60*60 } 
+@customerarray;
close FH;