Masking Private Data

#!/usr/bin/perl -w use strict; my $preserve_date = '2006-09-01'; my %registrations; print < Masking Private Data

Masking Private Data

This script is masking private data in the test data set with a departure date before $preserve_date. Records related to later events are being preserved.

EOF 1; sub parse_date { my ($date_str) = @_; my $date = ParseDate($date_str); $date = substr($date,0,4) . '-' . substr($date,4,2) . '-' . substr($date,6,2); return $date; }