From 89fab00e996282b07980fce0cfee5bbf93f0b604 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Wed, 10 Feb 2010 06:27:30 -0500 Subject: [PATCH] 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 --- test.pl | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100644 test.pl diff --git a/test.pl b/test.pl deleted file mode 100644 index e4bab7b420..0000000000 --- a/test.pl +++ /dev/null @@ -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}; -} - - -- 2.39.5