You're going through it only twice, assigning what you captured in the regex to $GU_web twice, and printing $GU_web only once.$i=1; while (<info_web>) { if (/^(\d+\.\d+)\D/) {$GU_web = $1;} if ($i >1) { last;} print "$GU_web\n"; $i++; }
In reply to Re: cgi question
by Tomtom
in thread cgi question
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |