[10553] in Perl-Users-Digest
Perl-Users Digest, Issue: 4145 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 4 05:07:54 1998
Date: Wed, 4 Nov 98 02:00:20 -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 Wed, 4 Nov 1998 Volume: 8 Number: 4145
Today's topics:
amd-k as opposed to INTEL <swright@ziggycom.net>
Re: Array Ref Question (Ronald J Kimball)
Re: Basic HTTP Authentication <Tony.Curtis+usenet@vcpc.univie.ac.at>
converting rfc822 files to MAPI messages ? (muzo)
Re: delete a file under win95 (!) (Larry Rosler)
Re: delete a file under win95 (!) <avitala@macs.biu.ac.il>
Re: FAQ question. <kjetil@balder.no>
Re: FAQ question. <kjetil@balder.no>
Re: Help on installing perl on AIX <ebmmathis@worldnet.att.net>
Re: HELP! I need a perl enviroment for Win 95 <cornuts@mrfoda.com>
How does a function know if its being called inside eva mlehmann@prismnet.com
Re: Inserting into Access with win32:odbc <duff@duffduff.com>
libwww question... bbrelin@dnai.com
Opendir <sigh> again <alpaca@gmp.usyd.edu.au>
opening illegal filenames <sstout@holly.ColoState.EDU>
Oracle database webmaster@man.amis.com
Re: Perl & Y2K - booby trap code (Larry Wall)
Perl and Directory Permissions problem w/ IIS 3.0 <hoffmanpa@groton.pfizer.com>
Re: perl&cgi question <kjetil@balder.no>
Re: Problem with Win32 reg exp (Tye McQueen)
Re: Problem with Win32 reg exp (Tim Peter)
reading a string in from a text file <nouser@ucdavis.edu>
Re: Text::CSV install? (Steve Vertigan)
Using Meta tags with CGI.pm <jerryp.usenet@connected.demon.co.uk>
Re: Using Meta tags with CGI.pm <Tony.Curtis+usenet@vcpc.univie.ac.at>
Web_store question <kjcox@vii.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 04 Nov 1998 00:56:08 -0600
From: stacy wright <swright@ziggycom.net>
Subject: amd-k as opposed to INTEL
Message-Id: <363FFA88.E48B3EF1@ziggycom.net>
I'm trying to download an older version of perl from one of the sites
suggested in "information about perl " section of the perl institute's
homepage. My question is, can I use to perl download for the intel chip
if I'm using a machine using an AMD-K processor. If this is a redundand
question because i missed it in the FAQ's or the usenet subject
headings,then my sincere apologies. thanks!
------------------------------
Date: Wed, 4 Nov 1998 00:36:38 -0500
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: Array Ref Question
Message-Id: <1dhy0ic.20yvma1idm8tsN@bay1-282.quincy.ziplink.net>
Brand Hilton <bhilton@tsg.adc.com> wrote:
> Out of curiosity... in your program, you have the following line:
>
> my $array_ref = +['1'];
>
> Was that "+" intentional? It appears to be ignored, which surprises
> me somewhat. I know a "+" preceding a curly brace disambiguates
> anonymous hashes from blocks, but I don't know what, if anything, "+["
> does.
That's like asking what the "-(" does in "$foo = -($bar * $baz)";
+, like -, can be a unary operator. Unlike unary minus, "unary plus has
no semantic effect whatsoever." [perlop] Instead, it is useful for its
syntactic effects, such as disambiguating anonymous hashes from blocks,
or keeping a parenthesized list from being interpreted as the entire
argument to a function, as in "print +(2*3)-4;"
+{} disambiguates an anonymous hash from a block because a block cannot
be used as the operand of unary +, while an anonymous hash can.
--
_ / ' _ / - aka - rjk@coos.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: 04 Nov 1998 08:38:45 +0100
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Basic HTTP Authentication
Message-Id: <83u30fc3ga.fsf@vcpc.univie.ac.at>
Re: Basic HTTP Authentication, Brad <kaarkas@bigpond.com>
said:
Brad> hi guys, i have a section on my website that is
Brad> protected by basic http authentication. i would like a
Brad> registered user (once passed authentication) to be
Brad> able to edit their own profile. is it possible to do
Brad> this directly from the username they entered? how do i
Brad> retrieve this username into a perl script?
use CGI;
...
print 'remote user is ', remote_user(), "\n";
But think long and hard about this, esp. where problems of
security and file permissions/ownership/locking etc. are
concerned.
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: 03 Nov 1998 21:06:00 PST
From: muzok@nospam.pacbell.net (muzo)
Subject: converting rfc822 files to MAPI messages ?
Message-Id: <363fdf7c.109656928@news.concentric.net>
hi,
I am not really expecting a positive answer to this question but hopefully I'll
get bits and pieces which I can put together. Here is my problem: I have a mail
client which stores incoming messages in files with rfc822 content and it has a
weird folder hierarchy of its own. I would like to upgrade from this client to
Outlook 98. I need to convert all these files to MAPI mail objects, IOW, I need
to create a PST file (MAPI personal store) and parse each individual file, create
a MAPI object (which is accessible through OLE automation), convert all rfc822
properties to MAPI properties and write MAPI messages to the store. I am looking
in the most optimistic case a Perl script which does exactly this but I'll settle
for less :-). Any scripts to parse rfc822 files, MIME attachments, read and write
MAPI properties are welcomes.
thanks for any/all help
muzo
WDM & NT Kernel Driver Development Consulting <muzok@pacbell.net>
------------------------------
Date: Wed, 4 Nov 1998 00:18:10 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: delete a file under win95 (!)
Message-Id: <MPG.10a9ad9e7056862f9898fa@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <71ndt1$ikk$1@cnn.cc.biu.ac.il> on Tue, 3 Nov 1998 19:16:09
+0200, Avshi Avital <avitala@macs.biu.ac.il> says...
> unlink 'file_name'
> system('del file_name');
>
> and even:
>
> exec('del file_name');
>
> but the file stays. so what's the trick?
Make sure that neither your program nor any other program has the file
open. You can do this using Unix, but not DOS/Windows.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 4 Nov 1998 11:07:04 +0200
From: "Avshi Avital" <avitala@macs.biu.ac.il>
Subject: Re: delete a file under win95 (!)
Message-Id: <71p5kd$f62$1@cnn.cc.biu.ac.il>
well, what can I say? it works perfectly.
maybe - as Larry Rosler - suggested, i had the file open with some other
app.
[ashamed] Avshi.
------------------------------
Date: Wed, 04 Nov 1998 09:30:34 +0100
From: Kjetil Svendsberget <kjetil@balder.no>
Subject: Re: FAQ question.
Message-Id: <364010AA.BF002FB8@balder.no>
gaurav kaushik wrote:
>
> There are two methods -
> 1- In Vi as you are doing the right except perhaps when putting ^M you
> are using
> two characters i.e. char cap and char M. So, when you issue 1,$s/ .. try
> using
> CTRL-M character. To get CTRL-M you will have to put CTRL and V key
> togather
> and then press CTRL and M key togather. Then, this thing should work.
Thats what i did :-)
Still didnt work ( see my other message)
------------------------------
Date: Wed, 04 Nov 1998 10:03:20 +0100
From: Kjetil Svendsberget <kjetil@balder.no>
Subject: Re: FAQ question.
Message-Id: <36401858.A3815543@balder.no>
James Peregrino wrote:
>
> perl -p -i -e s/\r//g yourfilename
> on the unix machine.
Thanks, exactly what i been looking for!
Except it still dont work.
You do mean
perl -p -i -e s/\\r//g yourfilename
right? Doing the above removes all 'r' from yourfilename.
Kjetil
------------------------------
Date: 4 Nov 1998 05:37:02 GMT
From: Eric Mathis <ebmmathis@worldnet.att.net>
To: Oliver Szrama <oszrama1@mmm.com>
Subject: Re: Help on installing perl on AIX
Message-Id: <363FE864.4F429D0D@worldnet.att.net>
I am currently installing PERL 5.004 on a similar system.
After untarring, the Configure file was found in the same
directory as INSTALL (as was configure!). Check your
capitalization; perhaps run "ls configure*" and "ls
Configure*" to confirm their presence/abscence.
Good luck!
Eric Mathis
mathise@coris.atsc.allied.com
Oliver Szrama wrote:
>
> I'd like to install perl on an IBM RS6000 with AIX Version 4.2. If I follow
> the installation instruction from the INSTALL file I cannot find the
> Configure script.
>
> /#sh Configure
> sh: Configure: not found.
>
> Where can I find this script?
>
> Oliver Szrama
> Germany
> oszrama1@mmm.com
>
> Opinions expressed herein are my own and may not represent those of my employer.
------------------------------
Date: Tue, 03 Nov 1998 23:56:47 -0800
From: Cornuts <cornuts@mrfoda.com>
Subject: Re: HELP! I need a perl enviroment for Win 95
Message-Id: <364008BF.14DC@mrfoda.com>
Jonathan Stowe wrote:
>
> On Mon, 02 Nov 1998 17:56:49 -0800 Cornuts <cornuts@mrfoda.com> wrote:
> > Does anyone know where I can download software to program in perl
> > besides CPAN and Active state. I have searched around and found those
> > two sites as the only ones who actually distribute perl software
> > (enviroments) I have downloaded from both of those sites and found
> > "uncleanable" viruses in each.
>
> I would trade in the virus checker for something better.
>
> /J\
> --
> Jonathan Stowe <jns@btinternet.com>
> Some of your questions answered:
> <URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Ok why does nobody believe me? I found two macro viruses ( Microsoft
Word). I have run into one of them before "Word Stress" it scrambled all
the text around in my word files. My virus scanner caught this and
another macro virus. The viruses are there so I'm not making it up. I
also need to download a new virus pattern though.
------------------------------
Date: Wed, 04 Nov 1998 05:02:22 GMT
From: mlehmann@prismnet.com
Subject: How does a function know if its being called inside eval {} ?
Message-Id: <71on4u$itd$1@nnrp1.dejanews.com>
I am trying to write backwards compatible object libraries.
I would like to use exceptions in my constructors, but only if my
constructors are inside an eval. The die command seems to know if it is
inside and eval and does different actions depending on its context. I
basically want to do the same thing, but I do not see how die is doing this.
Writing a C extension is essentially not an option, so I hope that this
context sensing can be done with perl, not XS or internal guts, code.
--
Give someone a Perl script and they can hack for a night, teach them Perl, and
they can hack for a lifetime.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 3 Nov 1998 11:54:31 -0000
From: "Gary Mc Closkey" <duff@duffduff.com>
Subject: Re: Inserting into Access with win32:odbc
Message-Id: <71mqod$h0r$1@ezekiel.eunet.ie>
Brent Michalski dealt with this earlier ...
Brent's post --->
> if (!($db=new Win32::ODBC($DSN))) {
> print "Error connecting to $DSN\n";
> print "Error: " . Win32::ODBC::Error() . "\n";
> } else { # End If !$db
>
> INSERT INTO PhoneCalls (UserName) VALUES ('Tony');
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
OOPS!
You are getting errors because Perl doesn't understand SQL commands!
Try the following code, it works on my system. You may have to modify
it a bit depending on your system...
$SQL = "INSERT INTO PhoneCalls (UserName) VALUES ('Tony')";
if($db->Sql($SQL)){
print "SQL failed.<BR>\n";
print "Error: " . $db->Error() . "<BR>\n";
$db->Close();
exit;
}
HTH,
Brent
<---- end brent's post
--
gmc_duff@indigo.ie. Remove underscore_duff to mail me.
NOTICE TO BULK E-MAILERS: Pursuant to US Code, Title 47, Chapter 5,
Subchapter
II, 227, and all unsolicited commercial e-mail sent to this address is
subject
to a download and archival fee in the amount of $500 US.
John Lee wrote in message <363e62ba.1762536@news-s01.ny.us.ibm.net>...
>I have been trying to insert into an MS Access database with the
>following test program...
[snip]
------------------------------
Date: Wed, 04 Nov 1998 04:36:11 GMT
From: bbrelin@dnai.com
Subject: libwww question...
Message-Id: <71oljr$hgf$1@nnrp1.dejanews.com>
Hello,
I'm to send the following HTML code to an internal web server:
HTTP-Version=HTTP/1.0
Content-Type=text/html
<HTML>
<FORM METHOD="POST" ACTION="http://lcisws02">
<INPUT TYPE="HIDDEN" NAME="SALVO_InfoRule"
VALUE="@ESP_1_WN(XRG1234567,xyzz)">
<INPUT TYPE="SUBMIT" VALUE="Submit">
</FORM>
</BODY>
</HTML>
When I use my browser to send this, I get back expected results.
I'm trying to duplicate this with libwww and some perl code.
Here is my code:
#!/bin/perl
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
$ua->agent("Mozilla/4.07 ". $ua->agent);
my $req = new HTTP::Request("POST","http://mdsslab01");
$req->content_type("application/x-www-form-urlencoded");
$req->content('SALVO_InfoRule=\"@ESP_1_WN(XRG1234567,xyzz)\"&SUBMIT=\"Submit\
"'); my $res = $ua->request($req); print $res->as_string;
One thing I've noticed while doing snoop traces is that the browser
is formatting the special characters with their hexidecimal equivalent
while the libwww code doesn't.
I'm running Perl 5.00502 on a Redhat Linux 4.2 i586 box.
Anybody have any ideas?
Thanks,
Braun Brelin
bbrelin@wraith.comp.pge.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 04 Nov 1998 18:50:31 +1100
From: Patrick Taylor <alpaca@gmp.usyd.edu.au>
Subject: Opendir <sigh> again
Message-Id: <36400747.7A3CE789@gmp.usyd.edu.au>
i've checked through Dejanews for all the posts on this but no one seems
to have had exactly the same problem.....
i got a very simple script that lists files from a list of directories
and prints the full file names. It gets to the opendir command and
returns the "Cannot open..." (and yep, the directories do exist, and the
directory name it returns is valid). i'ce made the file owned by, and
run by, root.
Any clues for the clueless?
#!/usr/local/bin/perl -w
$rootdir="/usr/local/web/docs";
open ( LIST, "list" ) ;
while (<LIST>){
$dir= "$rootdir/$_";
opendir DIR, $dir or die "Cannot open $dir";
@allfiles = grep ( !/^\./, readdir(DIR));
closedir(DIR);
for $i ( 0 .. $#allfiles ){
print " [$dir/@{$allfiles[$i]}]\n ";
}
}
Ciao
------------------------------
Date: 4 Nov 1998 01:55:34 -0700
From: Shane Stout <sstout@holly.ColoState.EDU>
Subject: opening illegal filenames
Message-Id: <71p4q6$6jj2@holly.ColoState.EDU>
I hope this is not a newbie question, but please forgive me if it is. I am
writing a script to check filenames and remove bad characters. This may not
sound to difficult but the files are being moved from a mac filesystem to a
win32 or NT filesystem. Because the ascii codes are different, there are
things that look ok for a mac that sends NT into a tizzy. The problem I am
having is that I can't open rename or in any other way manipulate the files.
Perl thinks that I have specified a bad filename. I have look at the PERL
cookbook and it gives a couple of suggestions, sysopen and using a regex to
manipulate the filename. These work on win98, my laptop, but not on my server,
winNT. The script has to live on the server so even though it works for win98,
it does not do me alot of good. Any suggestions on how to handle this situation
or just some educated guesses would be really appreciated.
Thanks,
Shane
sstout@holly.colostate.edu
------------------------------
Date: Wed, 04 Nov 1998 12:06:23 +0800
From: webmaster@man.amis.com
Subject: Oracle database
Message-Id: <363FD2BF.26D5@man.amis.com>
Can we access our oracle databases from our Intranet through CGI/Perl?
------------------------------
Date: 3 Nov 1998 21:46:25 -0800
From: larry@kiev.wall.org (Larry Wall)
Subject: Re: Perl & Y2K - booby trap code
Message-Id: <71opnh$oau@kiev.wall.org>
In article <71b8q5$9c1$2@marina.cinenet.net>,
Craig Berry <cberry@cinenet.net> wrote:
>Uri Guttman (uri@sysarch.com) wrote:
>: i don't deny there are gotme's. yesterday i was stuck trying to get a
>: slice from a hash ref. i have done this before but the syntax flew out
>: of my brain. it took a little while longer than i wanted to get it
>: right. that is my most recent gotme.
>
>God, I'm glad I'm not the only one! For whatever reason, my brain refuses
>to store that syntax. I have to rediscover it by trial and error every
>time I need it (which isn't at all often; otherwise, it would probably
>stick).
Horrors, no. Even I don't try to store that syntax. All I store is
the fact that you can replace any variable's identifier with a block
that returns a reference. This is a local transformation that has
nothing to do with how many brackets there are on the end of it (other
than that the type of the returned reference had better match its usage).
Larry
------------------------------
Date: Mon, 2 Nov 1998 15:25:23 -0500
From: "Phil Hoffman" <hoffmanpa@groton.pfizer.com>
Subject: Perl and Directory Permissions problem w/ IIS 3.0
Message-Id: <71l4fg$7ts1@mascagni.pfizer.com>
I'm currently running an IIS 3.0 server on NT 4.0 SP3, and have a web
application based upon Perl 5 Build 307. From time to time (unfortunately,
this is not reproduceable) the link that *should* execute the Perl script
instead prompts the client to save the file. Its as if the association to
the *.pl extension has been lost.
Strangely enough, the only thing that corrects the problem is going into
Internet Service Manager and re-asserting the execute permission on the
directory containing the Perl script, despite the fact that it appears to be
already in place. More drastic actions, such as stopping and starting the
web service, or even rebooting the box have no effect.
Has anyone seen this behavior before, and can give some insight into what's
causing it (or better still, how to prevent it)?
Thanks in advance
Phil Hoffman
Pfizer Inc
------------------------------
Date: Wed, 04 Nov 1998 10:18:25 +0100
From: Kjetil Svendsberget <kjetil@balder.no>
Subject: Re: perl&cgi question
Message-Id: <36401BE1.638864BB@balder.no>
brian d foy wrote:
>
> In article <363EC5AF.14E81D60@balder.no>, Kjetil Svendsberget <kjetil@balder.no> posted:
>
> > brian d foy wrote:
> > >
> > > In article <363DDAE2.A18140AE@corp.home.net>, Justin Harvey <jbharvey@corp.home.net> posted:
> > >
> > > > You need to change the mime association for .pl extension inside your
> > > > browsers so that it will use it as a CGI, and not try to download it.
> > >
> > > sorry, but it's the server that does what you are thinking about.
> >
> >
> > Sorry for asking this in the wrong newsgroup, but as i said this is NOT
> > a web server problem, since both machines acess the same web-server
> > (www.balder.no), they even have the same browser. IE 4.0 (v.4.72).
>
> you must be using a PoB system then. that's what you get. it's
> not a perl thing.
>
Excuse me for being clueless, but what is a PoB system?
------------------------------
Date: 3 Nov 1998 23:56:03 -0600
From: tye@fohnix.metronet.com (Tye McQueen)
Subject: Re: Problem with Win32 reg exp
Message-Id: <71oq9j$88l@fohnix.metronet.com>
Jim Monty <monty@primenet.com> writes:
) Tye McQueen <tye@fohnix.metronet.com> wrote:
[Answer to question omitted in Jim's quoting]
) > The FAQ surely told you to use "-w" when you can't figure
) > out why it isn't working:
) >
) > C:\> perl -w -e 's/foo/bar/gi' -p -i.bak *.txt
) > Useless use of a constant in a void context at -e line 1.
[Description of how to tell why the above error happens omitted by Jim]
) > Notice that the single quotes are being passed to Perl so
) > that the Perl code is:
[...]
) > Just what "-w" warned me about.
)
) This is sarcasm, right? I mean, you don't really think that a
) self-confessed Perl neophyte would read this
)
) Useless use of a constant in a void context at -e line 1
)
) and immediately think, "Oh, yeah! Clearly my command interpreter
) is passing the whole string
This is sarcasm, right? Or just a troll? Why would I bother to
throw this step in the middle:
] In future, you can also add "-d" to help figure out why it failed:
]
] C:\> perl -d -e 's/foo/bar/gi' -p -i.bak *.txt
] [...]
] main::(-e:1): 's/foo/bar/gi'
if I thought you could naturally and easily jump straight from
the warning to the solution?
) The "-w" flag wouldn't have helped this guy. He first checked the
) documentation, then did the sensible thing and posted an inquiry
) to comp.lang.perl.misc where his question was quickly answered.
And I not only answered his question, up front, but I also
suggested two useful things to try which might find him answers
in the future much faster than could even be found by posting
to a newsgroup. And for this I deserve grief?
I was doubtful that the "-w" flag alone would have been enough
to clue everyone in on this particular problem, but, yes I don't
think that posting to c.l.p.misc without trying at least "-w"
is "the sensible thing". I must be impatient because I don't
see how anyone can consider waiting a few hours (if you're very
lucky) or a few days (if you're only moderately lucky) to get
an answer from Usenet deserving of the adverb "quickly".
I was just offering what I consider to be much more desirable
alternatives.
--
Tye McQueen Nothing is obvious unless you are overlooking something
http://www.metronet.com/~tye/ (scripts, links, nothing fancy)
------------------------------
Date: Wed, 04 Nov 1998 07:10:02 GMT
From: tcpeter@iname.com (Tim Peter)
Subject: Re: Problem with Win32 reg exp
Message-Id: <363ff7f6.5670427@news.primenet.com>
On 3 Nov 1998 23:56:03 -0600, tye@fohnix.metronet.com (Tye McQueen)
wrote:
>And I not only answered his question, up front,
Very true, and very helpful.
>but I also
>suggested two useful things to try which might find him answers
>in the future much faster than could even be found by posting
>to a newsgroup. And for this I deserve grief?
No. I appreciate all the comments. They're helping me to get better
at this all the time. Truth be told, I didn't think to use the -d on
though I put the -w in all (3 or so) scripts I had written prior to
this. The warning that the script returned was (as suggested by my
virtual (in the original sense) neighbor Jim Monty) about as useful as
MS Windows 2.0. (i.e., not very).
>I was doubtful that the "-w" flag alone would have been enough
>to clue everyone in on this particular problem, but, yes I don't
>think that posting to c.l.p.misc without trying at least "-w"
>is "the sensible thing". I must be impatient because I don't
>see how anyone can consider waiting a few hours (if you're very
>lucky) or a few days (if you're only moderately lucky) to get
>an answer from Usenet deserving of the adverb "quickly".
Actually, I got the first response within an hour, and a second one
about a half-hour after that. Given the amount of time I'd already
spent trying to track down the cause, it was pretty quick. Probably a
better question would have been, "What the @_#$! does this 'Useless
use of a constant in a void context at -e line 1' nonsense mean?" (by
the way, I've since learned that my expletive deleted up above
generates the following errors:
Useless use of a variable in void context at bogus.pl line 3.
Cannot print stack trace, load with -MCarp option to see stack at
G:\PERL\5.0050
2\lib/perl5db.pl line 1928.
main::(bogus.pl:3): @_#$!
See! I'm learning already! ;-)
Seriously, thanks for all the help, both in catching the fish, and
teaching me how to. The Perl community only improves because of it.
Never let your schooling get in the way of your education. - Mark Twain
------------------------------
Date: Tue, 03 Nov 1998 21:36:05 -0800
From: No User <nouser@ucdavis.edu>
Subject: reading a string in from a text file
Message-Id: <363FE7C5.EB1B48DF@ucdavis.edu>
OK, this is a pretty basic question, I am sure...please don't flame me I
am new!
I have text files that I want to pull information from. There is a
pattern that I can match that recurs through out...what I would like to
do is this...every time it recognizes the pattern then begin reading
when it sees a particular character and stop when it reads another.
How can I set up the read function to do this? From what I have learned
it reads a fixed number of characters.
Ex: I want it to read into a string that is in between the * characters
after it matches the pattern /myptrn/
dasflh myptrn fdfa * xacto nife * dfsdf
in this example I would want to be left with a string var whose contents
were " xacto nife "
Thanks for your help! I can already see that perl is a darned powerful
tool.
------------------------------
Date: Wed, 4 Nov 1998 14:38:44 +0800
From: vertigan@maestro.dyn.ml.org (Steve Vertigan)
Subject: Re: Text::CSV install?
Message-Id: <199811040638.OAA07496@opera.iinet.net.au>
Justin B. Harvey Wrote:
> Try running "perl -MCPAN -e 1". That'll setup for you to personally use
> CPAN. For make options put:
>
> PREFIX=/home/youruserid INSTALLSITELIB=/home/youruserid/lib/perl
I attempted to run this but got the message "Can't locate CPAN.pm in @INC".
So I downloaded CPAN-1.40 and untarred it. From inside the directory
created, I tried to run the make file but got this...
Bad free() ignored at /usr/local/lib/perl5/DynaLoader.pm line 140.
Bad free() ignored at /usr/local/lib/perl5/DynaLoader.pm line 140.
Checking if your kit is complete...
Warning: the following files are missing in your kit:
Changes
MANIFEST
Makefile.PL
README
Todo
lib/Bundle/CPAN.pm
lib/CPAN.pm
lib/CPAN/FirstTime.pm
lib/CPAN/Nox.pm
t/loadme.t
Please inform the author.
Can't locate CPAN/Nox.pm in @INC at lib/CPAN/FirstTime.pm line 40.
I've verified the files are there, however. Where should I go from here?
Thanks,
--Steve
>Steve Vertigan wrote:
>>
>>I have some scripts that use the Text::CSV module that I have to run on a
>>user account on a remote system that I don't have root priviledges on.
>>However the system doesn't have this module on it. I thought I may be
able
>>to install it in the accounts file space but didn't get further than
running
>>the Makefile.PL as it needs 5.004 and this system only has 5.003. I've
>>contacted tech support and they've refused to put it on saying they "only
>>provide modules that are part of the standard perl install". Does anyone
>>have any suggestions as to what I can do here short of cancelling the
>>account?
------------------------------
Date: Wed, 4 Nov 1998 08:22:55 +0000
From: Jerry Pank <jerryp.usenet@connected.demon.co.uk>
Subject: Using Meta tags with CGI.pm
Message-Id: <IpOldHAf7AQ2EwDn@connected.demon.co.uk>
Using Meta Tags with CGI.pm
I can't seem to get CGI.pm to produce <META NAME="foo" CONTENT="bar">
tags within the <HEAD> tags.
My poor attempt below creates an incorrect tag within the <BODY> tag,
yet the <BASE HREF..> is correct and in the <HEAD>.
use CGI qw(:standard);
print start_html('-meta name'=>'foo',
'content'=>'bar',
'-xbase'=>'baseurl',
);
I have just ordered Lincoln's book but am hoping someone can beat the
book to the answer.
-- Jerry Pank mailto:jerryp.usenet@netconnected.com
I won't mention any names, because I don't want to get sun4's into
trouble... :-)
-- Larry Wall in <11333@jpl-devvax.JPL.NASA.GOV>
------------------------------
Date: 04 Nov 1998 10:37:14 +0100
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Using Meta tags with CGI.pm
Message-Id: <83r9vjbxyt.fsf@vcpc.univie.ac.at>
Re: Using Meta tags with CGI.pm, Jerry
<jerryp.usenet@connected.demon.co.uk> said:
Jerry> Using Meta Tags with CGI.pm I can't seem to get
Jerry> CGI.pm to produce <META NAME="foo" CONTENT="bar">
Jerry> tags within the <HEAD> tags.
It's explained in the pod:
qx(perldoc CGI);
CREATING THE HTML DOCUMENT HEADER
print $query->start_html(-title=>'Secrets of the Pyramids',
-author=>'fred@capricorn.org',
-base=>'true',
-target=>'_blank',
-meta=>{'keywords'=>'pharaoh secret mummy',
'copyright'=>'copyright 1996 King Tut'}
-style=>{'src'=>'/styles/style1.css'},
-BGCOLOR=>'blue');
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: Tue, 03 Nov 1998 18:11:58 -0700
From: "Kerry J. Cox" <kjcox@vii.com>
Subject: Web_store question
Message-Id: <363FA9DD.D022B303@vii.com>
Howdy,
I have been working on Selena Sol's web_store for a little bit now and
have gotten it to work just fine, except that I can't get the images to
appear in the test store. When I do a tail -f /var/log/httpd/error_log
I keep getting the following error:
[Tue Nov 3 17:15:04 1998] [error] [client 206.71.77.51] file
permissions deny server execution:
/home/httpd/cgi-bin/Web_store/Html/Images/words.gif
[Tue Nov 3 17:15:04 1998] [error] [client 206.71.77.51] file
permissions deny server execution:
/home/httpd/cgi-bin/Web_store/Html/Images/memes.gif
When I changed all the permissions to 777, i.e. chmod 777 * in the
Images file, I get this message:
Tue Nov 3 17:17:01 1998] [error] (8)Exec format error: exec of
/home/httpd/cgi-bin/Web_store/Html/Images/numbers.gif failed
[Tue Nov 3 17:17:01 1998] [error] [client 206.71.77.51] Premature end
of script headers: /home/httpd/cgi-bin/Web_store/Html/Images/numbers.gif
Does anyone have any tips on how to fix this? I am running this on a
RedHat 5.1 Linux box with the rpm version of Apache 1.3.3. My cgi-bin
is located in /home/httpd/cgi-bin.
I have set all the permissions correctly and as indicated in the
Documentation/ directory.
Does anyone know of a good HowTo page or can they send me a sample of
their text files. Feel free to block out any incriminating URLs. I
would just like a helpful hint as to why I can't get the images to show
up.
Thanks much.
KJ
--
.-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-.
| Kerry J. Cox Vyzynz International Inc. |
| kjcox@vii.com (801) 596-7795 ext. 101 |
| Systems Administrator http://vii.com/ |
`-----------------------------------------------------------------'
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 4145
**************************************
