[26616] in Perl-Users-Digest
Perl-Users Digest, Issue: 8728 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Dec 3 14:05:32 2005
Date: Sat, 3 Dec 2005 11:05:06 -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 Sat, 3 Dec 2005 Volume: 10 Number: 8728
Today's topics:
Re: A question of hashes in a module. <invalid@nowhere.com>
Re: How can I use GD module in Windows XP ? <rvtol+news@isolution.nl>
Re: How to gather IP address from Recevied: headers <news@amigo.co.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 03 Dec 2005 08:37:12 -0600
From: Don Gatlin <invalid@nowhere.com>
Subject: Re: A question of hashes in a module.
Message-Id: <pan.2005.12.03.14.37.12.873206@nowhere.com>
>
> Stop with the OO course, and start with references:
>
> perldoc perlreftut
>
I knew about perldoc but it is tough to download large stuff when
the phone company has your phone line locked down to about 24k. But I bit
the bullet and let the apt-get process run all night and got it.
Thanks
DG
------------------------------
Date: Sat, 3 Dec 2005 15:07:31 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: How can I use GD module in Windows XP ?
Message-Id: <dmscfu.12c.1@news.isolution.nl>
Bob Walton:
> À̹淡:
>> How can I use GD module in Windows XP system?
>
> You don't say what version of Perl you are using on your XP
> system. If you are using ActiveState Perl, try:
>
> ppm install GD
>
> at a command prompt. That should download and install the GD
> module and all the other modules it may require. Then look in
> the module's docs ( perldoc GD ) and try some of the examples to
> be sure it works.
You need this one first:
ppm> rep add threoryx http://theoryx5.uwinnipeg.ca/ppms/
And don't forget to use a binmode() here and there.
With IO::All I needed to add a 'binary':
$io_dst->binary < $dst_img->jpeg(90)
or die "\$dst_img->jpeg() failed: $!\n";
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Sat, 3 Dec 2005 14:45:48 +0000
From: David Mahon <news@amigo.co.uk>
Subject: Re: How to gather IP address from Recevied: headers
Message-Id: <gV2s5ric+akDFwyh@earth.amigo.co.uk>
In article <iFVsNjVROXkDFwi5@earth.amigo.co.uk>, David Mahon
<news@amigo.co.uk> writes
>I have a perl program which examines an email (using email::simple).
>
>One of the headers is gathered by:
>
>@received=$mail->header("Received");
>I suppose I want the first IP address (address enclosed in []) that
>isn't an IP address of my MX hosts. Made slightly more complex by the
>fact that some use IP6 addresses on occasion.
>
>So, I want the first IP address enclosed in [] that is NOT
>
>81.187.81.12 or 2001:8B0:0:81::51BB:510C
>81.187.30.42 or 2001:8B0:0:30::51BB:1E2A
>
>or 127.0.0.1 if there are none.
>
>Help please - how do I do this?
An alternative way may be to use the scalar method:
$received=$mail->header("Received");
to get the first received header
and test that. If it's not what I want, then get the second received
header:
$received=$mail->header("Received",2);
etc. until I get the information required.
--
David Mahon
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 8728
***************************************
