[18367] in Perl-Users-Digest
Perl-Users Digest, Issue: 535 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Mar 20 14:15:03 2001
Date: Tue, 20 Mar 2001 11:10:23 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <985115422-v10-i535@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 20 Mar 2001 Volume: 10 Number: 535
Today's topics:
Script for mail forwarding? <simberg@interglobal.org>
Re: Script for mail forwarding? (Randal L. Schwartz)
Re: Script for mail forwarding? <peb@bms.umist.ac.uk>
Re: Script for mail forwarding? (Abigail)
Re: Script for mail forwarding? <simberg@interglobal.org>
Re: Script for mail forwarding? <simberg@interglobal.org>
Re: Script for mail forwarding? <simberg@interglobal.org>
Re: Script for mail forwarding? (Randal L. Schwartz)
Re: Script for mail forwarding? (Randal L. Schwartz)
Re: Script for mail forwarding? (Randal L. Schwartz)
Re: Script for mail forwarding? <simberg@interglobal.org>
Short Course Announcement <s.verkaik@ic.ac.uk>
Short Course Announcement <s.verkaik@ic.ac.uk>
Re: Short Course Announcement (David H. Adler)
substitution for /^[\w\.]\w*/ <tltabor@earthlink.net>
Re: substitution for /^[\w\.]\w*/ (Randal L. Schwartz)
Re: substitution for /^[\w\.]\w*/ (Greg Bacon)
Very new to Perl - desperate for help! <daley@cs.man.ac.uk>
Re: Why do "Learning Perl" Books Do This? A Subroutine <comdog@panix.com>
Re: win32: accessing file in same Drive where cgi-bin r <me@my_no_spam.org>
Win32::TieRegistry <Landeck.c@zdf.de>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 20 Mar 2001 14:57:31 GMT
From: Rand Simberg <simberg@interglobal.org>
Subject: Script for mail forwarding?
Message-Id: <3AB76EEF.B42CD918@interglobal.org>
Is anyone aware of a canned script (either shell script or perl) for
forwarding mail to aliased accounts? (i.e., I have several domains on a
server, and all of the mail goes to me by default, but I'd like specific
domains or names@domains to get forwarded to some of my clients
transparently.) The script would just go through my mbox and filter on
the recipient name, preserving all other headers, and then resend it to
the aliased address. It seems like a simple and common application, but
a web search didn't turn anything up.
------------------------------
Date: 20 Mar 2001 07:24:29 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Script for mail forwarding?
Message-Id: <m1itl4v4ya.fsf@halfdome.holdit.com>
>>>>> "Rand" == Rand Simberg <simberg@interglobal.org> writes:
Rand> Is anyone aware of a canned script (either shell script or perl) for
Rand> forwarding mail to aliased accounts? (i.e., I have several domains on a
Rand> server, and all of the mail goes to me by default, but I'd like specific
Rand> domains or names@domains to get forwarded to some of my clients
Rand> transparently.) The script would just go through my mbox and filter on
Rand> the recipient name, preserving all other headers, and then resend it to
Rand> the aliased address. It seems like a simple and common application, but
Rand> a web search didn't turn anything up.
That's actually insufficient. Unless you captured the "envelope-to"
at the time of delivery, you'll have no authoritative clue about why
you have a particular piece of mail in your folder.
For example, this mail sends mail with a "to:" header of frankie@oldsongs.comm,
but the message will be delivered to johnny@songs.nett:
$ /usr/lib/sendmail johnny@songs.nett
To: frankie@oldsongs.comm
From: merlyn@stonehenge.com
Subject: hi there
Hey, wazzzzzzzzup!
^D
delivering to johnny@songs.nett.... sent.
$
If you're the handler for _______@songs.nett, you'll now have no clue
to whom to deliver. And this happens a *lot* on the net. About a
quarter of the mail I get is from mailing lists which have no
recipient listed, or was redirected email with perhaps a misleading
message.
Continuing this, suppose that johnny@songs.nett had a forwarding file
like a ".forward" to his buddy stevie@songs.nett - you'd deliver to
johnny@songs.nett because some "to:" header said that, and johnny'd
drop it right back in your lap again, and you'd deliver to him again,
and ... ooops! Mail loops are very bad. Very Bad.
So, until you can capture the "envelope-to", don't do this. Parsing
header-to's is wrong about a quarter of the time, and that's too much
to misdeliver.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@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!
------------------------------
Date: Tue, 20 Mar 2001 15:31:53 +0000
From: Paul Boardman <peb@bms.umist.ac.uk>
Subject: Re: Script for mail forwarding?
Message-Id: <3AB777E9.BDDDE322@bms.umist.ac.uk>
Rand Simberg wrote:
>
> Is anyone aware of a canned script (either shell script or perl) for
> forwarding mail to aliased accounts? (i.e., I have several domains on a
> server, and all of the mail goes to me by default, but I'd like specific
> domains or names@domains to get forwarded to some of my clients
> transparently.) The script would just go through my mbox and filter on
> the recipient name, preserving all other headers, and then resend it to
> the aliased address. It seems like a simple and common application, but
> a web search didn't turn anything up.
If you're on a Unix/Linux machine have a look at
man forward
Paul
------------------------------
Date: Tue, 20 Mar 2001 16:25:36 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: Script for mail forwarding?
Message-Id: <slrn9bf140.2bu.abigail@tsathoggua.rlyeh.net>
Rand Simberg (simberg@interglobal.org) wrote on MMDCCLVIII September
MCMXCIII in <URL:news:3AB76EEF.B42CD918@interglobal.org>:
,, Is anyone aware of a canned script (either shell script or perl) for
,, forwarding mail to aliased accounts? (i.e., I have several domains on a
,, server, and all of the mail goes to me by default, but I'd like specific
,, domains or names@domains to get forwarded to some of my clients
,, transparently.) The script would just go through my mbox and filter on
,, the recipient name, preserving all other headers, and then resend it to
,, the aliased address. It seems like a simple and common application, but
,, a web search didn't turn anything up.
procmail
Abigail
------------------------------
Date: Tue, 20 Mar 2001 17:35:22 GMT
From: Rand Simberg <simberg@interglobal.org>
Subject: Re: Script for mail forwarding?
Message-Id: <3AB794A4.7CAFA96D@interglobal.org>
Abigail wrote:
> procmail
Can I configure/use that if I'm not root? The whole point is to avoid the
$2/month ISP charges for the mailbox forwards that I have to pay now. I was
looking for a script that I can just run on my own incoming mail--not for the
entire server.
------------------------------
Date: Tue, 20 Mar 2001 17:37:00 GMT
From: Rand Simberg <simberg@interglobal.org>
Subject: Re: Script for mail forwarding?
Message-Id: <3AB79506.AEE698B@interglobal.org>
Paul Boardman wrote:
> If you're on a Unix/Linux machine have a look at
>
> man forward
I'll check it out--thanx...
------------------------------
Date: Tue, 20 Mar 2001 17:39:27 GMT
From: Rand Simberg <simberg@interglobal.org>
Subject: Re: Script for mail forwarding?
Message-Id: <3AB79599.F1B83EFE@interglobal.org>
"Randal L. Schwartz" wrote:
> That's actually insufficient. Unless you captured the "envelope-to"
> at the time of delivery, you'll have no authoritative clue about why
> you have a particular piece of mail in your folder.
>
> <explanation of why snipped>
> So, until you can capture the "envelope-to", don't do this. Parsing
> header-to's is wrong about a quarter of the time, and that's too much
> to misdeliver.
So what is the solution? Right now I have seven mailboxes being forwarded, for
which the ISP is charging me two bucks per mailbox per month. Is there no way that
I can do this myself (and add other aliases)?
------------------------------
Date: 20 Mar 2001 09:44:29 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Script for mail forwarding?
Message-Id: <m1snk8s5c2.fsf@halfdome.holdit.com>
>>>>> "Rand" == Rand Simberg <simberg@interglobal.org> writes:
Rand> Can I configure/use that if I'm not root? The whole point is to
Rand> avoid the $2/month ISP charges for the mailbox forwards that I
Rand> have to pay now. I was looking for a script that I can just run
Rand> on my own incoming mail--not for the entire server.
It's possible to get envelope-to, provided the setup is right, and in
fact procmail is the *only* way to do it for some ISPs (like mine).
What you need to do is ask your ISP "how can I get envelope-to". If
they give you the scooby-do "hunnh?" look, you have a lame ISP --
change.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@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!
------------------------------
Date: 20 Mar 2001 09:45:43 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Script for mail forwarding?
Message-Id: <m1lmq0s5a0.fsf@halfdome.holdit.com>
>>>>> "Rand" == Rand Simberg <simberg@interglobal.org> writes:
Rand> Paul Boardman wrote:
>> If you're on a Unix/Linux machine have a look at
>>
>> man forward
Rand> I'll check it out--thanx...
"man forward" returns "not found" on my Linux box. Beware... this was
probably a local install for the other poster.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@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!
------------------------------
Date: 20 Mar 2001 09:48:22 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Script for mail forwarding?
Message-Id: <m1elvss55l.fsf@halfdome.holdit.com>
>>>>> "Rand" == Rand Simberg <simberg@interglobal.org> writes:
Rand> So what is the solution? Right now I have seven mailboxes being
Rand> forwarded, for which the ISP is charging me two bucks per
Rand> mailbox per month. Is there no way that I can do this myself
Rand> (and add other aliases)?
It depends on the MTA they run. If it's sendmail, you can add the
procmail hack marked with "joey@teleport.com" which I co-developed and
became part of standard sendmail. Then you can get to the envelope-to
with an out-of-band parameter in your procmailrc.
I'm told qmail also has an envelope-to translated as a header, but
that scares me for spoofability if it's not matched-for properly.
So, you need a clueful sysadm to tell you how to get at envelope-to.
If they can't tell you, they either can't or won't do it, and you're
stuck.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@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!
------------------------------
Date: Tue, 20 Mar 2001 18:19:50 GMT
From: Rand Simberg <simberg@interglobal.org>
Subject: Re: Script for mail forwarding?
Message-Id: <3AB79F0C.5166F367@interglobal.org>
"Randal L. Schwartz" wrote:
> >>>>> "Rand" == Rand Simberg <simberg@interglobal.org> writes:
>
> Rand> Can I configure/use that if I'm not root? The whole point is to
> Rand> avoid the $2/month ISP charges for the mailbox forwards that I
> Rand> have to pay now. I was looking for a script that I can just run
> Rand> on my own incoming mail--not for the entire server.
>
> It's possible to get envelope-to, provided the setup is right, and in
> fact procmail is the *only* way to do it for some ISPs (like mine).
>
> What you need to do is ask your ISP "how can I get envelope-to". If
> they give you the scooby-do "hunnh?" look, you have a lame ISP --
> change.
Well, they may play dumb so that they can keep charging me the $14.00+ per
month. I don't really want to change--they give me unlimited domains for a
reasonable monthly fee ($40.00)--it's the mailbox forwarding charge, and the fact
that I have to ask them every time I need a new forward, that irritates me.
Thanx for the advice.
------------------------------
Date: Tue, 20 Mar 2001 14:05:38 +0000
From: Sally Verkaik <s.verkaik@ic.ac.uk>
Subject: Short Course Announcement
Message-Id: <3AB763B2.4C683B32@ic.ac.uk>
--------------C94E90E252CAB609EED27914
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
High Frequency CMOS & Bipolar Design @ Imperial College, London, UK
2 - 6 April 2001
A 5-day course to equip electronics engineers, circuit and system
designers, and application engineers with a good appreciation of high
frequency analog design techniques, using both submicron CMOS and
complementary bipolar technologies. Suitable for those who wish to
enhance their ability to design circuits which operate with
state-of-the-art performance. Presented by Prof. Chris Toumazou and Dr.
Alison Payne from Imperial College with Prof. John Lidgey from Oxford
Brookes University.
We would be most grateful if you could pass this information on to your
colleagues who might be interested.
Further details from: Ulrika Wernmark, Centre for Continuing
Education, Imperial College, Room 526 Sherfield Building, Exhibition
Road, London SW7 2AZ, UK or look at our website:
http://www.ad.ic.ac.uk/cpd/highfreq.htm
Tel: +44(0)20 7594 6886; Fax: +44(0)20 7594 6883;
Email: u.wernmark@ic.ac.uk
--------------C94E90E252CAB609EED27914
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<HTML>
<B>High Frequency CMOS & Bipolar Design @ Imperial College, London,
UK</B>
<BR><B>2 - 6 April 2001</B>
<P>A 5-day course to equip electronics engineers, circuit and system designers,
and application engineers with a good appreciation of high frequency analog
design techniques, using both submicron CMOS and complementary bipolar
technologies. Suitable for those who wish to enhance their ability to design
circuits which operate with state-of-the-art performance. Presented by
Prof. Chris Toumazou and Dr. Alison Payne from Imperial College with Prof.
John Lidgey from Oxford Brookes University.
<P>We would be most grateful if you could pass this information on to your
colleagues who might be interested.
<P>Further details from: Ulrika Wernmark, Centre for Continuing
Education, Imperial College, Room 526 Sherfield Building, Exhibition Road,
London SW7 2AZ, UK or look at our website: <A HREF="http://www.ad.ic.ac.uk/cpd/highfreq.htm">http://www.ad.ic.ac.uk/cpd/highfreq.htm</A>
<P>Tel: +44(0)20 7594 6886; Fax: +44(0)20 7594 6883;
<BR>Email: u.wernmark@ic.ac.uk</HTML>
--------------C94E90E252CAB609EED27914--
------------------------------
Date: Tue, 20 Mar 2001 14:16:48 +0000
From: Sally Verkaik <s.verkaik@ic.ac.uk>
Subject: Short Course Announcement
Message-Id: <3AB7664F.69C8702C@ic.ac.uk>
--------------C154E1FA7C3626D5FBF2E3C4
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
High Frequency CMOS & Bipolar Design @ Imperial College, London, UK
2 - 6 April 2001
A 5-day course to equip electronics engineers, circuit and system
designers, and application engineers with a good appreciation of high
frequency analog design techniques, using both submicron CMOS and
complementary bipolar technologies. Suitable for those who wish to
enhance their ability to design circuits which operate with
state-of-the-art performance. Presented by Prof. Chris Toumazou and Dr.
Alison Payne from Imperial College with Prof. John Lidgey from Oxford
Brookes University.
We would be most grateful if you could pass this information on to your
colleagues who might be interested.
Further details from: Ulrika Wernmark, Centre for Continuing
Education, Imperial College, Room 526 Sherfield Building, Exhibition
Road, London SW7 2AZ, UK or look at our website:
http://www.ad.ic.ac.uk/cpd/highfreq.htm
Tel: +44(0)20 7594 6886; Fax: +44(0)20 7594 6883;
Email: u.wernmark@ic.ac.uk
--------------C154E1FA7C3626D5FBF2E3C4
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<HTML>
<B>High Frequency CMOS & Bipolar Design @ Imperial College, London,
UK</B>
<BR><B>2 - 6 April 2001</B>
<P>A 5-day course to equip electronics engineers, circuit and system designers,
and application engineers with a good appreciation of high frequency analog
design techniques, using both submicron CMOS and complementary bipolar
technologies. Suitable for those who wish to enhance their ability to design
circuits which operate with state-of-the-art performance. Presented by
Prof. Chris Toumazou and Dr. Alison Payne from Imperial College with Prof.
John Lidgey from Oxford Brookes University.
<P>We would be most grateful if you could pass this information on to your
colleagues who might be interested.
<P>Further details from: Ulrika Wernmark, Centre for Continuing
Education, Imperial College, Room 526 Sherfield Building, Exhibition Road,
London SW7 2AZ, UK or look at our website: <A HREF="http://www.ad.ic.ac.uk/cpd/highfreq.htm">http://www.ad.ic.ac.uk/cpd/highfreq.htm</A>
<P>Tel: +44(0)20 7594 6886; Fax: +44(0)20 7594 6883;
<BR>Email: u.wernmark@ic.ac.uk</HTML>
--------------C154E1FA7C3626D5FBF2E3C4--
------------------------------
Date: 20 Mar 2001 19:00:56 GMT
From: dha@panix2.panix.com (David H. Adler)
Subject: Re: Short Course Announcement
Message-Id: <slrn9bfa78.f8r.dha@panix2.panix.com>
On Tue, 20 Mar 2001 14:16:48 +0000, Sally Verkaik <s.verkaik@ic.ac.uk> wrote:
>
>--------------C154E1FA7C3626D5FBF2E3C4
>Content-Type: text/plain; charset=us-ascii
>Content-Transfer-Encoding: 7bit
>
>High Frequency CMOS & Bipolar Design @ Imperial College, London, UK
>2 - 6 April 2001
I am impressed.
You have posted the same off-topic, not in plain text message twice.
Please go away.
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
"I think I'd better sit down."
"You are sitting down."
"Oh. Good for me."
- Buffy the Vampire Slayer, "Welcome to the Hellmouth"
------------------------------
Date: Tue, 20 Mar 2001 18:28:06 GMT
From: "Tim Tabor" <tltabor@earthlink.net>
Subject: substitution for /^[\w\.]\w*/
Message-Id: <WiNt6.13520$Im6.1435861@newsread1.prod.itd.earthlink.net>
Can y'all help me with s/// ?
I need to conform any string to this regex:
/^[\w\.]\w*/
by removing 'illegal' characters.
Any specific web or literature citations for this sort of problem
would also be appreciated.
Many thanks.
// tim
------------------------------
Date: 20 Mar 2001 10:46:42 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: substitution for /^[\w\.]\w*/
Message-Id: <m1k85kqnvx.fsf@halfdome.holdit.com>
>>>>> "Tim" == Tim Tabor <tltabor@earthlink.net> writes:
Tim> Can y'all help me with s/// ?
Tim> I need to conform any string to this regex:
Tim> /^[\w\.]\w*/
Tim> by removing 'illegal' characters.
Presuming \w is [a-zA-Z0-9_] (not true internationally, but then you run
into other worm cans instead):
$_ = "your string":
substr($_, 1) =~ tr/a-zA-Z0-9_//cd if length >= 1; # might change length
substr($_, 0, 1) =~ tr/a-zA-Z0-9_.//cd if length; # might change length
die unless length > 1; # not long enough
print "your string is now ... $_\n";
Tim> Any specific web or literature citations for this sort of problem
Tim> would also be appreciated.
Right here. :)
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@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!
------------------------------
Date: Tue, 20 Mar 2001 18:55:36 -0000
From: gbacon@HiWAAY.net (Greg Bacon)
Subject: Re: substitution for /^[\w\.]\w*/
Message-Id: <tbf9t8abkadh4b@corp.supernews.com>
In article <WiNt6.13520$Im6.1435861@newsread1.prod.itd.earthlink.net>,
Tim Tabor <tltabor@earthlink.net> wrote:
: Can y'all help me with s/// ?
:
: I need to conform any string to this regex:
: /^[\w\.]\w*/
:
: by removing 'illegal' characters.
#! /usr/local/bin/perl -w
use strict;
$_ = '99999.fo..o.b.ar';
s/^[^\w.]+//;
1 while s/^(.)(\w*)\W+(\w*)/$1$2$3/;
print "\$_ = '$_'\n";
Hope this helps,
Greg
--
VMS is a text-only adventure game. If you win you can use Unix.
-- Bill Davidsen
------------------------------
Date: Tue, 20 Mar 2001 18:01:49 GMT
From: Rich Daley <daley@cs.man.ac.uk>
Subject: Very new to Perl - desperate for help!
Message-Id: <1103_985111309@owlsound>
I've got this script. After a lot of help from comp.programming, I was referred here when my problems became too numerous...
The script is below. I discovered that my web server (f2s.com) didn't include the necessary Perl modules (LWP::Simple and HTTP::Status), so I installed
them to ~/www.owl.f2s.com/perl-lib , and added the line "use lib '../perl-lib';" to my script.
Now all my script returns is
>ERROR
>The requested URL could not be retrieved
>While trying to retrieve the URL:
>[no URL]
>The following error was encountered:
>Zero Sized Reply
>Squid did not receive any data for this request.
>Your cache administrator is webmaster.
>Generated Tue, 20 Mar 2001 17:51:49 GMT by server0031.freedom2surf.net (Squid/2.4.PRE-STABLE2)
Please help me with this problem!!!!
If you need any more information, just reply to this thread and I'll get back to you...
Thanks in advance,
Rich
Below is my script:
#!/usr/bin/perl
use lib '../perl-lib';
use CGI;
use LWP::Simple;
$query = new CGI;
$file = 'news.txt';
$url = "http://www.dotmusic.com/ticker/contentfeeds/$file";
@lines = split(/\n/, get($url)); # split added
print $query->header;
print "<html><head><title>Test</title></head><body>\n";
# count lines
$cnt = @lines;
if ($cnt == 0) {
print "Error retrieving content or empty page\n";
print "</body></html>";
exit;
}
if (!open (OUT, "> $file")) {
print "Can't open $file (no user rights?)";
print "</body></html>";
exit;
}
foreach $line (@lines) {
print OUT $line;
}
close OUT;
for ($i = 1; $i < $cnt; $i += 2) {
$lines[$i] =~ s/.//;
}
for ($i = 0; ($i + 3) < $cnt; $i += 4) {
print "<A HREF=\"$lines[$i+2]\">";
print "$lines[$i+1]</A><BR>";
print "$lines[$i+3]<P>\n";
}
print "</body></html>";
------------------------------
Date: Tue, 20 Mar 2001 13:16:04 -0500
From: brian d foy <comdog@panix.com>
Subject: Re: Why do "Learning Perl" Books Do This? A Subroutine Question.
Message-Id: <comdog-410DD6.13160420032001@news.panix.com>
In article <zQit6.314$587.24872@typhoon.ne.mediaone.net>, "David
Ehrens" <nospam@nospam.net> wrote:
> "Randal L. Schwartz" <merlyn@stonehenge.com> wrote in message
> news:m1g0game7y.fsf@halfdome.holdit.com...
> > The first edition of the Learning Perl book doesn't mention splice()
> > even in the slightest. I'd know. Perhaps you're confusing my book
> > with another.
> > That makes your entire comment suspect. Reader beware.
> Well, sorry I hurt your feelings, but the section I mention was in the
> "camel" book with the pink spine, ISBN 0-937175-64-1 (March 1992), pages
> 13-20. I don't think readers need to worry about MY honesty.
it seems we do. the book to which you refer is not "Learning Perl".
--
brian d foy <comdog@panix.com>
------------------------------
Date: Tue, 20 Mar 2001 11:35:56 -0500
From: Dave VP <me@my_no_spam.org>
Subject: Re: win32: accessing file in same Drive where cgi-bin reside return different result
Message-Id: <3AB786EC.798AA5CA@my_no_spam.org>
kellyboy wrote:
> See code below which I got from some perl tutorial website.
>
> This perl , thru browser, list files and directory in the path with $path
> set .
>
> If is set $path to "C:", it list the file/directory in that directory . If I
> set "M:"(network map), it list file/directory in that directory as well.
> Even If I set $path to "D:\\somedir", still successful.
>
> But if I set $path to "D:" It only list file/directory in
> "D:\perl\cgi-bin\". I wanted the script to print from "D:" not
> "D:\perl\cgi-bin"
>
> On my personal web server on win98, the /cgi-bin/ for perl is set to
> "D:\perl\cgi-bin".
> The perl script reside in that directory. So script recognize "D:\" as
> "D:\perl\cgi-bin" instead of "D:" How do I get script to recognize "D:" as
> "D:" ?.
>
> What give??
>
> here s the script:
> #!/usr/bin/perl
>
> print "Content-type: text/html\n\n";
>
> print "<html><head>\n";
> print "<title>Hello, world!</title></head>\n";
> print "<body bgcolor=\"#FFFFFF\" text=\"#000000\" link=\"#FF0000\"
> vlink=\"#800000\">\n";
> print "<BR>";
> $path = "c:\\My Documents";
> $path = "." unless $path;
>
> opendir( DIR, $path ) or die "Can't open $path: $!";
>
> while ( $entry = readdir( DIR ) )
> {
> $type = ( -d "$path\\$entry" ) ? "dir" : "file"; # $path is crucial!
>
> print "$type\t$entry\n<BR>";
> }
>
> closedir( DIR );
>
> print "</body></html>\n";
> --
>
> kellyboy
Your problem lies in the current (DOS) directory. If you want to see the
contents of the root directory on the C: or D: drives, specify the path as
"C:\\" or "D:\\".
------------------------------
Date: Tue, 20 Mar 2001 15:20:53 +0100
From: "Carsten Landeck" <Landeck.c@zdf.de>
Subject: Win32::TieRegistry
Message-Id: <3ab76749$0$4736$73bec562@personalnews.de.uu.net>
Does anybody has an small example for creating a remote registy key of a
remote mashine using Win32:.TieRegistry ?
Thanks
Carsten
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 535
**************************************
