8 $records{ $count }{'FORM'} || '',
9 $records{ $count }{'USER_ID'} || '',
10 $records{ $count }{'ITEM_ID'} || '',
11 $records{ $count }{'CHRG_LIBRARY'} || '',
12 $records{ $count }{'CHRG_DC'} || '',
13 $records{ $count }{'CHRG_DATEDUE'} || '',
17 print "FORM\tUSER_ID\tITEM_ID\tCHRG_LIBRARY\tCHRG_DC\tCHRG_DATEDUE\n";
19 while (my $line = <>) {
20 chomp $line; $line =~ s/[\r\n]//g;
21 if ($line =~ /DOCUMENT BOUNDARY/) {
22 if (defined $records{ $count }) {
25 $count++; $records{ $count } = {};
27 if ($line =~ /FORM=(.+)/) {
28 $records{ $count }{'FORM'} = $1;
30 if ($line =~ /\.USER_ID\..+\|a(.+)/) {
31 $records{ $count }{'USER_ID'} = $1;
33 if ($line =~ /\.ITEM_ID\..+\|a(.+)/) {
34 $records{ $count }{'ITEM_ID'} = $1;
36 if ($line =~ /\.CHRG_LIBRARY\..+\|a(.+)/) {
37 $records{ $count }{'CHRG_LIBRARY'} = $1;
39 if ($line =~ /\.CHRG_DC\..+\|a(.+)/) {
40 $records{ $count }{'CHRG_DC'} = $1;
42 if ($line =~ /\.CHRG_DATEDUE\..+\|a(.+)/) {
43 $records{ $count }{'CHRG_DATEDUE'} = $1;