[29265] in Perl-Users-Digest
Perl-Users Digest, Issue: 509 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 12 14:09:47 2007
Date: Tue, 12 Jun 2007 11:09:07 -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, 12 Jun 2007 Volume: 11 Number: 509
Today's topics:
Re: Any cross-platform function to obtain the machine n <mritty@gmail.com>
Re: Any cross-platform function to obtain the machine n <ilias@lazaridis.com>
Re: Any cross-platform function to obtain the machine n <mritty@gmail.com>
Re: Does anybody know why mx1.hotmail.com doesn't respo <needpassion@gmail.com>
Re: How can I use the string variable expansion for OO <nobull67@gmail.com>
optimize XML parsing SynapseTesting@gmail.com
Re: optimize XML parsing xhoster@gmail.com
Re: optimize XML parsing <glex_no-spam@qwest-spam-no.invalid>
perl and php <pm3e@juno.com>
Re: perl and php QoS@domain.invalid
Re: perl and php <bugbear@trim_papermule.co.uk_trim>
Perl in C Windows to obtain a exe <john.swilting@wanadoo.fr>
Re: Please help with this code <nobull67@gmail.com>
Regex OR Operator <BuckTheManTurgidson@gmail.com>
Re: Regex OR Operator (Greg Bacon)
Re: Regex OR Operator <mritty@gmail.com>
Re: Regex OR Operator <mritty@gmail.com>
Win32: How to quit perl script during log off automatic <petersob@gmx.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 12 Jun 2007 03:37:32 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: Re: Any cross-platform function to obtain the machine name?
Message-Id: <1181644652.041603.292610@d30g2000prg.googlegroups.com>
On Jun 12, 6:08 am, Ilias Lazaridis <i...@lazaridis.com> wrote:
> looking for something like
>
> use system;
>
> print system->machineName();
>
> this should work across platforms.
use Sys::Hostname;
print hostname;
Paul Lalli
------------------------------
Date: Tue, 12 Jun 2007 13:46:46 -0000
From: Ilias Lazaridis <ilias@lazaridis.com>
Subject: Re: Any cross-platform function to obtain the machine name?
Message-Id: <1181656006.655642.138590@d30g2000prg.googlegroups.com>
On Jun 12, 1:37 pm, Paul Lalli <mri...@gmail.com> wrote:
> On Jun 12, 6:08 am, Ilias Lazaridis <i...@lazaridis.com> wrote:
>
> > looking for something like
>
> > use system;
>
> > print system->machineName();
>
> > this should work across platforms.
>
> use Sys::Hostname;
> print hostname;
My apologies.
I've searched for "machinename" instead of "hostname".
Is the term "host" generally prefered within the perl domain?
I've currently choosen "Machine" as the term in my project.
Any rationales to change this to "Host"?
.
--
http://dev.lazaridis.com/lang/wiki/Perl
------------------------------
Date: Tue, 12 Jun 2007 07:25:43 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: Re: Any cross-platform function to obtain the machine name?
Message-Id: <1181658343.090954.161310@n15g2000prd.googlegroups.com>
On Jun 12, 9:46 am, Ilias Lazaridis <i...@lazaridis.com> wrote:
> On Jun 12, 1:37 pm, Paul Lalli <mri...@gmail.com> wrote:
>
> > On Jun 12, 6:08 am, Ilias Lazaridis <i...@lazaridis.com> wrote:
>
> > > looking for something like
>
> > > use system;
>
> > > print system->machineName();
>
> > > this should work across platforms.
>
> > use Sys::Hostname;
> > print hostname;
>
> My apologies.
none needed. You made the effort to search, you just didn't know what
search terms to use.
> I've searched for "machinename" instead of "hostname".
>
> Is the term "host" generally prefered within the perl domain?
Probably, but only because Perl is based on Unix, and in unix there is
a utility called `hostname`, which returns the name of the machine.
Paul Lalli
------------------------------
Date: Tue, 12 Jun 2007 09:43:05 -0700
From: mike <needpassion@gmail.com>
Subject: Re: Does anybody know why mx1.hotmail.com doesn't response correctly? Thanks
Message-Id: <1181666585.178034.267400@x35g2000prf.googlegroups.com>
On Jun 11, 11:07 pm, mer...@stonehenge.com (Randal L. Schwartz) wrote:
> >>>>> "mike" == mike <needpass...@gmail.com> writes:
>
> mike> Actually, I just found that hotmail.com sucks. Once I append "\r\n" to
> mike> the end of the string, then everything worked fine.
>
> No, that means you "suck" as a programmer. The SMTP protocol officially
> requires \cM\cJ.
>
> This is why I said you shouldn't be writing this code from scratch!
>
> Sigh. Kids.
>
> --
> 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!
>
> --
> Posted via a free Usenet account fromhttp://www.teranews.com
Thanks for correcting,dude
------------------------------
Date: Tue, 12 Jun 2007 17:19:07 -0000
From: Brian McCauley <nobull67@gmail.com>
Subject: Re: How can I use the string variable expansion for OO "$self->attribute"
Message-Id: <1181668747.102670.20620@i38g2000prf.googlegroups.com>
On Jun 9, 12:57 pm, Ilias Lazaridis <i...@lazaridis.com> wrote:
> On Jun 9, 2:08 pm, Brian McCauley <nobul...@gmail.com> wrote:
> > BTW this is FAQ: "How do I expand function calls in a string?"
>
> print "My sub returned @{[mysub(1,2,3)]} that time.\n"
>
> this solution has problems with readability (as already noted by the
> author).
Everything has problems with readability if abused.
>
> > See also the Interpolate module and Tie::OneOff. (Tie::OneOff was
> > originally Tie::Simple but was never realeased under that name. Then
> > someone else released a substancially identical module under the
> > originl name!).
>
> http://search.cpan.org/~nobull/Tie-OneOff/lib/Tie/OneOff.pmhttp://perl.plover.com/Interpolation/manual.html
>
> Thanks for the info, but I'm unable to see how I could process this
> string:
>
> return "$self->label: $self->val($attrib)"
I know of no way. The trick of creating hashes that are really
functions allows you to get function calls to interpolate (because
they look like hashes).
> is there any stand-alone function available (something like
> "stringeval"), which would process the string correctly?
Not that I know of .
> If yes (or if I write my own), is there a way to override the default
> string-processing behaviour of perl on a per-package basis?
For string literals yes, not for the interpolation rules. At least not
without resorting to source filters.
------------------------------
Date: Tue, 12 Jun 2007 08:31:36 -0700
From: SynapseTesting@gmail.com
Subject: optimize XML parsing
Message-Id: <1181662296.706483.47560@n15g2000prd.googlegroups.com>
Hi
I am looking to make parallel request and proceess XML data returned
from multiple server. Am using the following modules as under
require LWP::UserAgent;
require LWP::Parallel::UserAgent;
require HTTP::Headers;
The XML returned from different servers is to be parsed and merged. I
am using XML::Simple to parse the data returned from diffferent
servers.
I am not sure of the best way to pull relavent data from the XML. As
of now I have used Data::Dumper to place the XML into a hash/array
tree. This however takes about 18+ sec. We need to reduce this time.
You can look at the script as under
Please suggest.
####
1. #### Header objects created for request to be sent to each
supplier
####
#!/usr/bin/perl
use DBI;
use CGI;
..........................................
use Data::Dumper;
use POSIX;
$xml = new XML::Simple;
require LWP::UserAgent;
require LWP::Parallel::UserAgent;
require HTTP::Headers;
use HTTP::Request;
use Date::Calc qw(Month_to_Text Add_Delta_Days);
require "function_p.pl";
$h1 = HTTP::Headers->new;
$h1->header('Content-Type' => 'text/xml'); # Header
$h = HTTP::Headers->new;
$h->header('Content-Type' => 'text/html'); # set contents for header
####
2. #### Other info required to make parallel request [url, parameters,
etc.]
####
my $pua = LWP::Parallel::UserAgent->new();
$pua->in_order (1); # handle requests in order of registration
$pua->duplicates(0); # ignore duplicates
$pua->timeout (500); # in seconds
$pua->redirect (1); # follow redirects
my $reqs = [
HTTP::Request->new( $method, $kuoniURL, $h1, $kuoni_XMLString),
HTTP::Request->new( $method, $etnURL, $h, $etnXMLRequest),
..............
..............
];
foreach $req (@$reqs)
{
if ($res=$pua->register ($req))
{
print STDERR $res->error_as_HTML;
}
}
####
3. #### Fire requests for each supplier
####
Response time : ~ 25 sec
our $travcoXMLResponse;
our $etnXMLResponse;
foreach (keys %$entries)
{
$res = $entries->{$_}->response;
$resultSet=$res->content;
if(index(lc($resultSet), "findproducts2response")>0)
{
$eXMLResponse=$resultSet;
require "e_result.pl";
}
....................................
}
}
e_result.pl
####
4. #### Data dumper used to import XML into Array/Hash for parsing,
filtering through results
####
$dumpTime1=time();
print "<br>Start Dump time:".$dumpTime1;
$data = $xml->XMLin($travcoXMLResponse);
$dump = Dumper($data);
$dumpTime2=time();
print "<br>End Dump time:".$dumpTime2;
print "<br>Difference: ".($dumpTime2-$dumpTime1);
$trav1=time();
print "<br>Travco Start parsing Time: " .$trav1;
####
5. #### Data imported is traversed and filtering process is
implemented - stored in array/hash
####
for($i=0; $i<$count; $i++)
{
if($data->{DATA}->{HOTEL_DATA}[$i]->{STATUS} =~ /^Available$/)
{
$roomCount=0;
$totalAmount =0;
$TravcoFinalAmount=0;
$displayIndex=0;
$sourceCurrency = "$data->{DATA}->{HOTEL_DATA}[$i]-
>{CURRENCY_CODE}";
if (uc($TargetCurrency) ne uc($sourceCurrency)) {
print "<br>sourceCurrency: $sourceCurrency";
.......................................
}
}
....................................
$arrHotelDetails[$hotelIndex]{'HotelCode'}=$productID;
$arrHotelDetails[$hotelIndex]{'HotelImage'}=$hotelImg;
$arrHotelDetails[$hotelIndex]{'BreakFast'}=$breakfast;
....................................
$arrHotelDetails[$hotelIndex]{'HotelMap'}='';
$arrHotelDetails[$hotelIndex]{'HotelPhone'}='';
$arrHotelDetails[$hotelIndex]{'SpecialOffer'}=0;
}
} # end of room matching
} # end if available
} # end for total hotels
####
6. #### Sorting and removing duplicates
####
.....................................................
------------------------------
Date: 12 Jun 2007 16:40:53 GMT
From: xhoster@gmail.com
Subject: Re: optimize XML parsing
Message-Id: <20070612124057.382$g7@newsreader.com>
SynapseTesting@gmail.com wrote:
> Hi
>
> I am looking to make parallel request and proceess XML data returned
> from multiple server. Am using the following modules as under
>
> require LWP::UserAgent;
> require LWP::Parallel::UserAgent;
> require HTTP::Headers;
>
> The XML returned from different servers is to be parsed and merged. I
> am using XML::Simple to parse the data returned from diffferent
> servers.
>
> I am not sure of the best way to pull relavent data from the XML. As
> of now I have used Data::Dumper to place the XML into a hash/array
> tree.
That doesn't make any sense. XML::Simple already places the data into
a hash/array tree. Data::Dumper takes it *out* of that tree and turns
it back into a string.
> This however takes about 18+ sec. We need to reduce this time.
Profile your code and see where it spending its time. See Devel::DProf
Let us know what the results are. Not only will this likely tell you where
it is spending its time, it will likely also be an easy way to figure out
which parser XML::Simple is using behind the scenes.
> ####
> 4. #### Data dumper used to import XML into Array/Hash for parsing,
> filtering through results
> ####
>
> $dumpTime1=time();
> print "<br>Start Dump time:".$dumpTime1;
> $data = $xml->XMLin($travcoXMLResponse);
> $dump = Dumper($data);
> $dumpTime2=time();
How much time is spent parsing, versus (the apparently useless, as $dump
is never used again) dumping?
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Tue, 12 Jun 2007 11:47:19 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: optimize XML parsing
Message-Id: <466ece17$0$492$815e3792@news.qwest.net>
SynapseTesting@gmail.com wrote:
> Hi
>
> I am looking to make parallel request and proceess XML data returned
> from multiple server. Am using the following modules as under
>
> require LWP::UserAgent;
> require LWP::Parallel::UserAgent;
> require HTTP::Headers;
use strict;
use warnings;
use LWP::UserAgent;
use LWP::Parallel::UserAgent;
use HTTP::Headers;
>
> The XML returned from different servers is to be parsed and merged. I
> am using XML::Simple to parse the data returned from diffferent
> servers.
>
> I am not sure of the best way to pull relavent data from the XML. As
> of now I have used Data::Dumper to place the XML into a hash/array
> tree. This however takes about 18+ sec. We need to reduce this time.
No need to use Data::Dumper, XML::Simple does it for you.
There are many modules to parse XML. check the FAQ mentioned in the
XML::Simple documentation.
http://perl-xml.source-forge.net/faq/
Post a short and complete example. Showing little pieces of code
doesn't make it clear what problem you're having or what could
be the problem.
In general, create a subroutine that gets the XML, parses it,
and stores whatever you need from it in some global data
structure. Once that works, then add in parallel processes,
and when it's finished, you should have a data structure
containing your data, which you can use to create whatever
is needed Possibly, you could store the data in a database,
if that's easier.
See also: perldoc perldsc
------------------------------
Date: Tue, 12 Jun 2007 11:19:32 GMT
From: peter <pm3e@juno.com>
Subject: perl and php
Message-Id: <8jvbi.13597$2v1.2462@newssvr14.news.prodigy.net>
Hi,
this is not stinky bait. If you take it that way, please dont respond..
I have been away from UNIX software for quite awhile and want to get
back into it. I liked "C" but Java seems like the way to go for
compiled langs, now days so I will learn that.
At one time, I did a bit of perl but now I see php alot. I was
wondering what you guys thinks of the pros/cons of perl and php.
I appreciate your time,
peter
------------------------------
Date: Tue, 12 Jun 2007 11:48:37 GMT
From: QoS@domain.invalid
Subject: Re: perl and php
Message-Id: <pKvbi.4484$c45.3887@trndny06>
peter <pm3e@juno.com> wrote in message-id: <8jvbi.13597$2v1.2462@newssvr14.news.prodigy.net>
>
>Hi,
>
>this is not stinky bait. If you take it that way, please dont respond..
>
>I have been away from UNIX software for quite awhile and want to get
>back into it. I liked "C" but Java seems like the way to go for
>compiled langs, now days so I will learn that.
>
>At one time, I did a bit of perl but now I see php alot. I was
>wondering what you guys thinks of the pros/cons of perl and php.
>
>I appreciate your time,
>peter
IMO PHP is kinda like a watered down Perl without CPAN.
BTW Java is not a fully compiled language, it just gets slightly
optimized then is compiled fully at runtime.
Check these and decide for yourself:
http://en.wikipedia.org/wiki/Comparison_of_programming_languages
http://99-bottles-of-beer.net/
------------------------------
Date: Tue, 12 Jun 2007 13:41:46 +0100
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: perl and php
Message-Id: <466e948a$0$8731$ed2619ec@ptn-nntp-reader02.plus.net>
peter wrote:
> Hi,
>
> this is not stinky bait. If you take it that way, please dont respond..
>
> I have been away from UNIX software for quite awhile and want to get
> back into it. I liked "C" but Java seems like the way to go for
> compiled langs, now days so I will learn that.
>
> At one time, I did a bit of perl but now I see php alot. I was
> wondering what you guys thinks of the pros/cons of perl and php.
It depends purely on what you're doing.
You wouldn't want to do raw image processing in Perl,
and you wouldn't want to create a web site in 'C'. (*)
BugBear
(*) in general, I *know* there are exceptions
------------------------------
Date: Tue, 12 Jun 2007 19:28:20 +0200
From: john swilting <john.swilting@wanadoo.fr>
Subject: Perl in C Windows to obtain a exe
Message-Id: <466ed7b7$0$25935$ba4acef3@news.orange.fr>
I would wish to integrate Perl in exe Windows.
I have the book programming advanced in Perl and I intend to follow the
examples of the book…
but I would like particular technical specifications
I do not wish to use cygwin
I want binary to bind statically (cad no DLL)
arrived it: 2 solutions
to use activeperl or recompiler an interpreter Perl
I have like compiler C visual c++ 6 pro and codeblocks
headers Perl are not present in the include compilers.
script Perl will be to charge extracting the data from an Excel file and
with sending an email
under linux not of problem but how to make under Windows
my file C will be similar to the example of the book the large one of work
will be to carry out by Perl
I ask of the assistance because I know little about Windows very. I repeat
it under linux it is about simple it is enough to modify the example 19.3
and to use Spreadsheet:: ParseExcel and MIME:: Lite or Net:: Smtp
------------------------------
Date: Tue, 12 Jun 2007 17:40:25 -0000
From: Brian McCauley <nobull67@gmail.com>
Subject: Re: Please help with this code
Message-Id: <1181670025.410282.282570@j4g2000prf.googlegroups.com>
On Jun 10, 8:59 pm, Mr Ryerson <myship...@gmail.com> wrote over and
over in separate posts to several newsgroups...
[ a badly worded question ]
Please don't spam,
------------------------------
Date: Tue, 12 Jun 2007 15:12:51 -0000
From: Buck <BuckTheManTurgidson@gmail.com>
Subject: Regex OR Operator
Message-Id: <1181661171.251256.309510@n15g2000prd.googlegroups.com>
I am fairly new to regexes. I have the following to parse a SQL
statement, looking for either "FROM" or "JOIN". Is there a way to
shorten the following, so I don't have to repeat the regex after the
word "FROM" or "JOIN"?
from \w*\W+as\W+\w*|join \w*\W+as\W+\w*
e.g., I want it to look like this, but it doesn't work:
[from\join] \w*\W+as\W+\w*
------------------------------
Date: Tue, 12 Jun 2007 15:21:16 -0000
From: gbacon@hiwaay.net (Greg Bacon)
Subject: Re: Regex OR Operator
Message-Id: <136tefcesde1j24@corp.supernews.com>
In article <1181661171.251256.309510@n15g2000prd.googlegroups.com>,
Buck <BuckTheManTurgidson@gmail.com> wrote:
: I am fairly new to regexes. I have the following to parse a SQL
: statement, looking for either "FROM" or "JOIN". Is there a way to
: shorten the following, so I don't have to repeat the regex after the
: word "FROM" or "JOIN"?
:
: from \w*\W+as\W+\w*|join \w*\W+as\W+\w*
:
: e.g., I want it to look like this, but it doesn't work:
:
: [from\join] \w*\W+as\W+\w*
You're close. Square brackets are for character classes. Your pattern
says match a single character that is one of 'f', 'r', 'o', etc.
followed by a space, and so on.
Use parentheses to group and | for alternatives:
$ cat try
#! /usr/bin/perl
use warnings;
use strict;
my @fragments = (
"from foo as f",
"join bar as b",
);
for (@fragments) {
print "$_: ";
if (/(from|join)\s+\w+\s+as\s+\w+/) {
print "match\n";
}
else {
print "no match\n";
}
}
$ ./try
from foo as f: match
join bar as b: match
This sort of pattern will look much nicer in Perl 6. Fingers crossed.
Hope this helps,
Greg
--
Nothing is so opportune for tyrants as a people tired of its liberty.
-- Alan Keyes
------------------------------
Date: Tue, 12 Jun 2007 09:21:15 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: Re: Regex OR Operator
Message-Id: <1181665275.082364.227900@d30g2000prg.googlegroups.com>
On Jun 12, 11:21 am, gba...@hiwaay.net (Greg Bacon) wrote:
> In article <1181661171.251256.309...@n15g2000prd.googlegroups.com>,
> Buck <BuckTheManTurgid...@gmail.com> wrote:
>
> : I am fairly new to regexes. I have the following to parse a SQL
> : statement, looking for either "FROM" or "JOIN". Is there a way to
> : shorten the following, so I don't have to repeat the regex after the
> : word "FROM" or "JOIN"?
> :
> : from \w*\W+as\W+\w*|join \w*\W+as\W+\w*
> :
> : e.g., I want it to look like this, but it doesn't work:
> :
> : [from\join] \w*\W+as\W+\w*
>
> You're close. Square brackets are for character classes. Your
> pattern says match a single character that is one
> of 'f', 'r', 'o', etc. followed by a space, and so on.
>
> Use parentheses to group and | for alternatives:
>
> if (/(from|join)\s+\w+\s+as\s+\w+/) {
It should be pointed out that this version of using parentheses has a
side effect. It will cause whatever is matched by the pattern in
parentheses to be saved off in the variable $1. If you do not want
that behavior, you can use non-capturing parentheses. To do so, put
the characters ?: at the start of your subpattern, like so:
if (/(?:from|join}\s+\w+\s+as\s+\w+/) {
These parenthese have the same "clustering" effect, without the side
effect of capturing. You can read more about them in:
perldoc perlretut
perldoc perlre
perldoc perlreref
Paul Lalli
------------------------------
Date: Tue, 12 Jun 2007 09:32:07 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: Re: Regex OR Operator
Message-Id: <1181665927.733523.154350@r19g2000prf.googlegroups.com>
On Jun 12, 11:12 am, Buck <BuckTheManTurgid...@gmail.com> wrote:
> I am fairly new to regexes. I have the following to parse a SQL
> statement, looking for either "FROM" or "JOIN". Is there a way
> to shorten the following, so I don't have to repeat the regex
> after the word "FROM" or "JOIN"?
>
> from \w*\W+as\W+\w*|join \w*\W+as\W+\w*
Greg has already given you the answer to the question you asked. I
would like, however, to give you the answer to the question you,
perhaps, should have asked. That being "How can I parse an SQL
statement to find all the tables that are being selected from?"
The answer to that question is: "Use SQL::Statement". To demonstrate:
$ perl -MSQL::Statement -le'
my $sql = q{SELECT a, b, c FROM alpha JOIN beta WHERE gamma = 0};
my $parser = SQL::Parser->new();
my $stmt = SQL::Statement->new($sql, $parser);
my @tables = map { $_->{name} } $stmt->tables();
print "Tables: @tables";
'
Tables: ALPHA BETA
If this is not your true intent, then forgive my assumptions...
Paul Lalli
------------------------------
Date: Tue, 12 Jun 2007 15:41:39 +0000 (UTC)
From: Peter Sobisch <petersob@gmx.net>
Subject: Win32: How to quit perl script during log off automatically ?
Message-Id: <f4merj$h5f$1@online.de>
Hi folks,
on Unix its a simplest thing, perl do it for me or I can set $SIG{HUP} :-)
but, how can I do this in Windows ?
Every time I try to shutdown or log off, pop-up is comming up with
"application doesn't response" and expecting to kill by clicking a
button -> very dirty thing :-/
So, I tried to catch WM_QUERYENDSESSION (using Win32::GUI::Hook), but no
WM_QUERYENDSESSION will be sent to the script (although the script is able
to receive other Window-Messages send by SendMessage).
Is it so, because perl is a "console based application" and windows sends
WM_QUERYENDSESSION + WM_ENDSESSION only to GUI applications ?
I "googled" and found something about SetConsoleCtrlHandler, which should give
similar funcitionality as WM_QUERYENDSESSION mechanism, but in order to set
this, I need to define a callback using Win32::API::Callback in my perl code,
but, this module doesn't work for me at all, it generates segfault every time,
even using the very simple examples from the documentation (nmake test fails
also).
Is there any other simple way to recognize inside of a perl script
that the Windows is shutting down or the user is logging off ?
I run ActivePerl 5.8.8 on W2k/XPpro.
regards,
Peter
------------------------------
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 509
**************************************
