$SIG{INT} = sub { print "Don't interrupt me while I am interrupting [ ^C ignored ] ":
};
$SIG{USR1} = sub { print " User has sent SIGUSR1 "; };
$SIG{TSTP} = sub { print "[^Z pressed..ignored] \n"; };
-----Original Message-----
From: Josimar Nunes de Oliveira [mailto:[EMAIL PROTECTED]
Sent: Wednesday, March 17, 2004 10:57 AM
To: [EMAIL PROTECTED]
Subject: Fw: traps in perl
To Jayakumar Rajagopal:
What did you say in these "print"? Please, translate the messages and the
meaning of "$SIG":
> > > > $SIG{INT} = sub { print "tamizh vaazhga\n": };
> > > >
> > > > $SIG{USR1} = sub { print " vennai\n"; };
> > > >
> > > > $SIG{TSTP} = sub { print "poda maanga\n"; };
Thanks,
Josimar
[EMAIL PROTECTED]
> ----- Original Message -----
> From: "John W. Krahn" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Wednesday, March 17, 2004 12:28 AM
> Subject: Re: traps in perl
>
>
> > Jayakumar Rajagopal wrote:
> > >
> > > From: John W. Krahn [mailto:[EMAIL PROTECTED]
> > >
> > > Jayakumar Rajagopal wrote:
> > > > $|=1;
> > > >
> > > > $SIG{INT} = sub { print "tamizh vaazhga\n": };
> > > >
> > > > $SIG{USR1} = sub { print " vennai\n"; };
> > > >
> > > > $SIG{TSTP} = sub { print "poda maanga\n"; };
> > > >
> > > > while(1)
> > > >
> > > > {
> > > >
> > > > print "...";
> > > >
> > > > `sleep 1`;
> > >
> > > Why are you running an external program to do something that perl
> > > provides a function for?
> > >
> > > perldoc -f sleep
> > >
> > > > }
> > > >
> > > > __END__;
> > >
> > > Sorry for using shell. I am good in shell,
> >
> > No need to apologize. :-)
> >
> > > but do not know most of
> > > perl. ( O Reilly says you can code perl very well if you know just
> > > 10% of it)
> >
> > Yes, Perl is good that way.
> >
> > > I am a poor person without perldoc.
> >
> > If you have Perl installed on your computer then you should have the
> > documentation installed as well. If not and if you have web access you
> > can use http://perldoc.com/
> >
> > > Also I am new to perl.
> > > ;-(... Anyway I would try better.
> >
> >
> > John
> > --
> > use Perl;
> > program
> > fulfillment
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> > <http://learn.perl.org/> <http://learn.perl.org/first-response>
> >
> >
> >
> >
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
