signal handling sounds interesting! I'll have to play
around with that tommorow, along with Readkey! For
signal handling, will it only go to the report_stats
function if you kill it in some fashion, or will it go
there when the program automatically ends? If it
doesn't, I can just make the end of the prgm, and the
signal handler both call the same function, or
whatever... Well, thanks! This looks really
promising!
--- Will Cottay <[EMAIL PROTECTED]> wrote:
> You might want to look at the CPAN module
> Term::ReadKey. It provides
> for
> non-blocking reads.
>
> Or, you could install a signal handler ie:
>
> $SIG{INT} = \&report_stats;
>
> while (1) {
> ... your website checking code here ...
> }
>
> sub report_stats {
> $SIG{QUIT} = \&report_stats;
> ...Your stat reporting and exit code here
> }
>
> and hit ^C when you want it to report and stop.
>
>
>
> Thomas Jakub wrote:
>
> > --- Adam Carson <[EMAIL PROTECTED]> wrote:
> > > Since you said that you are trying to hit a
> > > webserver until you tell it to stop, you might
> want
> > > it to check for a different condition, such as a
> > > certain number of hits or a timeout, etc. In
> Pascal
> > > there is a getkey function, I don't think Perl
> has
> > > an equivalent though.
> >
> > I got it so it does it for as many iterations as
> you
> > specify, but I was hoping to get it so it could do
> it
> > continiously until someone hits enter. Like,
> maybe I
> > could start it on Friday, sometime, without any
> > concern for how many iterations it does per
> second,
> > and on monday, I can just hit enter to terminate
> it,
> > and get the run time statistics of it, thus far.
> Or
> > maybe just do it until I need to reboot the
> computer -
> > I could just hit enter, and reboot...
> > Anyhow, someone suggested that I do it with
> threads...
> > how would I do this?
> >
> > >
> > > Adam Carson
> > > MIS Department
> > > Berkeley County, SC
> > >
> > > >>> Thomas Jakub <[EMAIL PROTECTED]> 07/12/01
> > > 02:20PM >>>
> > > so... is their a function that won't wait for
> me to
> > > hit enter, and can still get the keys? Or
> rather,
> > > one
> > > that will read only once every time it goes
> through
> > > the while loop?
> > >
> > > --- Adam Carson <[EMAIL PROTECTED]>
> wrote:
> > > > Aaron,
> > > > If you read the rest of my post, I mention
> that
> > > > there is still a problem with the code, ie the
> > > > waiting for STDIN. I was just pointing out
> one
> > > flaw
> > > > in the streamlined version, as it seemed to be
> the
> > > > better way to go for that particular task. I
> too
> > > > read the perldocs and saw the same thing. In
> > > fact,
> > > > I suggested to Thomas that he check them
> regarding
> > > > just that problem. That message also went to
> the
> > > > list.
> > > >
> > > > Regards,
> > > >
> > > > Adam Carson
> > > > MIS Department
> > > > Berkeley County,
> SC
> > > >
> > > > >>> Aaron Craig <[EMAIL PROTECTED]> 07/12/01
> > > > 04:59AM >>>
> > > > At 13:36 11.07.2001 -0400, Adam Carson wrote:
> > > > >--- Adam Carson <[EMAIL PROTECTED]>
> > > wrote:
> > > > > > Gary, you forgot to make it:
> > > > > >
> > > > > > while (1) { # infinite loop
> > > > > > my $c=getc;
> > > > > > last if ord($c) == 10; # last itteration
> if
> > > $c
> > > > > > numerically same as 10
> > > > > > print "blah\n";
> > > > > > }
> > > >
> > > > doesn't $c=getc force the loop to wait for
> input
> > > > from STDIN?
> > > >
> > > > from perldoc
> > > >
> > > > getc FILEHANDLE
> > > > getc
> > > > Returns the next character from the input file
> > > > attached to FILEHANDLE, or
> > > > the undefined value at end of file, or if
> there
> > > was
> > > > an error. If FILEHANDLE
> > > > is omitted, reads from STDIN. This is not
> > > > particularly efficient.
> > > > ***However, it cannot be used by itself to
> fetch
> > > > single characters without
> > > > waiting for the user to hit enter.****
> > > >
> > > > Aaron Craig
> > > > Programming
> > > > iSoftitler.com
> > > >
> > > >
> > >
> > >
> > >
> __________________________________________________
> > > Do You Yahoo!?
> > > Get personalized email addresses from Yahoo!
> Mail
> > > http://personal.mail.yahoo.com/
> > >
> >
> > __________________________________________________
> > Do You Yahoo!?
> > Get personalized email addresses from Yahoo! Mail
> > http://personal.mail.yahoo.com/
>
__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail
http://personal.mail.yahoo.com/
