buffer1 is undefined, and so the line
print OUTFILE "$buffer1";
prints nothing.
A good idea when having problems such as this is to run the program
using
warnings - change your first line to
#!/usr/bin/perl -w
--Nigel
>>> agc 09/03/01 03:31pm >>>
well I solved the thng, but the thing is that I am only reading the very
first line... it is suppouse to read all the lines that the document
have... I know I have a mistake some where but belive me in my head the
if while and so on are on a loop. here is the code
#!/usr/bin/perl
#Cambiar la linea anterior para que corresponsa a su sistema
#ejecutando "which perl" le dice conde esta el ejecutable
unshift (@INC, $ENV{'W2H_POSTPROCESS_PATH'});
require "xxx_cfg.pl"; # config file
$database="test";
# Open input and output files */
open(INFILE,"<$ARGV[0]");
open(OUTFILE,">&STDOUT");
print OUTFILE "Content-type: text/html\n\n";
print OUTFILE "<HTML>\n<HEAD>\n</HEAD>\n<BODY>\n<PRE>\n";
# ReadEnzymeNames(); */
&HorizontalParsing();
print OUTFILE "\n</PRE>\n</BODY>\n</HTML>";
close(INFILE);
close(OUTFILE);
exit(0);
#is
sub Is
{
my ($help)=@_;
if ((length($help)>3) && ($help =~ /^\D/)) {return 1}
else {return 0;}
}
sub HorizontalParsing
{
# skip the header
# seek(INFILE,0,0);
# do
# {
$buffer=<INFILE>;
# return unless defined $buffer;
print OUTFILE $buffer;
$linecounter=5;
# }
while (<INFILE>)
{
$line=$_;
if ($_ =~ /___/)
{
$linecounter=0;
}
else
{
$linecounter=$linecounter+1;
}
if ($linecounter == 2)
{
($enzyme, $datas)=split(" ");
$enzyme2=uc($enzyme);
$xxxCommand=join('','wgetz?-e+[',$database,'-ID:',$enzyme2,']');
printf OUTFILE "<A
href=\"%s/%s\">%s</A>",$xxx,$xxxCommand,$enzyme2;
}
else
{
# print ($enzyme2 \n";
}
}
print OUTFILE "$buffer1";
}
it must read file locate _____ count two ine after and place a link
there
and keep reading....... please pase!! it is driving me crezy!!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Coming up tonight on ITV1 and ITV Digital:
* The search for a new soap family. Soapstars - 9.30pm ITV1
* Don't miss George Clooney in the hilarious 'O Brother, Where Art Thou?' - from 12
noon, ITV Select
***************************************
This E-mail message, including any attachments, is intended only for the person or
entity to which it is addressed, and may contain confidential information.
If you are not the intended recipient, any review, retransmission, disclosure,
copying, modification or other use of this E-mail message or attachments is strictly
forbidden.
If you have received this E-mail message in error, please contact the author and
delete the message and any attachments from your computer.
You are also advised that the views and opinions expressed in this E-mail message and
any attachments are the author's own, and may not reflect the views and opinions of
ITV Digital Plc, 346 Queenstown Rd, London SW8 4DG. Reg No. 3302715
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
