[12582] in Perl-Users-Digest
Perl-Users Digest, Issue: 6182 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jun 30 18:07:16 1999
Date: Wed, 30 Jun 99 15:00:23 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 30 Jun 1999 Volume: 8 Number: 6182
Today's topics:
Re: 2 simple (not to me tho) questions <jhi@alpha.hut.fi>
Re: 2 simple (not to me tho) questions <tchrist@mox.perl.com>
Re: Address Resolution Using Perl to Query Exchange donley@linc-dev.com
Re: Apples and Oranges (Ronald J Kimball)
Re: DBI/Mysql help newbie <gellyfish@gellyfish.com>
Re: FAQ 3.23: How can I compile Perl into Java? <rhrh@hotmail.com>
Help with easy sockets example? <MarkL@linux-rocks.co.uk>
Re: help (Ronald J Kimball)
Re: if ($_ =~ /^$var/) always fails - why? (Ronald J Kimball)
Re: In Mountain View did Larry Wall (JT)
Re: In Mountain View did Larry Wall (Peter Scott)
Re: inplace edit <kpmasse@cs.sandia.gov>
Re: is there any perlscript for client-side scripting? <gellyfish@gellyfish.com>
Logging into database <David@hounsell.freeserve.co.uk>
Re: Looking for very small, basic bulletin board system jo_ann4484@my-deja.com
Re: Looking for very small, basic bulletin board system (John Borwick)
MakeMaker bug ? <s.griffiths@virgin.net>
Re: NEWBIE TRYING TO CODE <andrewf@beausys.demon.co.uk>
Re: Perl or PNP...which is better? (Cameron Laird)
Re: Piping perl to exchange for email.... <sugalskd@netserve.ous.edu>
Re: Printing Strange Hex Characters - DoH! stefs@interlog.com
Printing Strange Hex Characters to a File stefs@interlog.com
Re: regex question <RaikovR@HotMail.com>
Re: regexp riddle (Ronald J Kimball)
regExpr question. <marlon@soda.CSUA.Berkeley.EDU>
Re: regExpr question. <upsetter@ziplink.net>
Re: Robot email/poster for this group <rra@stanford.edu>
Re: Robot email/poster for this group (Ronald J Kimball)
Re: Robot email/poster for this group (Ronald J Kimball)
Re: Robot email/poster for this group (Alastair)
Re: Robot email/poster for this group (J. Moreno)
uninstalling perl on NT (Doran)
Re: updating activeperl to build 518 <gellyfish@gellyfish.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 30 Jun 1999 23:20:21 +0300
From: Jarkko Hietaniemi <jhi@alpha.hut.fi>
Subject: Re: 2 simple (not to me tho) questions
Message-Id: <oeeyah130fu.fsf@alpha.hut.fi>
Tom Christiansen <tchrist@mox.perl.com> writes:
> [courtesy cc of this posting mailed to cited author]
>
> In comp.lang.perl.misc, bart.lateur@skynet.be (Bart Lateur) writes:
> :I bet that often, the choice will be the latter one. The only resulting
> :effect is adding a newline, but yet, suddenly you accept putting the
> :variable between quotes.
>
> It's quite simply a misleading thing to write fn("$x") in lieu of fn($x).
> It makes you wonder, "What the devil are they stringifying this before
> passing it in to the function for?" It's not just a bad idea. It's
There are some, admittedly less frequent, occasions where you might
really mean to stringify first--for example when the "" operator has
been overloaded for the class ref($x). (That is, when "" does not
mean anymore what it usually does.)
> a FAQ. The next release will see more detail.
>
> --tom
> --
> "If you substitute other kinds of intellectual property into the GNU
> manifesto, it quickly becomes absurd." --Cal Keegan
--
$jhi++; # http://www.iki.fi/jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
------------------------------
Date: 30 Jun 1999 14:31:45 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: 2 simple (not to me tho) questions
Message-Id: <377a7eb1@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, Jarkko Hietaniemi <jhi@alpha.hut.fi> writes:
:> It makes you wonder, "What the devil are they stringifying this before
:> passing it in to the function for?" It's not just a bad idea. It's
:
:There are some, admittedly less frequent, occasions where you might
:really mean to stringify first--for example when the "" operator has
:been overloaded
And *that's* why I'm always asking my supercited question. :-(
--tom
--
"Just because you're screwed *up* doesn't mean you're screwed." --Larry Wall
------------------------------
Date: Wed, 30 Jun 1999 21:30:50 GMT
From: donley@linc-dev.com
Subject: Re: Address Resolution Using Perl to Query Exchange
Message-Id: <7le2ab$qnd$1@nnrp1.deja.com>
> Hmm. Isn't this the module that ActiveState took off their
> server because it was so buggy and broken?
Perhaps.
Leif made some major changes that should make it much more reliable on
all platforms. The current source is at
ftp://ftp.mozilla.org/pub/directory/perldap/. I've used it on Unix
platforms in production for several clients with no complaints.
Unfortunately, the version that is available in binary on the DevEdge
site is the hopelessly buggy v1.0 version. This is the same version that
used to be available on the ActiveState site. I'd compile new NT
binaries myself except that I no longer actively use an NT environment
(now mostly Linux and Solaris).
Whichever module you use, querying exchange for email addresses tends to
be as easy as querying for a user with a particular 'cn' attribute and
returning the 'mail' attribute. Exchange uses the 'cn' attribute to
store what most directories use the 'uid' attribute to store. I think
the search base should be empty, though this may be configurable.
Clayton
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 30 Jun 1999 09:24:54 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Apples and Oranges
Message-Id: <1du6lrc.1nmouhmx3absgN@p79.tc2.metro.ma.tiac.com>
William Herrera <posting.account@lynxview.com> wrote:
> Perl is apparently treating the NULL pointer ($$b = 0 is what atoi()
> translation of non-digit text like "two...") diferently from other
> ponters. I suspect this is a safety feature--perl automagically won't
> dereference a NULL pointer the way it tries to de-reference a non-NULL
> pointer.
Perl doesn't have pointers. Perl has references -- in this case,
symbolic references. Perl does not use atoi() when dereferencing
references, symbolic or otherwise. The above paragraph has no relevance
to Perl.
I would recommend reading the perlref documentation.
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 29 Jun 1999 21:27:40 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: DBI/Mysql help newbie
Message-Id: <7lbdoc$22s$1@gellyfish.btinternet.com>
On Tue, 29 Jun 1999 13:05:29 GMT Pat Traynor wrote:
> Faisal Nasim <swiftkid@bigfoot.com> wrote:
>> See the pod pages of DBI module.
>
>> perldoc DBI
>
> Here's another problem that I'm having. I saw that mentioned in another
> article, and when I give the command "perldoc DBI", I get this error:
>
> pod2man: command not found
>
> I'm on a Linux system and couldn't find binaries or sources to pod2man
> anywhere.
Its in /usr/bin on my Linux system - I would say that you Perl is not
properly installed or it is some version which I dont know of that is
broken in this respect: either way the solution is to download the latest
stable source and install it ...
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Tue, 29 Jun 1999 08:06:39 +0100
From: Richard H <rhrh@hotmail.com>
Subject: Re: FAQ 3.23: How can I compile Perl into Java?
Message-Id: <3778707E.A3255062@hotmail.com>
David Cassell wrote:
>
> Tom Christiansen wrote:
> > [snip of header]
> > How can I compile Perl into Java?
> >
> > You can't. Not yet, anyway. You can integrate Java and Perl with
> > the Perl Resource Kit from O'Reilly and Associates. See
> > [snip of rest]
>
> Has anyone come up with a reason *why* you would want to compile
> a Perl program into Java? Not an excuse, but a real reason that
> actually makes sense?
No reason why to compile Perl into Java but having to do some recently I
personally would kill for Perl 'features' in java, like regexp for
example, anyway, back to cloud cuckoo land :-)
Richard H
------------------------------
Date: Wed, 30 Jun 1999 23:31:06 +0100
From: MarkL <MarkL@linux-rocks.co.uk>
Subject: Help with easy sockets example?
Message-Id: <377A9AAA.9093330D@linux-rocks.co.uk>
I'm trying to run a simple sockets example by opening a socket on my
local machine (Linux) but get the error.......
'bind: Cannot assign requested address at server.pl'
Can anyone help? Here's the section of code that fails.
sub bindit{
$port = 1500;
$internetPackedAddress = pack('SnA4x8', AF_INET(), $port,
gethostbyname('localhost'));
bind(SOCKET, $internetPackedAddress)
or die("bind: $!");
}
Thanks
-- MarkL
-- http://www.linux-rocks.co.uk
-- (Senior Tea Maker)
------------------------------
Date: Wed, 30 Jun 1999 09:24:55 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: help
Message-Id: <1du6mof.kp1nadu1qm3sN@p79.tc2.metro.ma.tiac.com>
Scratchie <upsetter@ziplink.net> wrote:
> Abigail <abigail@delanet.com> wrote:
> : Peter Hodder (peterh@stealth.com.au) wrote on MMCXXVIII September
> : MCMXCIII in <URL:news:3779710a.3671936@news.griffith.stealth.com.au>:
> : ^^ can someone tell me how to put a background image in a perl script.
>
> : Write your script on a mirror.
>
> If you don't want to help newbies, why don't you just ignore them (or,
> alternatively, insult their mothers)? Is it really that important to you
> to appear superior to someone who's just learning the language? What next,
> insulting the language skills of 2d-graders?
I generally find Abigail's posts rather amusing, especially when they're
in response to such silly questions as this one. (Everyone seems to be
responding to this particular question in the same way.) If you don't
find them amusing, why don't you just ignore them? ;)
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Wed, 30 Jun 1999 09:24:58 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: if ($_ =~ /^$var/) always fails - why?
Message-Id: <1du6p74.5jhd7a1tk2ex9N@p79.tc2.metro.ma.tiac.com>
Darin Dugan <s1dugan@exnet.iastate.edu> wrote:
> The if statement below always fails. However, I've done almost identical
> statements in other perl scripts with no problems whatsoever. Even more
> confusing is that although $idcode contains "OMASVSLBF" at the start of the
> while loop (yes, really), if I replace /^$idcode/ with the literal
> /OMASVSLBF/, the script works fine.
Logically, $idcode does not actually contain what you think it does.
Perhaps you forgot to chomp() it?
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Wed, 30 Jun 1999 20:15:35 GMT
From: jett1not@homedot.com (JT)
Subject: Re: In Mountain View did Larry Wall
Message-Id: <37817952.83318977@24.2.0.71>
On Sun, 27 Jun 1999 14:41:18 -0700, David Cassell
<cassell@mail.cor.epa.gov> wrote:
>In Xanadu did Kubla Khan
>a stately pleasure dome decree...
>
>Considered to be one of Coleridge's best works, he claimed
>that the poem was composed in an opium-induced sleep.
>
>Makes one wonder what Tom was using... :-)
>
>David
Or Neil Pearts paraphrased version:
Xanadu
"To seek the sacred river Alph
To walk the caves of ice
To break my fast on honey dew
And drink the milk of Paradise..."
I had heard the whispered tales
Of immortality
The deepest mystery
>From an ancient book. I took a clue
I scaled the frozen mountain tops
Of eastern lands unknown
Time and Man alone
Searching for the lost --- Xanadu
Xanadu --- To stand within The Pleasure Dome
Decreed by Kubla Khan
To taste anew the fruits of life
The last immortal man
To find the sacred river Alph
To walk the caves of ice
Oh, I will dine on honey dew
And drink the milk of Paradise
A thousand years have come and gone
But time has passed me by
Stars stopped in the sky
Frozen in an everlasting view
Waiting for the world to end
Weary of the night
Praying for the light
Prison of the lost --- Xanadu
Xanadu --- Held within The Pleasure Dome
Decreed by Kubla Khan
To taste my bitter triumph
As a mad immortal man
Nevermore shall I return
Escape these caves of ice
For I have dined on honey dew
And drunk the milk of Paradise
-JT
*I killed a 6-pack just to watch it die!*
Remove the "not" and delete the "dot" to reply
jett1not@homedot.com
------------------------------
Date: 30 Jun 1999 21:13:34 GMT
From: psl@euclid.jpl.nasa.gov (Peter Scott)
Subject: Re: In Mountain View did Larry Wall
Message-Id: <7le19u$2kn@netline.jpl.nasa.gov>
I had a brilliantly witty response to this epic posting but there was
a knock at the door and when I returned, I had forgotten what I was
going to say...
--
Disclaimer: These comments are the personal opinions of the author, and
have not been adopted, authorized, ratified, or approved by JPL.
------------------------------
Date: Wed, 30 Jun 1999 14:51:56 -0600
From: Kenneth Massey <kpmasse@cs.sandia.gov>
Subject: Re: inplace edit
Message-Id: <377A836C.2E063F55@cs.sandia.gov>
Here is the sum content of those 2 files on that subject:
$INPLACE_EDIT
$^I
The current value of the inplace-edit extension. Use undef to
disable inplace editing. (Mnemonic: value of -i switch.)
M.J.T. Guy wrote:
>
> In article <377A3041.A8E0B85@cs.sandia.gov>,
> Kenneth Massey <kpmasse@cs.sandia.gov> wrote:
> >I read briefly somewhere that there is an inplace edit $^I
> >that is ideal for an application like replacing one line in a long
> >mailing list file. However, I can't find any detailed documentation on
> >how to use this feature. Thanks,
> >
> >Kenneth
>
> perldoc perlvar
> perldoc perlrun
>
> Mike Guy
------------------------------
Date: 29 Jun 1999 21:12:50 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: is there any perlscript for client-side scripting?
Message-Id: <7lbcsi$22f$1@gellyfish.btinternet.com>
On Tue, 29 Jun 1999 04:17:23 GMT smnayeem@my-deja.com wrote:
> In article <7l0t38$kk$1@gellyfish.btinternet.com>,
> Jonathan Stowe <gellyfish@gellyfish.com> wrote:
>> On Mon, 21 Jun 1999 15:39:13 -0700 TRG Software : Tim Greer wrote:
>> > smnayeem@my-deja.com wrote:
>> >>
>> >> Does anyone know where i can find some documentation on
> perlscripts, is
>> >> it going to be a good scripting language for doing client side
>> >> scripting? so that i wont have to wait about javascript or
> vbscript, and
>> >> not to mention be restricted to their limited vocabulary :(
>> >> thanks
>> >>
>> > PerlScript on the client-side? I haven't heard anything about that.
>>
>> Yeah you can do that ... With the Microsoft scripting engine there is
>> basically little difference betweeen a Scripting Provider that will
>> run on the Client side or on the server side ... If it wasnt Microsoft
>> I might even be lured into thinking it was quite a nice idea. Try out
>> some of the IE examples that come with the Activestate Distribution.
>>
>> Of course, yes, if you insist on using this then you are going to have
>> to get all of your potential audience to use a particular browser and
>> to download and install Activestates distribution.
>>
> But thats very microsoftish, I am more into the any-platform any-browser
> standard, is there really no way?
Then I would suggest that you forget about client side frippery altogether
- You are always going to exclude some of your audience if you rely on it.
HTML 4.0 does provide for the support of client side scripting - but of
course no language is specified.
> I mean does it always have to be Java?
> why does perl have to be so handicapped? I am sure the perl community
> can persuade Netscape and Microsoft to accept a certain Perlscript
> standard like Javascript or something?
There was some talk at the time that the Open Source Mozilla Project
started that Perl could be somehow shoehorned in as a scripting language
although I havent seem anything else about it. Unfortunately the
technology that allows a browser to use an *arbitrary* scripting engine
is proprietary to Microsoft and limited to the Windows Platform.
For myself I dont believe that great efforts should be made to shift
programming functionality to the WWW client as it militates against
the whole ethos of the thing - I means ok for the occasional gimmick
but thats it ...
I would examine Tom Christiansen's article on accessibility that can
be found somewhere at <http://language.perl.com> if you think that
client side tricks are the be all and end all .
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Wed, 30 Jun 1999 22:51:54 +0100
From: "David Hounsell" <David@hounsell.freeserve.co.uk>
Subject: Logging into database
Message-Id: <7le3hg$d4r$1@news6.svr.pol.co.uk>
Aim: to develop a web site with access to a sybase server on Linux.
The problem: I want users to be able to login once, using database security
(not a table inside a database,
since the database is used outside the web applications and security is very
important). Ideally they would
be able to access *any* page to start with and they would get a prompt for
user name and password. Then that password
would be available in all other scripts.
Ideas: AuthentiDBI, mod_perl + persistent connections, HTTP Headers; Are
these the best way to do this? Where can I find a good
tutorial. All the others seem to use either tables in databases or no
security at all. It can't be that hard can it?!
------------------------------
Date: Wed, 30 Jun 1999 20:03:28 GMT
From: jo_ann4484@my-deja.com
Subject: Re: Looking for very small, basic bulletin board system
Message-Id: <7ldt67$ogq$1@nnrp1.deja.com>
> >
>
> Uh oh... That's the URL for Matt's Script Archive, which is exactly
> where David Cassell said *not* to go. Matt's scripts are not looked
> upon favorably here in the Perl newsgroups. They tend to be buggy and
> rather poorly written. wwwboard, for example, reinvents the wheel of
> unescaping form data, and contains an obvious Y2K error, among its
other
> problems.
>
> Hence, David's advice to try anywhere other than Matt's Script
Archive.
Would be great advice if i could find another msg board program. ;-)
My problem with matts stuff is that i have been running is guest book
for about 2.5 years with no problem. But now I can't run any of his
newer stuff. As for WWWBoard...i get the http 500 error and when i run
it on my server, I get the following error:
Operator or semicolon missing before &get_number at ./swapit.pl line 55.
Ambiguous use of & resolved as operator & at ./swapit.pl line 55.
it won't recognize the & in wwwboard but it does in guest book...this
is enough to make one nuts!!!!
I was hoping to find some help here but with the hostility and the way
others berate some...i guess i shouldn't hold my breath.
Jo
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 30 Jun 1999 21:19:13 GMT
From: John.Borwick@sas.com (John Borwick)
Subject: Re: Looking for very small, basic bulletin board system
Message-Id: <377a896e.205199741@newshost.unx.sas.com>
On Fri, 25 Jun 1999 22:31:26 -0400, rjk@linguist.dartmouth.edu (Ronald
J Kimball) wrote:
>>>You'll be happy to know that there's a thousand of these on the
>>>web. Just don't go to Matt's Script Archive. Happy searching!
>> you might try http://www.worldwidemart.com/scripts/wwwboard.shtml
>> I've used it and customized it a little (it's sort of plain - but works
>> great)
>Uh oh... That's the URL for Matt's Script Archive, which is exactly
I think this is one of the funniest things I've seen for a while.
_
John Borwick
------------------------------
Date: Wed, 30 Jun 1999 22:52:13 +0100
From: Simon Griffiths <s.griffiths@virgin.net>
Subject: MakeMaker bug ?
Message-Id: <377A918D.E57755CE@virgin.net>
I have perl 5.005_03 happily running loadsa modules on Sequent Dynix/ptx
4.4.2 - including DBD-Oracle, DBI and PerlTk 4.
However, I'm trying to upgrade to Perl/Tk 8.000.14 and getting problems.
"perl Makefile.PL" seems to run OK, but "make" always fails with a make
error :
make : line too long after substituting variables
Even a make -n fails with the same error, so its difficult even working
out where its failing, but it looks as if its in the "cd pTk ; make "
bit.
The line in question is - I think -
# --- MakeMaker pm_to_blib section:
pm_to_blib: $(TO_INST_PM)
@$(PERL) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" \
"-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -MExtUtils::Install \
-e "pm_to_blib({qw{$(PM_TO_BLIB)}},'$(INST_LIB)/auto')"
- in other words its the expansion that's the problem !
and thus splitting into separate lines is not an option !
I originally posted this under as a Tk problem, but now I think it
might really be a MakeMaker bug.
Someone even reported the same problem with VC++ under Windows.
I also get the same problem with Tk 8.000.013.
Should MakeMaker be producing lines this long, that will not run
under an otherwise pretty standard make ?
If anyone could help I'd be most grateful !
Simon.
------------------------------
Date: Wed, 30 Jun 1999 22:54:35 +0100
From: Andrew Fry <andrewf@beausys.demon.co.uk>
Subject: Re: NEWBIE TRYING TO CODE
Message-Id: <k$HGaFAbIpe3EwDR@beausys.demon.co.uk>
In article <7l8cea$ned$1@nnrp1.deja.com>, scott_mark@my-deja.com writes
>
>> I'd suggest removing the script, learn Perl, and start over.
>>
>> Abigail
>
>Your nice some poeple learn by jumping into coding. He asked for help
>not someone to tell him he should be coding. If all you wanted to do is
>cut him up. Why bother replying?
Actually, I thought Abigail showed remarkable patience and restraint
there! ;)
---
Andrew Fry
"Time flies like an arrow. Fruit flies like a banana". (Groucho Marx).
------------------------------
Date: 30 Jun 1999 16:49:10 -0500
From: claird@Starbase.NeoSoft.COM (Cameron Laird)
Subject: Re: Perl or PNP...which is better?
Message-Id: <7le3cm$377$1@Starbase.NeoSoft.COM>
In article <drkcl7.4j.ln@magna.metronet.com>,
Tad McClellan <tadmc@metronet.com> wrote:
.
.
.
> What is PHP?
.
.
.
VERY roughly, a simpler language than Perl for just Web scripting <URL:http://
starbase.neosoft.com/~claird/comp.infosystems.www.servers.misc/php.html>.
--
Cameron Laird http://starbase.neosoft.com/~claird/home.html
claird@NeoSoft.com +1 281 996 8546 FAX
------------------------------
Date: 30 Jun 1999 21:51:07 GMT
From: Dan Sugalski <sugalskd@netserve.ous.edu>
Subject: Re: Piping perl to exchange for email....
Message-Id: <7le3gb$hqo$1@news.NERO.NET>
chemguru@my-deja.com wrote:
: How can I pipe to exchange to send a message? I'm writing a script to
: mail a multi-select form to a user. Unfortunately, I just found out that
: this script is going to live on an NT IIS server with exchange.
: Can anyone help?
Sure. Send the mail directly to the exchange server via SMTP. You can use
Mail::Mailer, Net::SMTP, or do it by hand. If you're going to be sending
MIME-encoded mail (like, say, mail with attachments) then I'd recommend
MIME::Lite. (Which will use Net::SMTP to send the mail)
Mail::Mailer's in the MailTools archive on CPAN, Net::SMTP (which you'll
need regardless) is in libnet, and MIME::Lite is in mime_lite.
<plug type=shameless>
The current issue of The Perl Journal (www.tpj.com, though the articles
aren't up on the website as of june 30) has a few articles on sending mail
in perl.
</plug>
Dan
------------------------------
Date: Wed, 30 Jun 1999 21:31:25 GMT
From: stefs@interlog.com
Subject: Re: Printing Strange Hex Characters - DoH!
Message-Id: <7le2be$qnm$1@nnrp1.deja.com>
In article <7le1al$q8t$1@nnrp1.deja.com>,
stefs@interlog.com wrote:
> Now. this may be horribly wrong, HUGELY
> flawed, and is more than likely a frankenstein
> type of construct. Go easy please, we learned
> to program in C ;P
you know....scratch this question. TOTALLY ignore
it. managed it. Posting up seemed to have kicked
our brain out of neutral and the previous post
should be treated as a 'brainfart'.
for what its worth. '\x' works a WHOLE lot better
as a beginning then '0' does. *sigh*
we will think before posting next time ;p
Thanks anyway,
Steffs
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 30 Jun 1999 21:14:08 GMT
From: stefs@interlog.com
Subject: Printing Strange Hex Characters to a File
Message-Id: <7le1al$q8t$1@nnrp1.deja.com>
Hello,
This is probably a _really_ simple question,
but its causing a bit of grief. How can we
put 'strange' hex values that we 'build up'
out to a file.
Okay, some clarification is always helpful via
code:
open (fp, ">data");
my $characters="cc00ff00";
while (length($characters)>0)
{ my $chop_char=chop $characters;
my $tmp_value="00$chop_char";
my $value=sprintf("%.3X",$tmp_value);
print fp $value;
}
close (fp);
Now. this may be horribly wrong, HUGELY
flawed, and is more than likely a frankenstein
type of construct. Go easy please, we learned
to program in C ;P
The ultimate result would be a file that had
the characters as follows:
<0x000><0x000><0x00f><0x00f> ...
Couple of points. I know the characters string
is taken backwards, I just prefered that to the
substr to get at the elements of the string ;)
Also the precision may be superflous with
perl, I am not sure if it will fill with zeros
if it is left undefined.
Any pointers as to where we are going wrong ?
Something. Obvious. draw jobbingly simple.
Thanks,
Steffs
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 30 Jun 1999 21:08:59 +0000
From: Rosen Raikov <RaikovR@HotMail.com>
Subject: Re: regex question
Message-Id: <377A876B.155C5F30@HotMail.com>
Hi,
tray something like this:
$whois2 = `whois SETSTYLE-dom`;
print "$whois2\n";
while ($whois2 =~ /([\w\.!]{2,}\@[\w\.!]{2,}\.[\w\.!]{2,})/gm) {
print "$1\n";
}
Rosen Raikov
Gene Dolgin wrote:
> I have a perl program to do a whois on a domain and pull the email of
> the administrative contact. Here it is:
> #!/usr/bin/perl
> $whois2 = `whois SETSTYLE-dom`;
> $whois2 =~ /\).*\@.*\..*/m;
> print "$whois2\n";
> print "$1\n";
> print "$2\n";
>
> For some reason, this always returns blanks. What's wrong?
>
> -gene
------------------------------
Date: Wed, 30 Jun 1999 09:24:56 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: regexp riddle
Message-Id: <1du6nij.1guocl71qn35b9N@p79.tc2.metro.ma.tiac.com>
Jordan Hiller <hiller@email.com> wrote:
> If it's possible to use backreferences this way,
It's not.
> ([dxbe])([dxbe^\1])([dxbe^\1\2])([dxbe^\1\2\3])
It's not even possible to use character classes that way. Time to read
perlre again!
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Wed, 30 Jun 1999 13:07:51 -0700
From: marlon <marlon@soda.CSUA.Berkeley.EDU>
Subject: regExpr question.
Message-Id: <Pine.BSF.3.96.990630130710.9476A-100000@soda.CSUA.Berkeley.EDU>
> On 30 Jun 1999 redmondm@yahoo.com wrote:
>
> > Think of $foo as a string not a list of lines. Newline, \n, is just another
> > characteri, though a little special. So leave $foo a scalar and use the
> > /s modifier to tell . to match newline.
> >
> > $foo =~ /<!-- something unique 1 -->(.*?)<!-- something unique 2 -->/s;
> > print $1;
Thanks for the help! A few related questions though:
1) Why do I need both the * and the ?, I've tried it with and with out
the ? and both results are the same.
2) I thought that =~ was supposed to assign $foo to the matched pattern
but when I print out $foo I get the ENTIRE html, where I tought that
$foo would get the return of the //s something very close to $1
Thanks, Marlon
> > Martin
> > mpr@webcamnow.com
> >
> > In article <Pine.BSF.3.96.990629180249.4862A-100000@soda.CSUA.Berkeley.EDU>,
> > marlon wrote:
> > >Im all FAQed out, I've spent some time on cpan and the examples dont seem
> > >to work for my task:
> > >
> > >I have:
> > >
> > >$foo equal to
> > >" a whole lot of html
> > > spanning several lines, there are 2 specific unique
> > > strings like <!-- something unique 1 --> and a
> > > bunch of html in between <!-- something unique 2 -->
> > > and then a whole lot more stuff"
> > >
> > >so that's what $foo looks like.
> > >And what I want is to capture all the text INBETWEEN the 2 unique strings.
> > >It doesn't matter if I get the 2 unique strings (they're just HTML
> > >comments) but I dont know if I have to turn $foo into a file handle,
> > >if so then what?
> > >If I leave $foo as a scalar how do I apply a regexp accross it?
> > >Thanks in advance, marlon
> > >
> > >
> > >_
> > >
> >
> >
>
> _
>
>
>
_
------------------------------
Date: Wed, 30 Jun 1999 21:05:44 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: regExpr question.
Message-Id: <IEve3.423$6M6.130340@news.shore.net>
marlon <marlon@soda.CSUA.Berkeley.EDU> wrote:
:> > $foo =~ /<!-- something unique 1 -->(.*?)<!-- something unique 2 -->/s;
: 1) Why do I need both the * and the ?, I've tried it with and with out
: the ? and both results are the same.
The ? makes the * "non-greedy", which may or may not make a difference
depending on the pattern and the data you're looking at. See perlre for
more information.
: 2) I thought that =~ was supposed to assign $foo to the matched pattern
: but when I print out $foo I get the ENTIRE html, where I tought that
: $foo would get the return of the //s something very close to $1
Nope, =~ simply tells the // (matching operator) what variable it should
be applied to. The string that actually matches the pattern shows up in a
special variable ($&) or you can use parentheses to match a subset of the
pattern or to speed things up slightly.
--Art
--
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: 30 Jun 1999 13:06:44 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: Robot email/poster for this group
Message-Id: <ylvhc55u7f.fsf@windlord.stanford.edu>
John Stanley <stanley@skyking.OCE.ORST.EDU> writes:
> No, the truth is I did post to the moderated group. Marcel just missed
> it in all the FAQS and man page postings that make reading the moderated
> group impossible.
There's a FAQ posted to the moderated group, but the only man page
postings I'm aware of are the ones that Tom's posting to this group.
They're not in the moderated group (nor do I think they'd be appropriate
for it).
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: Wed, 30 Jun 1999 09:24:57 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Robot email/poster for this group
Message-Id: <1du6nse.gkzgniu0j26pN@p79.tc2.metro.ma.tiac.com>
John Stanley <stanley@skyking.OCE.ORST.EDU> wrote:
> Yeah, the gurus in the .moderated group helping us fools who still use
> this group. No thanks.
You continue to hammer on this point, as if everyone discussing this in
the .moderated group no longer posts to the .misc group.
In fact, of the 10 people who posted comments on the proposal in the
moderated group, eight are still very active in comp.lang.perl.misc, and
the other two have never posted to the .misc group. It is very much
*not* the case that these are people who fled .misc yet are still trying
to control it.
Stop spreading FUD.
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Wed, 30 Jun 1999 09:24:59 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Robot email/poster for this group
Message-Id: <1du6pbw.i8zltj10kpcgqN@p79.tc2.metro.ma.tiac.com>
Abigail <abigail@delanet.com> wrote:
> Exactly. They've left, and are now forming their own little perl hugging
> group. They are gone, and it would be nice if they stay gone. Discussions
> about bots acting in or on this newsgroup should be discussed *here*,
> not in some ivory tower. But bots don't belong on Usenet anyway.
You're spreading the same FUD that John Stanley is. Please stop. The
people who were discussing this project in .moderated are still active
in .misc.
The fact is simply that the discussion was started in the wrong group,
not that a bunch of gurus who no longer read .misc are still trying to
control it.
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Wed, 30 Jun 1999 21:18:25 GMT
From: alastair@calliope.demon.co.uk (Alastair)
Subject: Re: Robot email/poster for this group
Message-Id: <slrn7nl61u.5l.alastair@calliope.demon.co.uk>
David Cassell <cassell@mail.cor.epa.gov> wrote:
>
>
>Don't you think it would be better for everyone if Miscy answered
>someone who asked about CGI redirections with a polite [if canned]
>response, rather than ...
I think robots could interfere with the newsgroup if they misbehave. It's a grey
area. However, a perl query/reference engine would be interesting.
--
Alastair
work : alastair@psoft.co.uk
home : alastair@calliope.demon.co.uk
------------------------------
Date: Wed, 30 Jun 1999 17:40:50 -0400
From: planb@newsreaders.com (J. Moreno)
Subject: Re: Robot email/poster for this group
Message-Id: <1du83gm.1724u0deusk93N@roxboro0-0014.dyn.interpath.net>
Tom Christiansen <tchrist@mox.perl.com> wrote:
> You guys are all over-engineering. You need human-directed
> autofaqqing. It's much more reliable. My current set it:
>
> 425traps elitism mods references
> @inc-mods exe-cgi modules-group-wrong regex-html
> autofaq faq-index mtg-nosale repl-email
> caps filehandles multi.generic sham
> card-info grinch netiquette sig-2-long
> cgi-group helpme no-subject sorting
> cgi-lib.txt html-mail nonfaq test
> cgi-metafaq ice-age noobee uce
> cgi-perl-problem ipc occur unshift-vs-use
> change-file-inplace its over-quoted v5.002
> clonepost its.bak pdsc virus
> clp-dead licence perl-info wizquests
> count-nouns line-wrap perl-source xposts
> csh-faq long-lines pgp y2k
> dash-w mailcc ports-perl
> dot-truncate mimes post-to-cgi
> dup-posting mldbm quoted-end
>
> But that's trivially extended. Maybe I'll package it up and re-release it.
That might be fine if someone volunteered to handle it -- the real
problem with this stuff after all is that too many people respond to it.
(ack, I guess the over-quoted module is going to yap at me).
--
John Moreno
------------------------------
Date: Wed, 30 Jun 1999 21:12:13 GMT
From: doran@NOSPAMrbj.com (Doran)
Subject: uninstalling perl on NT
Message-Id: <377a8667.13296946@news.brandx.net>
I've inherited an NT webserver. It seems that several versions of Perl
have been installed onto it over time, into several directories. I'd
like to uninstall all versions completely and then reinstall one
version from scratch.
Do you 'spose it's okay for me to just delete all the files and then
reboot and reinstall the current version, or should I go looking about
in the registry for things to remove and/or edit? I figure that since
I'm reinstalling it, any registry entries will be overwritten with
correct values, but I'm not sure.
I realize the above will blow away libraries and modules. I'll save
what I need to beforehand and reinstall them later.
Thanks
Doran...
------------------------------
Date: 29 Jun 1999 20:38:39 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: updating activeperl to build 518
Message-Id: <7lbasf$229$1@gellyfish.btinternet.com>
On Tue, 29 Jun 1999 16:07:54 GMT brian_smith@sonat.com wrote:
> I am having problems running the activeperl 518 updater, it cannot
> replace perlSE.dll, perlcore.dll, and OLE.dll, and I don't know what
> services to stop, if any, to run the install.
>
> running NT 4.0, sp 3, IIS 4
>
You will need to close down the Internet Service Manager completely and
probably every other application. If you dont know how to do that then
you will be better of asking in the group
comp.infosystems.www.servers.ms-windows
about that kind of stuff.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 6182
**************************************
