Files
pcas/src/cap5/test-cases.pl
T
2010-05-27 14:03:17 +01:00

12 lines
165 B
Perl

grep record BL02I-MO-IOC-02.db |\
grep -v '^#' |\
perl -e '
%h = ();
while(<>){
@a = split /,/;
$a[0] =~ s/record\(//;
$h{$a[0]}=$a[1];
}
print %h;'