From f68e1bf564c28571180c1a8f306e18ec16438bfa Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Mon, 27 Nov 2017 17:35:57 -0500 Subject: [PATCH] better regexp for grabbing field names Signed-off-by: Jason Etheridge --- unicorn/unicorn_to_tsv.pl | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/unicorn/unicorn_to_tsv.pl b/unicorn/unicorn_to_tsv.pl index 1fad7d4..c50c32c 100755 --- a/unicorn/unicorn_to_tsv.pl +++ b/unicorn/unicorn_to_tsv.pl @@ -69,7 +69,7 @@ while (<>) { # Looks like we've got some actual data! Let's store it. # FIXME: For large batches of data, we may run out of memory and should store this on disk. - if ( /^\.(.*?).\s+(\|a)?(.*)$/ ) { + if ( /^\.(\S+?)\.\s+(\|a)?(.*)$/ ) { # Build the name of this field (taking note of whether we're in a named section of data) $field = ''; -- 1.7.2.5