Andrej Kastrin wrote:
I try your code; now I try to write each potential target in a record
tab separated, like:
TI- xxxxxx HD xxxxx AB- xxxxxxx HD xxxxxxxxx #record 1
TI- yyyyyy AB xxxxx AB- xxxxxxx AB xxxxxxxxx #record 2
etc...
So \t separated within record and \n separated between records. I try with
for my $term (@terms) {
if (/$term/) {
print "$_\t";
s/\n/\t/g;
print "$_\n";
but it's not OK.
You have to do a substitution.
--
Just my 0.00000002 million dollars worth,
--- Shawn
"Probability is now one. Any problems that are left are your own."
SS Heart of Gold, _The Hitchhiker's Guide to the Galaxy_
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
