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]
