«

hi

how can i catch Ctrl-x (or any other letters except 'c' ) in perl ??
thanks..

justme wrote:

> hi
>
> how can i catch Ctrl-x (or any other letters except 'c' ) in perl ??
> thanks..

catch from where? keyboard?

--
John MexIT: http://johnbokma.com/mexit/
personal page: http://johnbokma.com/
Experienced Perl programmer available: http://castleamber.com/
Happy Customers: http://castleamber.com/testimonials.html

justme wrote:

> how can i catch Ctrl-x (or any other letters except 'c' ) in perl ??
> thanks..

perldoc -q signal

sherm--

--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org

Abigail <> wrote in message news:<> ...
> justme () wrote on MMMCMLVI September MCMXCIII in
> <URL:news: gle.com>:
> <> hi
> <>
> <> how can i catch Ctrl-x (or any other letters except 'c' ) in perl ??
> <> thanks..
>
>
> What do you mean by "catching" ctrl-x? Matching with a regex?
>
>
> Abigail

hi

i want to catch from the keyboard. I have looked at perldoc -q signal

$Interrupted = 0; # to ensure it has a value
$SIG{INT} = sub {
$Interrupted++;
syswrite(STDERR, "ouch\n", 5);
}

Does this example catch Ctrl-x?

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On 2004-07-01, justme <> wrote:

> i want to catch from the keyboard. I have looked at perldoc -q signal

perldoc -q signal talks about trapping signals, not catching keystrokes.

> $Interrupted = 0; # to ensure it has a value
> $SIG{INT} = sub {
> $Interrupted++;
> syswrite(STDERR, "ouch\n", 5);
> }
>
> Does this example catch Ctrl-x?

No, it traps SIGINT, which is commonly sent by ctrl-c. IIRC ctrl-x
doesn't normally send a signal, so you can't trap it this way.

Why don't you describe your goal, rather than trying to describe what
you think you want to do? Why are you so concerned with ctrl-x?

- --keith

- --
kkeller-
(try just my userid to email me)
AOLSFAQ=http://wombat.san-francisco.ca.us/cgi-bin/fom

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.3 (GNU/Linux)

iD8DBQFA44FhhVcNCxZ5ID8RAgSfAJwOszJpruEcvk6lD6kgMq SVhWotjwCgjq6C
Ro02Dl1lGYWpTt+NrFDzCAE=
=EM95
-----END PGP SIGNATURE-----

Keith Keller <kkeller-> wrote in message news:<>...
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
>
> On 2004-07-01, justme <> wrote:
>
> > i want to catch from the keyboard. I have looked at perldoc -q signal
>
> perldoc -q signal talks about trapping signals, not catching keystrokes.
>
> > $Interrupted = 0; # to ensure it has a value
> > $SIG{INT} = sub {
> > $Interrupted++;
> > syswrite(STDERR, "ouch\n", 5);
> > }
> >
> > Does this example catch Ctrl-x?
>
> No, it traps SIGINT, which is commonly sent by ctrl-c. IIRC ctrl-x
> doesn't normally send a signal, so you can't trap it this way.
>
> Why don't you describe your goal, rather than trying to describe what
> you think you want to do? Why are you so concerned with ctrl-x?
>
> - --keith
>
> - --
> kkeller-
> (try just my userid to email me)
> AOLSFAQ=http://wombat.san-francisco.ca.us/cgi-bin/fom
>
> -----BEGIN PGP SIGNATURE-----
> Version: GnuPG v1.2.3 (GNU/Linux)
>
> iD8DBQFA44FhhVcNCxZ5ID8RAgSfAJwOszJpruEcvk6lD6kgMq SVhWotjwCgjq6C
> Ro02Dl1lGYWpTt+NrFDzCAE=
> =EM95
> -----END PGP SIGNATURE-----


actually this is what i want:

A user interface to prompt user to continue or use ctrl-x to return to
previous menu.


eg

"Do you accept? [Yn] or Ctrl-x to return to previous"

When the user press Ctrl-x, it will go back to previous page...

something like that....
thanks

On Fri, 2 Jul 2004, justme wrote:

> actually this is what i want:
>
> A user interface to prompt user to continue or use ctrl-x to return to
> previous menu.
>
>
> eg
>
> "Do you accept? [Yn] or Ctrl-x to return to previous"
>
> When the user press Ctrl-x, it will go back to previous page...

CTRL-X has a ordinal representation of 24. (At least it does for me on
the two systems I tried it out - WinXP and Solaris). Here is a solution
based on the documentation previously suggested to you
perldoc -q single


#!/usr/bin/perl
use strict;
use warnings;
use Term::ReadKey;

print "Do you accept? [Yn] or Ctrl-x to return to previous\n";
ReadMode "raw";
my $key = ReadKey 0, *STDIN;
if (ord($key) == 24) {
previousPage;
} elsif ($key =~ /^y$/i){
heSaidYes;
} else {
heSaidNo;
}


Paul Lalli