in reply to cgi question

I'm not sure I really understand what you're asking for.
I have several questions/comments, though :
  • if you want to split with a pipe, you need to escape the pipe, since the pipe is a special character in regex : split /\t/, $_;
  • $GU doesn't exist; you probably mean $GU_web.
  • structure_name is supposed to be a variable, you forgot "$", and you have a ">" which isn't supposed to be there.
  • What's in your "gly_structures.txt" ? I mean, can there be duplicate $ref_num ?
  • Why do you have this loop for ? 
    $i=1;
while (<info_web>) {
   if (/^(\d+\.\d+)\D/) {$GU_web = $1;}
   if ($i >1) { last;}
   print "$GU_web\n";
   $i++;  
}

    [download]
    You're going through it only twice, assigning what you captured in the regex to $GU_web twice, and printing $GU_web only once.

    • Replies are listed 'Best First'.
    Re^2: cgi question
    by Anonymous Monk on Jun 03, 2005 at 13:53 UTC
      i noticed those variable mistakes after posting. While loop: i only want the first line and pattern match the fist set of digits. I have removed print statement; obviously not applicable in a cgi script. The basic idea is open the first file, N_Stru* 
      /data/190_*
/data/191_* etc

      [download]
      match the numbers, then search the images folder for the number.gif. for each of the images, show these on a web page. printing them by $image which is linked the the <img src code.
    		[reply]
    [d/l]
        If you plan to read only the first line, then you don't need a while loop. Actually, in your loop, $GU_web is assigned twice a value : the first set of digits, and then the second, on the next line, since your "last" statement is done AFTER the assignment (that is, if your file contains digits on several lines : see tlm's answer below to match the digits).
    		[reply]

    In Section Seekers of Perl Wisdom