by susheelm@[EMAIL PROTECTED]
(Susheel Koushik)
Jun 11, 2007 at 07:34 PM
hi amrita,
use if($var1 =~ '\e') inplace of if(var1 eq '\e')
On 6/11/07, Amrita Roy <amritaroy2005@[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 : amrita@[EMAIL PROTECTED]
>
