[11909] in Perl-Users-Digest
Perl-Users Digest, Issue: 5509 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Apr 28 18:07:24 1999
Date: Wed, 28 Apr 99 15:00:21 -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, 28 Apr 1999 Volume: 8 Number: 5509
Today's topics:
Re: Enterprise on Novell w/Perl Scripts <cassell@mail.cor.epa.gov>
Re: Enterprise on Novell w/Perl Scripts <gellyfish@gellyfish.com>
Re: Global variable? (How to) <gellyfish@gellyfish.com>
Re: HELP: Hast sort and strange results (Andrew Allen)
Re: HELP: Hast sort and strange results <emschwar@rmi.net>
Re: Help: Out of memory during Installation (Ilya Zakharevich)
Re: How do i print something using perl? <gellyfish@gellyfish.com>
How do you find perldoc? <losteven@yahoo.com>
Invalid Header ? <thorsten@hrcnet.de>
Re: Invalid Header ? <emschwar@rmi.net>
Re: Invalid Header ? (Bart Lateur)
make test: pragma/locale.......FAILED - Impact? dirkse@my-dejanews.com
MIME::Tools and recommended filename tiwason@my-dejanews.com
MQSeries.pm jboes@qtm.net
mSQL and Perl? <sodesoft@reuna.cl>
Re: NewBie: using If statment with multiple expressions (Larry Rosler)
Re: Not another Editor question?! Yes, but this one's d (David Salvador Flores)
Out of Memory during Installation. <scott.wachtler@cdc.com>
Re: Parsing query strings <gellyfish@gellyfish.com>
part of a variable (Steve .)
Re: part of a variable (Larry Rosler)
Re: PERL & Y2K <jonesy@rmi.nospam.net>
Perl and Mapi <dennis@rietvink.demon.nl>
Re: Perl question. <gellyfish@gellyfish.com>
Re: perldoc HELP, Was How to use Net::FTP in perl?? (I R A Aggie)
Quotes question?? <losteven@yahoo.com>
Re: Quotes question?? <dgris@moiraine.dimensional.com>
Re: Quotes question?? (Bart Lateur)
Re: Script Help (JDDemme)
Re: strange problem with the month from a date!! <bwlang@nospam.genome.wi.mit.edu>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 28 Apr 1999 13:51:59 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Enterprise on Novell w/Perl Scripts
Message-Id: <372774EF.5F99E933@mail.cor.epa.gov>
Rich Billingsley wrote:
>
> Enterprise Version: 3
> Novell Version 4.11
> Perl Version 5
>
> Trying to use a "file upload" script. Works with standard text files
> but not with binary or documents that contain images.
And the Perl part of oyur question is....???
If I make a totally unsupported guess that your `upload' program
is in Perl, and that the protocol is FTP, then you probably need
to change the mode from `ASCII' to `binary'.
> Any clue?
Yes. That you haven't supplied the information needed to answer
your question. If the answer above is correct, then you don't even
have a Perl question. You have a protocol problem dressed up in a
llama's coat.
> Also the script using is one found on the internet and modified to work
> on Novell with Netscape Enterprise.
This is really not helpful at all. How can anyone else know
more aobut the problem from hearing that it is one of a billion
Perl scripts found on the net? Or that it is modified, in an
unspecified way?
You should receive an e-mail from gnat about posting here. Please
read that e-mail carefully, and adhere to the basic tenets within.
Then next time you have a Perl question, you should be able to get
a more useful, less discouraged answer.
Thank you,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior Computing Specialist phone: (541) 754-4468
mathematical statistician fax: (541) 754-4716
------------------------------
Date: 28 Apr 1999 21:51:03 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Enterprise on Novell w/Perl Scripts
Message-Id: <7g7vs7$uv$1@gellyfish.btinternet.com>
On Wed, 28 Apr 1999 15:20:35 -0400 Rich Billingsley wrote:
> Enterprise Version: 3
> Novell Version 4.11
> Perl Version 5
>
> Trying to use a "file upload" script. Works with standard text files
> but not with binary or documents that contain images.
>
> Any clue?
>
binmode() your read and write filehandles .
/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: 28 Apr 1999 21:10:35 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Global variable? (How to)
Message-Id: <7g7tgb$n2$1@gellyfish.btinternet.com>
On Wed, 28 Apr 1999 17:43:05 +0200 Olivier Maas wrote:
> Hello
> I am looking for a way to keep in "mind" specific parameters for a
> surfer on my site (the equivalent of asp Session("toto")=1234
> (making the variable toto with its "1234" value accessible during the
> whole session, from any other asp))
>
> I initialize the values in the beginning, modify them and use them...
> any one knows how to do this with CGI or perl? thanks 4 your help
Your subject is misleading your question is nothing to do with global
variables.
Didnt you ask this question before and get the same answer ?
Anyhow you would be better off asking a question of this nature in
comp.infosystems.www.authoring.cgi
/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: 28 Apr 1999 20:07:42 GMT
From: ada@fc.hp.com (Andrew Allen)
Subject: Re: HELP: Hast sort and strange results
Message-Id: <7g7pqe$phv$1@fcnews.fc.hp.com>
markg@activerse.com wrote:
: I'm using ActiveStates perl 5.005_02 on an NT box.
: I wrote the following simple script to sort a hash
: on *not* the keys, but on the values of each hash:
: -------------script----------
: %symbols = (
: 'HD A' => 121.0,
: 'HD B' => 100.0,
: 'HD C' => 125.0 );
: foreach $sym (sort by_ratio %symbols) {
this line should be:
foreach $sym (sort by_ratio (keys %symbols)) {
otherwise, you are sorting the hash interpreted as a list, not the
keys of the hash like you want to do.
: print "symbol: $sym Ratio: $symbols{$sym}\n";
: }
: sub by_ratio { $symbols{$b} <=> $symbols{$a}; }
Andrew
------------------------------
Date: 28 Apr 1999 15:12:42 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: HELP: Hast sort and strange results
Message-Id: <xkfk8uwla9h.fsf@valdemar.col.hp.com>
markg@activerse.com writes:
> I'm using ActiveStates perl 5.005_02 on an NT box.
>
> I wrote the following simple script to sort a hash
> on *not* the keys, but on the values of each hash:
>
> foreach $sym (sort by_ratio %symbols) {
> print "symbol: $sym Ratio: $symbols{$sym}\n";
> }
>
> sub by_ratio { $symbols{$b} <=> $symbols{$a}; }
>
> What are the last three lines output?
> If you change the script and sort on the
> keys, all is well.
sort sorts a list. You're passing it a hash, which, when converted to a
list, is "( key value key value key value ... key value )". So you're
passing both keys and values into by_ratio.
The correct answer (I'm sure TMTOWTDI) answer is to "sort by_ratio keys
%symbols". This passes only the keys of the hash %symbols into the sort
function you specify.
-=Eric
------------------------------
Date: 28 Apr 1999 21:00:09 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Help: Out of memory during Installation
Message-Id: <7g7ssp$sub$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to scott
<scott.wachtler@cdc.com>],
who wrote in article <37274416.4AA0FFA6@cdc.com>:
> -=-=-=-=-=-
>
> Hi,
>
> When installing Perl on my solaris box I get the following error when
> it comes to compile the DynaLoader:
>
> Out of memory during ridiculously large request at
> ../../lib/ExtUtils/xsubpp line 198.
You did not report *RESULTS* of ./myconfig. But the above message
means that something (nobody knows what without ./myconfig) called
malloc() with a negative size.
Hope this helps,
Ilya
------------------------------
Date: 28 Apr 1999 19:16:29 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: How do i print something using perl?
Message-Id: <7g7mqd$gp$1@gellyfish.btinternet.com>
On Wed, 28 Apr 1999 12:40:36 GMT smnayeem@my-dejanews.com wrote:
> In article <3726D0B9.EF843CF@gmx.net>,
> "Philip 'Yes, that's my address' Newton" <nospam.newton@gmx.net> wrote:
>> Greg McCann wrote:
>> >
>> > If that doesn't print out a page with the word "test" at the top, you
>> > need to review your assumptions about the printer.
>>
>> It might, for example, be a "pure PostScript" printer. Or some weird
>> WinPrinter with absolutely no DOS support[1]. But we can't tell from
>> here.
> i have an HP LaserJ6MP
> do u think theres any way to print the postscript fonts?
> i can only print the normal fonts...
You will need to output PostScript to the printer. If you have any
further questions about this you should ask in a group that is interested
in PostScript.
/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: 28 Apr 1999 16:47:09 -0500
From: "steve" <losteven@yahoo.com>
Subject: How do you find perldoc?
Message-Id: <372773cd@discussions>
Hi
I'm trying to look for the perldoc, but I don't
know how to do it. should I go into ppm to look for it
or somewhere else?
Thanks
--Posted from EarthWeb Discussions. http://discussions.earthweb.com
------------------------------
Date: Wed, 28 Apr 1999 20:57:43 GMT
From: Thorsten Latka <thorsten@hrcnet.de>
Subject: Invalid Header ?
Message-Id: <3727768E.A1C40567@hrcnet.de>
Hi Experts !
I installed Perl Ver. 5.005_02 on my Win NT 4.0 SP 4 PC running a
Netscape Fasttrack V 2.0 Webserver.
When running a script from the DOS prompt it works fine (ie. I can see
an answer or can see a lot of HTML codes running across my screen. When
I try to access the script thru a browser I do get a server error. In
the logfile Fasttrack tells me:
trying to get blabla.cgi cgi-parse-output reports: The cgi program
d:\\perl\\bin\\perl.exe did not produce a valid header Program
terminated without a valid cgi header
Anyone know what I have to change ? I am lost, where do I have to start
to resolve that problem !
Thanks for any help !
Thorsten
------------------------------
Date: 28 Apr 1999 15:27:46 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: Invalid Header ?
Message-Id: <xkfbtg8l9kd.fsf@valdemar.col.hp.com>
Thorsten Latka <thorsten@hrcnet.de> writes:
> trying to get blabla.cgi cgi-parse-output reports: The cgi program
> d:\\perl\\bin\\perl.exe did not produce a valid header Program
> terminated without a valid cgi header
Perhaps you should look at your server documentation?
> Anyone know what I have to change ? I am lost, where do I have to start
> to resolve that problem !
You start by asking your question in the proper group:
comp.infosystems.www.authoring.cgi. This is merely a CGI question with a
nice suede camel-skin jacket.
-=Eric
------------------------------
Date: Wed, 28 Apr 1999 21:38:13 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Invalid Header ?
Message-Id: <37277f75.237935@news.skynet.be>
Thorsten Latka wrote:
>I installed Perl Ver. 5.005_02 on my Win NT 4.0 SP 4 PC running a
>Netscape Fasttrack V 2.0 Webserver.
>When running a script from the DOS prompt it works fine (ie. I can see
>an answer or can see a lot of HTML codes running across my screen. When
>I try to access the script thru a browser I do get a server error. In
>the logfile Fasttrack tells me:
>
>trying to get blabla.cgi cgi-parse-output reports: The cgi program
>d:\\perl\\bin\\perl.exe did not produce a valid header Program
>terminated without a valid cgi header
Do you see a single line "Content-type: text/html" followed by an empty
line, at the start of your output, when run from the DOS prompt? If not,
that's what you forgot.
Bart.
------------------------------
Date: Wed, 28 Apr 1999 19:56:02 GMT
From: dirkse@my-dejanews.com
Subject: make test: pragma/locale.......FAILED - Impact?
Message-Id: <7g7p4g$ohp$1@nnrp1.dejanews.com>
5.004.04 install on HP-UX 10.10 w/ HP ANSI C 10.03 compiler
What impact will pragma/locale.......FAILED in 'make test' have on
distribution? Most importantly to the DBI/DBD interface to Oracle.
If it is failed taint checking, do I care since it is not a Web machine &
hopefully .mil secure?
Failed Test Status Wstat Total Fail Failed List of failed
-----------------------------------------------------------------------------
-- pragma/locale.t 102 59 57.84% 2-12, 15-20, 28-32, 34-38, 40-44, 54,
68, 70-75, 77-82, 84-89, 91- 96, 102 Failed 1/153 test scripts, 99.35% okay.
59/4607 subtests failed, 98.72% okay
So far 5.005.03 fails & I don't know if result of HP-UX 10.10 or
or 10.03 compiler or machine was 10.20 & decremented or twiffed too much in my
youth. In 'make' after ./miniperl configpm tmp w/ *** Termination signal 138.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 28 Apr 1999 19:45:31 GMT
From: tiwason@my-dejanews.com
Subject: MIME::Tools and recommended filename
Message-Id: <7g7ogq$nuf$1@nnrp1.dejanews.com>
Hello all,
I was wondering if anyone could spot what I am doing wrong here..... I am
using MIME::Tools to obviously decode mime attachments from an email
message.... I have a pretty good concept of how what I'm doing so far, but am
stumped on how to retrieve the recommended_filename as it is call from the
attachment itself...
Here is what I've been doing so far.....
my $parser = new MIME::Parser; $parser->output_to_core('ALL'); ## only for
testing ## $entity = $parser->parse_in("$get_msg") or die "couldn't parse
MIME stream"; $num_parts = $entity->parts;
$a=0;
while ($a < $num_parts) {
$first_part = $entity->parts($a);
$fname = eval {$first_part->recommended_filename;};
print "$a - $fname -- $@\n";
$a++;
}
That fails and returns in $@....
Can't locate auto/MIME/Entity/recommended.al in @INC (@INC
contains: /usr/lib/perl5/5.00503/i686-
linux /usr/lib/perl5/5.00503 /usr/lib/perl5/site_perl/5.005/i686-
linux /usr/lib/perl5/site_perl/5.005 .)
I have read the documentation at http://www.zeegee.com/code/perl/MIME-
tools/docs/MIME/Head.pm.html and this error puzzles me.....because I am able
to use something like...
# The content type (e.g., "text/html"):
$mime_type = $head->mime_type;
just fine.... although all example around that one in the docs fail when I try
them....
I must be missing something important, but just can't figure out what it
is.... usually a fresh pair of eyes helps.... so anyone have any ideas or
spot anything wrong??
Thanks.....
Tim W
tiwason@earthlink.net
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 28 Apr 1999 19:49:37 GMT
From: jboes@qtm.net
Subject: MQSeries.pm
Message-Id: <7g7oof$o1f$1@nnrp1.dejanews.com>
It's a long shot, but ... anyone here done anything with the MQSeries.pm
module available from IBM? I recently fetched the latest version, and it
builds with an error:
Error: No INPUT definition for type 'MQCNO' found in MQSeries.xs, line 4701
Error: No OUTPUT definition for type 'MQCNO' found in MQSeries.xs, line 4708
Error: No INPUT definition for type 'MQBO' found in MQSeries.xs, line 5007
Error: No OUTPUT definition for type 'MQBO' found in MQSeries.xs, line 5017
Please specify prototyping behavior for MQSeries.xs (see perlxs manual)
I'm also having trouble getting the MQBACK function to work.
--
Jeff Boes jboes@qtm.net
http://www.qtm.net/~jboes/
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 28 Apr 1999 16:31:55 -0500
From: "Sodesoft Ltda." <sodesoft@reuna.cl>
Subject: mSQL and Perl?
Message-Id: <37277E4B.4ACB2B41@reuna.cl>
Hi
I want to access mSQL data from perl script.
How can I do that?
Thax a lot!
Jose Gallegos A.
------------------------------
Date: Wed, 28 Apr 1999 13:48:37 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: NewBie: using If statment with multiple expressions
Message-Id: <MPG.11911402f26784fb98996b@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <372b5e9a.1684659@news.skynet.be> on Wed, 28 Apr 1999
19:17:45 GMT, Bart Lateur <bart.lateur@skynet.be> says...
> Dennis wrote:
> >Can anyone give me a hint how i can use multiple expressions in a if
> >statement, like:
> >
> >if ( value = 1 OR value = 2 OR value = 3 ) then....
>
> Just like that. Except that this code does assignments, not test
> equalities, which will [A] not do what you want, and [B] skip the rest
> as soon as one isn't false. The first one in this case.
Well, none of the above -- unless OR is an operator in your personal
version of perl. It isn't in Perl. It's just a bareword. :-)
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 28 Apr 1999 20:24:43 GMT
From: dsf3g@node2.unix.Virginia.EDU (David Salvador Flores)
Subject: Re: Not another Editor question?! Yes, but this one's different... sorta.
Message-Id: <7g7qqb$psq$1@murdoch.acc.Virginia.EDU>
In article <7g6aq4$e1e$1@nnrp1.dejanews.com>,
Ronny <ronald_f@my-dejanews.com> wrote:
>In article <7g2nff$j3e$1@murdoch.acc.Virginia.EDU>,
> dsf3g@node1.unix.Virginia.EDU (David Salvador Flores) wrote:
>> Like everyone else who posts asking about your favorite editor, I'm pretty
>> new to perl. However, I'm not going to bore you asking what editor I
>> should use. I'm pretty sure I just want to use EMACS for writing
>> perl code.
>>
>> My question is this: Is there a simple tutorial, real handholding kinda
>> stuff that shows you how to implement and use perl mode in emacs?
>> Something like "Using Emacs to Code Perl for Dummies."
>
>This is how I do it (excerpt from my .emacs); note that I prefer cperl-mode
>over perl-mode:
>
>(autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs"
>t) (setq cperl-hairy t) (setq auto-mode-alist (append
>'(("\\.\\([pP][Llm]\\|al\\)$" . perl-mode)) auto-mode-alist )) (setq
>interpreter-mode-alist (append interpreter-mode-alist '(("miniperl" .
>perl-mode)))) (defun my-cperl-setup () (cperl-set-style "C++")) (add-hook
>'cperl-mode-hook 'my-cperl-setup)
So am I supposed to create a file named .emacs in my home directory and
copy this text in to it? Is that the idea?
Thanks, Dave
------------------------------
Date: Wed, 28 Apr 1999 16:12:57 -0500
From: scott <scott.wachtler@cdc.com>
Subject: Out of Memory during Installation.
Message-Id: <372779D9.30C2E105@cdc.com>
This is a multi-part message in MIME format.
--------------F4742F9D7D4DE7F133547C78
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hi,
I think I got the right myconfig information this time. Any further
help would be appreciated.
When installing Perl on my solaris box I get the following error when
it comes to compile the DynaLoader:
Out of memory during ridiculously large request at
../../lib/ExtUtils/xsubpp line 198.
Following the advice of the Install and hint file I added the
-B/usr/ccs/bin/ but that hasn't seemed to help. Am
I truly running out of memory here, or am I doing something wrong in my
configuration?
I've attached the complete error output, and myconfig, any help would
be tremendously appreciated.
Sincerely,
Scott
--------------F4742F9D7D4DE7F133547C78
Content-Type: text/plain; charset=us-ascii; name="mr"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="mr"
# ./myconfig
Summary of my perl5 (5.0 patchlevel 5 subversion 2) configuration:
Platform:
osname=solaris, osvers=2.5.1, archname=sun4-solaris
uname='sunos smaug 5.5.1 generic_103640-05 sun4m sparc sunw,sparcstation-20 '
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef useperlio=undef d_sfio=undef
Compiler:
cc='gcc -B/usr/ccs/bin/', optimize='-O', gccversion=2.7.2.1
cppflags='-I/usr/local/include'
ccflags ='-I/usr/local/include'
stdchar='unsigned char', d_stdstdio=define, usevfork=false
intsize=4, longsize=4, ptrsize=4, doublesize=8
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
alignbytes=8, usemymalloc=y, prototype=define
Linker and Libraries:
ld='gcc -B/usr/ccs/bin/', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
libs=-lsocket -lnsl -ldl -lm -lc -lcrypt
libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib'
#
--------------F4742F9D7D4DE7F133547C78
Content-Type: text/plain; charset=us-ascii; name="error"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="error"
`sh cflags libperl.a globals.o` globals.c
CCCMD = gcc -B/usr/ccs/bin/ -DPERL_CORE -c -I/usr/local/include -O
`sh cflags libperl.a perlio.o` perlio.c
CCCMD = gcc -B/usr/ccs/bin/ -DPERL_CORE -c -I/usr/local/include -O
rm -f libperl.a
ar rcu libperl.a perl.o malloc.o gv.o toke.o perly.o op.o regcomp.o dump.o util.o mg.o byterun.o hv.o av.o run.o pp_hot.o sv.o pp.o scope.o pp_ctl.o pp_sys.o doop.o doio.o regexec.o taint.o deb.o universal.o globals.o perlio.o
gcc -B/usr/ccs/bin/ -L/usr/local/lib -o miniperl miniperlmain.o libperl.a -lsocket -lnsl -ldl -lm -lc -lcrypt
./miniperl -w -Ilib -MExporter -e 0 || make minitest
./miniperl configpm tmp
sh mv-if-diff tmp lib/Config.pm
./miniperl -Ilib pod/pod2html.PL
Extracting pod2html (with variable substitutions)
./miniperl -Ilib pod/pod2latex.PL
Extracting pod2latex (with variable substitutions)
./miniperl -Ilib pod/pod2man.PL
Extracting pod2man (with variable substitutions)
./miniperl -Ilib pod/pod2text.PL
Extracting pod2text (with variable substitutions)
AutoSplitting perl library
./miniperl -Ilib -e 'use AutoSplit; \
autosplit_lib_modules(@ARGV)' lib/*.pm lib/*/*.pm
./miniperl minimod.pl > tmp
sh mv-if-diff tmp lib/ExtUtils/Miniperl.pm
File lib/ExtUtils/Miniperl.pm not changed.
`sh cflags libperl.a perlmain.o` perlmain.c
CCCMD = gcc -B/usr/ccs/bin/ -DPERL_CORE -c -I/usr/local/include -O
Making DynaLoader (static)
Makefile out-of-date with respect to ../../lib/Config.pm ../../config.h
Cleaning current config before rebuilding Makefile...
make -f Makefile.old clean > /dev/null 2>&1 || /bin/sh -c true
../../miniperl "-I../../lib" "-I../../lib" Makefile.PL "INSTALLDIRS=perl" "LIBPERL_A=libperl.a"
Writing Makefile for DynaLoader
==> Your Makefile has been rebuilt. <==
==> Please rerun the make command. <==
false
*** Error code 255
make: Fatal error: Command failed for target `Makefile'
Current working directory /tmp/perl5.005_02/ext/DynaLoader
make config failed, continuing anyway...
../../miniperl -I../../lib -I../../lib -I../../lib -I../../lib DynaLoader_pm.PL
Skip ../../lib/DynaLoader.pm (unchanged)
cp dl_dlopen.xs DynaLoader.xs
../../miniperl -I../../lib -I../../lib ../../lib/ExtUtils/xsubpp -noprototypes -typemap ../../lib/ExtUtils/typemap DynaLoader.xs >xstmp.c && mv xstmp.c DynaLoader.c
Out of memory during ridiculously large request at ../../lib/ExtUtils/xsubpp line 198.
Segmentation Fault - core dumped
*** Error code 139
make: Fatal error: Command failed for target `DynaLoader.o'
Current working directory /tmp/perl5.005_02/ext/DynaLoader
*** Error code 1
make: Fatal error: Command failed for target `lib/auto/DynaLoader/DynaLoader.a'
--------------F4742F9D7D4DE7F133547C78--
------------------------------
Date: 28 Apr 1999 20:56:07 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Parsing query strings
Message-Id: <7g7sl7$mq$1@gellyfish.btinternet.com>
On Wed, 28 Apr 1999 04:05:08 GMT pnguyen@aracnet.net wrote:
> Helllo,
>
> I have a question I'd like to ask the Perl e-community out there. It
> is as follows:
<snip>
> 2. How would I parse the search string from the rest of URL
> 3. so that only the value of the search keywords are return
> (ie.online community) and the rest is garbage
> 4.One the search keywords are returned I want to keep track of
> how many time is the 'online community' appear out of all the URLs in
> the log file.
>
Assuming that you already have got the URL from the request part of your
proxy log then examine the following :
#!/usr/bin/perl -w
use strict;
use URI;
my $blah;
while(<DATA>)
{
my $url = URI->new($_);
$blah += grep /online community/,$url->query_form;
}
print $blah;
__END__
http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&q=online+community
http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&q=ratbags
http://www.gellyfish.com/cgi-bin/query?thing=online%20community
http://www.altavista.com
http://www.yahoo.com/cgi-bin/query?search=online+community
Of course you will need to flesh it out ...
> If there is a script with similar functionality already existed out
> there, can you please point it out to me as I am new to Perl and just
> beginning to learn the language. Many thanks.
>
You will need to obtain the libwww-perl suite of modules from CPAN
in order to get the URI module. Read the documentation for that module
to find out more. You might also want to read the perlfunc manpage
for the description of grep.
/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, 28 Apr 1999 20:43:55 GMT
From: syarbrou@nospam.enteract.com (Steve .)
Subject: part of a variable
Message-Id: <372772b8.23021445@news.enteract.com>
I have a variable called QUESTION72. I want to check to see if the
variable starts with QUESTION and if so, find out what the number is
after it. The number can change to anything. Not just two
characters. How would I go about doing this? Thanks.
Steve
Remove "nospam" when responding thru email.
------------------------------
Date: Wed, 28 Apr 1999 14:02:10 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: part of a variable
Message-Id: <MPG.11911731a534ef9c98996c@nntp.hpl.hp.com>
In article <372772b8.23021445@news.enteract.com> on Wed, 28 Apr 1999
20:43:55 GMT, Steve . <syarbrou@nospam.enteract.com> says...
> I have a variable called QUESTION72. I want to check to see if the
> variable starts with QUESTION and if so, find out what the number is
> after it. The number can change to anything. Not just two
> characters. How would I go about doing this? Thanks.
Don't even think of doing this. That is one of the many things that
hashes are useful for.
Make a hash %QUESTION (though why all caps, which usually implies
constancy?), and use your suffixes as the keys to the hash.
> Remove "nospam" when responding thru email.
Remove it yourself if you want email responses!
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 28 Apr 1999 20:45:25 GMT
From: Jonesy <jonesy@rmi.nospam.net>
Subject: Re: PERL & Y2K
Message-Id: <7g7s15$i0b$1@news1.rmi.net>
Abigail <abigail@fnx.com> wrote:
: I think you're confused. Are you saying there's nothing to be fixed in:
: printf "The year is 19%d\n", (localtime) [5];
Only the logically challenged would be confused.
That there is a *programmer* problem, *not* a language problem.
Idiots can be most inventive when it comes to writing bad code,
in any language.
Jonesy
--
Marvin L. Jones
Gunnison, Colorado
247 days to go until the Year 2000 -- So what!
613 days to go until the 3rd Millennium of the C.E.
------------------------------
Date: Wed, 28 Apr 1999 23:13:41 +0200
From: "Dennis" <dennis@rietvink.demon.nl>
Subject: Perl and Mapi
Message-Id: <925334014.12572.0.muttley.d4ee2fcf@news.demon.nl>
Hi,
Does anyone know if it is possible to use MAPI functions from perl.
Thankx,
Dennis
------------------------------
Date: 28 Apr 1999 21:03:34 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Perl question.
Message-Id: <7g7t36$mv$1@gellyfish.btinternet.com>
On 28 Apr 1999 09:32:34 GMT Austin Ming wrote:
> Which GUI perl editor support (syntax highlight, debugging, execute, output to
> browser, form added, ...) ?
>
I would read the page at:
<http://reference.perl.com/query.cgi?editors>
before the usual boring thread about peoples favourite editors starts.
/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: 28 Apr 1999 20:36:57 GMT
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: perldoc HELP, Was How to use Net::FTP in perl??
Message-Id: <slrn7iesg7.q73.fl_aggie@stat.fsu.edu>
On Wed, 28 Apr 1999 12:45:24 -0400, Tim
<tim@timbury.com>, in <925317921.333.58@news.remarQ.com> wrote:
+ This may seem like a silly question, but has the module been installed?
Not silly, but rather a good one. Here's one way to test it. From a command
line:
$ perl
use Net::FTP;
<control>-D
If you get a complaint, it isn't installed. If you get nothing, it is.
James
------------------------------
Date: 28 Apr 1999 16:55:06 -0500
From: "steve" <losteven@yahoo.com>
Subject: Quotes question??
Message-Id: <372775aa@discussions>
Hi,
I have a statement like this:
$me = "$var1,$var2,$var3,$var4,$var5"
If I print out $me, I will get:
My,name,is,steve
but if I want to get this:
"My","name","is","steve"
what do I need to do?? How do I modify
$me = "$var1,$var2,$var3,$var4,$var5"??
Thanks
--Posted from EarthWeb Discussions. http://discussions.earthweb.com
------------------------------
Date: 28 Apr 1999 15:13:21 -0600
From: Daniel Grisinger <dgris@moiraine.dimensional.com>
Subject: Re: Quotes question??
Message-Id: <m3wvywxxce.fsf@moiraine.dimensional.com>
"steve" <losteven@yahoo.com> writes:
> I have a statement like this:
>
> $me = "$var1,$var2,$var3,$var4,$var5"
...
> but if I want to get this:
> "My","name","is","steve"
>
> what do I need to do??
{
no strict 'refs';
$me = join ',', map { qq."${"var$_"}". } 1..5;
}
dgris
--
Daniel Grisinger dgris@moiraine.dimensional.com
perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print
m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'
------------------------------
Date: Wed, 28 Apr 1999 21:54:22 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Quotes question??
Message-Id: <372982a8.1057086@news.skynet.be>
steve wrote:
>I have a statement like this:
>
>$me = "$var1,$var2,$var3,$var4,$var5"
>
>If I print out $me, I will get:
>My,name,is,steve
Where's the fifth variable?
>but if I want to get this:
>"My","name","is","steve"
>
>what do I need to do?? How do I modify
>$me = "$var1,$var2,$var3,$var4,$var5"??
Are you asking how to get a quote into a string entered between quotes?
put a backslash in front of it, so Perl knows you want to use it
literally.
$me = "\"$var1\",\"$var2\",\"$var3\",\"$var4\",\"$var5\"";
But my preferred solution would be
$me = join ',', map { "\"$_\"" } $var1,$var2,$var3,$var4,$var5;
(or replace { "\"$_\"" } with { qq("$_") } )
Bart.
------------------------------
Date: Wed, 28 Apr 1999 21:04:46 GMT
From: jddemme@technologist.com (JDDemme)
Subject: Re: Script Help
Message-Id: <7g7t5o$p64$1@bgtnsc01.worldnet.att.net>
In article <372c0b05.84027084@news.ford.com>, cpierce1@ford.com (Clinton Pierce) wrote:
>></div>
>></body>
>></html>
>
>(To go off on an HTML tangent...) Where's the start to these tags?
The start to these are in top.txt, which was already inserted on to the
outgoing document.
Thanks everybody! I'm pretty new to perl, and CGI for that matter, and I'm
really learning for expirence and web tutorials.(know any really good ones?)
Thanks,
JDDemme
jddemme@technologist.com
------------------------------
Date: Wed, 28 Apr 1999 17:02:13 -0400
From: "Bradley W. Langhorst" <bwlang@nospam.genome.wi.mit.edu>
Subject: Re: strange problem with the month from a date!!
Message-Id: <37277755.7CC110FB@nospam.genome.wi.mit.edu>
0 based array?
0 = jan
1= feb
...
??
brad
------------------------------
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 5509
**************************************
