[11014] in Perl-Users-Digest
Perl-Users Digest, Issue: 4614 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jan 10 19:01:51 1999
Date: Sun, 10 Jan 99 16:00:27 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 10 Jan 1999 Volume: 8 Number: 4614
Today's topics:
Re: Adding a path to the @INC variable (Randal L. Schwartz)
Browser History with Perl <btate@primary.net>
Re: Browser History with Perl (Randy Kobes)
Can't get any message in newsgroup <debot@xs4all.nl>
Re: CONCLUSIVE PROOF: Jesus *is* King of the Jews ! <insert@email.address>
Re: CONCLUSIVE PROOF: Jesus *is* King of the Jews ! <richmann@concentric.net>
Re: CONCLUSIVE PROOF: Jesus *is* King of the Jews ! (Paul Smith)
Re: CONCLUSIVE PROOF: Jesus *is* King of the Jews ! <coolmrjoeboggs@yahoo.com.omit>
Re: eliminating lines with no data <ion@aroma.com>
Re: eliminating lines with no data <ion@aroma.com>
Re: Form Prefill - How To? (Ronald J Kimball)
Re: GD.pm NOT WORKING! <sorcerer@NetVision.net.il>
Re: GD.pm NOT WORKING! <chobbs@silvervalley.k12.ca.us>
Re: Getting total records in a dbm file (Ronald J Kimball)
Re: Help Wanted (Martien Verbruggen)
image <debot@xs4all.nl>
Re: image (Sam Holden)
Re: Inspecting MY variables with the debugger (Ronald J Kimball)
Objects and Methods and Refs - Oh My! phraktyl@home.com
Re: Perl & Java ? <jamesht@idt.net>
Re: Perl Criticism <chatmaster@c-zone.net>
Re: Perl modules compatibility, in UNIX and DOS. (Martien Verbruggen)
Re: possible bug in perl format with ~~ <jlewis@gnv.fdt.net>
Regex suggestions <mike@chessell.demon.co.uk>
Re: Regex suggestions (Tad McClellan)
Re: regexp and broken MY reference <marty@catnmoose.com>
Re: Security (Ronald J Kimball)
test <debot@xs4all.nl>
Re: Verify an email address (Ronald J Kimball)
Re: Verify an email address <due@murray.fordham.edu>
Re: Verify an email address (Martien Verbruggen)
Re: Why doesn't it work? <myparu@usa.net>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 10 Jan 1999 12:05:52 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Adding a path to the @INC variable
Message-Id: <m1u2xyj3kv.fsf@halfdome.holdit.com>
>>>>> "Robin" == Robin D F Silk <silk@interlog.com> writes:
Robin> I use the following with the "require" & "do" functions:
Robin> # add path of include files
Robin> push (@INC, '/usr/home/myname/perl/lib'); # Windows, UNIX etc.
Robin> require "myinclude.pl";
Robin> I have not used this with "use" so cannot claim it will work for that fn.
And a good thing you didn't, since it wouldn't (unless you wrap it in
a BEGIN block, and now we've gone full circle).
BEGIN { print "Just another Perl hacker," }
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Sun, 10 Jan 1999 15:25:15 -0600
From: "Bob Tate" <btate@primary.net>
Subject: Browser History with Perl
Message-Id: <36991a93.0@news.primary.net>
Looking for a way to view the browser history with Perl so that I can see
the last page visited before getting to my page.
------------------------------
Date: 10 Jan 1999 22:19:33 GMT
From: randy@theory.uwinnipeg.ca (Randy Kobes)
Subject: Re: Browser History with Perl
Message-Id: <slrn79iadl.ofu.randy@theory.uwinnipeg.ca>
On Sun, 10 Jan 1999 15:25:15 -0600, Bob Tate <btate@primary.net> wrote:
>Looking for a way to view the browser history with Perl so that I can see
>the last page visited before getting to my page.
Hi,
There's a couple modules: Netscape::Cache, available at
http://www.perl.com/CPAN/authors/id/SREZIC/
and Netscape::History, available at
http://www.perl.com/CPAN/authors/id/NEILB/
that might help.
--
best regards,
Randy Kobes
Physics Department Phone: (204) 786-9399
University of Winnipeg Fax: (204) 774-4134
Winnipeg, Manitoba R3B 2E9 e-mail: randy@theory.uwinnipeg.ca
Canada http://theory.uwinnipeg.ca/
------------------------------
Date: Mon, 11 Jan 1999 00:30:20 +0100
From: Frank de Bot <debot@xs4all.nl>
Subject: Can't get any message in newsgroup
Message-Id: <3699380C.ABBCDEED@xs4all.nl>
This is a multi-part message in MIME format.
--------------7493B81634342C804D66BB9A
Content-Type: multipart/alternative;
boundary="------------43F4EE9AC48F45BBFBEBFE4B"
--------------43F4EE9AC48F45BBFBEBFE4B
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
This is the Final attempt to post a message in this newsgroup. (I've
send several mails and none of them showed up)
--
Hi, this piece is put automaticly under every mail from me.
Contact me: debot@xs4all.nl
Visit my page: http://www.debot.nl/
http://www.geocities.com/SunsetStrip/Frontrow/4346/top50index.html
I've much more homepage. You can just ask for them if you want.
Well, more I havn't to say, so have a nice day :-)
--------------43F4EE9AC48F45BBFBEBFE4B
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
This is the Final attempt to post a message in this newsgroup. (I've send
several mails and none of them showed up)
<br>
<br>
<br>
<p><font face="Courier New,Courier">--</font>
<br><font face="Courier New,Courier">Hi, this piece is put automaticly
under every mail from me.</font><font face="Courier New,Courier"></font>
<p><font face="Courier New,Courier">Contact me: debot@xs4all.nl</font>
<br><font face="Courier New,Courier">Visit my page: <A HREF="http://www.debot.nl/">http://www.debot.nl/</A></font>
<br><font face="Courier New,Courier">
<A HREF="http://www.geocities.com/SunsetStrip/Frontrow/4346/top50index.html">http://www.geocities.com/SunsetStrip/Frontrow/4346/top50index.html</A></font><font face="Courier New,Courier"></font>
<p><font face="Courier New,Courier">I've much more homepage. You can just
ask for them if you want.</font><font face="Courier New,Courier"></font>
<p><font face="Courier New,Courier">Well, more I havn't to say, so have
a nice day :-)</font>
<br><font face="Courier New,Courier"></font> </html>
--------------43F4EE9AC48F45BBFBEBFE4B--
--------------7493B81634342C804D66BB9A
Content-Type: text/x-vcard; charset=us-ascii;
name="debot.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Frank de Bot
Content-Disposition: attachment;
filename="debot.vcf"
begin:vcard
n:de Bot;Frank
x-mozilla-html:TRUE
url:http://www.geocities.com/SunsetStrip/Frontrow/4346/top50index.html
version:2.1
email;internet:debot@xs4all.nl
title:Student
adr;quoted-printable:;;Dr.scheapmanlaan 37=0D=0A;Roosendaal;Noord-Brabant;4702 GT;Netherlands
x-mozilla-cpt:;-1
fn:Frank de Bot
end:vcard
--------------7493B81634342C804D66BB9A--
------------------------------
Date: Sun, 10 Jan 1999 15:40:16 -0500
From: "duz" <insert@email.address>
Subject: Re: CONCLUSIVE PROOF: Jesus *is* King of the Jews ! ! !
Message-Id: <e98m2.28064$m7.4617@newsr2.twcny.rr.com>
that and there is no hell
Porky wrote in message <77aekm$hpd$1@comet3.magicnet.net>...
> Man! You are so lucky that Jesus is not vindictive. Otherwise you will
>have "Hell to Pay"!
>
>
duz
-
http://listen.to/duz
http://thinker.findhere.com
icq:19173887
**** TO GET MY EMAIL ADDRESS YOU MUST VISIT MY PAGE ****
{hey spammers here's some meat}
uce@ftc.gov
wkennard@fcc.gov
sness@fcc.gov
hfurchtg@fcc.gov
mpowell@fcc.gov
gtristan@fcc.gov
------------------------------
Date: 10 Jan 1999 15:22:02 PST
From: Michael Richmann <richmann@concentric.net>
Subject: Re: CONCLUSIVE PROOF: Jesus *is* King of the Jews ! ! !
Message-Id: <36993621.3EA1@concentric.net>
Joe Mama wrote:
>
> FUCAUFLED wrote:
>
> > "It sure seems fitting that your entire religion is based on
> > worshiping a dead jew on a stick"
>
> Really? And exactly what is your religion based on, the tenets of the
> Dietrich Eckart's Thule Gesellschaft, which pagan dogma Adolph Hitler
> espoused and based the entire foundation of the his empire upon?
>
> I would guess that just as Hitler was alleged to have been the progeny
> of the adulterous affair between a German maidservant and Jewish Baron
> Rothschild, you yourself have Jewish blood somewhere in your ancestry..
>
> But as most weak-minded disciples of anti-semitic propaganda are, you
> no doubt have absolutely no idea of the nature or origin of the beliefs
> that you have allowed yourself to be brainwashed to accept as truth..
>
> - Ron Kuby
>
> Ein Deutscher? Was haben sie nach der Juden gegen, or is German too
> difficult for you understand, Ron?
Stick a sock in it, clowns. You're cross-posted to hell and gone as it
is and not a single one of these groups is relevant...
--
Mike
------------------------------
Date: Sun, 10 Jan 1999 23:30:06 GMT
From: pauls@wauknet.com (Paul Smith)
Subject: Re: CONCLUSIVE PROOF: Jesus *is* King of the Jews ! ! !
Message-Id: <369e37e7.58131891@news.wauknet.com>
Let's move the anchient mythology discusions to alt.mythology.
On Sun, 10 Jan 1999 10:36:03 -0800, Joe Mama <joemama@roundtrip.net>
wrote:
>FUCAUFLED wrote:
>
>> "It sure seems fitting that your entire religion is based on
>> worshiping a dead jew on a stick"
>
>Really? And exactly what is your religion based on, the tenets of the
>Dietrich Eckart's Thule Gesellschaft, which pagan dogma Adolph Hitler
>espoused and based the entire foundation of the his empire upon?
>
>I would guess that just as Hitler was alleged to have been the progeny
>of the adulterous affair between a German maidservant and Jewish Baron
>Rothschild, you yourself have Jewish blood somewhere in your ancestry..
>
>But as most weak-minded disciples of anti-semitic propaganda are, you
>no doubt have absolutely no idea of the nature or origin of the beliefs
>that you have allowed yourself to be brainwashed to accept as truth..
>
>
>- Ron Kuby
>
>Ein Deutscher? Was haben sie nach der Juden gegen, or is German too
>difficult for you understand, Ron?
-Paul
Chucky's Toybox- The 1st unofficial Child's Play homepage- with
multimedia, news, and a message board: http://www.wauknet.com/pauls
------------------------------
Date: 10 Jan 1999 19:31:25 GMT
From: "Joe Bloggs" <coolmrjoeboggs@yahoo.com.omit>
Subject: Re: CONCLUSIVE PROOF: Jesus *is* King of the Jews ! ! !
Message-Id: <01be3cd1$70ffdb40$65c8a6d0@mypc.tdsnet.com>
FUCAUFLED <fucaufled@aol.com> wrote in article
<19990110044749.01577.00007424@ng36.aol.com>...
>
> "It sure seems fitting that your entire religion is based on worshiping a
dead
> jew on a stick"
- Ron Kuby
>
>
Joe Sez: Now Ron tell the truth. Do you sell real estate in Germany?
------------------------------
Date: Sun, 10 Jan 1999 12:59:38 -0800
From: "Ion Chalmers Freeman" <ion@aroma.com>
Subject: Re: eliminating lines with no data
Message-Id: <3699113f.0@news.prostar.com>
A.,
I've got to point out that you're chomping to remove a newline, but then
testing a[17] against an empty string.
whyn't try (this may not be even syntactically correct)
grep(s/-|\n/g,<IN>[10,17]); #get lines ten and seventeen without newlines or
hyphens
for($line in @_){
if $line{
print 978, $line, "\n";
}
}
ion
****
A Melton wrote in message <3698D95A.6C02EB53@diagdata.com>...
Program example below:
open IN, $filename or die "Cannot read $filename: $!";
@a = <IN>; # read all lines of this file
chomp ($val=@a[10]);
$val =~ s/-//g;
$final="978".$val;
print unless ($a[10]) eq "";
print OUTPUT ("$final \n");
chomp ($val=@a[17]);
$val =~ s/-//g;
$final1="978".$val;
print unless ($a[17]) eq "";
print OUTPUT ("$final1 \n");
The print unless does not stop the printing
of the blank line probably because it is followed by print OUTPUT
How do I exclude line 17 if it does not exist.
****
------------------------------
Date: Sun, 10 Jan 1999 14:05:19 -0800
From: "Ion Chalmers Freeman" <ion@aroma.com>
Subject: Re: eliminating lines with no data
Message-Id: <36992070.0@news.prostar.com>
A.,
OK. I wrote one that works:
my $line; my $filename = "C:/junk.txt";
open IN, $filename or die "Cannot read $filename: $!";
@lines = <IN>;@lines = @lines[10,17];#get lines ten and seventeen
grep(s/-|\n//g,@lines); #without newlines or hyphens
for $line(@lines){ #get the lines ten and seventeen in sequence
if ($line){ #test if the variable has any content -- this test will fail
if there was no line seventeen
print 978, $line, "\n"; #print each line preceded by '978' and
succeeded by a newline
}
}
------------------------------
Date: Sun, 10 Jan 1999 15:42:42 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Form Prefill - How To?
Message-Id: <1dlf8li.dsy670hf38vgN@bay1-500.quincy.ziplink.net>
Robb Sands <n2zen@concentric.net> wrote:
> I'm trying to write a perl script to log me into my favorite internet
> auction site. Where can I find how to info on posting data to a form,
> then getting it to submit. This isn't my server, but rather one 1/2
> way around the country. TIA, Robb.
Look into the LWP modules on CPAN. They have methods for doing what you
want.
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sun, 10 Jan 1999 21:42:48 +0200
From: "Adi G." <sorcerer@NetVision.net.il>
Subject: Re: GD.pm NOT WORKING!
Message-Id: <369902B8.F6E850B5@NetVision.net.il>
I tried installing the GD.pm using the PPM, and of course,
it was so predictable, it did NOT work... )-:
It gave me the Error:
---------
E:\Programming\Perl\GD-1.18>ppm
.PPM interactive shell (0.9.5) - type 'help' for available commands
PPM> install GD
Install package 'GD?' (y/N): y
Error installing package 'GD': Could not locate a PPD file for
package GD
-------------
So I tried to copy from the directory Perl5\site\lib\XML a file
I found called PPD.pm... Buttttt.. You guessed it! It did NOT work
either. This time:
----------------
PPM> install GD.pm
Install package 'GD.pm?' (y/N): y
syntax error at line 1, column 0, byte 0 at E:\PROGRAMMING\PERL5
\site\lib/XML/Parser.pm line 117
-----------------
What a great language Perl! Pitty I have to spend 8 hours of
unproductive work to find out how a module will work.
If you can Help me, I promise to even send you money, just
help...
bye..
Jonathan Stowe wrote:
>
> On Sat, 09 Jan 1999 22:10:10 +0200 Adi G. wrote:
> > Hi!!!
> >
> > I am running Win98 with ActiveState Perl 5.005_2.
> > Everything runs perfectly EXCEPT GD.pm!
> >
> > When I needed CGI.pm it ran Perfectly, just copying the file
> > to the /lib directory.
> > HOWEVER in the GD.pm case it's NOT!!
> >
> <snip the obvious error>
>
> You cant do this sort of thing with modules such as GD that require
> the XS binary modules to be installed in the correct place - merely
> copying the *.pm files to the lib directory will not work - it works
> with CGI.pm because that module only requires that file. If you are
> using ActivePerl then you should use PPM to install the GD module
> correctly - if you are unsure as to how to use PPM then you should
> look at the activestate website for further information.
>
> /J\
> --
> Jonathan Stowe <jns@btinternet.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: Sun, 10 Jan 1999 15:27:55 -0800
From: Chris Hobbs <chobbs@silvervalley.k12.ca.us>
Subject: Re: GD.pm NOT WORKING!
Message-Id: <3699377B.F5AE6F69@silvervalley.k12.ca.us>
"Adi G." wrote:
> I tried installing the GD.pm using the PPM, and of course,
> it was so predictable, it did NOT work... )-:
Well, I wouldn't call it predictable. FWIW, I just installed it myself,
and it worked fine:
C:\Perl\bin>perl ppm.pl
PPM interactive shell (0.9.4) - type 'help' for available commands.
PPM> search GD
Packages available from http://www.ActiveState.com/packages:
GD
PPM> install GD
Install package 'GD?' (y/N): y
Installing C:\Perl\site\lib\auto\GD\GD.bs
Installing C:\Perl\site\lib\auto\GD\GD.dll
Installing C:\Perl\site\lib\auto\GD\GD.exp
Installing C:\Perl\site\lib\auto\GD\GD.lib
Installing C:\Perl\site\lib\auto\libgd\extralibs.ld
Installing C:\Perl\html\lib\GD.html
Installing C:\Perl\htmlhelp\pkg-GD.chm
Installing C:\Perl\htmlhelp\pkg-GD.hhc
Installing C:\Perl\site\lib\auto\GD\autosplit.ix
Installing C:\Perl\site\lib\GD.pm
Installing C:\Perl\site\lib\qd.pl
Writing C:\Perl\site\lib/auto/GD/.packlist
PPM>
> It gave me the Error:
>
> ---------
> E:\Programming\Perl\GD-1.18>ppm
> .PPM interactive shell (0.9.5) - type 'help' for available commands
> PPM> install GD
> Install package 'GD?' (y/N): y
> Error installing package 'GD': Could not locate a PPD file for
> package GD
> -------------
My apologies if this sounds patronizing, but as I'm very new to Perl,
and my first attempt at using PPD was today, I was pleasantly surprised
that it actually goes out to the Internet to download the required
files. From your command line, it looks like you had downloaded the
files manually. Were you connected at the time you tried the install?
Based on what you posted, you've got a little bit newer version of PPM.
I don't know if there are any problems with this or not, but you might
try installing the previous version of Perl and see if it will work for
you. My version is:
C:\Perl\bin>perl -v
This is perl, version 5.005_02 built for MSWin32-x86-object
Copyright 1987-1998, Larry Wall
Binary build 506 provided by ActiveState Tool Corp.
http://www.ActiveState.com
Built 15:40:37 Oct 27 1998
> What a great language Perl! Pitty I have to spend 8 hours of
> unproductive work to find out how a module will work.
I was going to post a witty, sarcastic remark here, but I'll let it
slide - I'm sure someone else will jump on it.
> If you can Help me, I promise to even send you money, just
> help...
No money required, and I do hope this helps,
--
Chris Hobbs chobbs@silvervalley.k12.ca.us|Network Admin | Postmaster
Silver Valley Unified School District |MCP - TCP/IP | J.A.P.H.
http://www.silvervalley.k12.ca.us/chobbs |A witty saying proves nothing.
- Voltaire
------------------------------
Date: Sun, 10 Jan 1999 15:42:46 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Getting total records in a dbm file
Message-Id: <1dlf8mt.13c1d5ojqqtj4N@bay1-500.quincy.ziplink.net>
Richard Zilavec <rzilavec@titan.tcn.net> wrote:
> How do you get the total records in a DBM database without cycling
> through each key:
>
> dbmopen(%A, $DB, 0600) || die "$!\n";
> foreach $key (keys %A) {
> $count++;
> }
> dbmclose(%A)
$count = scalar keys %A; # [1]
As the documentation for keys() clearly explains, keys() in a scalar
context returns the number of elements of the hash. However, as the
documentation also explains, because it's a DBM file Perl still has to
walk the entire hash to get the number of keys.
Refer to the following thread for discussion on this issue:
<http://www.dejanews.com/dnquery.xp?search=thread&recnum=%3c36392091.462
73162@news.digex.net%3e%231/1&svcclass=dnserver>
[1] If I don't point this out now, I know someone else will.
The keyword 'scalar' is redundant in that line of code, because the RHS
of the assignment is already in scalar context from the scalar on the
LHS. I included 'scalar' for clarity. So there. :-P
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sun, 10 Jan 1999 22:23:33 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Help Wanted
Message-Id: <FL9m2.64$Co2.2358@nsw.nnrp.telstra.net>
In article <6lRl2.298$24.1046@news.ipass.net>,
"E. Preble" <preble@ipass.net> writes:
> Can someone remove this message? Do we -really- have to look at
> it until 1/4/00?
Are you for real? That date stamp has nothing to do with the amount of
time you have to spend looking at it.
> Who runs this newsgroup?
No one. Unless a group is moderated, no one runs it.
Spend some time on www.dejanews.com, and read some of their stuff, and
others, about what Usenet is.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | We are born naked, wet and hungry. Then
Commercial Dynamics Pty. Ltd. | things get worse.
NSW, Australia |
------------------------------
Date: Sun, 10 Jan 1999 22:43:36 +0100
From: Frank de Bot <debot@xs4all.nl>
Subject: image
Message-Id: <36991F08.E542D778@xs4all.nl>
Does anyone knows how I can make from 2 gif files (or jpg) 1 gif file?
thanks
------------------------------
Date: 10 Jan 1999 21:55:19 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: image
Message-Id: <slrn79i8e7.ev3.sholden@pgrad.cs.usyd.edu.au>
On Sun, 10 Jan 1999 22:43:36 +0100, Frank de Bot <debot@xs4all.nl> wrote:
>Does anyone knows how I can make from 2 gif files (or jpg) 1 gif file?
cat gif1.gif >gif2.gif
It puts gif1 on top of gif2 with the no transparency and the clips the
final image to the size of gif1...
Your question is meaningless unless you consider the above a useful answer...
I haven't used them but I know there are some modules that let you play
around with images on CPAN. I don't have time to do a quick search on
CPAN... oops I just did it :
cpan> m /gif/
Module Chart::GnuPlot::Terminal::gif
(N/NP/NPESKETT/Chart-GnuPlot-0.02.tar.gz)
Module GIFgraph (MVERB/GIFgraph-1.10.tar.gz)
<snip GIFgraph packages>
cpan> m /image/
Module CGI::Imagemap (MIKEH/CGI_Imagemap-1.00.tar.gz)
Module FAQ::OMatic::ImageData (JHOWELL/FAQ-OMatic-2.607.tar.gz)
<snip more FAQ::OMatic modules>
Module Image::Colorimetry
(Contact Author Jon Orwant <orwant@media.mit.edu>)
Module Image::Grab (M/MA/MAHEX/Image-Grab-0.9.1.tar.gz)
Module Image::Grab::RequestAgent (M/MA/MAHEX/Image-Grab-0.9.1.tar.gz)
Module Image::Magick (JCRISTY/PerlMagick-1.58.tar.gz)
Module Image::Size (RJRAY/Image-Size-2.9.tar.gz)
Module PDL::Graphics::TriD::Image (LUKKA/PDL-1.99989.tar.gz)
Module QImage (AWIN/PerlQt-1.06.tar.gz)
Module Tk::Image (NI-S/Tk800.012.tar.gz)
Module Tk::ImageBack (NI-S/Tk800.012.tar.gz)
The only one I've used is Image::Magick which would do what you want, but
you might be better off using an external graphics program...
I'll shut up now since this is far from any area which I have any knowledge
in...
--
Sam
Of course, in Perl culture, almost nothing is prohibited. My feeling is
that the rest of the world already has plenty of perfectly good
prohibitions, so why invent more? --Larry Wall
------------------------------
Date: Sun, 10 Jan 1999 15:42:47 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Inspecting MY variables with the debugger
Message-Id: <1dlf94y.18sqjqzhhb23jN@bay1-500.quincy.ziplink.net>
Paul Davies <cobalt@dircon.co.uk> wrote:
> It does not appear possible to inspect MY variables in the perl debugger.
>
> Eg:
>
> sub foo {
> my($var) = "avar";
> }
>
> I could inspect them when I used the ActiveState perl debugger under windows
> NT but now I have moved to Linux I cannot inspect them.
How are you trying to inspect them?
You can't use 'X' or 'V' to print the values of lexical [my()]
variables. 'X' and 'V' are for viewing variables in a specific package;
lexical variables are not in any package.
Use 'x' or 'p' instead.
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sun, 10 Jan 1999 23:51:01 GMT
From: phraktyl@home.com
Subject: Objects and Methods and Refs - Oh My!
Message-Id: <36992FFF.6996@home.com>
Although this is probably an old concept for most of you, it just hit me
a couple of days ago, and I am trying to figure out exactly how this is
going to work syntacticly.
I am writing a program that, while having limited functions on its own,
will use plug-in modules to add or replace different administration
functions. I have figured out that the main object can use an attribute
to store the default reference to a method, and subsequent modules can
use an attribute method to change the reference to its newer functions:
For instance, main.pm has a default logging function called _logger that
sends output to syslog. It also has an attribute called logger
(probably set up through AUTOLOAD) that stores a reference to _logger.
When I initialize the main object, it will call
logger(\$self->_logger);
to set his logger to be the default. Later, I might write a Logger.pm
object that adds HTML output, etc. So, when Logger.pm gets initialized
(with an ISA relation ship to main, maybe?) he calls
SUPER::logger(\$self->new_logger);
to replace the old one.
Now, here are my questions:
1) Is this the way to go about doing this? Does it make sense? Is
there a better way?
2) I am familiar with functions and references to them in normal perl
programs, but this is the first time I have tried to use references to
object methods. Is the syntax the same? Does it get called as a
function? :
&$self->logger()
3) How can I code it so the module can either add functionality as
opposed to replacing it? I can use a configuration file to specify it,
like
<logger.conf>
REPLACE_LOGGER = no
but how do I pass that up to the main object, and how should the main
object treat it?
Again, this thought is very new to me, so if anyone can point to
examples, snippits of code, etc that would help a lot.
Thanks,
Wyatt
------------------------------
Date: Sun, 10 Jan 1999 18:48:16 -0500
From: jamesht <jamesht@idt.net>
To: Martin Bertolino <martinb@talx.com.no.spam>
Subject: Re: Perl & Java ?
Message-Id: <36993C40.91C6BE8F@idt.net>
Hello,
Here's some info you might find helpful.
http://www.oreilly.com/oreilly/press/jpl_oss.html
hth
James
Martin Bertolino wrote:
> There is an article on this on the last Dr. Dobbs Journal, February 1998.
>
> Martin
>
> Jason Varsoke wrote in message <36937274.A0F18244@caesun.msd.ray.com>...
> >I'm looking for a way to interface a few perl functions with a Java
> >GUI that I have. Does anyone know where I can find any information on
> >this topic. Thanks.
> >
> > Please send reply to jjv@caesun.msd.ray.com
> > my news access is limited.
> >
> >-jason
------------------------------
Date: Sun, 10 Jan 1999 14:49:18 -0800
From: TRG Software <chatmaster@c-zone.net>
Subject: Re: Perl Criticism
Message-Id: <36992E6D.8CAF1344@c-zone.net>
"Charles R. Thompson" wrote:
>
> >Geez, I was joking about the record. :-) I really hope it
> doesn't get
> >_that_ long! *cringe*.. maybe this is his entire "mission"? To
> see how
> >long this tread will get. After all, why else would he be
> pushing this
> >so much? It's infinite it seems. Oh great, now I've just
> contributed to
> >this horror story again. :-)
>
> Record? What record? It doesn't exist anymore. We left that
> behind yesterday when this thread attributed to 75% of the total
> Internet traffic for Earth. The thread is now the equivalent of
> the virtual Blob, slowly oozing out into our newsreaders with
> all the grace of a mudslide.
>
> >After all, why else would he be pushing this
> >so much?
>
> Pushing what? To be perfectly honest, I don't even know what the
> hell this whole thing is about. One can only assume something of
> this grandure has stemmed from either total ignorance or
> incompetence.
>
> No more posts on this from me...unless somebody says something
> else I can be witty about :)
>
> CT
Hey now.. Don't make this reply look like this thread has anything to do
with me. Yes, it has been so long from a person's ignorance, ego, and
mental problems.. :-)
--
Regards,
Tim Greer - chatmaster@c-zone.net
TRG Software and The Link Worm
http://www.linkworm.com
The Chat Base
http://www.chatbase.com
------------------------------------------------------------
* Creator of Paradise Chat, Chat Central & Spiral Chat
* Receiving over 250,000+ hits a day from users Worldwide!!!
* Sales of custom chat server scripts * CGI/Perl scripting
* Script trouble shooting/security * Modify & debug scripts
* Freelance Perl Scripting for any purpose or application
Copyright ) 1999 TRG Software and The Link Worm.
------------------------------
Date: Sun, 10 Jan 1999 22:14:53 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Perl modules compatibility, in UNIX and DOS.
Message-Id: <xD9m2.61$Co2.2358@nsw.nnrp.telstra.net>
[Trimmed from newsgroups:
alt.perl: nonsensical group
claranet.local.help: doesn't exist here
comp.lang.perl.modules: this has nothing to do with modules
tw.bbs.comp.lang.perl: doesn't exist here
]
In article <onUl2.4294$hs6.2993@nnrp2.clara.net>,
"Jules" <julius@clara.net> writes:
> Dear all, I've written this program that uses 2 modules of my own. It works
> under CPAN Perl 5.00402 running on my Win95 PC. However when I run the
> program in UNIX (Sun Solaris) which has Perl 5.003, it doesn't give me
> correct output. I suspect is the way regular expressions work in Perl under
> UNIX and DOS differ. Could it be that? Or could it be the difference in
> version? I use lots of object stuff and regexp pattern matching for
More likely a difference in version. You're not showing us any data or
any code, so we can't really tell?
Besides that, you are aware that DOS-derived systems and Unices use
different end-of-line markers, right? Maybe you're using data
generated on one box to be read on the other, and you're not
transferring the files correctly.
> recognising input data. I've tried running the script on other PCs which
> have CPAN Perl5.00402 installed as well (either they're programmers
> themselves or forced by me haah!!) What other kinda standard Perl
You've tried that, and? What was the result?
> development tools (maybe ActivePerl?) I can download and try my program on
> to make sure it is not compiler-dependent? Thanx.
Not that I know. You can however download more current versions that
5.003, and I would strongly recommend that. Many people here can
remember 5.003, and some of the changes from that to 5.004, but you'll
find that fewer and fewer people will be able to offer any support on
the details of such old, old versions.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | If it isn't broken, it doesn't have
Commercial Dynamics Pty. Ltd. | enough features yet.
NSW, Australia |
------------------------------
Date: Sun, 10 Jan 1999 16:18:41 -0500
From: Jon Lewis <jlewis@gnv.fdt.net>
Subject: Re: possible bug in perl format with ~~
Message-Id: <Pine.LNX.4.05.9901101615240.24988-100000@yoda.fdt.net>
On 9 Jan 1999, Jonathan Stowe wrote:
> >> Why do you have Carriage Returns in your text files?
> >
> > The perl script in question is processing an HTML form post, and using a
> > format to generate a nice looking formatted hard copy. Several textareas
> > have to be printed on the hard copy, and I don't know how long each will
> > be, or whether or not the user will enter line breaks (carriage returns)
> > within a textarea.
>
> You probably want to remove the carriage-returns from your data before
> writing to the format then:
>
> $sr_notes =~ /\r\n/ /g;
I had already done that as a workaround...but it's really not the solution
I want. In the textareas on the HTML forms I'm dealing with, there are
plenty of good reasons that the user might put in carriage-returns so that
the text they enter is formatted the way they want. Stripping the
returns, IMO, is an ugly hack.
My question still is, is this behavior considered a bug, or am I misusing
format and write?
------------------------------------------------------------------
Jon Lewis <jlewis@fdt.net> | Unsolicited commercial e-mail will
Network Administrator | be proof-read for $199/message.
Florida Digital Turnpike |
______http://inorganic5.fdt.net/~jlewis/pgp for PGP public key____
------------------------------
Date: Sun, 10 Jan 1999 19:44:41 +0000
From: Mike Newsome <mike@chessell.demon.co.uk>
Subject: Regex suggestions
Message-Id: <FMVfjAApMQm2EwQk@chessell.demon.co.uk>
I am parsing a text file produced by another application, containing
lines of data, which represent four fields in a record. I need to
separate the four fields in each record to four variables. I then
manipulate the data, sort it and output into a different format. The
file consists of about 4200 lines, 195k bytes. Processing speed is not a
particular problem, I am interested in alternative approaches.
A typical line is
"15-0261" .059682 "SUPPORT PCB 1/4" "LCBS-401"""
There are two sorts of field - string and numeric, and the sequence of
fields is fixed (string numeric string string) The fields are space
separated.
The numeric field consists of integers [0-9] and a (single) optional
decimal point, so 0 1 1. .1 1.1 etc. - never a sign. I started to match
this by /\b[0-9]*\.?[0-9]*/ This will also match /\b\b/ so I changed it
to /\b[0-9]*?[0-9.][0-9]*/ which also works. What else could I consider?
The strings are variable length (including zero) quoted with double
quotes ("this is a 95 field") with the added complexity that quotes may
appear in the string, in which case they have an extra " preceding them,
so "This "" is a valid string""". My best bet here was \"(.*?(?:"")*)"\
- (I was quite pleased with that) then substituting s/""/"/g to tidy
them up, so the key line turned out to be:
$match4 = ($PartNumber,$Price,$Description1,$Description2) = /^"(.*?)"
([0-9]*?[0-9.][0-9]*) "(.*?(?:"")*)" "(.*?(?:"")*)"$/ ;
(The first string never has quotes in it). I haven't commented it - I
have only just understood the /x flag
It doesn't look as neat as the samples that appear from time to time,
and I would like to improve.
Any helpful suggestions gratefully received.
--
Mike Newsome Worthing, England
------------------------------
Date: Sun, 10 Jan 1999 17:26:48 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Regex suggestions
Message-Id: <ovcb77.us2.ln@magna.metronet.com>
Mike Newsome (mike@chessell.demon.co.uk) wrote:
: A typical line is
: "15-0261" .059682 "SUPPORT PCB 1/4" "LCBS-401"""
: The strings are variable length (including zero) quoted with double
: quotes ("this is a 95 field") with the added complexity that quotes may
: appear in the string, in which case they have an extra " preceding them,
: so "This "" is a valid string""".
: $match4 = ($PartNumber,$Price,$Description1,$Description2) = /^"(.*?)"
: ([0-9]*?[0-9.][0-9]*) "(.*?(?:"")*)" "(.*?(?:"")*)"$/ ;
: (The first string never has quotes in it).
I make use of that below.
: I haven't commented it - I
: have only just understood the /x flag
I have ;-)
: It doesn't look as neat as the samples that appear from time to time,
: and I would like to improve.
-------------------------
#!/usr/bin/perl -w
$line = '"15-0261" .059682 "SUPPORT PCB 1/4" "LCBS-401"""';
#@f = $line =~ /^"([^"]*)" (\S+) "((?:[^"]|"")*)" "((?:[^"]|"")*)"$/;
@f = $line =~ /^ # beginning of string
" # double quote
([^"]*) # anything that is not double quote ($1)
" # double quote
[ ]
(\S+) # non-whitespace chars ($2)
[ ]
" # double quote
(
(?:[^"]|"")* # anything that is not double quote
# or that _is_ two double quotes
) # that goes into ($3)
" # double quote
[ ]
" # double quote
(
(?:[^"]|"")* # same as above
)
" # double quote
$ # end of string
/x;
foreach (@f) {print "$_\n"}
-------------------------
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 10 Jan 1999 14:49:40 -0500
From: Marty Landman <marty@catnmoose.com>
Subject: Re: regexp and broken MY reference
Message-Id: <36990454.2583BC54@catnmoose.com>
I would like to thank the three people that have replied to my posting.
I have read Mark-Jason Dominus' article and want to state my appreciation
for the thoughtfulness and helpful spirit that went into the replies. I
find learning Perl to be a chore, but well worth it. The ability to do
alot in a concise syntax and have it execute quickly to boot is starting
to make Perl my favorite language.
--
Marty Landman - web programming and graphics
Cat 'n Moose dot com http://www.catnmoose.com/
------------------------------
Date: Sun, 10 Jan 1999 15:42:54 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Security
Message-Id: <1dlf9wn.oxana31mqn139N@bay1-500.quincy.ziplink.net>
SDC <hypersdc@home.com> wrote:
> I need to get some feedback from those of you that are well versed in
> e-commerce. What type of security issues if any, do I need to be concerned
> about when it comes to CGI scripts and payment proceessing? We're looking into
> using SSL and CyberCash. Let me know if there is any other info required for
> such a question. Right now I'm just doing the research.
Great, but, please consider doing your research in a newsgroup that is
actually concerned with CGI scripts, e-commerce, and security. This
newsgroup is concerned with issues that relate specifically to the Perl
programming language. Thanks.
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Mon, 11 Jan 1999 00:14:43 +0100
From: Frank de Bot <debot@xs4all.nl>
Subject: test
Message-Id: <36993463.9AD09119@xs4all.nl>
Just because my previous message didn't came into the newsgroup
------------------------------
Date: Sun, 10 Jan 1999 15:42:56 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Verify an email address
Message-Id: <1dlfa4l.ueciniiwfp1tN@bay1-500.quincy.ziplink.net>
Richard Zilavec <rzilavec@titan.tcn.net> wrote:
> I need a way to verify that an email address is the correct format,
> this is what I came up with but it doesn't completely work:
FAQ.
> $ii =~ /^.+\@.+[(.)](com|net|edu|gov|ca|org)/
That's a rather ethnocentric regular expression, wouldn't you say?
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 10 Jan 1999 22:13:26 GMT
From: "Allan M. Due" <due@murray.fordham.edu>
Subject: Re: Verify an email address
Message-Id: <77b8m6$kd2$0@206.165.165.163>
Richard Zilavec wrote in message <369914f6.148149139@199.166.4.3>...
|I need a way to verify that an email address is the correct format,
|this is what I came up with but it doesn't completely work:
|$ii =~ /^.+\@.+[(.)](com|net|edu|gov|ca|org)/
|Richard
Ok, clearly this is a FAQ and folks appropriately direct such individuals to
perlfaq9, but there is something that has always bugged me about the answer in
the FAQ. In many cases a simple regex can do a pretty good job and would work
well enough for many scripts. The FAQ even makes the same point. However,
the simple regex example in the FAQ doesn't work well. If you are going to
give an example, it seems you should give a good example. But maybe it is
just me.
>From the FAQ
_____
Many are tempted to try to eliminate many frequently-invalid email addresses
with a simple regexp, such as /^[\w.-]+\@([\w.-]\.)+\w+$/. However, this also
throws out many valid ones, and says nothing about potential deliverability,
so is not suggested. Instead, see
http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/ckaddr.gz , which
actually checks against the full RFC spec (except for nested comments), looks
for addresses you may not wish to accept email to (say, Bill Clinton or your
postmaster), and then makes sure that the hostname given can be looked up in
DNS. It's not fast, but it works.
Here's an alternative strategy used by many CGI script authors: Check the
email address with a simple regexp (such as the one above). [snip]
_________
Except the regexp above does not work for even something simple like
name@domain.tdl
I can't figure out what the parentheses are for, and the + seems to be in the
wrong place. What am I missing?
FAQ version:
/^[\w.-]+\@([\w.-]\.)+\w+$/
works:
/^[\w.-]+\@[\w.-]+\.\w+$/
and do we really need to escape the @ in this case?
Just curious.
AmD
------------------------------
Date: Sun, 10 Jan 1999 23:01:09 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Verify an email address
Message-Id: <Viam2.74$Co2.2358@nsw.nnrp.telstra.net>
In article <77b8m6$kd2$0@206.165.165.163>,
"Allan M. Due" <due@murray.fordham.edu> writes:
> I can't figure out what the parentheses are for, and the + seems to
> be in the wrong place. What am I missing?
Which +?
> FAQ version:
> /^[\w.-]+\@([\w.-]\.)+\w+$/
m{
^ # match from start of string
[\w.-]+ # any 'word' character, literal . or -, one or more times
\@ # literal @
( # group and capture in $1
[\w.-]\. # any word character, literal . or -
# followed by a . (+)
) # end group and capture
+ # preceding group one or more times (*)
\w+ # one or more word characters
$ # match to end of string
}x
The plus that I believe you think is in the wrong place, is marked
with (*) above. It is in the correct place. What is missing is a plus
in the constuct marked with a (+) above. It should read [\w.-]+\.
>
> works:
> /^[\w.-]+\@[\w.-]+\.\w+$/
But this will fail on simple email adresses like foo@bar.bar.com.au,
because it only matches the [\w.-]\. once. You need to allow it to
match more than once, by grouping it, and adding a '+'
> and do we really need to escape the @ in this case?
yes.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | This matter is best disposed of from a
Commercial Dynamics Pty. Ltd. | great height, over water.
NSW, Australia |
------------------------------
Date: Mon, 11 Jan 1999 02:59:50 +0530
From: Murali Ravipudi <myparu@usa.net>
To: alastair@calliope.demon.co.uk
Subject: Re: Why doesn't it work?
Message-Id: <36991BCE.154027F6@usa.net>
Yes, $xx == $yy never worked for me with strings....
-murali
Alastair wrote:
>
> Martin Harrigan <harrigan@mailexcite.com> wrote:
> >I'm trying to write a perl script to redirect a user to a page based on the
> >argument after the ?. Can anyone tell me where I'm going wrong?
> >
>
> >if ($url == "index") {
>
> Perhaps ;
>
> if ($url eq "index") {
> ...
>
> is better!
>
> HTH.
>
> --
>
> Alastair
> work : alastair@psoft.co.uk
> home : alastair@calliope.demon.co.uk
------------------------------
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 4614
**************************************
