[10326] in Perl-Users-Digest
Perl-Users Digest, Issue: 3919 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Oct 7 15:07:52 1998
Date: Wed, 7 Oct 98 12:01:44 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 7 Oct 1998 Volume: 8 Number: 3919
Today's topics:
Re: Opening Perl documentation (Kevin Reid)
Re: Opening Perl documentation <r_larsen@image.dk>
Perl 5.005_02 Compiling ERRORS <weitz@goya.informatik.rwth-aachen.de>
Re: Perl reg exp more reliable than sed? scott@softbase.com
Re: Perl reg exp more reliable than sed? (Larry Rosler)
Re: Perl Robots <rcpowerpro@geocities.com>
Perl-based script for a metasearch engine (Jonathan Murphy)
please Help with perl code !!!! nguyen.van@imvi.bls.com
Re: please Help with perl code !!!! (Steve Linberg)
Re: Problems Using a Compare Subroutine with Sort <jdporter@min.net>
Re: Problems Using a Compare Subroutine with Sort <jdporter@min.net>
Re: scope of my using () (Mark-Jason Dominus)
Re: Shopping Cart Systems richie9976@my-dejanews.com
Sorry for the double post, Damn DejaNews baillie@my-dejanews.com
Re: SSI <rootbeer@teleport.com>
tail like function? baillie@my-dejanews.com
Re: tail like function? (Mark-Jason Dominus)
Re: Text Submission in Data Capture boxes (Steve Linberg)
Re: Timing An LWP get request <rootbeer@teleport.com>
Re: Timing An LWP get request (Larry Rosler)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 7 Oct 1998 13:19:19 -0400
From: kpreid@ibm.net (Kevin Reid)
Subject: Re: Opening Perl documentation
Message-Id: <1dgj1jt.1nmxpls6g8oowN@slip-32-100-246-56.ny.us.ibm.net>
Mark-Jason Dominus <mjd@op.net> wrote:
> In article <1dgi1y4.1rhqn7q5gm2coN@slip-32-100-246-124.ny.us.ibm.net>,
> Kevin Reid <kpreid@ibm.net> wrote:
> >I think it would be useful to have a way to open up a given section of
> >the Perl documentation (or the documentation for a particular module)
> >built into the standard Perl distribution; perhaps like this:
> > ...
>
> Let us know when you get it finished!
Here is the code.
(In order for this module to be useful, it must become part of the
standard distribution.)
package Help;
require Exporter;
@ISA = Exporter;
@EXPORT = qw(help);
use strict;
use vars qw($VERSION);
$VERSION = 0.10;
=head1 Help - Display Perl documentation
=head2 Why should I use Help?
You shouldn't. Help is for answering questions about Perl.
It is common practice on the comp.lang.perl.* newsgroups to,
if a question is answered in the Perl documentation, respond
with something like:
RTM.
'perldoc perlsyn'.
Unfortunately, this assumes you're running an operating
system that has a command line and perldoc. With Help, you
can instead say:
RTM.
use Help;
help 'perlsyn';
and it will work on all operating systems.
=head2 *!* IMPORTANT *!*
This module is not yet complete - it does not work on all
operating systems. If you know how to display Perl's help
on your system, please tell me so I can incorporate it into
this module.
=head2 Functions
=over
=item help STR
Displays help for a given string, for example:
use Help;
help 'perlfunc'; # Perl docs
help 'split'; # particular function
help '=~'; # or operator
help 'File::Find'; # standard module
help 'Interpolation'; # other module
=cut
sub help {
my ($str) = @_;
&{{
'MacOS' => sub {
my ($mod, $where, $ic, %help);
($mod = $str) =~ s|::|/|g; $mod .= '.pm';
eval "require '$mod'";
if (!$@) {
$where = $INC{$mod};
} elsif (-e "$ENV{MACPERL}pod:$str.pod") {
$where = "$ENV{MACPERL}pod:$str.pod";
} else {
require DB_File;
require Fcntl;
tie(%help, 'DB_File', "$ENV{MACPERL}MacPerl Help",
Fcntl::O_RDONLY(), 0) or die $!;
if (defined($help{$str})) {
($where = $help{$str}) =~ s|^pod:|$ENV{MACPERL}|;
$where =~ tr|/|:|;
}
}
if (!$where) {
MacPerl::Answer("Cannot find $str.");
exit;
} else {
require Mac::InternetConfig;
Mac::InternetConfig->import();
$ic = ICStart();
ICGeneralFindConfigFile($ic);
ICLaunchURL($ic, 0, "pod:///$where");
ICStop($ic);
}
},
}->{$^O} || sub {
system "perldoc $str"; # untested because I don't use Unix.
}};
}
=back
=head2 Author
This module was written by Kevin Reid <kpreid@kagi.com>.
Thanks to Chris Nandor for MacPerl help code.
=cut
__END__
--
Kevin Reid. | Macintosh.
"I'm me." | Think different.
------------------------------
Date: Wed, 07 Oct 1998 21:04:51 +0100
From: R. A. Larsen <r_larsen@image.dk>
Subject: Re: Opening Perl documentation
Message-Id: <VA.00000065.004750e6@octo>
kpreid@ibm.net (Kevin Reid) wrote:
>
> I have noticed that, when somebody asks a question that is answered in
> the Perl documentation, often the 'perldoc' command is mentioned.
> Unfortunately, AFAIK, perldoc is specific to UNIX; e.g. if you're using
> MacPerl, you have to launch Shuck instead.
perldoc works fine with Windows 95. In fact here perldoc is a batchfile
acting as a wrapper around a perl program. It is a command line tool
though (just like perl).
Reni
--
Using Virtual Access
http://www.vamail.com
------------------------------
Date: Wed, 07 Oct 1998 19:20:03 +0200
From: Detlef Weitz <weitz@goya.informatik.rwth-aachen.de>
Subject: Perl 5.005_02 Compiling ERRORS
Message-Id: <361BA2C2.B156FF87@goya.informatik.rwth-aachen.de>
I got the message while running make as follows:
`sh cflags libperl.a perlio.o` perlio.c
CCCMD = gcc -DPERL_CORE -c -I/usr/local/include -I/opt/local/include
-I/opt/gnu/include
-I/opt/gnu/gcc-2.7.2.3/lib/gcc-lib/sparc-sun-solaris2.5/2.7.2.3/include
-O
rm -f libperl.a
ar rcu libperl.a perl.o malloc.o gv.o toke.o perly.o op.o regcomp.o
dump.o util.o mg.o byterun.o hv.o av.o run.o pp_hot.o sv.o pp.o scope.o
pp_ctl.o pp_sys.o doop.o doio.o regexec.o taint.o deb.o universal.o
globals.o perlio.o
gcc -L/usr/local/lib -L/opt/local/lib -L/opt/gnu/lib -o miniperl
miniperlmain.o libperl.a -lsocket -lnsl -ldb -ldl -lm -lc -lcrypt
Undefined first referenced
symbol in file
PL_thrsv libperl.a(malloc.o)
pthread_getspecific libperl.a(malloc.o)
PL_malloc_mutex libperl.a(malloc.o)
PL_thr_key libperl.a(malloc.o)
PL_threadnum libperl.a(malloc.o)
ld: fatal: Symbol referencing errors. No output written to miniperl
make: *** [miniperl] Error 1
444.43u 103.80s 11:54.63 76.7%
How can I get these Undefined symbols, or what is wrong ?
Please help !!
Thnax !
--
+=================================================================+
| Detlef Weitz : (Lehrstuhl fuer Informatik V |
| RWTH Aachen / BSCW - Serverbetreuung) |
| |
| email : weitz@i5.informatik.rwth-aachen.de |
| phone : +49-241-80-21512 ( ONLY if important ) |
| : +49-241-80-21501 ( Sekr. ) |
| office : R 6241 (Rechnerraum) |
| postal address: RWTH Aachen |
| Lehrstuhl Informatik V |
| Ahornstr.55 |
| 52072 Aachen (Germany) |
+=================================================================+
------------------------------
Date: 7 Oct 1998 17:51:22 GMT
From: scott@softbase.com
Subject: Re: Perl reg exp more reliable than sed?
Message-Id: <361baa1a.0@news.new-era.net>
koji kiyokawa (koji.kiyokawa@which.net) wrote:
> Recently I had to remove a whole bunch of null characters from a
> file:
> sed 's/\0//' filename
> But this actually removed some zeros too.
> Is there a logical explanation to this?
I didn't know sed supported C escape characters. Does it? I did not
know sed allowed you to work with binary data period, not like Perl
does. Sed processes strings like vi, doesn't it?
If not, it probably *was* zapping 0s, and any NULLs it
removed was coincidental.
But I haven't used sed in a long time.
Scott
--
Look at Softbase Systems' client/server tools, www.softbase.com
Check out the Essential 97 package for Windows 95 www.skwc.com/essent
All my other cool web pages are available from that site too!
My demo tape, artwork, poetry, The Windows 95 Book FAQ, and more.
------------------------------
Date: Wed, 7 Oct 1998 11:55:54 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Perl reg exp more reliable than sed?
Message-Id: <MPG.108559142c929459897f2@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy mailed.]
In article <6vft4p$hk6$1@news.uk.ibm.com> on Wed, 7 Oct 1998 15:33:54
+0100, koji kiyokawa <koji.kiyokawa@which.net> says...
...
> Also, if I wanted to zap out all foreign characters (those european
> o's and a's with two dots on top etc) is there a list of control codes for
> them??
Simplest way: just get rid of all characters that have the high-order
bit set. That leaves only the ASCII seven-bit character set.
tr/\x80-\xFF//d;
If you want a detailed list of codes, search the Web for the ISO 8859-1
Latin-1 character set.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 7 Oct 1998 14:03:40 -0400
From: "Chris \"HTMLpro\" Alas" <rcpowerpro@geocities.com>
Subject: Re: Perl Robots
Message-Id: <6vgacs$bar$1@news-1.news.gte.net>
I am!! That sounds really cool.
Although, I'm not skilled in Perl, CGI, C+,C++ or any other languages, I can
still make great web pages. If you need one for this idea, let me know.
here's my lego page: http://legobotics.hypermart.net/frames.html
------------------------------
Date: Wed, 07 Oct 1998 17:48:25 GMT
From: jmurphy@nospam.com2000.net (Jonathan Murphy)
Subject: Perl-based script for a metasearch engine
Message-Id: <jmurphy-ya02408000R0710981346320001@news.com2000.net>
Is there a Perl-based script for a metasearch engine?
I want to incorporate this into Links search directory engine.
Thanks,
Jmurphy
------------------------------
Date: Wed, 07 Oct 1998 18:05:55 GMT
From: nguyen.van@imvi.bls.com
Subject: please Help with perl code !!!!
Message-Id: <6vgai3$8ge$1@nnrp1.dejanews.com>
Below is my original message:
> In article <6v2p2i$aa6$1@nnrp1.dejanews.com>, nguyen.van@imvi.bls.com wrote:
> I have a problem with code. I think that it's supposed to work based on my
> logical but don't know why the program just stopped at the middle. Following
> is my codes.
>
> -----------------------------------------------------------------
> ----------------------------------------------------------------- #!
> /opt/bin/perl -w print "Please enter access files to process: "; while (<>) #
> read a list of serires access files from the command line. { chomp $_; # cut
> the new line character "\n". @FILES = split (" ", $_); # split spaces
> between the files from input and # make the input to be an array. foreach
> $file (@FILES) # read one file from input at a time. { print "$file\n" if
> (-e $file); # print the output, one file per line print "$file doesn't exist
> \n" if (!-e $file);
>
> #The following process can be done by using File:Copy module #Next time,
> better use this module next time for speed. #The below code lines are used
> to open a file and cp to another.
>
> open (IN, $file) or die "couldn't open $file: $!";
> open (OUT, ">>trunc_file") or die "couldn't create trunc_file:
> $!";
>
> foreach $each_line (<IN>)
> {
> print OUT $each_line if ($each_line =~ /crno=/);
>
> }
>
> close (IN) or die "couldn't close $FILE: $!";
> close (OUT) or die "couldn't close $trunc_file: $!";
> }
> } #THE PROGRAM JUST STOPPED RIGHT HERE. IF RUN ONLY THE BELOW CODES, PROGRAM
> #WORK WELL. ANYTHING IS WRONG WITH THIS? ANY BETTER SUGESSTIONS.
> open (HANDLE_TRUNC, "trunc_file") or die "Couldn't open trunc_file: $!";
> open (HANDLE_AOL, ">aol_out") or die "couldn't create aol_out: $!"; open
> (HANDLE_MSIE, ">msie_out") or die "couldn't create msie_out: $!"; open
> (HANDLE_NETSCAPE, ">netscape_out") or die "couldn't create netscape_out: $!";
>
> foreach (<HANDLE_TRUNC>)
> {
> printf HANDLE_AOL ("%10s %7s\n" ,$1, $2) if ( $_ =~
> /\b(crno=\d{2,})\b.*\b(AOL\s\d\.\d+)\b/);
> printf HANDLE_MSIE ("%10s %7s\n" ,$1, $2) if ( $_ =~
> /\b(crno=\d{2,})\b.*\b(MSIE\s\d\.\d+)\b.*\b/ and !/(AOL)\s\d\.\d+/);
> printf HANDLE_NETSCAPE ("%10s %7s\n" ,$1, $2) if ( $_ =~
> /\b(crno=\d{2,})\b.*\b(Mozilla\/\d\.\d+)\b/ and !/(AOL|MSIE)\s\d\.\d+/);
> }
>
> close ( HANDLE_TRUNC) or die "couldn't close new_file: $!";
> close ( HANDLE_AOL ) or die "couldn't close aol_out: $!";
> close ( HANDLE_MSIE ) or die "couldn't close msie_out: $!";
> close ( HANDLE_NETSCAPE ) or die "couldn't close netscape_out: $!";
> exit;
>
Thanks
Van Nguyen
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 07 Oct 1998 14:58:21 -0500
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: please Help with perl code !!!!
Message-Id: <linberg-0710981458210001@ltl1.literacy.upenn.edu>
In article <6vgai3$8ge$1@nnrp1.dejanews.com>, nguyen.van@imvi.bls.com wrote:
> Below is my original message:
<gnarly, bizarrely-wrapped code snipped>
You'll probably get better responses if you clean up your code so it's
readable before posting it.
_____________________________________________________________________
Steve Linberg National Center on Adult Literacy
Systems Programmer &c. University of Pennsylvania
linberg@literacy.upenn.edu http://www.literacyonline.org
------------------------------
Date: Wed, 07 Oct 1998 14:47:22 -0400
From: John Porter <jdporter@min.net>
Subject: Re: Problems Using a Compare Subroutine with Sort
Message-Id: <361BB73A.B0220725@min.net>
Michal Rutka wrote:
>
> This is perl, version 5.004
>
> 4294967295
> is positive
>
> Bingo.
>
> So, John you have to add require 5.004 to your code.
>
> We see that it was not a problem with my machine (as John suggested),
> but with the version of perl.
I have to confess that I am very relieved that this has been
resolved. I don't have so many versions of Perl to play with! :-)
--
John "Many Jars" Porter
baby mother hospital scissors creature judgment butcher engineer
------------------------------
Date: Wed, 07 Oct 1998 14:50:27 -0400
From: John Porter <jdporter@min.net>
Subject: Re: Problems Using a Compare Subroutine with Sort
Message-Id: <361BB7F3.7B7F7619@min.net>
droby@copyright.com wrote:
>
> Actually, I think the RFCs have usually referred to the address as
> 4 octets. The Arpanet prior to about 1980 had 3 octet addresses.
> IP addresses were around back when the use of a 32-bit integer was
> a rather new idea and many minicomputers were still 16-bit machines.
> So it wasn't a word.
>
> As such, there is a good deal of sense in sorting them as strings in their
> packed form.
There is a compelling logic to that.
Of course, even that makes two critical assumptions:
1. characters are the same size as octets;
2. characters are unsigned.
--
John "Many Jars" Porter
baby mother hospital scissors creature judgment butcher engineer
------------------------------
Date: 7 Oct 1998 14:45:46 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: scope of my using ()
Message-Id: <6vgcsq$jhs$1@monet.op.net>
In article <6vg3s0$l3n$0@206.165.146.112>, AmD <due@whitecrow.net> wrote:
> Thanks for the reply. What I am trying to discover is whether my
>subroutine successfully creates a hash.
Why? To what end? What are you really trying to accomplish?
>In my script the hash is returned as undefined if
Stop saying that; you'll only confuse yourself. `defined' is
meaningless for hashes.
>should I ...
I don't understand what you really want, so I can't come up with any
advice that is likely to be correct for your situation.
I suspect that you have a misconception about how hashes work, but I'm
not sure, because your article never actually says what you expect; it
only implies it.
Sometimes in situations like this is is useful to show some code and
say ``This code does X; I thought it would do Y.''
------------------------------
Date: Wed, 07 Oct 1998 17:32:45 GMT
From: richie9976@my-dejanews.com
Subject: Re: Shopping Cart Systems
Message-Id: <6vg8ju$437$1@nnrp1.dejanews.com>
I have one available for FREE at http://www.dial411.com
In article <35FF3472.2871@mediakitchen.ca>,
phil@mediakitchen.ca wrote:
> Hi,
>
> Does anyone know where i would be able to find any kind of free perl/cgi
> shopping cart systems, on the internet???
>
> THANKS
> PHIL =)
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Wed, 07 Oct 1998 17:18:22 GMT
From: baillie@my-dejanews.com
Subject: Sorry for the double post, Damn DejaNews
Message-Id: <6vg7os$55$1@nnrp1.dejanews.com>
Sorry, the second was an improvement anyway.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 07 Oct 1998 18:15:13 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: SSI
Message-Id: <Pine.GSO.4.02A.9810071113080.4710-100000@user2.teleport.com>
On Tue, 6 Oct 1998, brettr wrote:
> Does anyone know what I should be looking for with this message [an
> error occurred while processing this directive] ?
Yes; if your server is telling you that, you should check the docs, FAQs,
and newsgroups about servers (or your particular server) to find out why.
Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 07 Oct 1998 16:47:09 GMT
From: baillie@my-dejanews.com
Subject: tail like function?
Message-Id: <6vg5uc$pc6$1@nnrp1.dejanews.com>
Could anyone tell me how to go about creating a tail like routine. I'm
writing my first program and I'm trying to sift through another program's
output in order to get some stats on the amount of a backup that's been
completed, etc. The backup program builds clusters and prints how much of the
backup is complete in KB's at the onset of each cluster build. What I would
like to do is convert that to a visual/percentage, by taking the last printed
"Kbytes stored" and pulling out the number of KB's. and dividing that by the
"Kbytes to store" at the top of the output. I'm a little stumped with
this...sucks to be a newbie. FYI, here's what I'm looking to create:
********************************************************************************
<machine name> amount to store = foo MB
amount stored = bar MB
====================================================>
(Eventually)Estimated Time Remaining: 126 minutes Opcard is 62% complete
Average store speed: 902 KB per second
********************************************************************************
And this is what I have so far, which is not working..help please
--By the way, I'm not in college, this isn't some school thing
#!/usr/local/bin/perl -w
use strict;
if($ARGV[0] ne "") {
$host=$ARGV[0];
system "rsh $host alex-sched -LP 0 > /tmp/opck.cache";
} else {
$host='localhost';
system "alex-sched -LP 0 > /tmp/opck.cache";
}
open(FILE, "/tmp/opck.cache") or die "Can't access file: $!";
$i=0; while(<FILE>) { if($line =~ /^"Total Bytes to Backup"/) { # Will be
Total Bytes..: 1288 $to_store=$line; # or maybe $to_store=
grep /[0-9]*/ $line ??? $to_store =~ /[0-9]*/; chomp($to_store);
$to_store/=1024; last; } while(defined($line =~ /^"Current KBytes
Stored"/)) { chomp($line); $store_array[$i]=$line; $store_array[$i] =~
/[0-9]*/; $i++; } }
close(FILE) or die "Couldn't close cache file: $!";
$amount_stored=$store_array[$#store_array];
$screen_width=`tput cols`;
$equal_signs=($amount_stored/$to_store)*$screen_width;
$total=($amount_stored/$to_store)*100;
$cntr=2;
$avcntr=0;
undef(@store_array);
print "\n\t\t$host amount to store\t=\t$to_store/1024 MB\n";
print "\t\tamount stored\t\t=\t$amount_stored/1024 MB\n\n";
while($cntr<=$equal_signs) {
print ">\n";
print "Opcard store is $total% complete";
unlink(FILE);
print "=";
$cntr++;
}
Sorry if that was screwed or something, I've only read "Learning Perl", so I
still have a lot of learning left to do.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 7 Oct 1998 14:49:59 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: tail like function?
Message-Id: <6vgd4n$jit$1@monet.op.net>
In article <6vg5uc$pc6$1@nnrp1.dejanews.com>, <baillie@my-dejanews.com> wrote:
>Could anyone tell me how to go about creating a tail like routine.
#!/usr/bin/perl
# -*- perl -*-
#
# ticker: watch progress of one or more files
# Copyright 1998 M-J. Dominus (mjd@pobox.com)
# Usage: ticker [-l] filename...
# -l: monitor progress in lines / otherwise, in bytes
use FileHandle;
$| = 1;
require 'getopts.pl';
&Getopts('l');
@files = @ARGV;
foreach $f (@files) {
my $fh = new FileHandle;
if (open $fh, "< $f") {
push @fhs, [$f, $fh, 0];
} else {
warn "Couldn't open file `$f': $!; ignoring.\n";
}
}
die "Couldn't open any files; aborting" unless @fhs;
for (;;) {
$change = 0;
foreach $item (@fhs) {
my ($fn, $fh, $fl, $fs) = @$item;
$b = 0;
seek $fh, 0, 1;
while (<$fh>) {
if ($opt_l) {
$b++;
} else {
$b += length;
}
}
$fl += $b;
if ($b) {
$ns = "$fn: $fl ";
print $ns;
$change = 1;
$item->[2] = $fl;
$item->[3] = $ns;
} else {
print $fs;
}
}
sleep 5 unless $change;
print "\r";
}
------------------------------
Date: Wed, 07 Oct 1998 15:00:49 -0500
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: Text Submission in Data Capture boxes
Message-Id: <linberg-0710981500490001@ltl1.literacy.upenn.edu>
In article <361BA2AA.DC30A28F@connectnet.com>, pplnet1@connectnet.com wrote:
> We have just finished an html form for our site visitors
> (attached)
You can't attach to USENET posts.
<cgi question snipped
> Could you point me in the right direction ?
comp.infosystems.www.authoring.cgi
_____________________________________________________________________
Steve Linberg National Center on Adult Literacy
Systems Programmer &c. University of Pennsylvania
linberg@literacy.upenn.edu http://www.literacyonline.org
------------------------------
Date: Wed, 07 Oct 1998 18:02:30 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Timing An LWP get request
Message-Id: <Pine.GSO.4.02A.9810071100200.4710-100000@user2.teleport.com>
On Tue, 6 Oct 1998, Joel Rosenberg wrote:
> From: Joel Rosenberg <jhr@best.com>
> Reply-To: 4196, Oak, Hill, Ave, Palo, Alto, CA, 94306
I don't _think_ that that's what you want...
> Is there a way to time the get request and move on if it takes more
> than the time allotted and I don't have to kill the program?
Yes; see section eight of the FAQ. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 7 Oct 1998 11:21:20 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Timing An LWP get request
Message-Id: <MPG.108550ff363b86f19897f1@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy mailed.]
In article <Pine.GSO.4.02A.9810071100200.4710-100000@user2.teleport.com>
on Wed, 07 Oct 1998 18:02:30 GMT, Tom Phoenix <rootbeer@teleport.com>
says...
> On Tue, 6 Oct 1998, Joel Rosenberg wrote:
...
> > Is there a way to time the get request and move on if it takes more
> > than the time allotted and I don't have to kill the program?
>
> Yes; see section eight of the FAQ. Hope this helps!
This FAQ says to use the 'alarm' unction. What does one do using a
system that does not have 'alarm' implemented?
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 3919
**************************************
