[6419] in Perl-Users-Digest
Perl-Users Digest, Issue: 44 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 3 22:11:52 1997
Date: Mon, 3 Mar 97 19:01:56 -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 Mon, 3 Mar 1997 Volume: 8 Number: 44
Today's topics:
Re: Help on Win NT Perl configuration (HdV)
Re: Help with Perl and Window95 <charliew@atlml1.attmail.com>
Re: How to flush in perl. (Tad McClellan)
Re: How to make perl scripts appear locally on the brow <jgm@dynamicweb.com>
How to set the effective gid in Perl4 ? (Eric van Bezooijen)
Re: How to spam - legitimately (Brian L. Matthews)
Re: HOW TO SPLIT A SIMPLE STRING (Jeffrey)
Re: Interview With The Internet's Wise Guys Of Perl - W (Steffen Beyer)
Re: Multi-line processing (Jeffrey)
Re: Numeric value expected... (Brian L. Matthews)
Re: Perl filehandling (Brian L. Matthews)
Re: Perl filehandling (Tad McClellan)
Re: Perl script <nachtigall@edcserver1.cr.usgs.gov>
Re: Public domain DES and other crypto code in Perl? (Tom Womack)
test <duke@uims01.ice.cycu.edu.tw>
Re: URL - How can I tell from within PERL if a URL is U <merlyn@stonehenge.com>
Where is Perl-Win32 documentation <kramsey@worldnet.att.net>
Re: Which one is the best (pattern matching) (Jeffrey)
Why the Win32::GD isn't Working? <duke@uims01.ice.cycu.edu.tw>
X at a time search engine routine problem (Eric Harley)
Digest Administrivia (Last modified: 8 Jan 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 04 Mar 1997 00:02:30 GMT
From: J.A.deVries@lr.tudelft.nl (HdV)
Subject: Re: Help on Win NT Perl configuration
Message-Id: <5ffoqq$mbi$1@news.tudelft.nl>
softbase@mercury.interpath.com (Scott McMahan - Softbase Systems)
wrote:
>Single's Club (dpm@wdc.net) wrote:
>: Hello..
>: I'm having trouble configuring Perl5 for Win NT. I got everything else
>: working.. but I can not configure my IIS to perform Server Side Include...
>: Does any body have any idea? Is it possible?
>As far as I can determine, IIS (version 2) does not support SSI execs.
>It only supports including other HTML files.
>Scott
Here's what you need to do to install perl under NT and IIS.
- Get Perl for Win32 from the net ("www.hip.com" I think).
- Unzip the files to the dir where you want perl.
- If you use Win95 rename the file "install.bat" to "install.bat.bat".
- Run the appropriate install file from the command-prompt. (that is
"install.bat" for those that use WinNTor "install.bat.bat" if you use
Win95)
- Answer the questions with yes (two I think).
OK, so far it's really simple and all this you could have read in the
install.txt file that comes with perl. However you still need to tell
your
server what it has to do with the scripts, otherwise they won't be
interpreted
by perl. This means you have to create an association for your perl
files. But
beware, since this is an association needed by the server and not one
needed
by the explorer it won't help to create the association in the
explorer with
"View | Options". Instead you have to delve deep into the guts of the
registry
(don't you just like it :-)
Now fire up the registry-editor (regedit.exe in the windows dir) and
open the
following keys:
hkey_local_machine
system
currentcontrolset
services
w3svc
parameters
scriptmap
Add this entry to the others:
pl: reg_sz: c:\perl5\perl.exe %s %s
Of course you should adjust the extension and the path to perl
according to
your own situation, but that shouldn't be a problem.
Remember this is specific to IIS, other webservers probably use other
keys,
but the idea remains the same.
Probably it's wise to stop and restart your www-service in order to be
sure it
knows of the new association you just made.
SSI functionality other then #include is available after installing
ASP. Here's what you need to do:
- Install ASP
- Add this key to the registry
hkey_local_machine
system
currentcontrolset
services
w3svc
parameters
scriptmap
.stm: REG_SZ: "path of SSI dll"
Hope this helps...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bees accomplish nothing
save as they work together,
and neither do men.
(Elbert Hubbard)
HdV aka J.A.deVries@lr.tudelft.nl
Delft University of Technology
Faculty of AeroSpace Engineering
------------------------------
Date: Mon, 03 Mar 1997 09:45:44 -0500
From: Charlie Wu <charliew@atlml1.attmail.com>
Subject: Re: Help with Perl and Window95
Message-Id: <331AE418.7138@atlml1.attmail.com>
Chris Murdock wrote:
>
> I use Microsoft Front Page with it's personal web server. It works
> fine!
Can you post your configuration please - i.e. registry, filename
association, virtual directory setting in pws, etc.
I spent all weekend on this but all I got is the HTTP1.0 501 Not
supported Error.
Thanks.
Charlie
------------------------------
Date: Mon, 3 Mar 1997 20:01:28 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: How to flush in perl.
Message-Id: <opvff5.9o.ln@localhost>
Bhasker Allam (abr@wasp) wrote:
: Is there a way in perl to force the output of print to
: to go the screen or file immediately.
Uh oh. I don't know the answer to this one.
I know! I'll look it up in the free documentation that is included
with the perl distribution...
... but what word should I search for... what word...
: I want something
: like flush(STDOUT).
^^^^^
Oh yeah! That's it. Thanks
grep flush *.pod
Only 18 lines to look at.
I bet you could get the answer if you tried the above...
: Thanks in advance.
Uh huh.
--
Tad McClellan SGML Consulting
Tag And Document Consulting Perl programming
tadmc@flash.net
------------------------------
Date: Mon, 03 Mar 1997 18:32:26 -0500
From: JG Motolanez <jgm@dynamicweb.com>
To: herryh@xs4all.nl
Subject: Re: How to make perl scripts appear locally on the browser
Message-Id: <331B5F89.7AED@dynamicweb.com>
herryh@xs4all.nl wrote:
>
> Hi,
>
> I have a problem getting my perl-scripts to output to my browser.
> presently I test my scripts by copying them to the perl\bin dir. and
> run
> perl myfile.pl > myfile.html
> and then have my browser read myfile.html.
>
> But what I really want is having my browser read the perl script
> directly. But all that happens is a unreadably quick appearing
> and disappearing dos-box saying Bad Command or Filename.
> I want the same output as when I run it manually at the dosprompt
> and I want the output being directed to my browser.
>
> I installed O'reilly's Website, Netscape 3.01 and Win32 Perl.
>
> Please help me!!!
>
> thank in advance
> Herry
Here's an old subroutine I use:
sub show_source
{
open(SOURCE, "$0") || die 'Cannot open file
"$0"';
print "<HR>Here is the
Source.<HR><PRE>";
while ($line = <SOURCE>){ # need to escape < and
>
($foo = $line) =~ s/</</g;#2nd < is escape sequence & l t (no
spaces)
($bar = $foo ) =~ s/>/>/g;#2nd > is escape sequence & g t (no
spaces)
print
$bar;
}
print
"</PRE>";
close(SOURCE);
}
Using CGI.pm I include a radio_group like so:
print "<HR><H6>Would you like to see the cgi source ? ",
$query->radio_group('show_source',['yes','no'],'no'),
"</H6><P>";
And this line later in the perl script to test for a yes or no.
&show_source if ($query->param('show_source') eq "yes");
See: http://www.dynamicweb.com/~jgm/myart/art.cgi for an example.
-
JG Motolanez <jgm@dynamicweb.com>
Webmaster
DynamicWeb Enterprises <http://www.dynamicweb.com>
"On line with the world, in line with your EDI
needs."
------------------------------
Date: 3 Mar 1997 23:01:37 GMT
From: eric@godzilla.berkeley.edu (Eric van Bezooijen)
Subject: How to set the effective gid in Perl4 ?
Message-Id: <5ffl8h$nbt@masters0.InterNex.Net>
Does anyone know how to set the effective gid in perl4 ? I tried something
like this:
print "Real uid: $<\n";
print "Effective uid: $>\n";
print "Real group: $(\n";
print "Effective group: $)\n";
@bin = getpwnam("bin");
$> = $bin[2];
@foo = getgrnam("bin");
# print "$foo[2]\n";
@groups = split(/ /,$));
shift(@groups);
unshift(@groups,$foo[2]);
print "@groups\n";
$foo = join(" ",@groups);
print ("$foo <<<\n");
$) = join(" ",@groups);
print "Real uid: $<\n";
print "Effective uid: $>\n";
print "Real group: $(\n";
print "Effective group: $)\n";
`touch /tmp/blarg`;
This is the output I get:
# /usr/local/bin/perl test.perl
Real uid: 0
Effective uid: 0
Real group: 1 12 9 8 7 6 5 4 3 2 0 1
Effective group: 1 12 9 8 7 6 5 4 3 2 0 1
2 12 9 8 7 6 5 4 3 2 0 1
2 12 9 8 7 6 5 4 3 2 0 1 <<<
Real uid: 0
Effective uid: 2
Real group: 1 12 9 8 7 6 5 4 3 2 0 1
Effective group: 1 12 9 8 7 6 5 4 3 2 0 1
But when I run this as root, the file has user "bin" and group "other". Since
the $) and $( variables are actually space seperated lists, how does one
manipulate this properly ?
-Eric
--
http://www.activesw.com/~eric/ EL!TE YOONICKS(TM) Solaris & FreeBSD user
Eric van Bezooijen | "Faboo!"- Wakko Warner, Animaniacs #Warlord *THIS*
eric@csua.berkeley.edu | "Oh joy of Joys!"- Stimpson J. Cat, Ren & Stimpy
eric@activesw.com | "Spoon!"- The Tick #Pixies and Talking Heads rule!
------------------------------
Date: 3 Mar 1997 16:37:10 -0800
From: blm@halcyon.com (Brian L. Matthews)
Subject: Re: How to spam - legitimately
Message-Id: <5ffqrm$5au$1@halcyon.com>
In article <8cu3msk2rm.fsf@gadget.cscaper.com>,
Randal Schwartz <merlyn@stonehenge.com> wrote:
|"a mail". Ugh. A native speaker of American english would *never* say
|that.
I say it fairly often. Of course, I say it because it sounds odd and
surprising to people. :-)
Brian
--
Brian L. Matthews Illustration Works, Inc.
For top quality, stock commercial illustration, visit:
http://www.halcyon.com/artstock
------------------------------
Date: 03 Mar 1997 19:10:04 GMT
From: jfriedl@tubby.nff.ncl.omron.co.jp (Jeffrey)
To: pgf@space.mit.edu
Subject: Re: HOW TO SPLIT A SIMPLE STRING
Message-Id: <JFRIEDL.97Mar4041004@tubby.nff.ncl.omron.co.jp>
[mail and post]
Peter G Ford <pgf@space.mit.edu> wrote:
|> >+I have a a six character string,
|> >+ say 012345, that I want to split into three variables, $one, $two, $three
|> >+ that would then have 01, 23, 45.
|> >
|> >$var1=substr($string,0,2);
|> >$var2=substr($string,2,2);
|> >$var3=substr($string,4,2);
|>
|> ($var1,$var2,$var3) = $string =~ /(..)(..)(..)/;
|>
|> # Moral: never use 3 lines of Perl if you can accomplish the same
|> # thing in one (while thoroughly confusing everyone in the process).
Your parenthetical quote is wonderfully ambigous -- are you being
scarcastic about your use of a regex, or are you saying that the regex
approach is less confusing?
You could also use:
($var1,$var2,$var3) = m/(..)/g;
It's shorter than what you have, but certainly less obvious. I'm sure that
Randal could come up with something even shorter, yet a *lot* less obvious. :-)
My moral is that "short" and "clever" are not necessiarly desirable for
real-world applications. Sometimes efficiency will take a lot of
precidence, but sometimes it's just not that big of a deal. If the original
poster's situation is along those lines, then the three substr() calls
sounds the most straightforward approach to me. "Straightforward" can mean
a whole lot.
If you disagree with me, well, remember: 9 out of 10 doctors thinks 1 out
of 10 doctors is a jerk :-)
Jeffrey
----------------------------------------------------------------------------
Jeffrey Friedl <jfriedl@ora.com> Omron Corp, Nagaokakyo, Kyoto 617 Japan
See my Jap<->Eng dictionary at http://www.wg.omron.co.jp/cgi-bin/j-e
O'Reilly's Regular Expression book: http://enterprise.ic.gc.ca/~jfriedl/regex/
------------------------------
Date: 3 Mar 1997 21:05:45 GMT
From: sb@en.muc.de (Steffen Beyer)
Subject: Re: Interview With The Internet's Wise Guys Of Perl - Web Week
Message-Id: <5ffef9$t0t$1@en1.engelschall.com>
Mike Heins <mheins@prairienet.org> wrote:
> If I had been seeing pointers to Bill Gates latest introview, I
> would perhaps have a problem with this. But well-targeted
> stuff like this is nice to have. Please keep posting for my
> benefit -- I would have never seen this nice interview otherwise.
Mee too!
> I
> don't mind well-targeted things, even if I have to navigate a bit
> to find them.
I didn't mind very much (only a little) the additional navigating, either.
Nevertheless I think it would have been nicer still if they had given
us the direct link - we're all investing efforts in Perl for free, so
they shouldn't try this commercial thing on us to send us through their
advertising section first. We're not that kind of people, are we. :-)
We wouldn't be writing software for free if it wasn't also out of a
certain apprehension for commercial attitudes. Isn't that so?
Yours sincerely,
--
|s |d &|m | Steffen Beyer <sb@sdm.de> (+49 89) 63812-244 fax -150
| | | | software design & management GmbH & Co. KG
| | | | Thomas-Dehler-Str. 27, 81737 Munich, Germany.
"There is enough for the need of everyone in this world,
but not for the greed of everyone." - Mahatma Gandhi
------------------------------
Date: 03 Mar 1997 17:49:24 GMT
From: jfriedl@tubby.nff.ncl.omron.co.jp (Jeffrey)
Subject: Re: Multi-line processing
Message-Id: <JFRIEDL.97Mar4024924@tubby.nff.ncl.omron.co.jp>
Mike Stok <mike@stok.co.uk> wrote:
|> This gets quite interesting if you want to look into it further then
|> Jeffrey Friedl's book develops a regex which matches C /* */ style
|> comments and C++ // to end of line comments taking into account strings
|> and optimizes it. Interesting reading - Mastering Regular Expressions (aka
|> the hip owls book.)
Actually, I developed it years ago for a clp post:
$/ = undef;
$_ = <>;
s#/\*[^*]*\*+([^/*][^*]*\*+)*/|("(\\.|[^"\\])*"|'(\\.|[^'\\])*'|\n+|.[^/"'\\]*)#$2#g;
print;
This is in the FAQ, I think.....
[redoing it now, I'd use (?:...) for all but what is originally $2, and
then replace $2 with $1]
Jeffrey
----------------------------------------------------------------------------
Jeffrey Friedl <jfriedl@ora.com> Omron Corp, Nagaokakyo, Kyoto 617 Japan
O'Reilly & Associates' _Mastering Regular Expressions_
http://enterprise.ic.gc.ca/~jfriedl/regex/
------------------------------
Date: 3 Mar 1997 16:42:16 -0800
From: blm@halcyon.com (Brian L. Matthews)
Subject: Re: Numeric value expected...
Message-Id: <5ffr58$5ia$1@halcyon.com>
In article <5fejo7$155@echo2.echonyc.com>,
Daniel Drennan <xixax@echonyc.com> wrote:
|On a side note, while trying to figure stuff out I was printing out the
|values to make sure things were running okay, and most of the time it is
|a number, but sometimes it came up as HASH(#######)
Have you considered this might be your problem?
|is Perl taking some of the values for references?
I doubt it. More likely is that you're using curly braces incorrectly
and perl is treating them as anonymous hashes.
Brian
--
Brian L. Matthews Illustration Works, Inc.
For top quality, stock commercial illustration, visit:
http://www.halcyon.com/artstock
------------------------------
Date: 3 Mar 1997 16:47:38 -0800
From: blm@halcyon.com (Brian L. Matthews)
Subject: Re: Perl filehandling
Message-Id: <5ffrfa$5q6$1@halcyon.com>
In article <857416804.16179@dejanews.com>, <nrao@achilles.net> wrote:
|#!/bin/perl
|open(F,">>testfile");
|print F "This line goes to the file.\n";
|close(F);
|The file executes and doesn't display any errors
Probably because you haven't told it to. First, always use -w, as in:
#!/bin/perl -w
This instructs perl to display warnings when it encounters certain
syntactically correct but semantically questionable things. Next, always
check the return value of things like open:
open (F, ">>testfile") || die "can't open testfile: $!";
Try making those changes to your script. Chances are the output will
lead you to your problem.
Brian
--
Brian L. Matthews Illustration Works, Inc.
For top quality, stock commercial illustration, visit:
http://www.halcyon.com/artstock
------------------------------
Date: Mon, 3 Mar 1997 20:10:44 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Perl filehandling
Message-Id: <4b0gf5.hr.ln@localhost>
nrao@achilles.net wrote:
: I'm trying to do some very simple Perl filehandling -- basically just
: opening a file, writing to it and then closing it using these lines of
: code:
: #!/bin/perl
Where's that friend of all perl programmers, the -w switch?
: open(F,">>testfile");
What will your program do if the call to open() fails?
(answer: it will plow right on and try to write to the unopened file...)
open(F,">>testfile") || die "could not open 'testfile' $!";
^^
Let's have a look at some helpful diagnostic info too. ^^
: print F "This line goes to the file.\n";
^^^^^^^^^^^^^^^^^^^^^^^^^^
Maybe, maybe not ;-(
: close(F);
: This doesn't work. I assume I am making some small sytax error. The file
^^^^^^^^^^^^^^^^^
No. You are making a large programming error. Syntax looks fine to me.
Check return values. Check return values. Check return values.
(say it like a mantra ;-)
: executes and doesn't display any errors, however, it does not append to
: testfile. It doesn't even open the file. Can anyone help me out with
: this??
--
Tad McClellan SGML Consulting
Tag And Document Consulting Perl programming
tadmc@flash.net
------------------------------
Date: Mon, 3 Mar 1997 23:23:34 GMT
From: Neal Nachtigall <nachtigall@edcserver1.cr.usgs.gov>
To: sevenup@endirect.qc.ca
Subject: Re: Perl script
Message-Id: <331B5D76.73F6@edcserver1.cr.usgs.gov>
sevenup@endirect.qc.ca wrote:
> If that can help i made a little shell script that identify these
> colums... cat mailist |while read ligne
> do
> Col1=`echo $ligne |cut -c15-23`
> Col2=`echo $ligne |cut -c56-75`
> echo "$Col1 $Col2 \n"
> done
>
> If possible i'd like to know how to make that in perl and add the rm Col2
Try:
open (MAILFILE, "mailist");
while(<MAILFILE>)
{
print substr($_,15,9); #adjust numbers accordingly
print substr($_,56,10) if(substr($_,15,9) eq substr($_,56,10));
print "\n";
}
close (MAILFILE);
--
Neal L. Nachtigall * nealnach@dlgef.cr.usgs.gov
Hughes STX (EROS Data Center)
No wonder nobody comes here--it's too crowded. -Yogi Berra
------------------------------
Date: 4 Mar 1997 00:19:01 GMT
From: womack@ox.compsoc.org.uk (Tom Womack)
Subject: Re: Public domain DES and other crypto code in Perl?
Message-Id: <5ffppl$b35@news.ox.ac.uk>
Aviel Rubin (rubin@quip.eecs.umich.edu) wrote:
: Is there a public domain implementation of DES, MD5 and other crypto
: algorithms? I have seen ones that are C modules that people can link
: into their programs. One problem with such schemes is that usually they
: are installed in a central place by a system administrator, so the entire
: security of the system relies on trusting that you are linking to the
: right functions.
: We would like to be able to have a self-contained program where each
: user has all of the code, including the crypto, locally. So, are
: there any packages WRITTEN IN PERL for DES, etc.?
I've got a description for RC4 buried somewhere around
http://users.ox.ac.uk/~mert0236/crypto
Implementing it in PERL shouldn't be too difficult.
: Avi
------------------------------
Date: Tue, 04 Mar 1997 05:01:49 +0800
From: duke <duke@uims01.ice.cycu.edu.tw>
Subject: test
Message-Id: <331B3C3D.6E4C@uims01.ice.cycu.edu.tw>
aaaa
------------------------------
Date: 03 Mar 1997 15:55:42 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: URL - How can I tell from within PERL if a URL is Up
Message-Id: <8cpvxgk2kx.fsf@gadget.cscaper.com>
>>>>> "Honza" == Honza Pazdziora <adelton@fi.muni.cz> writes:
Honza> Rick Thornley <thorsoft@cdsnet.net> writes:
>> In my PERL program I have a list of URL's. I would like to know if
>> there is a function in PERL that will check if the URL is currently
>> available. I would like to put up a message to the user instead of
>> having the user see a 404 error.
Honza> You make an request and check the return code, using the LWP library:
Honza> use LWP::UserAgent;
Honza> # make agent
Honza> $ua = new LWP::UserAgent;
Honza> # make request
Honza> $req = new HTTP::Request 'GET', 'http://www.perl.com/perl/wwwman/libwww/lwpcook.html';
Honza> $req->header('Accept' => 'text/html');
Honza> # send request
Honza> $res = $ua->request($req);
Honza> # check the outcome
Honza> print "yes\n" if ($res->is_success);
Honza> __END__
That's waaaaaaay too much typing:
use LWP::Simple;
print "yes\n" if defined get "http:...";
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,495.69 collected, $182,159.85 spent; just 546 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
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@ora.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: 4 Mar 1997 02:00:43 GMT
From: "Kathleen Ramsey" <kramsey@worldnet.att.net>
Subject: Where is Perl-Win32 documentation
Message-Id: <01bc2829$58f2ab40$d82b74cf@default>
Where can I find it.
Kathy
kramsey@worldnet.att.net
------------------------------
Date: 03 Mar 1997 18:04:38 GMT
From: jfriedl@tubby.nff.ncl.omron.co.jp (Jeffrey)
To: Russ Allbery <rra@cs.stanford.edu>
Subject: Re: Which one is the best (pattern matching)
Message-Id: <JFRIEDL.97Mar4030438@tubby.nff.ncl.omron.co.jp>
[mail and post]
Russ Allbery <rra@cs.stanford.edu> wrote:
|> Unfortunately, these results are rather dubious, due to problems with
|> the Benchmark module with regular expressions.
Just to start to get the word out, this will apparently be fixed in 5.004.
Ilya Zakharevich has been doing a lot of work on perl's regex internals
and externals, and this one got fixed. I don't follow betas so closely,
but I hear that 5.004 will be going to beta soon (if it's not out yet).
Of course, you can easily fix this for your own system by making a small
change to Carp.pm. Line 50 or so looks like
$eval =~ s/[\\\']/\\$&/g;
Replace that with
$eval =~ s/([\\\'])/\\$1/g;
and your Benchmark.pm (and dozens of other modules) suddenly are ``fixed.''
But frankly, I don't recommend changing the standard library, since one of
its prime benefits is that it is _standard_. I have not changed mine, for
example. (Comments on this point from perl.gods would be appreciated here,
if they have any.)
Jeffrey
----------------------------------------------------------------------------
Jeffrey Friedl <jfriedl@ora.com> Omron Corp, Nagaokakyo, Kyoto 617 Japan
O'Reilly & Associates' _Mastering Regular Expressions_
http://enterprise.ic.gc.ca/~jfriedl/regex/
------------------------------
Date: Tue, 04 Mar 1997 05:02:50 +0800
From: duke <duke@uims01.ice.cycu.edu.tw>
Subject: Why the Win32::GD isn't Working?
Message-Id: <331B3C79.300C@uims01.ice.cycu.edu.tw>
Hi
I'm trying to use the Win32::GD. I have installed the "GD.PM" and
"GD.pll".I try to test the GD module.
So,I do follow instructions.
c:\lang\perl\gd>perl TEST.PL
Error: Parse exception
^^^^^^^^^^^^^^^^^^^^^^
Why??
How do I solve the problem?
Can you give some option for me?
Thanks in advance!
Duke
duke@uims01.ice.cycu.edu.tw
------------------------------
Date: Mon, 03 Mar 1997 18:34:12 -0800
From: erich@powerwareintl.com (Eric Harley)
Subject: X at a time search engine routine problem
Message-Id: <erich-0303971834120001@ppp-207-104-16-180.snrf01.pacbell.net>
Okay here is my dilema.
I am using this routine here to spit out the body of my search engine.
foreach (keys %files) {
&print_hit($title, $path);
}
&print_footer;
now, what I want to do is only print out X number of hits at a time and
provide a NEXT button and a PREVIOUS button for the user to select.
Any suggestions?
------------------------------
Date: 8 Jan 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Jan 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.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.
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 44
************************************
