removing test.pl
Following up on patch submitted by Colin Campbell, convinced myself that this was a throwaway test script comitted in error. Since it isn't of use otherwise, I've elected to remove it instead of moving it to misc/split_test.pl as Colin proposes. Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
parent
1d0bd7fc59
commit
89fab00e99
1 changed files with 0 additions and 30 deletions
30
test.pl
30
test.pl
|
@ -1,30 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
my $string = $ARGV[0];
|
||||
|
||||
# Getting the marcfields as an array
|
||||
my @marcfieldsarray = split('\|', $string);
|
||||
|
||||
# Separating the marcfields from the the user-supplied headers
|
||||
my @marcfields;
|
||||
foreach (@marcfieldsarray) {
|
||||
my @result = split('=', $_);
|
||||
if (scalar(@result) == 2) {
|
||||
push @marcfields, { header => $result[0], field => $result[1] };
|
||||
} else {
|
||||
push @marcfields, { field => $result[0] }
|
||||
}
|
||||
}
|
||||
|
||||
use Data::Dumper;
|
||||
print Dumper(@marcfields);
|
||||
|
||||
|
||||
foreach (@marcfields) {
|
||||
print $_->{field};
|
||||
}
|
||||
|
||||
|
Loading…
Reference in a new issue