[22422] in Perl-Users-Digest
Perl-Users Digest, Issue: 4643 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Feb 28 14:05:45 2003
Date: Fri, 28 Feb 2003 11:05:07 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 28 Feb 2003 Volume: 10 Number: 4643
Today's topics:
Re: driving me nuts! <JCornwall_must_remove_this_part@cox.net>
Formmail with file upload addition (Neil C)
Re: Formmail with file upload addition <shondell@cis.ohio-state.edu>
html2ps - page break (Betty)
Re: Just a plain Perl manual. But where?? <ubl@schaffhausen.de>
Re: Just a plain Perl manual. But where?? (Walter Roberson)
Re: Just a plain Perl manual. But where?? (Helgi Briem)
Re: Just a plain Perl manual. But where?? <shondell@cis.ohio-state.edu>
Re: Just a plain Perl manual. But where?? <steven.smolinski@sympatico.ca>
Re: Just a plain Perl manual. But where?? <usenet@dwall.fastmail.fm>
Re: Killing "process groups" on Win32 <raffles2@att.net>
Re: Question about text processing <uri@stemsystems.com>
Re: Question about text processing <newsfeed2@boog.co.uk>
Re: Question about text processing <uri@stemsystems.com>
Reading configuration files using strict (Zix)
Re: Reading configuration files using strict <glex_nospam@qwest.net>
Re: regexp to *not* match a certain character sequence (Bennett Haselton)
Re: regular expression or not <krahnj@acm.org>
Re: regular expression question *NOT PERL-SPECIFIC* <abigail@abigail.nl>
Re: Simple question about Perl Regular Expressions <hermeto@hotmail.com.invalid>
Re: Using AuthTicket with a Mac? <tassilo.parseval@post.rwth-aachen.de>
Re: Using AuthTicket with a Mac? (Tony L. Svanstrom)
Using Perl to Check Printing Services (Nataku)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 28 Feb 2003 16:24:38 GMT
From: "James F. Cornwall" <JCornwall_must_remove_this_part@cox.net>
Subject: Re: driving me nuts!
Message-Id: <3E5F8D46.405B073E@cox.net>
Wolf Behrenhoff wrote:
>
> Robert Reilly wrote:
> >
> > All, I have a program that i want to assaign a value to a scalar which
> > has a scalar name appended to it i.e
> >
> > $bar = 'server1';
> >
> > $foo = getserv();
> >
> > what I want to do is append the $bar to the scalar $foo so I would
> > have $fooserver1 of $foo_server1.
> > any help is appreciated.
>
> You want a variable called $fooserver?
>
> perldoc -q "variable name"
>
> explains how to do it and why you shouldn't do that.
>
> Wolf
On the systems I have access to, the above perldoc query gives a "No
documentation for perl FAQ keyword 'variable name' found" response.
Briefly, why would this be a bad thing? Or in what section of the docs
available at perl.com might I find this in?
Jim
(no I do not have sufficient permissions to upgrade our Perl to the
current level, we're at 5.00502 and we will stay there for a while
regardless of my desires)
--
****************************************************
** Facilior veniam posterius quam prius capere! **
****************************************************
** James F. Cornwall, sole owner of all opinions **
** expressed in this message... **
****************************************************
------------------------------
Date: 28 Feb 2003 10:40:45 -0800
From: neilc252@yahoo.com (Neil C)
Subject: Formmail with file upload addition
Message-Id: <16125239.0302281040.c4b970d@posting.google.com>
To All who can help:
I am using FormMail (you know the one) and we need to be able to add
a file upload portion to it. has anyone here successfully done this.
Most file upload cgi's are method=POST and the FormMail is
method=get.
any help will be great.
neil
------------------------------
Date: 28 Feb 2003 13:54:42 -0500
From: Ryan Shondell <shondell@cis.ohio-state.edu>
Subject: Re: Formmail with file upload addition
Message-Id: <xcw4r6ome19.fsf@psi.cis.ohio-state.edu>
neilc252@yahoo.com (Neil C) writes:
> To All who can help:
>
> I am using FormMail (you know the one) and we need to be able to add
> a file upload portion to it. has anyone here successfully done this.
> Most file upload cgi's are method=POST and the FormMail is
> method=get.
>
> any help will be great.
Oh, I really hope that your "FormMail" is the one from
http://sourceforge.net/projects/nms-cgi/
and not the one from Matt's Script Archive.
If it is Matt's...
1) remove it from your hard drive using any means available to you.
1a) You may then want to burn your hard drive. Soaking it in 15 M
sulfuric acid may also work.
2) Take a shower to remove the surface evil.
3) Find a priest to exorcise your machine and purge your soul.
4) Get the formmail from the above mentioned URL.
Seriously, that code is awful. And it is _very_ unsecure.
Ryan
--
perl -e '$;=q,BllpZllla_nNanfc]^h_rpF,;@;=split//,
$;;$^R.=--$=*ord for split//,$~;sub _{for(1..4){$=
=shift;$=--if$=!=4;while($=){print chr(ord($;[$%])
+shift);$%++;$=--;}print " ";}}_(split//,$^R);q;;'
------------------------------
Date: 28 Feb 2003 10:36:21 -0800
From: betty.lam@babelfish.com (Betty)
Subject: html2ps - page break
Message-Id: <ec006115.0302281036.6f6ab6b6@posting.google.com>
I am having problems with the display of my table when I convert my
html to postscript with html2ps.
I have a table that can contain 100+ rows. I want to split this table
to display a header and 25 rows on each page. I created two
templates: one for the header and the other to list the rows. I'm
using perl to input the information into the html and to insert the
line <!--NewPage--> after 25 rows.
The html looks like this:
<table>
<tr><td>
<table>
<!---header details with images>
</table>
</td></tr>
<tr><td>
<table>
<!---lists 25 items>
</table>
</td></tr>
</table>
<--NewPage-->
<table>
<tr><td>
<table>
<!---header details with images>
</table>
</td></tr>
<tr><td>
<table>
<!---lists 25 items>
</table>
</td></tr>
</table>
My problem is after I convert my html file to postscript, the
resulting ps file is one page with all the subsequent pages overlaying
one another. It looks like the <!--NewPage--> split where i want it
to, but the next page is not displayed on a separate page.
Does anyone have any idea why it may be doing this or how I can fix
this?
Thanks.
------------------------------
Date: Fri, 28 Feb 2003 17:15:12 +0100
From: Malte Ubl <ubl@schaffhausen.de>
Subject: Re: Just a plain Perl manual. But where??
Message-Id: <b3o559$loc$1@news.dtag.de>
Steve O wrote:
> It is so cumbersome and also sad, that you can't get a Perl manual
> from the net.
>
> I would take any usual and general Windows format, .TXT, .DOC, .HLP
> even HTML would be fine, but this kind of documentation just is
> not available in downloadable format.
>
> I see several other people asking this same during several years.
> And they get dozens of "helpful" answers to go to these pages:
> http://www.perl.org/
> http://www.perl.com/CPAN-local/doc/manual/html/pod/perltoc.html
http://www.perldoc.com
> Those pages are monsterous!!! And none of them points you to
> a downloadable version of Perl-manual.
>
> All there is available are those on-line manuals, that require you
> to have line open all the time. And the the in-house "POD-format", that
> must be run through Perl.
> My Perl-5 installation for Windows is not willing to work. And
> I hate to try struggling with it, only to get the Manual working.
> Where is the helpful and generous Open Source spirit now, once
> you would need it?
Do you have Activestate's Perl for Windows? It should be a breeze to
install and it includes extensive HTML documentation.
http://www.activestate.com/Products/ActivePerl/
If you want a book, go buy Programming Perl.
->malte
------------------------------
Date: 28 Feb 2003 16:21:46 GMT
From: roberson@ibd.nrc-cnrc.gc.ca (Walter Roberson)
Subject: Re: Just a plain Perl manual. But where??
Message-Id: <b3o2aq$2up$1@canopus.cc.umanitoba.ca>
In article <3E5F86B9.82982588@nomail.please.se>,
Steve O <steveo@nomail.please.se> wrote:
:It is so cumbersome and also sad, that you can't get a Perl manual
:from the net.
:All there is available are those on-line manuals, that require you
:to have line open all the time. And the the in-house "POD-format", that
:must be run through Perl.
The 'pod' subdirectory of the perl source contains the manual
sources in POD format, along with a pod2man.PL program to do the
conversion. Every time I install perl, it automatically converts
and installs the man pages.
:My Perl-5 installation for Windows is not willing to work. And
:I hate to try struggling with it, only to get the Manual working.
:For Windows apps, you'll just download the app and documents, and
:can use them right away. But for Unix and Perl-type tools, everything
:is sooo complicated, even to get a plain manual is a huge and
:tedious task.
You are being inconsistant about whether you want this to work on
Windows or Unix.
Why not just download those on-line manuals and browse them locally?
If you are looking for a text version, then you can use a text-only
browser such as 'lynx' to go through the HTML.
--
Ceci, ce n'est pas une idée.
------------------------------
Date: Fri, 28 Feb 2003 16:29:45 GMT
From: helgi@decode.is (Helgi Briem)
Subject: Re: Just a plain Perl manual. But where??
Message-Id: <3e5f8bcb.1830601245@news.cis.dfn.de>
On Fri, 28 Feb 2003 17:56:41 +0200, Steve O
<steveo@nomail.please.se> wrote:
>It is so cumbersome and also sad, that you can't get a Perl manual
>from the net.
Of course you can. And you already have it on your
hard drive if you have installed Perl.
If you have the Activeperl version, you also have
it in HTML. In any case, POD is easy to convert to
HTML using pod2html which comes standard
with your Perl.
>I would take any usual and general Windows format, .TXT, .DOC, .HLP
>even HTML would be fine, but this kind of documentation just is
>not available in downloadable format.
All are already on your hard drive.
>I see several other people asking this same during several years.
>And they get dozens of "helpful" answers to go to these pages:
>http://www.perl.org/
>http://www.perl.com/CPAN-local/doc/manual/html/pod/perltoc.html
It's there too. If you want a book, buy a book.
I recommend "Elements of Programming with Perl"
if you don't know anything about programming at
all, ehich is what it sounds like. If you do, "Learning
Perl" is excellent and "Programming Perl" is the
definitive reference.
>Those pages are monsterous!!! And none of them points you to
>a downloadable version of Perl-manual.
B****it.
>All there is available are those on-line manuals, that require you
>to have line open all the time.
Every programmer in the world should *always* have a
command line open all the time. How on earth would
you get any work done without it??
>And the the in-house "POD-format", that
>must be run through Perl.
No. POD is plain text and can be opened in any text
editor or word processor.
>My Perl-5 installation for Windows is not willing to work.
What?? What have you tried?
>And I hate to try struggling with it, only to get the Manual working.
>Where is the helpful and generous Open Source spirit now, once
>you would need it?
>There has been some Perl manual, back in 1995, but that URL is
>outdated.
>
>My simple need is to make some changes to Perl scripts on my ISP's
>server, and I'm not intending to get being any level Perl specialist.
If you don't want to learn Perl, what the f*** are you
posting to a Perl newsgroup for???
>Just read the manual how to Open, Read a date from inside, change
>the date and Save the file back with Perl.
perldoc -q insert will tell you all about that
>For Windows apps, you'll just download the app and documents,
And so with Perl.
>and can use them right away.
Yep.
>But for Unix and Perl-type tools, everything is sooo complicated,
>even to get a plain manual is a huge and tedious task.
Programming is not easy, but programming in Perl is *much*
easier than almost any other language in the world and
the tools are easier to install and easier to use.
>I'm now so pissed, that I really can not hope Unix/Linux to win any
>more market room, and Windows to loose it. That ure is not the way
>to go.
>Thanks for reading this far.
I very nearly didn't. A little courtesy goes a *long*
way if you are *begging* for help.
--
Regards, Helgi Briem
helgi AT decode DOT is
------------------------------
Date: 28 Feb 2003 12:36:03 -0500
From: Ryan Shondell <shondell@cis.ohio-state.edu>
Subject: Re: Just a plain Perl manual. But where??
Message-Id: <xcwisv4mhoc.fsf@psi.cis.ohio-state.edu>
helgi@decode.is (Helgi Briem) writes:
> On Fri, 28 Feb 2003 17:56:41 +0200, Steve O
> <steveo@nomail.please.se> wrote:
> >Those pages are monsterous!!! And none of them points you to
> >a downloadable version of Perl-manual.
>
> B****it.
Biscuit? Babysit? Benefit? I give up... :-)
Ryan
--
perl -e '$;=q,BllpZllla_nNanfc]^h_rpF,;@;=split//,
$;;$^R.=--$=*ord for split//,$~;sub _{for(1..4){$=
=shift;$=--if$=!=4;while($=){print chr(ord($;[$%])
+shift);$%++;$=--;}print " ";}}_(split//,$^R);q;;'
------------------------------
Date: Fri, 28 Feb 2003 17:53:40 GMT
From: Steven Smolinski <steven.smolinski@sympatico.ca>
Subject: Re: Just a plain Perl manual. But where??
Message-Id: <EmN7a.13927$os6.1054615@news20.bellglobal.com>
Steve O <steveo@nomail.please.se> wrote:
> It is so cumbersome and also sad, that you can't get a Perl manual
> from the net.
<snip long unproductive whine>
If you install Activestate perl for Windows, the docs in HTML format
will be in your start menu. It does everything but drool for you.
http://www.activestate.com/Products/Download/Download.plex?id=ActivePerl
Steve
--
Steven Smolinski => http://arbiter.ca/
GnuPG Public Key => http://arbiter.ca/steves_public_key.txt
=> or email me with 'auto-key' in the subject.
Key Fingerprint => 08C8 6481 3A7B 2A1C 7C26 A5FC 1A1B 66AB F637 495D
------------------------------
Date: Fri, 28 Feb 2003 18:27:45 -0000
From: "David K. Wall" <usenet@dwall.fastmail.fm>
Subject: Re: Just a plain Perl manual. But where??
Message-Id: <Xns933088F22AB8Bdkwwashere@216.168.3.30>
Helgi Briem <helgi@decode.is> wrote on 28 Feb 2003:
> On Fri, 28 Feb 2003 17:56:41 +0200, Steve O
><steveo@nomail.please.se> wrote:
>
>>All there is available are those on-line manuals, that require you
>>to have line open all the time.
>
> Every programmer in the world should *always* have a
> command line open all the time. How on earth would
> you get any work done without it??
I think the OP is talking about perldoc.com, which you have to be
online to access. But I could be mistaken.
--
David K. Wall - usenet@dwall.fastmail.fm
"Oook."
------------------------------
Date: Fri, 28 Feb 2003 17:08:02 GMT
From: "Ron Ruble" <raffles2@att.net>
Subject: Re: Killing "process groups" on Win32
Message-Id: <SHM7a.4807$Uy4.379618@bgtnsc05-news.ops.worldnet.att.net>
"Allan Herriman" <allan_herriman.hates.spam@agilent.com> wrote in message news:jnnr5v4b5t3mgobfvtb64jvjq7f841kfl2@4ax.com...
> Hi,
>
> I'm trying to kill a subprocess and all its children.
>
> Does anyone know how I can do this?
>
> The bad news is that I'm using Activestate perl 5.6 or 5.8 on NT or
> Windows 2000, and I don't think windows has the concept of a process
> group. (Actually 2000 has "jobs" in its API, but these don't seem to
> be available through Perl. In any case, they wouldn't work on NT.)
You are correct. Processes are all peers on NT; there is
no automatic mechanism for finding and killing a process
group, since there is no such thing. There are various
coding techniques to allow "child" processes to detect
the parent was killed, and commit suicide, but nothing
automatic.
------------------------------
Date: Fri, 28 Feb 2003 16:27:13 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Question about text processing
Message-Id: <x7vfz49xr3.fsf@mail.sysarch.com>
>>>>> "HB" == Helgi Briem <helgi@decode.is> writes:
HB> $_ = "asdgfsi uad ghi8osadfg´pg´æosjg lisjafgijhsg
HB> fjf\nsg9fag\thdfghdf9gj9fjgf9asgjdf9asgjaftu05t\noign
HB> hvbodvog\rhdfoghdfhg\n";
HB> 'transliterate' => sub { tr/\s/ /; },
HB> 'substitute' => sub { s/\s+/ /;},
it helps if you compare the same operation. the first replaces any
single \s with a single blank. the second replaces the first string of
white space with a single blank.
and since your code works on the SAME string over and over without
reassigning it, the tr keeps doing its work over the whole string but
the s/// will only replace the leading space (of which there is none)
and quit. so of course s/// will look faster. and you don't have any
sequences of white spaces.
HB> Woe and behold, substitution appears to be faster,
HB> at least on the face of it. On the other hand, I
HB> had to go up to 10 million cycles to get a measurable
HB> difference between them.
search google for other benchmarks of this and see how it is done
properly. tr is much faster than s/// for the things it can do.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
----- Stem and Perl Development, Systems Architecture, Design and Coding ----
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
Damian Conway Perl Classes - January 2003 -- http://www.stemsystems.com/class
------------------------------
Date: Fri, 28 Feb 2003 16:53:32 -0000
From: "Peter Cooper" <newsfeed2@boog.co.uk>
Subject: Re: Question about text processing
Message-Id: <ttM7a.7669$EN3.59628@newsfep4-glfd.server.ntli.net>
> it helps if you compare the same operation. the first replaces any
> single \s with a single blank. the second replaces the first string of
> white space with a single blank.
I rearranged his code so it made sure you had the string renewed each time, and
the tr was fixed to use the /s modifier, as it should be.
Results:
s: 5 wallclock secs ( 5.17 usr + 0.01 sys = 5.18 CPU) @ 386249.52/s
(n=2000000)
tr: 6 wallclock secs ( 5.11 usr + 0.00 sys = 5.11 CPU) @ 391619.35/s
(n=2000000)
I ran these a few times. So tr definitely seems faster on a like-for-like,
although the effect seems negligible.. although most small differences do until
you have a server that needs to start doing stuff thousands of times a second
:-)
Pete
------------------------------
Date: Fri, 28 Feb 2003 17:01:04 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Question about text processing
Message-Id: <x7r89s9w6p.fsf@mail.sysarch.com>
>>>>> "PC" == Peter Cooper <newsfeed2@boog.co.uk> writes:
>> it helps if you compare the same operation. the first replaces any
>> single \s with a single blank. the second replaces the first string of
>> white space with a single blank.
PC> I rearranged his code so it made sure you had the string renewed
PC> each time, and the tr was fixed to use the /s modifier, as it
PC> should be.
show your code.
did s/// have the /g option?
did you have sequences of white space throughout the strings?
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
----- Stem and Perl Development, Systems Architecture, Design and Coding ----
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
Damian Conway Perl Classes - January 2003 -- http://www.stemsystems.com/class
------------------------------
Date: 28 Feb 2003 09:17:51 -0800
From: zix6@yahoo.com (Zix)
Subject: Reading configuration files using strict
Message-Id: <3f1e5480.0302280917.12b18628@posting.google.com>
I'm trying to mimic recipe 8.16 (Reading configuration files) from the
Perl Cookbook.
however when I use strict I can't get to my variables that I declared
in the config file.
ie,
my.conf:
$NETMASK = '255.255.255.0';
$MTU = 0x128
my.pl:
use strict;
do "my.conf";
print "$NETMASK\n"; # error; $NETMASK wasn't declared.
next, I declare $NETMASK using my:
my.pl:
use strict;
my $NETMASK;
do "my.conf";
print "$NETMASK\n"; # runs, but nothing gets output
oh well, let's try "our" instead:
my.pl:
use strict;
our $NETMASK;
do "my.conf";
print "$NETMASK\n"; # it works!!
But, why? Shouldn't have the version using "my" have worked also?
Thanks,
Zix
------------------------------
Date: Fri, 28 Feb 2003 12:45:51 -0600
From: Jeff D Gleixner <glex_nospam@qwest.net>
Subject: Re: Reading configuration files using strict
Message-Id: <e5O7a.614$IE.47486@news.uswest.net>
Zix wrote:
> But, why? Shouldn't have the version using "my" have worked also?
No.
See http://perl.plover.com/FAQs/Namespaces.html
------------------------------
Date: 28 Feb 2003 10:33:22 -0800
From: bennett@peacefire.org (Bennett Haselton)
Subject: Re: regexp to *not* match a certain character sequence
Message-Id: <e614455c.0302281033.6428477a@posting.google.com>
"Bernard El-Hagin" <bernard.el-hagin@DODGE_THISlido-tech.net> wrote in message news:<Xns9330567C6EBCBelhber1lidotechnet@62.89.127.66>...
> Bennett Haselton wrote:
>
> > "Bernard El-Hagin" <bernard.el-hagin@DODGE_THISlido-tech.net> wrote in
> > message news:<Xns932F4E7093D07elhber1lidotechnet@62.89.127.66>...
> >> Bennett Haselton wrote:
> >>
> >> > Pretty elementary I know, but I've read the sections about regular
> >> > expressions in 3 Perl books and I can't find anything about how to
> >> > match a string of characters that does not contain a given
> >> > character sequence. For example, if I have a string of the form:
> >> >
> >> > <a href = "http://www.yahoo.com/">first link</a><a href =
> >> > "http://www.peacefire.org/">This <b>might</b> work</a>
> >> >
> >> > and I'm not sure whether or not the first link will be present, but
> >> > I want to get the text of the second link, then how do I extract
> >> > the 'This <b>might</b> work' part?
> >>
> >>
> >> How about this:
> >>
> >>
> >> $string =~ m!<a href[^>]+>(.*)</a>$!;
> >
> > That doesn't seem to work, same problem as before:
>
>
> It works for me:
>
> ---------
> #!/usr/bin/perl
> use warnings;
> use strict;
>
> my $string = '<a href = "http://www.yahoo.com/">first link</a><a href =
> "http://www.peacefire.org/">This <b>might</b> work</a>';
>
> $string =~ m!<a href[^>]+>(.*)</a>$!;
>
> print "[$1]";
> ---------
>
>
> This results in: [This <b>might</b> work]
Actually it only "worked" because when I posted the message, a newline
automatically got inserted into the code that wasn't there before.
This code has the long string spread over two lines and concatenated:
***
my $string = '<a href = "http://www.yahoo.com/">first link</a><a href
= ' .
'"http://www.peacefire.org/">This <b>might</b> work</a>';
$string =~ m!<a href[^>]+>(.*)</a>$!;
print "[$1]";
***
and it shows the "(.*)" being greedy and outputs:
[first link</a><a href = "http://www.peacefire.org/">This <b>might</b>
work]
What I was surprised by at first is that even if you change it to
"(.*?)" to supposedly make it non-greedy:
***
my $string = '<a href = "http://www.yahoo.com/">first link</a><a href
= ' .
'"http://www.peacefire.org/">This <b>might</b> work</a>';
$string =~ m!<a href[^>]+>(.*?)</a>$!;
print "[$1]";
***
it still outputs:
[first link</a><a href = "http://www.peacefire.org/">This <b>might</b>
work]
confirming that the left-to-right-ness of the pattern matching seems
to override the non-greediness. The "<a href" in the regexp gets
locked to the first occurrence of "<a href" in the string to be
matched, so by the time perl gets to the "(.*?)", it has no choice but
to match that with everything remaining up until the second "</a>".
-Bennett
------------------------------
Date: Fri, 28 Feb 2003 18:48:27 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: regular expression or not
Message-Id: <3E5FAEFD.31D84E0E@acm.org>
D wrote:
>
> how would i write a regular expression to format a time field ? i get
> values from a database like 430 and 2130, and sometimes even just 30. i
> want those values to read 04:30, 21:30, 00:30 when i display them. or
> should i not use a regular expression ?
You don't need a regular expression to do this.
$time_field = 430;
my $minutes = substr $time_field, -2, 2, '';
my $time = sprintf '%02d:%02d', $time_field, $minutes;
print "$time\n";
John
--
use Perl;
program
fulfillment
------------------------------
Date: 28 Feb 2003 19:04:57 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: regular expression question *NOT PERL-SPECIFIC*
Message-Id: <slrnb5vcmp.hsk.abigail@alexandra.abigail.nl>
C3 (someone@microsoft.com) wrote on MMMCDLXVIII September MCMXCIII in
<URL:news:3e5f2965$0$12820$afc38c87@news.optusnet.com.au>:
@@ Perhaps you'd want to consider that you in fact are the stupid one in this
@@ case. Not only stupid, but prejudiced by a combination of zealoted elitism
@@ and lack of sense of humour.
*PLOINK*
Abigail
--
BEGIN {my $x = "Knuth heals rare project\n";
$^H {integer} = sub {my $y = shift; $_ = substr $x => $y & 0x1F, 1;
$y > 32 ? uc : lc}; $^H = hex join "" => 2, 1, 1, 0, 0}
print 52,2,10,23,16,8,1,19,3,6,15,12,5,49,21,14,9,11,36,13,22,32,7,18,24;
------------------------------
Date: Fri, 28 Feb 2003 18:11:22 GMT
From: Hermeto Mendes <hermeto@hotmail.com.invalid>
Subject: Re: Simple question about Perl Regular Expressions
Message-Id: <Xns9330C3910FEA8ilovespamdarpagovmil@195.34.132.21>
[Hermeto Mendes] [hermeto@hotmail.com] :
>
> 'firstname lastname|lastname\, firstname'
>
Thanks Anno, Eric, Tore,
for your help.
Unfortunately my problem has to be solved just with Perl RegExp's, not
with Perl.
This 'first- and lastname' construction would be used as a
filter/killfile in the newsreader-application Xnews.
It would be time- and space-saving if it would be possible to omit the
redundant second entry of any name.
But, unfortunately, Xnews does not recognise Perl in its ini-file, just
simple RegExp's.
I just wanted a simple writing for:
IF "firstname" AND "lastname" occur in ANY order, THEN kill the
poster/subject/whatever..
and
'firstname lastname|lastname\, firstname'
seems to be the shortest writing for that on the RegExp-level.
But I wanted to double-check with the experts :]
Thanks again for your help.
Hermeto
------------------------------
Date: 28 Feb 2003 16:59:06 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de>
Subject: Re: Using AuthTicket with a Mac?
Message-Id: <b3o4gq$50o$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Tony L. Svanstrom:
> ... but AFAIK it's only cows that benefit from classical music,
What, do they give more milk when faced with classical music?
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Fri, 28 Feb 2003 18:55:17 GMT
From: tony@svanstrom.com (Tony L. Svanstrom)
Subject: Re: Using AuthTicket with a Mac?
Message-Id: <1fr3wlu.1xglkns12gnif4N%tony@svanstrom.com>
Tassilo v. Parseval <tassilo.parseval@post.rwth-aachen.de> wrote:
> Also sprach Tony L. Svanstrom:
>
> > ... but AFAIK it's only cows that benefit from classical music,
>
> What, do they give more milk when faced with classical music?
They (google for it, I read it in a swedish newspaper, I think) have
tried different kinds of music, and the cows did give more/less milk
depending on what kind of music they played. =)
--
# Per scientiam ad libertatem! // Through knowledge towards freedom! #
# Genom kunskap mot frihet! =*= (c) 1999-2002 tony@svanstrom.com =*= #
perl -e'print$_{$_} for sort%_=`lynx -source svanstrom.com/t`'
------------------------------
Date: 28 Feb 2003 08:41:03 -0800
From: Crapnut566@yahoo.com (Nataku)
Subject: Using Perl to Check Printing Services
Message-Id: <7e48fc99.0302280841.716df57c@posting.google.com>
Hello fellow perl gurus. I have a question for the masses I have been
pondering for a while.
I have used perl to great effect for many things. Most recently being
a plugin for Nagios ( check sourceforge if you are interested ) to
check windows computers by using SMBClient. This worked perfectly,
after a few stumblings with collecting the output from the client.
Now here is what I wish to do now. Another plugin for Nagios, but
this time, to check Windows Printing Spoolers. Basically I would like
Nagios to keep tabs on near everything so I or others at my place of
employment dont have to.
Any ideas on any modules I could use to poll these services? I have
checked around the web, but the closest I can find is a package to
create services in windows using perl - and not simply to check them.
------------------------------
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.
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 V10 Issue 4643
***************************************
