[29676] in Perl-Users-Digest
Perl-Users Digest, Issue: 920 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 9 16:09:45 2007
Date: Tue, 9 Oct 2007 13:09:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 9 Oct 2007 Volume: 11 Number: 920
Today's topics:
Re: FAQ 5.17 How can I open a file with a leading ">" o <bik.mido@tiscalinet.it>
ISALPHA fred78980@yahoo.com
Re: ISALPHA <glex_no-spam@qwest-spam-no.invalid>
Re: ISALPHA <dummy@example.com>
Re: line 16 <bik.mido@tiscalinet.it>
pasting done twice <lerameur@yahoo.com>
Re: pasting done twice <lerameur@yahoo.com>
Re: pasting done twice <lerameur@yahoo.com>
Re: pasting done twice <glex_no-spam@qwest-spam-no.invalid>
Problem with SOAP::Lite info@xperience-webdevelopment.nl
Re: Problem with SOAP::Lite <glex_no-spam@qwest-spam-no.invalid>
Re: Profiling Perl with better granularity than Devel:: <clint.olsen@gmail.com>
Re: Profiling Perl with better granularity than Devel:: <ben@morrow.me.uk>
Re: Should an empty regex match everything <bik.mido@tiscalinet.it>
Re: Should an empty regex match everything <bik.mido@tiscalinet.it>
Re: threads, Sys::SigAction, alarm, timeout <LovingFox@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 09 Oct 2007 13:53:24 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: FAQ 5.17 How can I open a file with a leading ">" or trailing blanks?
Message-Id: <l7qmg3l3fq775gg1j903nc3fpehp11fknt@4ax.com>
On Tue, 09 Oct 2007 00:50:06 -0700, Joe Smith <joe@inwap.com> wrote:
>> 5.17: How can I open a file with a leading ">" or trailing blanks?
>>
>> Unless you have a particular reason to use the two argument form ...
>
>It's probably worth mentioning one good reason for using the two
>argument form, and that is if your program is documented to accept
>a filename of "-" to read from STDIN.
IMHO that's OT wrt this faq entry and better apt for another one, i.e.
"Why should I use the three args form of open()?" (I don't know if it
actually exists.)
As far as your comment is concerned, two things can be said:
(i) one can have his program documented to accept a filename of '-' to
read from STDIN and reimplement some of the features of two args
open() manually. I say some because the latter does more than what you
say. For example you can give a program on the command line, with a
pipe, and one may want the '-' feature but not this other one.
(ii) if one wants that he may use the ARGV magic filehandle which uses
the two args form behind the curtains: when I find that behaviour
appropriate, I do @ARGV hacks all the time. But I seldom feel the need
for explicit two args open()s.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Tue, 09 Oct 2007 11:50:39 -0700
From: fred78980@yahoo.com
Subject: ISALPHA
Message-Id: <1191955839.198025.39540@19g2000hsx.googlegroups.com>
To take into account words with accent I wrote this while ($txt =~ /
\p{IsAlpha}/); The script does not give error message but it doesn't
work.
Your help is appreciated
Thanks
------------------------------
Date: Tue, 09 Oct 2007 14:39:39 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: ISALPHA
Message-Id: <470bd8fb$0$10309$815e3792@news.qwest.net>
fred78980@yahoo.com wrote:
> To take into account words with accent I wrote this while ($txt =~ /
> \p{IsAlpha}/); The script does not give error message but it doesn't
> work.
> Your help is appreciated
There isn't an error, so how do you know it didn't
"work". Post a short and complete example showing the issue.
------------------------------
Date: Tue, 09 Oct 2007 20:06:47 GMT
From: "John W. Krahn" <dummy@example.com>
Subject: Re: ISALPHA
Message-Id: <rbROi.12$G25.3@edtnps89>
fred78980@yahoo.com wrote:
> To take into account words with accent I wrote this while ($txt =~ /
> \p{IsAlpha}/); The script does not give error message but it doesn't
> work.
> Your help is appreciated
perldoc perllocale
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
------------------------------
Date: Tue, 09 Oct 2007 13:33:37 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: line 16
Message-Id: <3npmg3l9r41vul997iro80jjfk3f55mbnl@4ax.com>
On Mon, 8 Oct 2007 21:25:46 -0700, "Wade Ward" <zaxfuuq@invalid.net>
wrote:
>Testing for return values is a bit more than my current perl game. Thanks
>for the heads-up.
To .sig, asap!
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Tue, 09 Oct 2007 12:11:10 -0700
From: lerameur <lerameur@yahoo.com>
Subject: pasting done twice
Message-Id: <1191957070.528568.234440@o3g2000hsb.googlegroups.com>
hello,
below is part of my working program. No errors but the problem I am
facing is that the line: print $out_file $items[86],",";
seems to be activating twice. The purpose of this program is to take a
log file, ( array) and add data in an empty section of that array. Now
it is doing it, but twice. can someone tell how to correct this?
thanks
sub MainProg {
while (my $filename = glob("$year2$month2$day2$hours2*") ){
$temp_file_seq_n=substr($filename,-5,1); #first step to figure out the
logname to reproduce the original traffic log file
print $temp_file_seq_n, "\n";
if ($temp_file_seq_n ==1){
$logname=$logtime."$temp_file_seq_n"."_TLG";
&Parsing;
}
elsif ($temp_file_seq_n ==3){
$logname=$logtime."$temp_file_seq_n"."_TLG";
&Parsing;
}
elsif ($temp_file_seq_n ==5){
$logname=$logtime."$temp_file_seq_n"."_TLG";
&Parsing;
}
else{}
sub Parsing{
my $Oper_directory = '/aaa/Working/output';
chdir($Oper_directory) || die "Fail to change directory: $!\n";
open my $out_file, '>>', $logname."TEST" or die "Can't open
$logname: $!";
print "logname: $logname \n";
my $Oper_D = '/aaa/Working';
chdir($Oper_D) || die "Fail to change directory: $!\n";
open($wordlisting1, '<', $logname) or die "Could not open wordlisting:
$!";
while (my $line = <$wordlisting1> ) {
if ($line =~ m/Beth:8/ ) {
my @items = (split(/,/,$line))[0..85];
$items[86]="696c6c65";
my @items_extra = (split(/,/,$line))[87..88]; #86 is user data
print $out_file join(',', @items),",";
print $out_file $items[86],",";
print $out_file join(',', @items_extra);
}
k
------------------------------
Date: Tue, 09 Oct 2007 12:29:09 -0700
From: lerameur <lerameur@yahoo.com>
Subject: Re: pasting done twice
Message-Id: <1191958149.237423.318560@v3g2000hsg.googlegroups.com>
On Oct 9, 3:11 pm, lerameur <leram...@yahoo.com> wrote:
> hello,
>
> below is part of my working program. No errors but the problem I am
> facing is that the line: print $out_file $items[86],",";
> seems to be activating twice. The purpose of this program is to take a
> log file, ( array) and add data in an empty section of that array. Now
> it is doing it, but twice. can someone tell how to correct this?
> thanks
>
> sub MainProg {
>
> while (my $filename = glob("$year2$month2$day2$hours2*") ){
> $temp_file_seq_n=substr($filename,-5,1); #first step to figure out the
> logname to reproduce the original traffic log file
> print $temp_file_seq_n, "\n";
>
> if ($temp_file_seq_n ==1){
> $logname=$logtime."$temp_file_seq_n"."_TLG";
> &Parsing;}
>
> elsif ($temp_file_seq_n ==3){
> $logname=$logtime."$temp_file_seq_n"."_TLG";
> &Parsing;}
>
> elsif ($temp_file_seq_n ==5){
> $logname=$logtime."$temp_file_seq_n"."_TLG";
> &Parsing;}
>
> else{}
>
> sub Parsing{
> my $Oper_directory = '/aaa/Working/output';
> chdir($Oper_directory) || die "Fail to change directory: $!\n";
> open my $out_file, '>>', $logname."TEST" or die "Can't open
> $logname: $!";
> print "logname: $logname \n";
> my $Oper_D = '/aaa/Working';
> chdir($Oper_D) || die "Fail to change directory: $!\n";
>
> open($wordlisting1, '<', $logname) or die "Could not open wordlisting:
> $!";
> while (my $line = <$wordlisting1> ) {
> if ($line =~ m/Beth:8/ ) {
> my @items = (split(/,/,$line))[0..85];
> $items[86]="696c6c65";
> my @items_extra = (split(/,/,$line))[87..88]; #86 is user data
> print $out_file join(',', @items),",";
> print $out_file $items[86],",";
> print $out_file join(',', @items_extra);
> }
>
> k
by the way, I put a simple print "Traffic \n"; after line: print
$out_file join(',', @items_extra);
and it print only once when the program is executed. So one loop, but
twice the data. At first I thought it was going through the loop
twice, but that is not the case.
k
------------------------------
Date: Tue, 09 Oct 2007 12:31:17 -0700
From: lerameur <lerameur@yahoo.com>
Subject: Re: pasting done twice
Message-Id: <1191958277.979107.23170@o3g2000hsb.googlegroups.com>
On Oct 9, 3:29 pm, lerameur <leram...@yahoo.com> wrote:
> On Oct 9, 3:11 pm, lerameur <leram...@yahoo.com> wrote:
>
>
>
> > hello,
>
> > below is part of my working program. No errors but the problem I am
> > facing is that the line: print $out_file $items[86],",";
> > seems to be activating twice. The purpose of this program is to take a
> > log file, ( array) and add data in an empty section of that array. Now
> > it is doing it, but twice. can someone tell how to correct this?
> > thanks
>
> > sub MainProg {
>
> > while (my $filename = glob("$year2$month2$day2$hours2*") ){
> > $temp_file_seq_n=substr($filename,-5,1); #first step to figure out the
> > logname to reproduce the original traffic log file
> > print $temp_file_seq_n, "\n";
>
> > if ($temp_file_seq_n ==1){
> > $logname=$logtime."$temp_file_seq_n"."_TLG";
> > &Parsing;}
>
> > elsif ($temp_file_seq_n ==3){
> > $logname=$logtime."$temp_file_seq_n"."_TLG";
> > &Parsing;}
>
> > elsif ($temp_file_seq_n ==5){
> > $logname=$logtime."$temp_file_seq_n"."_TLG";
> > &Parsing;}
>
> > else{}
>
> > sub Parsing{
> > my $Oper_directory = '/aaa/Working/output';
> > chdir($Oper_directory) || die "Fail to change directory: $!\n";
> > open my $out_file, '>>', $logname."TEST" or die "Can't open
> > $logname: $!";
> > print "logname: $logname \n";
> > my $Oper_D = '/aaa/Working';
> > chdir($Oper_D) || die "Fail to change directory: $!\n";
>
> > open($wordlisting1, '<', $logname) or die "Could not open wordlisting:
> > $!";
> > while (my $line = <$wordlisting1> ) {
> > if ($line =~ m/Beth:8/ ) {
> > my @items = (split(/,/,$line))[0..85];
> > $items[86]="696c6c65";
> > my @items_extra = (split(/,/,$line))[87..88]; #86 is user data
> > print $out_file join(',', @items),",";
> > print $out_file $items[86],",";
> > print $out_file join(',', @items_extra);
> > }
>
> > k
>
> by the way, I put a simple print "Traffic \n"; after line: print
> $out_file join(',', @items_extra);
> and it print only once when the program is executed. So one loop, but
> twice the data. At first I thought it was going through the loop
> twice, but that is not the case.
>
> k
I removed the line print $out_file $items[86],","; .....
k
------------------------------
Date: Tue, 09 Oct 2007 14:53:19 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: pasting done twice
Message-Id: <470bdc30$0$508$815e3792@news.qwest.net>
lerameur wrote:
> hello,
>
> below is part of my working program. No errors but the problem I am
> facing is that the line: print $out_file $items[86],",";
> while (my $filename = glob("$year2$month2$day2$hours2*") ){
Wow.. how many times are we going to see this code? Especially without:
use strict;
use warnings;
???
> open($wordlisting1, '<', $logname) or die "Could not open wordlisting:
> $!";
open(my $wordlisting1, '<', $logname)
or die "Could not open $logname: $!";
> while (my $line = <$wordlisting1> ) {
> if ($line =~ m/Beth:8/ ) {
chomp( $line );
> my @items = (split(/,/,$line))[0..85];
> $items[86]="696c6c65";
> my @items_extra = (split(/,/,$line))[87..88]; #86 is user data
> print $out_file join(',', @items),",";
> print $out_file $items[86],",";
> print $out_file join(',', @items_extra);
No need for @items_extra, just overwrite [86] and print the whole thing.
my @items = (split(/,/,$line))[0..88];
$items[86]='696c6c65';
print $out_file join(',', @items ), "\n";
------------------------------
Date: Tue, 09 Oct 2007 10:03:58 -0700
From: info@xperience-webdevelopment.nl
Subject: Problem with SOAP::Lite
Message-Id: <1191949438.329191.215420@50g2000hsm.googlegroups.com>
When I call a webservice on a .net machine with the script below, I
only receive a 1 or a true as a result. Instead of that I should
receive an XML file. Anybody...... what am I doing wrong??
In a SSH session everything looks perfect. I even see the XML string
with the response, but not in my browser.
$xml = qq(
<?xml version="1.0" encoding="utf-8"?>
<theCallInfo>
<strCountry>NL</strCountry>
<strLanguage>NL</strLanguage>
<strTourOperator>Amstelborgh</strTourOperator>
<strNrOfassured>2</strNrOfassured>
<strTotalAmount>200</strTotalAmount>
<startDate>25-10-2007</startDate>
<endDate>27-10-2007</endDate>
<Coverage>E</Coverage>
<strCurrency>EUR</strCurrency>
<bSingleTrip>false</bSingleTrip>
</theCallInfo>
);
$xml =~ s/\<\?xml.*\?\>\n?//;
$xml =~ s/\<\!.*\>\n?//;
use SOAP::Lite +trace =>debug;
$client = SOAP::Lite
-> uri('.... bla bla bla')
-> proxy(' bla bla bla')
-> on_action(sub{sprintf '%s%s', @_ })
;
$res=SOAP::Data->type('xml' => $xml);
$result = $client->GetProductsForTourOperator($res);
print "content-type:text/html\n\n";
print qq~
testing.... (result: $result)
~;
------------------------------
Date: Tue, 09 Oct 2007 12:32:49 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Problem with SOAP::Lite
Message-Id: <470bbb42$0$500$815e3792@news.qwest.net>
info@xperience-webdevelopment.nl wrote:
> When I call a webservice on a .net machine with the script below, I
> only receive a 1 or a true as a result. Instead of that I should
> receive an XML file. Anybody...... what am I doing wrong??
No idea what you 'should' receive.. but..
[...]
> $res=SOAP::Data->type('xml' => $xml);
> $result = $client->GetProductsForTourOperator($res);
Possibly:
my $result = $client->GetProductsForTourOperator($res)->result;
>
> print "content-type:text/html\n\n";
Also, that should be
Content-Type: text/html
Run the script from the command line, and print $result.
If that works, then try it as a CGI.
------------------------------
Date: Tue, 09 Oct 2007 10:53:40 -0500
From: Clint Olsen <clint.olsen@gmail.com>
Subject: Re: Profiling Perl with better granularity than Devel::DProf
Message-Id: <slrnfgn904.2p2n.clint.olsen@belle.0lsen.net>
On 2007-10-09, Ben Morrow <ben@morrow.me.uk> wrote:
> Just out of interest: which version of Perl is this? 5.8.8 doesn't have
> a Perl_regexec, though it does have a Perl_regexec_flags and a
> Perl_pregexec.
This is Perl 5.8.7, I believe.
> The Perl_* functions are documented in perlapi (perldebguts is for the
> internals of the Perl-level debugger). Perl_savepvn is a simple
> string-copy function. AFAICT, the only time it is called directly from
> Perl_regexec_flags is when populating the $N match variables (and $`, $',
> $&; but you aren't using those, are you? Check if necessary with
> Devel::SawAmpersand) so you may want to see if you can reduce the number
> of sets of capturing parens.
Hmm, very interesting. I was using $^N for snarfing matches inside (?{ }),
but the documentation said to avoid $& etc. for performance reasons. I
don't recall reading anything negative about $^N. I'm not sure about using
$1..n inside these kinds of blocks and whether their status would be
predictable.
Any suggestions would be much appreciated.
Thanks,
-Clint
------------------------------
Date: Tue, 9 Oct 2007 18:28:41 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Profiling Perl with better granularity than Devel::DProf
Message-Id: <9bqst4-er6.ln1@osiris.mauzo.dyndns.org>
Quoth Clint Olsen <clint.olsen@gmail.com>:
> On 2007-10-09, Ben Morrow <ben@morrow.me.uk> wrote:
> > Just out of interest: which version of Perl is this? 5.8.8 doesn't have
> > a Perl_regexec, though it does have a Perl_regexec_flags and a
> > Perl_pregexec.
>
> This is Perl 5.8.7, I believe.
Uh... that's weird... I presume that Perl_regexec_flags somehow got
truncated, then, as there's no Perl_regexec in 5.8.7 either.
> > The Perl_* functions are documented in perlapi (perldebguts is for the
> > internals of the Perl-level debugger). Perl_savepvn is a simple
> > string-copy function. AFAICT, the only time it is called directly from
> > Perl_regexec_flags is when populating the $N match variables (and $`, $',
> > $&; but you aren't using those, are you? Check if necessary with
> > Devel::SawAmpersand) so you may want to see if you can reduce the number
> > of sets of capturing parens.
>
> Hmm, very interesting. I was using $^N for snarfing matches inside (?{ }),
> but the documentation said to avoid $& etc. for performance reasons. I
> don't recall reading anything negative about $^N. I'm not sure about using
> $1..n inside these kinds of blocks and whether their status would be
> predictable.
Sorry, I was unclear... when I said '$N', I meant $1, $2, etc., not $^N.
In any case, how you get hold of the captures later is unimportant: as
soon as a match contains ordinary capturing parens, perl has to copy the
capture every time it matches, just in case you look in $1 (or $^N)
later. If you're doing a lot of matches which fail, you may save time by
retrying the match with captures only if the pattern actually matches.
If you're actually doing a lot of capturing, then, well, you're going to
spend most of your time copying strings :).
Ben
------------------------------
Date: Tue, 09 Oct 2007 13:37:19 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Should an empty regex match everything
Message-Id: <gtpmg3pfnv4kv71g93qlbqoekukmv9vlcj@4ax.com>
On Tue, 09 Oct 2007 01:13:23 -0700, Mintcake <tony@skelding.co.uk>
wrote:
>> If the PATTERN evaluates to the empty string, the last success-
>> fully matched regular expression is used instead. In this case,
>> only the "g" and "c" flags on the empty pattern is honoured -
>> the other flags are taken from the original pattern. If no
>> match has previously succeeded, this will (silently) act
>> instead as a genuine empty pattern (which will always match).
>>
>> //Makholm
>
>Thanks for that. I'm very glad to have it explained. However, I
>can't think of a scenario in which you would make use of this
>feature. Though of course, I'm sure there are plenty.
Actually I've never either used it nor felt a compelling need for it.
To be fair I'm happy that in Perl 6 the "empty" match is being phased
out.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Tue, 09 Oct 2007 13:41:03 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Should an empty regex match everything
Message-Id: <10qmg3dpihgq7sgs25431ro5vs9c3cohec@4ax.com>
On Tue, 09 Oct 2007 01:16:56 -0700, Mintcake <tony@skelding.co.uk>
wrote:
>> --
>> Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
>> <mer...@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
>> Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
>> See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
Don't quote .sig's.
>Good point. I'd seen this usage in another post and thought I'd try
>it out. I'd actually abandoned the idea since something like...
>
>#!/usr/bin/env perl -l
>
>... doesn't work.
>
>I don't know how this idiom escaped into my example code without my
>permission. I'll be more careful next time.
It's controversial: /usr/bin/env was aimed at solving problems with
variable locations of the actual perl interpreter. Eventually it turns
out that it suffers from the same problem it should solve, but anyway
there are people in both camps: those who deprecate it and those who
support it. Often, both with good arguments. FWIW I agree with Randal
and never use env myself.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Tue, 09 Oct 2007 11:19:42 -0000
From: "LovingFox@gmail.com" <LovingFox@gmail.com>
Subject: Re: threads, Sys::SigAction, alarm, timeout
Message-Id: <1191928782.412737.280370@50g2000hsm.googlegroups.com>
On 9 , 00:03, Martijn Lievaart <m...@rtij.nl.invlalid> wrote:
> On Mon, 08 Oct 2007 11:12:56 -0400, zentara wrote:
> > I don't know about how Sys::Sigaction works, but threads and ALARM
> > and/or signals don't work with threads. The parent thread receives all
> > signals, so using them in threads is useless unless you have the parent
> > handle them.
>
> > zentara
>
> from perlthrtut:
>
> ] Similarly, mixing signals and threads should not be attempted.
> ] Implementations are platform-dependent, and even the POSIX semantics
> ] may not be what you expect (and Perl doesn't even give you the full
> ] POSIX API).
>
> So I would not even count on the main thread receiving all signals. Or am
> I missing something here?
>
> M4
Hmmm... So anybody know how to create timeout catcher for some code in
thread script like I wrote? Such simple example is written here
http://search.cpan.org/~lbaxter/Sys-SigAction-0.10/dbd-oracle-timeout.POD
and I need to use it in code with threads.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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.
#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 V11 Issue 920
**************************************
