Hello, When reading from <STDIN> like that, you're going to want to use chomp to remove the \n line character at the end of what the user inputs. Right now, you're actually doing a match for "$build\n".
So, you could change "$build=<STDIN>;" to "chomp($build=<STDIN>);" or even "chomp($build=<>);". HTH. -Dave On Wednesday 21 November 2001 09:32 am, Prasanthi Tenneti wrote: > Hi, > Iam unable to debug this code. > pls help me. > here is the code : > > open(FILE,"build.txt") ||die "cannot open \n"; > print "select which build you want to enter\n"; > $build=<STDIN>; > while(<FILE>) > { > if(/$build/) > { > print "you selected $build\n"; > #here it should print next 3 0r 4 lines until space comes > } > else > { > print "$build is not found\n"; > } > } > > If build1 is found it should print next 3 lines (or till space comes) > > for ex build.txt file : > build1 > rpm_1; > rpm_2; > qwe_3; > > build2 > qwe-1; > asd_2; > asd_3; > > if I selected build1 ,it should print rpm_1 to qwe_3 > cheers, > prasanthi. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]