hi amrita,
use if($var1 =~ '\e') inplace of if(var1 eq '\e')
On 6/11/07, Amrita Roy <[EMAIL PROTECTED]> wrote:
Hello,
Actually i m running a process using perl script.so i want to do that if i
press ESC from the keyboard it will come out of the loop n comes out of the
function.I am trying to read the esc character using "\e"but it is not
responding.I have even tried with hex (1B) value of esc charcter but still
it was not respoding .
Here is code snippet:
#!/C:/Perl/bin -w
my $var1;
$var1 = <STDIN>;
if($var1 eq '\e')
{
print "Hello \n";
}
else
{
print "World \n";
}
--
Amrita Roy
Rebaca Technology Pvt Ltd.
Sector 5, Saltlake,
Kolkata
Email : [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
