From b423722fa7fb32bd744ddf7a4baf569846134e1b Mon Sep 17 00:00:00 2001 From: Shawn Boyette Date: Mon, 22 Sep 2008 19:20:01 +0000 Subject: [PATCH] more better --- yaz-cleanup | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/yaz-cleanup b/yaz-cleanup index e16245b..cd6169f 100755 --- a/yaz-cleanup +++ b/yaz-cleanup @@ -10,7 +10,7 @@ $| = 1; my $term = new Term::ReadLine 'yaz-cleanup'; my $OUT = $term->OUT || \*STDOUT; -print $OUT "\nInteractive MARC Stream Editor starting up...\n"; +print $OUT "Interactive MARC Stream Editor starting up\n"; my $count = 0; my $reccount = 0; @@ -54,7 +54,7 @@ while (my $line = getline()) { if ($line =~ m||) { if ($record[-2] =~ m//) { pop @record; pop @record; - print $OUT "Empty datafield scrubbed at line $count\n"; + print $OUT "\rEmpty datafield scrubbed at line $count\n"; next; } } @@ -62,7 +62,7 @@ while (my $line = getline()) { # clean misplaced dollarsigns if ($line =~ m|c?\d+\.\d{2}|) { $line =~ s|"\$">c?(\d+\.\d{2})|"c">\$$1|; - print $OUT "Dollar sign in subfield code corrected at line $count\n"; + print $OUT "\rDollar sign in subfield code corrected at line $count\n"; } # clean up tags with spaces in them @@ -90,7 +90,7 @@ Handles the Term::ReadLine loop sub edit { my ($msg, $line_in) = @_; - print $OUT "\n".$msg, " at line $count:\n"; + print $OUT "\r".$msg, " at line $count:\n"; print_context(); while (1) { my $line = $term->readline('yaz-cleanup>'); -- 1.7.2.5