Hi Folks,
I've been struggling with this for a couple of hours this morning and it
seems like I'll need some help from the pros.
I have a long file consisting of document numbers. I would like to
insert sequentially a number into records saved in another file I am data
munging through a while loop. The problem I am faced with is
how to instruct the code to insert a single array element and remember
where it left off. For instance,
during the first run, it'll get no 000030004 and insert it in record A,
then no 000030067 for record B, etc. I believe I have to use splice
(splice @array (0,1)), or do ?
I am including a simplified version of my code here for your review. The
defective code is commented. Your help is very much appreciated.
use strict;
use Text::Wrap;
my @doc_num= qw (000030004 000030067 000030068 000030079 000030148
000030294 000030319 000030454 000031100 000031125 000031131 000031140
000031410);
$doc_num_ref = \@doc_num;
my($author,$title,$publisher,$notes,$abstract)=split /\|/,$_;
open (IN,"<l:/intext.txt") or warn "Cannot find specified file: $!\n";
open (OUT,">c:/outtxt.txt") or warn "Cannot create specified file: $!\n";
select (OUT);
while (<IN>){
print "*** DOCUMENT BOUNDARY ***\n";
#&doc_num;
if ($author =~ (/.$/)){
&multi_authors;
}
if ($title =~ (/.$/)){
print "..TI:\n",wrap(" ","","$title"),"\n";
}
if ($publisher =~ (/.$/)){
print "..PU:\n",wrap(" ","","$publisher"),"\n";
}
if ($notes =~ (/.$/)){
print "..NT:\n",wrap(" ","","$notes"),"\n";
}
if ($abstract =~ (/.$/)){
print "..ABST:\n",wrap(" ","","$abstract");
}
}
close (IN);
close (OUT);
sub multi_authors{
$author =~ s/;\s+/;/mg;
@authors = split /;/,$author;
foreach $author(@authors){
print "..AU:\n",wrap(" ","","$author"),"\n";
}
}
#sub doc_num{
#foreach $doc_num (@$doc_num) {
# print "..Document-Number: $doc_num\n";
#}
#}
__END__;
_______________________________________________________
The American Occupational Therapy Foundation (AOTF)
Creating Opportunities through Research and Education
http://www.aotf.org
301.652.2682
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
