Re: Help on reading esc sequence

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]
>