Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
# Now write out the hash to the updated violations file
open my $updated, '>', 'updated.txt' or die;
close $updated;

Select or download this

$ ./violwaiv.pl
  abcd123:
...
    DEBIT:  1000.00
    NOTES:  (VIOLATED)
    UKEY:  klmn124