8 $records{ $count }{'FORM'} || '',
9 $records{ $count }{'USER_ID'} || '',
10 $records{ $count }{'ITEM_ID'} || '',
11 $records{ $count }{'BILL_LIBRARY'} || '',
12 $records{ $count }{'BILL_DB'} || '',
13 $records{ $count }{'BILL_AMOUNT'} || '',
14 $records{ $count }{'BILL_REASON'} || '',
18 print "FORM\tUSER_ID\tITEM_ID\tBILL_LIBRARY\tBILL_DB\tBILL_AMOUNT\tBILL_REASON\n";
20 while (my $line = <>) {
21 chomp $line; $line =~ s/[\r\n]//g;
22 if ($line =~ /DOCUMENT BOUNDARY/) {
23 if (defined $records{ $count }) {
26 $count++; $records{ $count } = {};
28 if ($line =~ /FORM=(.+)/) {
29 $records{ $count }{'FORM'} = $1;
31 if ($line =~ /\.USER_ID\..+\|a(.+)/) {
32 $records{ $count }{'USER_ID'} = $1;
34 if ($line =~ /\.ITEM_ID\..+\|a(.+)/) {
35 $records{ $count }{'ITEM_ID'} = $1;
37 if ($line =~ /\.BILL_LIBRARY\..+\|a(.+)/) {
38 $records{ $count }{'BILL_LIBRARY'} = $1;
40 if ($line =~ /\.BILL_DB\..+\|a(.+)/) {
41 $records{ $count }{'BILL_DB'} = $1;
43 if ($line =~ /\.BILL_AMOUNT\..+\|a(.+)/) {
44 $records{ $count }{'BILL_AMOUNT'} = $1;
46 if ($line =~ /\.BILL_REASON\..+\|a(.+)/) {
47 $records{ $count }{'BILL_REASON'} = $1;