[8519] in Perl-Users-Digest
Perl-Users Digest, Issue: 2137 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Mar 19 14:10:24 1998
Date: Thu, 19 Mar 98 11:01:59 -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 Thu, 19 Mar 1998 Volume: 8 Number: 2137
Today's topics:
Re: Networking Problem ? Perl or Red Hat ? schwern@starmedia.net
ODBC and Perl compatible files (David Griffis)
Re: pattern matching dilemma (Craig Berry)
Re: Perl and Forms joshmccormack@yahoo.com
Perl FastCGI parameter problem <s.brugmans@best.ms.philips.com>
Perl job vacancy in the UK <charles@a1assured2.demon.co.uk>
Re: Qui sera assez fort pour repondre a ca ?? <friedman@uci.edu>
Re: Qui sera assez fort pour repondre a ca ?? <tchrist@mox.perl.com>
Re: setuid and $0 <barnett@houston.Geco-Prakla.slb.com>
Simple perl quote problem ? <n.shaw@oxagen.co.uk>
Re: Troubles "perl"ifying a shellscript that uses pipes schwern@starmedia.net
Re: Troubles with a Canned script (Richard Bellavance)
Re: Using perl code as a config file syntax? (Or, can r <dboorstein@shopcfn.com>
Re: Where is Comm.pl (Tom Grydeland)
Re: Win32 Perl and ODBC New User Problems (David Griffis)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 19 Mar 1998 11:45:37 -0600
From: schwern@starmedia.net
To: michaely@alphanet.net.au
Subject: Re: Networking Problem ? Perl or Red Hat ?
Message-Id: <6erljv$sf3$1@nnrp1.dejanews.com>
I'm not sure about the differences between 5.003 & 5.004_01 Socket and
FileHandle modules (5.004_01 is a bit old, BTW) but Perl strives for total
backwards compatibility in its core modules, so I can't see that being a
serious culprit.
However, I've known RH5 to make some really idiotic blunders in setting up its
routing tables. Check them carefully. On my machine, it forgot to set my
gateway. On a co-worker's machine it forgot to setup the localhost! 'lo'
interface didn't exist (though it did fine with 'eth0'). Wierd.
In article <6epkv3$2gr$1@nnrp1.dejanews.com>,
michaely@alphanet.net.au wrote:
> One our our Client/Server applications was written on Perl 5.003 and
> were running on RHS (Red Hat Linux Server)4.1 and 4.2 happily.
>
> On updating one our servers to RHS 5.0 the Server part of the system
> refused to answer to any client calls. Event to a client on the same
> m/c; but the client on the RHS 5.0 can calls to Servers on RHS 4.1 and
> 4.2 without problems.
>
> Could this be a Perl problem or RHS problem (ie. new security on opening
> IP ports?).
>
> The modules that I am using is the SOcket, FileHandle ! So is there any
> difference of these two modules between version 5.003 and version
> 5.004_01 ?
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Thu, 19 Mar 1998 17:24:35 GMT
From: davidg@infinex.com (David Griffis)
Subject: ODBC and Perl compatible files
Message-Id: <351153c3.135927293@news.infinex.com>
I have tried a number of combination ODBC from roth and Activestate
Perl for Intel.
For example, Perl 304 and 970208, Perl 315 or 316 and 970208.
Is there anyway to download two compressed files that work together?
I'm able to connect and close but it doesn't fetch any data.
Thanks,
David Griffis
Foster City, CA 94404
PS. The exact links would be great or even receive them by email.
I'm not using IIS and can test without a web server.
------------------------------
Date: 18 Mar 1998 22:31:42 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: pattern matching dilemma
Message-Id: <6epi0e$aa1$1@marina.cinenet.net>
Michael Lepine (mlepine@bellsouth.net) wrote:
: I wondered about the slash, so I replaced the pattern to match with
: other characters to no avail. I did make the changes you suggested;
: however, I still get an error ( basically the same one as before ):
:
: perl -c feat*
: syntax error at feature_archive_updt.pl line 145, near "m|^.*</ul>.*?|i"
:
: syntax error at feature_archive_updt.pl line 166, near "}"
: feature_archive_updt.pl had compilation errors.
Can you show us the range of lines from about 140-170, preferably with
line numbers? Repost the errors at the same time if you do so.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Thu, 19 Mar 1998 10:25:41 -0600
From: joshmccormack@yahoo.com
Subject: Re: Perl and Forms
Message-Id: <6ergqb$kin$1@nnrp1.dejanews.com>
This is no problem in Perl. Check out http://www.scriptsearch.com or just do a
search. The problem you may encounter is that this is so much not a problem,
that people are doing many things with it. You have to figure out exactly what
you'd like to do (classified ads, calendar, search, bbs, chat, etc.)
Good Luck
Josh
In article <6elvmm$cd3$1@news.uk0.vbc.net>,
"Simon Ward" <Simon@stopspam.openworld.co.uk> wrote:
>
> Hi,
> I'm new to Perl and I'd like someone to tell me if I can take the results of
> a form and output the information to a html file (rather than email as most
> of the scripts I've seen do). If possible could you send me a link to the
> source so I can see how it works.
>
> Cheers,
> Simon Ward
> Simon@openworld.co.uk
>
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Thu, 19 Mar 1998 16:51:47 +0100
From: Sander Brugmans <s.brugmans@best.ms.philips.com>
Subject: Perl FastCGI parameter problem
Message-Id: <35113F13.5FA7@best.ms.philips.com>
Hello All,
I have the following problem using FastCGI with perl (5.003_07):
In the following (incredibly simple) FastCGI script two parameters
(param1 and param2) are stored in two scalar variables using the param()
function. This works fine the first time the FastCGI script is called.
In the following calls the parameters do not seem to change (of course i
called the script with different values for param1 and param2).
#!/user/mrtools/bin/hpux/perl
use FCGI;
while (($ignore) = each %ENV) {
}
use CGI qw(:standard);
while(FCGI::accept() >= 0) {
$param1 = param('param1');
$param2 = param('param2');
print("Content-type: text/html\r\n\r\n",
"<title>FastCGI test</title>\n",
"<h1>FastCGI Test</h1>\n",
"Param 1 : $param1<BR>\n",
"Param 2 : $param2<BR>\n<HR>");
}
What is happening here? I all seems so trivial. Is FastCGi doing strange
things with the %ENV?
Please help me!
Thanks in advance,
Greetings from Holland,
Sander.
--
+--------------------------------------------------------------------+
| Sander Brugmans MR Systems Software Support Group |
| Integrator Philips Medical Systems |
| Building QR 1136, P.O. Box 218 |
| E-mail : 5600 MD Best, The Netherlands |
| s.brugmans@best.ms.philips.com Telephone : +31(0)40 27 62329 |
+--------------------------------------------------------------------+
------------------------------
Date: Thu, 19 Mar 1998 16:12:38 -0800
From: "Charles Goodall" <charles@a1assured2.demon.co.uk>
Subject: Perl job vacancy in the UK
Message-Id: <890323853.24726.0.nnrp-06.c2ded930@news.demon.co.uk>
If you have Perl skills and would like to work in the UK then
please
respond to this posting as soon as possible.
I am the Business Manager for A1 Assured Recruitment Limited, a specialist
IT recruitment agency in London.
One of our clients requires a Perl Web Developer.
Please e-mail Charles Goodall at
charles@a1assured2.demon.co.uk
------------------------------
Date: 19 Mar 1998 15:51:50 GMT
From: "Eric D. Friedman" <friedman@uci.edu>
Subject: Re: Qui sera assez fort pour repondre a ca ??
Message-Id: <6ereum$90f@news.service.uci.edu>
In article <6epea7$qvr$1@csnews.cs.colorado.edu>,
Tom Christiansen <tchrist@mox.perl.com> wrote:
<English is the world's number one second language, and it's very difficult
<to get anywhere in computing or business without it. But since he asked
This is certainly true, and it's good advice for folks whose native
tongue is not English. However (and I don't say that Tom implied
anything to the contrary), native English speakers would still do well
to pick up another language. I participate in french-language
listservs on technical topics (not Perl, alas), and have often found
useful information there. Recently, I was able to resolve a rather
nasty linux-alpha problem by following the advice I found in a
german-language group archived at Dejanews.
There's lots of talent out there, and I consider myself fortunate to
be able to draw on it.
--
Eric D. Friedman
friedman@uci.edu
------------------------------
Date: 19 Mar 1998 16:35:39 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Qui sera assez fort pour repondre a ca ??
Message-Id: <6erhgr$f23$2@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, "Eric D. Friedman" <friedman@uci.edu> writes:
:native English speakers would still do well to pick up another language.
Don't stop at one! Learn three or five. It's good for you. :-)
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
Definition of a hermaphrodite: a bisexual built for two.
--Jeff Daiell
------------------------------
Date: Thu, 19 Mar 1998 09:32:18 -0600
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
Subject: Re: setuid and $0
Message-Id: <35113A82.619F805A@houston.Geco-Prakla.slb.com>
Kuntal M. Daftary wrote:
>
> hi
>
> i use the following construct to get the name of the script file in most of my
> perl scripts:
>
> ($self = $0) =~ s:.*/::;
>
> recently i had to make a script setuid. and i realized that for setuid scripts
> $0 is no longer the name of the script file. in my case it became /dev/fd/4.
> or something like that.
>
> also, for specifically this script, i really need to get the name of the script
> file because i not only use it to set the $self but also stat the script to
> find out group and user ownerships and perform certain authorization checks.
>
> So any suggestions?
>
> Kuntal Daftary
> 1.408.527.9789
> daftary@cisco.com
Well, how about
#!/usr/local/bin/perl -w
use File::Basename;
$dir = dirname($0);
$file = basename($0);
print "$dir\n";
print "$file\n";
__END__
That what you had in mind?
HTH.
Dave
--
"Security through obscurity is no security at all."
-comp.lang.perl.misc newsgroup posting
------------------------------------------------------------------------
* Dave Barnett U.S.: barnett@houston.Geco-Prakla.slb.com *
* DAPD Software Support Eng U.K.: barnett@gatwick.Geco-Prakla.slb.com *
------------------------------------------------------------------------
------------------------------
Date: Thu, 19 Mar 1998 17:21:45 +0000
From: Nigel Shaw <n.shaw@oxagen.co.uk>
Subject: Simple perl quote problem ?
Message-Id: <35115429.F6819427@oxagen.co.uk>
Hi,
I'm sure this is a quickie for a perl guru so could you please tell me
why the following line
perl -pe 's^##PERL##^#!$(PERL)^' $< > $@
in an makefile script gives me the follwing error
unmatched '
##Error code 1 (bu21)
Thanks in advance
(as this news group is rather large could you please emal me the
response as well please)
Regards,
Nigel Shaw
n.shaw@oxagen.co.uk
------------------------------
Date: Thu, 19 Mar 1998 11:40:52 -0600
From: schwern@starmedia.net
To: rich@polar.earth.nwu.edu
Subject: Re: Troubles "perl"ifying a shellscript that uses pipes
Message-Id: <6erl7a$s0t$1@nnrp1.dejanews.com>
Perl can't interpolate a mathematical function in a string, so...
system("echo This line has ".($n+1)." words | cat");
...will do it.
In article <wfwwdrbw4f.fsf@polar.earth.nwu.edu>,
Jonathan Rich <rich@polar.earth.nwu.edu> wrote:
> $n=5;
> system("echo This line has $n words | cat");
> This will work. Now suppose I want to interpolate in the value, $n+1.
> I try:
> system("echo This line has $n+1 words | cat");
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 19 Mar 1998 11:20:24 -0500
From: charlot@CAM.ORG (Richard Bellavance)
Subject: Re: Troubles with a Canned script
Message-Id: <6ergk8$3ui@ocean.CAM.ORG>
In article <3514f388.8295536@news.cyburban.com>,
Chris Peters <cpeters@cinemagnetics.com> wrote:
>It then gives me the following error:
>
>The requested URL /~celticbard/cgi-bin/cgi-bin/wwwboard.cgi was not
>found on this server.
>
This "/cgi-bin/cgi-bin" is the clue, I think.
>
>$basedir = "/usr/home/celticbard/public_html/board/";
>$baseurl = "~celticbard/board/";
>$cgi_url = "cgi-bin/wwwboard.cgi";
^
Try inserting a slash here.
Note however, that this was not really a Perl question, and that scripts from
Matt's Script Archive are known to have some problems (see DejaNews for
details).
HTH,
Richard.
--
Richard Bellavance -- charlot@cam.org -- http://www.cam.org/~charlot/
"All along this path I tread / My heart betrays my weary head
With nothing but my love to save / From the cradle to the grave"
(Eric Clapton, "From the cradle")
------------------------------
Date: Thu, 19 Mar 1998 11:15:08 -0500
From: Dan Boorstein <dboorstein@shopcfn.com>
To: Zenin <zenin@archive.rhps.org>
Subject: Re: Using perl code as a config file syntax? (Or, can require return more then one value?)
Message-Id: <3511448C.90608E19@shopcfn.com>
Zenin wrote:
>
> I'm trying to use a perl file as a config file. The file would look
> something like this:
>
> (
> FOO => [ 'some', 'foo', 'options' ],
> BAR => [ 'some', 'bar', 'options' ],
> );
>
> And be read with simply:
>
> my %config = require 'some.config';
>
i have done this in the past using the following, very similar,
technique:
danboo> cat required
my %hash = qw( one two );
\%hash;
danboo> cat requirer
#!/usr/bin/perl
$config = require 'required';
print $config->{'one'};
so it allows you access to the data without knowing the structures
name, and since it uses a reference it avoids identical copies of
your config data in memory.
--
# dan boorstein <dboorstein@shopcfn.com>
seek DATA,0,0;print scalar<DATA>,__END__
Just another Perl hacker,
------------------------------
Date: 19 Mar 1998 15:56:18 GMT
From: Tom.Grydeland@phys.uit.no (Tom Grydeland)
Subject: Re: Where is Comm.pl
Message-Id: <slrn6h2g12.l.Tom.Grydeland@mitra.phys.uit.no>
On Thu, 19 Mar 1998 11:18:41 +0200,
saar ginzburski <saarg@amdocs.com> wrote:
> I'm trying to download the Comm.pl module for about three days but I'm
> not able to. It's looks like the file disappear from all CPAN sites.
>
> Does anyone has any idea ?
Try the sequel: Expect.pm
> Saar Ginzburski
--
//Tom Grydeland <Tom.Grydeland@phys.uit.no>
------------------------------
Date: Thu, 19 Mar 1998 17:19:19 GMT
From: davidg@infinex.com (David Griffis)
Subject: Re: Win32 Perl and ODBC New User Problems
Message-Id: <351152ae.135650104@news.infinex.com>
On Sun, 08 Mar 1998 15:11:50 GMT, keefner@visi.com (keefner) wrote:
>On Wed, 04 Mar 1998 05:37:05 GMT, davidg@teleprompt.com (David
>Griffis) wrote:
>
>>I'm trying to get Activeware Win32 Perl 5.003 build 315 and Dave
>>Roth's ODBC extention working with my NT 4.0 ODBC for Oracle 733 but
>>I'm getting a 'parse error'. What could I have done wrong?
>
>You likely have the stock odbc driver for Oracle installed
>and there is a documented problem with it. Make sure
>you get the latest from Oracle.
>
>Depending on how you want to access the Oracle
>db (stored functions/procedures/etc) you may want
>to consider the DBI/DBD modules and the perl port
>for it.
>
>Craig
Craig,
It would be nice if I could get the odbc working so it doesn't matter
what database I'm using.
I got the latest Oracle odbc and even tried with the access and odbc
but no luck.
I think that build 315 or 315 doesn't work with ODBC 970208.
It's also confusing how to apply the patches.
Does anyone have a version of Perl and ODBC 970208 that works
together.
Right now it's not fetching any data.
Thanks,
David Griffis
Foster City, CA 94404
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 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.
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 2137
**************************************
