«

having all sorts of problems extracting the data. The file I am
extracting on is library catalog records. For instance sometimes I get
the subject printing in the wrong record, or blank lines between each
subject (some records have more than one subject field)

eg: Author Joe Blow
Title Fishing in a coal mine
SUBJ Fishing
SUBJ Coal mines

I'll get results like this
Author Joe Blow
Title Fishing in a coal mine
SUBJ Fishing

SUBJ Coal mines

I'd like to be able for instance keep things together and then have a
blank line between the last element of the first record and a space
between the start of the next record: Here is the script

my $title;
my $author;
my $call;
my $subj;

for my $line (@lines)
{
$line =~ /TITLE/ and $title = $line;
$line =~ /AUTHOR/ and $author = $line;
$line =~ /CALL/ and $call = $line;
$line =~ /SUBJ/ and $subj = $line;
#$line =~ /did not find/ and print $title,$line,"\n";
$line =~ /PUB/ and print $title,$author,$call,$subj,$line,"\n";

}

On Wed, 02 Feb 2005 01:49:31 -0800, wrote:

> having all sorts of problems extracting the data. The file I am
> extracting on is library catalog records. For instance sometimes I get
> the subject printing in the wrong record, or blank lines between each
> subject (some records have more than one subject field)

It looks to me like you aren't removing the newline from the end of your
input lines. See extra line in code below.

<SNIP>

> my $title;
> my $author;
> my $call;
> my $subj;
>
> for my $line (@lines)
> {

chomp($line); # <-- Will remove newline from end of $line, if present

> $line =~ /TITLE/ and $title = $line;
> $line =~ /AUTHOR/ and $author = $line; $line =~ /CALL/ and $call =
> $line;
> $line =~ /SUBJ/ and $subj = $line;
> #$line =~ /did not find/ and print $title,$line,"\n"; $line =~ /PUB/ and
> print $title,$author,$call,$subj,$line,"\n";
>
> }

<> wrote:

> sometimes I get
> the subject printing in the wrong record, or blank lines between each
> subject


> for my $line (@lines)


The problem must be in the data contained in @lines.

Since you haven't shown us how you are loading @lines, we
cannot help you with your problem.


--
Tad McClellan SGML consulting
Perl programming
Fort Worth, Texas

wrote:

> having all sorts of problems extracting the data. The file I am extracting
> on is library catalog records. For instance sometimes I get the subject
> printing in the wrong record, or blank lines between each subject (some
> records have more than one subject field)

I'm sorry, but this is way to less information to work with. Could you
post some example formatted data you read in? (if @lines is just the sum
of all lines in file)


p

--
http://www.dunkelheit.at/
Thru the darkness of futures past, the magician longs to see.
One chants out between two worlds: Fire, walk with me.
-- Twin Peaks, »Bob«

wrote:

> having all sorts of problems extracting the data. The file I am
> extracting on is library catalog records. For instance sometimes I
> get the subject printing in the wrong record, or blank lines between
> each subject (some records have more than one subject field)
>
> eg: Author Joe Blow
> Title Fishing in a coal mine
> SUBJ Fishing
> SUBJ Coal mines
>
> I'll get results like this
> Author Joe Blow
> Title Fishing in a coal mine
> SUBJ Fishing
>
> SUBJ Coal mines
>
> I'd like to be able for instance keep things together and then have a
> blank line between the last element of the first record and a space
> between the start of the next record: Here is the script
>
> my $title;
> my $author;
> my $call;
> my $subj;
>
> for my $line (@lines)
> {
> $line =~ TITLE and $title = $line;
> $line =~ AUTHOR and $author = $line;
> $line =~ CALL and $call = $line;
> $line =~ SUBJ and $subj = $line;
> #$line =~ /did not find/ and print $title,$line,"\n";
> $line =~ PUB and print $title,$author,$call,$subj,$line,"\n";
>
> }

seems like a similar problem to reading e-mail headers.