[16459] in Perl-Users-Digest
Perl-Users Digest, Issue: 3871 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Aug 1 14:05:33 2000
Date: Tue, 1 Aug 2000 11:05:20 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <965153120-v9-i3871@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 1 Aug 2000 Volume: 9 Number: 3871
Today's topics:
Broadcast-IP-address or netmask <kible@web.de>
Re: can't use global $^W in "my"... <eaglewing@zensearch.com>
Re: can't use global $^W in "my"... <eaglewing@zensearch.com>
Re: check if $sth->fetch is empty (Rafael Garcia-Suarez)
Re: dialing from another computer (Logan Shaw)
Dynamic String to hash <kenhare@ultrapresence.com>
Re: execute a Perl script in another Perlscript nobull@mail.com
Getting string (Phil)
Re: Getting string <bart.lateur@skynet.be>
Re: Getting string aqutiv@my-deja.com
Re: Help with LWP (Colin Keith)
Re: How to recognize triplicates <tina@streetmail.com>
I have an idea but will it work ? <globalcon2@myhouse.com>
Re: Is "exit()" really necessary? (Villy Kruse)
LWP::UserAgent timeout problem <mdudley@execonn.com>
Re: LWP::UserAgent timeout problem <mdudley@execonn.com>
Re: newb Q, Our perl guy left!! <russ_jones@rac.ray.com>
Newbie: Tables problem (Tony Balazs)
Re: On upgrading Perl... <mstyne@bownemgmt.com>
Re: On upgrading Perl... (Greg Bacon)
Re: On upgrading Perl... <mstyne@bownemgmt.com>
perl module with rcp <kaweed@micron.com>
Perl Web Security <Travis.Stevens@noaa.gov>
Re: Perl Web Security (Logan Shaw)
Re: Perl Web Security <lauren_smith13@hotmail.com>
Perl Win32 issues <zappa@inetnow.net>
perldoc error <tim.schelfhout@alcatel.be>
Re: Please unconfuse me.... if (<>)... <tina@streetmail.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 1 Aug 2000 18:16:19 +0200
From: "Ralf Kible" <kible@web.de>
Subject: Broadcast-IP-address or netmask
Message-Id: <8m6t4l$5mvap$1@ID-43477.news.cis.dfn.de>
I'm looking for a possibility to find the broadcast-address or netmask of an
network-interface, because I try to send a broadcast-message via UDP.
Thanks!
Ralf
------------------------------
Date: Tue, 1 Aug 2000 09:55:27 -0700
From: "eaglewing" <eaglewing@zensearch.com>
Subject: Re: can't use global $^W in "my"...
Message-Id: <8m6vh3$5qpsv$1@ID-41717.news.cis.dfn.de>
"Abigail" <abigail@foad.org> wrote in message
news:slrn8o41jv.vcg.abigail@alexandra.foad.org...
> eaglewing (eaglewing@zensearch.com) wrote on MMDXXIII September MCMXCIII
> in <URL:news:8lslm1$57hje$1@ID-41717.news.cis.dfn.de>:
> }}
> }} "Marcel Grunauer" <marcel@codewerk.com> wrote in message
> }} news:slrn8o3jcq.bru.marcel@gandalf.local...
> }} > On Fri, 28 Jul 2000 11:03:14 -0700, eaglewing
<eaglewing@zensearch.com>
> }} wrote:
> }} >
> }} > >[Thu Jul 27 22:13:06 2000] [error] Can't use global $^W in "my" at
> }} > >/home/gavin/codebase/v1/scripts/lucia2 line 1
> }} >
> }} >
> }} > Well, to ask the obvious, you didn't do something like 'my $^W = 1' ?
> }} > Because perlvars like $^W, $_ etc. can't be declated as lexicals.
> }} >
> }} > Just use '$^W = 1' and it'll be ok.
> }} >
> }} > But that was too obvious..
> }}
> }}
> }} thanks for the mail, but I should have made myself more clear, I
haven't
> }} used $^W anywhere...heres my code
>
>
> Indeed, you haven't and the code compiles fine if I try to compile it.
>
> BTW, as you really, really sure that's the same program? After all,
> the error is in line 1; and your program starts with the shebang line
> on line 1.
its really bizarre...I've copied the file (in various fashions) to other
files, and it still gives the same error.
-g
------------------------------
Date: Tue, 1 Aug 2000 09:56:09 -0700
From: "eaglewing" <eaglewing@zensearch.com>
Subject: Re: can't use global $^W in "my"...
Message-Id: <8m6vi9$5k8pn$1@ID-41717.news.cis.dfn.de>
"Bart Lateur" <bart.lateur@skynet.be> wrote in message
news:va04osglqlfg6vf7lr3b28oum5ruf5bg6p@4ax.com...
> eaglewing wrote:
>
> >heres my code
>
> I've tried to compile it, and I get:
>
> Name "bldquery::wrkdb" used only once: possible typo at test.pl line
> 122.
> test.pl syntax OK
>
> Gee... I used to have problems with MacPerl, were a sysntax error put
> Perl in an instable state, and I got bogus error messages like yours.
> MacPerl normally keeps running, even after the script has finished. What
> I needed to do, is quit MacPerl and restart it.
>
> But you seem to be running it on Unix (or similar), so this argument
> doesn't count...
yep, running on a linux system...
------------------------------
Date: Tue, 01 Aug 2000 16:03:02 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: check if $sth->fetch is empty
Message-Id: <slrn8odtf9.v2.rgarciasuarez@rafael.kazibao.net>
vnguyen_1999@my-deja.com wrote in comp.lang.perl.misc:
>Hello !!!
>
>How can I check if $sth->fetch is empty?
my $row = $sth->fetch;
if (defined $row) {
print "empty\n" if $#$row == -1;
print "empty\n" unless @$row;
print "empty\n" if not defined $row->[0];
# ... TMTOWTDI
} else {
die "$DBI::errstr\n";
}
--
Rafael Garcia-Suarez
------------------------------
Date: 1 Aug 2000 12:09:39 -0500
From: logan@cs.utexas.edu (Logan Shaw)
Subject: Re: dialing from another computer
Message-Id: <8m708j$b1s$1@provolone.cs.utexas.edu>
In article <soda30fcdbm173@corp.supernews.com>,
Hugh Brian <hugh.brian@uengineer.com> wrote:
>I have my two computers networked together at home. Windows internet
>connection sharing for some reason is always dialing even when I don't have
>any running programs that require a connection to the internet. So I disable
>the automatice dialing by selecting "Never Dial a Connection" in the
>Connection tab of Internet properties.
>
>What command (eg. `??????.exe`) do I need to issue from the computer that
>has no modem to the computer that has the modem to make the modem dial out
>to my isp? I hope I have explained myself.
Don't you comp.lang.perl.misc is kind of a strange
place to ask this question? It doesn't really
seem to have anything at all to do with perl.
- Logan
------------------------------
Date: Tue, 01 Aug 2000 11:24:03 -0600
From: Ken Hare <kenhare@ultrapresence.com>
Subject: Dynamic String to hash
Message-Id: <010820001124035055%kenhare@ultrapresence.com>
Hello,
I am still a begginer with PERL so please forgive any thing REALLY
dopey that I might describe. :-)
I have a delimited string
QtyþPart
NoþSKUþNameþWgtþColorþSizeþoption1þOption2þCustomþNoTaxþPriceþTotalÿ1þPN
1þSKU1þClassic Teddy
Bearþ1þGreenþsþoption1þoption2þþ0þ$9.00þ$9.00ÿ1þþ30987þScary
Dollþþþþþþþ0þ$35.00þ$35.00
Where each item is separated by "ÿ" and each items specs are
separated by "þ"
This string is generated by a compiled shopping cart app so I can't
modify the code directly to customize output.
I have been trying to modify the string so that It consists of only 5
fields with the "extra" fields being concatenated into one of the 5
fields. What complicates this is that the field names can vary
depending on what product is selected.
I know that I will need: Qty, SKU, Name, NoTax and Price with all of
the other fields added in any order to the end of Name.
My strategy up to this point is to take the raw string and split it on
the item delimiter and dump it into an array. Then take the array and
somehow cram it into a hash using the first items "specs" (field names)
as the keys and then supsequent item "specs" as columns. Then somehow
iterate through this hash and build the new product string the way I
want.
Is this the right strategy? Can anybody provide some commented Pseudo
code to get me going again?
I'd post my code but it is so messed up right now that it would simply
confuse and not be useful in the end.
Thanks in advance for any help. :-)
Ken
------------------------------
Date: 01 Aug 2000 18:20:37 +0100
From: nobull@mail.com
Subject: Re: execute a Perl script in another Perlscript
Message-Id: <u9wvi099ui.fsf@wcl-l.bham.ac.uk>
"Timothy H. Schilbach" <tschilbach@aodinc.com> writes upside down:
> <johands@hotmail.com> wrote in message news:8m4uiq$kc0$1@nnrp1.deja.com...
> > how do i execute an cgi-script(written in Perl) within another cgi-
> > script (written in Perl).
> >
> > So i have a cgi-script and then somewhere in this cgi-script i want
> > another cgi-script to be executed.
> This is an excellent question. If you find out please clue me in :-)
No it's not! It's a damn awfull question. Not least because there
are actully two completely different questions the OP could actually be
asking. But don't take my word for it - go to deja.com (or your
favourate Usenet search engine) and see the answers given the last 100
or so times this exact question was asked.
CGI scripts are intended to be called from web servers. If you want
something to be called other than from a web server don't make it a
CGI script. Take the common fuctionality that is required by both CGI
scripts and make it a separate script - or, since this is Perl, better
still a module.
If you really need to call one CGI script from another you should
route your request through the web server using LWP.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 1 Aug 2000 16:09:33 GMT
From: root@phil-the-nerd.org (Phil)
Subject: Getting string
Message-Id: <slrn8odpp9.bkl.root@Enigma.RedBrick.DCU.IE>
I realise this is for the web but it's not actually a CGI question, so I
thought it might belong here, I hope I'm right. The problem is I have a string
<A HREF="something.gif">
I want to extract the something.gif from that string, taking into account
there could be other strings in quotes on the line and possibly other
properties in the tag
i.e. it could be <A HREF="something.gif" onMouseOver ... or anything else, the
right angle bracket need not come after the ending quote.
Anyone have any ideas how to go about doing this? I'm having a bit of trouble
doing it, thanks.
Phil.
------------------------------
Date: Tue, 01 Aug 2000 16:17:04 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Getting string
Message-Id: <54tdoskfn5urntvlavnukq91n4cafj00te@4ax.com>
Phil wrote:
><A HREF="something.gif">
>I want to extract the something.gif from that string, taking into account
>there could be other strings in quotes on the line and possibly other
>properties in the tag
>i.e. it could be <A HREF="something.gif" onMouseOver ... or anything else, the
Get HTML::Parser.
Homegrown solution:
use HTML::TokeParser;
my $p = new HTML::TokeParser("ttoc.htm");
# or \$string, or *HANDLE
while($token = $p->get_tag('a')) {
print "HREF = $token->[1]{href}\n";
}
or, using HTML::LinkExtor:
use HTML::LinkExtor;
sub printlink {
my($tag, %link) = @_;
print "$link{href}\n" if $tag eq 'a';
}
my $p = HTML::LinkExtor->new(\&printlink);
$p->parse_file("ttoc.htm");
--
Bart.
------------------------------
Date: Tue, 01 Aug 2000 16:07:39 GMT
From: aqutiv@my-deja.com
Subject: Re: Getting string
Message-Id: <8m6sk6$rp$1@nnrp1.deja.com>
In article <slrn8odpp9.bkl.root@Enigma.RedBrick.DCU.IE>,
phil@redbrick.dcu.ie wrote:
> I realise this is for the web but it's not actually a CGI question,
so I
> thought it might belong here, I hope I'm right. The problem is I have
a string
>
> <A HREF="something.gif">
> I want to extract the something.gif from that string, taking into
account
> there could be other strings in quotes on the line and possibly other
> properties in the tag
> i.e. it could be <A HREF="something.gif" onMouseOver ... or anything
else, the
> right angle bracket need not come after the ending quote.
> Anyone have any ideas how to go about doing this? I'm having a bit of
trouble
> doing it, thanks.
> Phil.
>
$string = qq{<A HREF="something.gif" onMouseOver="">};
@hrefs = ($string =~ /HREF="(.+?)"/gi);
This (untested) code should extract all href="something" in a string
(eg. an html file) into the @hrefs array.
If that's not what you want, then you should explain more details.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 01 Aug 2000 15:15:06 GMT
From: ckeith@clara.net (Colin Keith)
Subject: Re: Help with LWP
Message-Id: <_PBh5.68$DT4.2187155@nnrp2.clara.net>
In article <B5AC1473.81AF%seesej@uswest.net>, Jeffrey <seesej@uswest.net> wrote:
>My first question is. Why am I getting the code 500 in the first place?
Code 500 meaning the status code of the web server you're connecting to ? If
so thats "Internal server error". Basically the server couldn't get any data
back to you because something broken. If you get this all of the time,
particularly for static HTML pages (rather than CGI scripts) then you might
want to check out if you're forced through a proxy server or some such.
>Secondly, what is the path_query.al and if I need it where can I get it.
Me either. Although AutoSplit mentions something about deleting .al files
after its used them ... ?
>######################################################
># Create a user agent object
[snip]
This code works for me. Erm.. version problem/reinstallation time ?
For me:
perl -MLWP::UserAgent -e 'print $LWP::UserAgent::VERSION;'
1.73
If you telnet to port 80 on www.excite.com, and type "GET / HTTP/1.0" (and
hit enter twice) do you get anything back?
Col.
---
Colin Keith
Systems Administrator
Network Operations Team
ClaraNET (UK) Ltd. NOC
------------------------------
Date: 1 Aug 2000 15:40:24 GMT
From: Tina Mueller <tina@streetmail.com>
Subject: Re: How to recognize triplicates
Message-Id: <8m6r18$5srk6$3@ID-24002.news.cis.dfn.de>
hi,
Keith Calvert Ivey <kcivey@cpcug.org> wrote:
> Tina Mueller <tina@streetmail.com> wrote:
>>Tim Conrow <tim@ipac.caltech.edu> wrote:
>>> This not-very-succinct code will find only triples, *not*
>>> quadruples, quintuples, etc.
>>
>>> $a="baaab 111111 222 bbbb ccc 123444321 xzzz";
>>> while($a=~m/(\d|\w)(?=\1\1)/g) {
>>> print "match: $1$1$1"
>>> if (pos($a)==1 || substr($a,pos($a)-2,1) ne $1) &&
>>> (pos($a)==length($a)-1 || substr($a,pos($a)+2,1) ne $1);
>>> }
>>
>>> There must be a better way ... ?
>>
>>/(\w)\1{2,}/
> That will match "111" and "bbb" in Tim's example string.
when i tried it out on the following string
$s = "baaab 111111 222 bbbb ccc 123444321 xzzz";
@a = ($a =~ m/(\w)\1{2,}/g);
it returned:
a 1 2 b c 4 z
that's what i wanted (the intention was, what, if the poster
wants to find not just triplicates, but everything what is
repeated more than 2 times)
tina
--
http://tinita.de \ enter__| |__the___ _ _ ___
tina's moviedatabase \ / _` / _ \/ _ \ '_(_-< of
search & add comments \ \ _,_\ __/\ __/_| /__/ perception
please no answers via email unless followup is set to poster.
------------------------------
Date: Tue, 1 Aug 2000 17:25:27 +0100
From: "Phil Latio" <globalcon2@myhouse.com>
Subject: I have an idea but will it work ?
Message-Id: <8m6tgc$606$1@plutonium.btinternet.com>
Apart from posting ridiculous messages in newsgroups, I run a small printing
business in North Yorkshire (UK) and have installed a form on my website for
customers to request printing prices which works fine. However, I would now
like to display the price of the printing job dynamically.
Could I create a 5 field flat file database something like below with a line
per record and then have a perl script that would search the database on the
first 4 fields from the values entered by the customer (look up feature?)
and drop in the price automatically.
COLOUR,WEIGHT,SIDED,QUANTITY,PRICE
white, 80gsm, s/sided, 1000, £40.00
white, 80gsm, s/sided, 2500, £75.00
etc
etc
I reckon this should be quite straightforward but are there any pitfalls or
alternative methods I should consider before embarking on my first major bit
of perl programming ?
Cheers
Phil
------------------------------
Date: 1 Aug 2000 15:40:45 GMT
From: vek@pharmnl.ohout.pharmapartners.nl (Villy Kruse)
Subject: Re: Is "exit()" really necessary?
Message-Id: <slrn8odrrg.hum.vek@pharmnl.ohout.pharmapartners.nl>
On 1 Aug 2000 10:59:02 -0000,
Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
>Tim <SPAM+indigo@dimensional.com> wrote in comp.lang.perl.misc:
>>bart.lateur@skynet.be (Bart Lateur) wrote in
>
>[...]
>
>>Plus there was a CERT advisory this spring concerning a security hole
>>if you fail to check the return value of exit.
>
>Huh? How does this apply? The return value of exit can only be
>checked by a program that calls yours because exit, well, exits.
>
Unless for some unknown and obscure reasons should choose not to exit.
Exec might return, even if you don't expect it to, but that is a
different story.
Villy
------------------------------
Date: Tue, 01 Aug 2000 12:37:15 -0400
From: Marshall Dudley <mdudley@execonn.com>
Subject: LWP::UserAgent timeout problem
Message-Id: <3986FCBB.852B95E2@execonn.com>
I am trying to use LWP to process a POST operation to another script. I
am having a problem with the connection timing out within a second,
before the second script can complete it's operation.
The code is simple:
print "Content-type: text/html\n\n";
$url="http://www.emailmillion.com/cgi-bin/mail";
use LWP::UserAgent;
$ua = new LWP::UserAgent;
#$ua->timeout( 200 );
#local $SIG{PIPE} = 'IGNORE';
$ua->agent("AgentName/0.1 " . $ua->agent);
my $req = new HTTP::Request POST => $url;
$req->content_type('application/x-www-form-urlencoded');
$query=$buffer;
$req->content($query);
my $res = $ua->request($req);
if ($res->is_success) {
$q1 = $res->content;
print $q1;
}
Other messages have suggested the addition of the timeout or $SIG(PIPE)
lines, but they do nothing to prevent the problem. How can I get LWP to
not send a kill signal to the process immediately after the post?
http://emailmillion.com/cgi-bin/mail works fine.
http://emailmillion.com/cgi-bin/compose says it got a kill signal.
Thanks,
Marshall
------------------------------
Date: Tue, 01 Aug 2000 12:58:28 -0400
From: Marshall Dudley <mdudley@execonn.com>
Subject: Re: LWP::UserAgent timeout problem
Message-Id: <398701B4.7BF12CE3@execonn.com>
Never mind, please ignore this question. Found the problem occurs if you
have a null query string for the POST.
Marshall
Marshall Dudley wrote:
> I am trying to use LWP to process a POST operation to another script. I
> am having a problem with the connection timing out within a second,
> before the second script can complete it's operation.
>
> The code is simple:
>
> print "Content-type: text/html\n\n";
> $url="http://www.emailmillion.com/cgi-bin/mail";
> use LWP::UserAgent;
> $ua = new LWP::UserAgent;
> #$ua->timeout( 200 );
> #local $SIG{PIPE} = 'IGNORE';
> $ua->agent("AgentName/0.1 " . $ua->agent);
> my $req = new HTTP::Request POST => $url;
> $req->content_type('application/x-www-form-urlencoded');
> $query=$buffer;
> $req->content($query);
> my $res = $ua->request($req);
>
> if ($res->is_success) {
> $q1 = $res->content;
> print $q1;
> }
>
> Other messages have suggested the addition of the timeout or $SIG(PIPE)
> lines, but they do nothing to prevent the problem. How can I get LWP to
> not send a kill signal to the process immediately after the post?
>
> http://emailmillion.com/cgi-bin/mail works fine.
> http://emailmillion.com/cgi-bin/compose says it got a kill signal.
>
> Thanks,
>
> Marshall
------------------------------
Date: Tue, 01 Aug 2000 11:20:46 -0500
From: Russ Jones <russ_jones@rac.ray.com>
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <3986F8DE.A6F3F294@rac.ray.com>
president@whitehouse.gov wrote:
>
> Oh for fucks sake! Are you trying to get help with your Perl situation, or are you
> trying to mutually kill-file everyone?
>
Pretty brave words for someone that's afraid to post under his own
name.
(Russ hops on the plonk bandwagon)
--
Russ Jones - HP OpenView IT/Operatons support
Raytheon Aircraft Company, Wichita KS
russ_jones@rac.ray.com 316-676-0747
Quae narravi, nullo modo negabo. - Catullus
------------------------------
Date: Tue, 01 Aug 2000 16:18:47 GMT
From: tbalazs-this-must-go@netcomuk.co.uk (Tony Balazs)
Subject: Newbie: Tables problem
Message-Id: <3986f848.30278231@1.0.0.119>
Perhaps you guys can see a way to do the following.
The situation is this:
I have a data file update.dat which contains the text:
a,b,c,d,e
f,g,h,i,j
(not really, but it makes explanation easier).
My CGI code is:
#!/usr/bin/perl -w
use strict;
use CGI qw(:all);
print header();
if (param("hidden") eq "one") { #load if opening form has been filled
out
my @kept = param("kept");
my $kept_list = join(p, @kept);
print start_form;
print p(hidden(-name=>"hidden2", -value=>"two"));
print p("These are the vacancies you have chosen to keep:");
print p($kept_list);
print p("Please press CONTINUE or use your browser to go back and
make changes.");
print p(submit("continue"),reset("start again"));
print p(hidden(-name=> "kept_table", -value=>\@kept));
print end_form;
}elsif (param("hidden2") eq "two") { #load if form 2 has been filled
out
#Major headache here!!!
} else # print opening form
{
print h1("These are your current vacancies:");
open (JOBS, "/usr/local/www/dats/update.dat") || die "Can't open!:
$!";
print "\n";
print hr();
my $n = 0;
my @z = undef;
my @zz = undef;
my @jjobs = undef;
while (my $jobs = <JOBS>){
chomp($jobs);
my @jobs = split/,/,$jobs;
my $a = $jobs[0];
my $b = $jobs[1];
my $c = $jobs[2];
my $d = $jobs[3];
my $e = $jobs[4];
my $f = $jobs[5];
my $z = $a." ".$b." ".$c." ".$d." ".$e;
@z = (@z,$z);
print start_form;
}
(my $x,@z) = @z;
print p(hidden(-name=>"hidden",-value=>"one"));
print
p(checkbox_group(-name=>"kept",-value=>\@z,-checked=>1,-label=>"",linebreak=>1
));
print hr();
print p("Clear the boxes for those vacancies you wish to remove.");
print p(submit("continue"),reset("start again"));
print end_form;
}
print end_html();
close (JOBS);
#END
Where I have written "major headache here!" I want the following to
appear:
A table with those rows that were selected with the check boxes; e.g.
if only the first row was chosen then the table would have one row;
with a b c d and e, each in one column. If both rows had been selected
then there would be 2 rows in the table, with f underneath a, etc.
I have been trying for days to get this to work but just keep going
round in circles. I have not shown you all my (failed) attempts.
Any help would once again be much appreciated.
Tony.
------------------------------
Date: Tue, 01 Aug 2000 12:06:01 -0400
From: Mike Styne <mstyne@bownemgmt.com>
Subject: Re: On upgrading Perl...
Message-Id: <3986F569.7EBC2C5B@bownemgmt.com>
> Many Linux distributions put their specially configured
> perls in /usr/bin.
I would assume it would be wisest to just keep the distribution's
installation intact and wait until Perl 6 to upgrade. Seeing as though I
wanted to upgrade just for the sake of having the latest version, (I
don't have any incompatibility issues -yet-) perhaps it's not really
necessary. However, if anyone has an opinion in the contrary, please
don't be shy.
Regards,
Mike
--
miracle: an extremely outstanding or unusual event, thing, or
accomplishment.
-- Webster's Dictionary
------------------------------
Date: Tue, 01 Aug 2000 16:15:36 GMT
From: gbacon@HiWAAY.net (Greg Bacon)
Subject: Re: On upgrading Perl...
Message-Id: <sodtt8todbm8@corp.supernews.com>
In article <3986F569.7EBC2C5B@bownemgmt.com>,
Mike Styne <mstyne@bownemgmt.com> wrote:
: > Many Linux distributions put their specially configured
: > perls in /usr/bin.
:
: I would assume it would be wisest to just keep the distribution's
: installation intact and wait until Perl 6 to upgrade.
Why? Simply install your perl upgrades in /usr/local.
Greg
--
The circle algorithm was invented by mistake when I tried to save one
register in a display hack!
-- Minsky
------------------------------
Date: Tue, 01 Aug 2000 13:21:12 -0400
From: Mike Styne <mstyne@bownemgmt.com>
Subject: Re: On upgrading Perl...
Message-Id: <39870708.E5433C68@bownemgmt.com>
Greg Bacon wrote:
>
> Why? Simply install your perl upgrades in /usr/local.
I was under the impression that installing to /usr/local (while still
having the distribution's older version at /usr) would cause problems.
If you're fairly sure it won't, then that's what i'll do. Thanks for the
help.
Mike
--
As for the women, though we scorn and flout 'em,
We may live with, but cannot live without 'em.
-- Frederic Reynolds
------------------------------
Date: Tue, 1 Aug 2000 09:13:34 -0600
From: "Kris" <kaweed@micron.com>
Subject: perl module with rcp
Message-Id: <8m6pgf$pk5$1@admin-srv3.micron.com>
Hello-
Currently, I am using perl to issue rcp commands to copy files from a
remote system. I am using the system() call to do this. I was wondering if
there are any modules with rcp so that I can use strictly perl rather than
calling a command to the system shell. Any ideas? Thanks!
Kris
------------------------------
Date: Tue, 01 Aug 2000 10:20:07 -0600
From: Travis Stevens <Travis.Stevens@noaa.gov>
Subject: Perl Web Security
Message-Id: <3986F8B7.73A46523@noaa.gov>
Hello people!
Could someone recommend a website that outlines the do's and don't of
putting perl scripts on the web.
thank you much!
-Travex
------------------------------
Date: 1 Aug 2000 12:19:21 -0500
From: logan@cs.utexas.edu (Logan Shaw)
Subject: Re: Perl Web Security
Message-Id: <8m70qp$b2n$1@provolone.cs.utexas.edu>
In article <3986F8B7.73A46523@noaa.gov>,
Travis Stevens <Travis.Stevens@noaa.gov> wrote:
>Could someone recommend a website that outlines the do's and don't of
>putting perl scripts on the web.
Funny, I just ran across this site when I was posting a CGI I mentioned
in another article (the one that demonstrates what happens with
different browsers when you have textareas with newlines).
Anyway...
http://webreview.com/wr/pub/97/08/08/bookshelf/
That is a link to a list of "21 Rules for Writing Secure CGI Programs".
The 21 rules aren't specific to Perl, but there is a link at the
bottom to 5 additional rules that are specific to Perl.
- logan
------------------------------
Date: Tue, 1 Aug 2000 10:34:19 -0700
From: "Lauren Smith" <lauren_smith13@hotmail.com>
Subject: Re: Perl Web Security
Message-Id: <8m71lf$6ap$1@brokaw.wa.com>
Travis Stevens <Travis.Stevens@noaa.gov> wrote in message
news:3986F8B7.73A46523@noaa.gov...
> Hello people!
>
> Could someone recommend a website that outlines the do's and don't of
> putting perl scripts on the web.
www.google.com
Maybe search for something like "CGI security" or "Perl security". Use your
imagination.
Lauren
print grep ord $_,map{y/a-z//d;$x.="+ $_";chr(eval $x)}
'J74u43-s2tA1-84n33o45th1er5-12-P3e13-82r48l21H13-a6-76
c40k25er2wx8-y6z13-81'=~m#([^!\n]{3})#g#tr/-0-9//d;print
------------------------------
Date: Tue, 1 Aug 2000 11:22:03 -0400
From: "Mokoto Mizuhara" <zappa@inetnow.net>
Subject: Perl Win32 issues
Message-Id: <5ZBh5.37688$B33.101374@dfw-read.news.verio.net>
Sorry if this is off topic but I have been trying to solve this problem for
a week with no success.
I am trying to compile a small Perl program under Winnt. Perlcc is
generating the C code but it fails during the build with the following
error:
D:\adtserver2.1>perlcc adtserver.pl
----------------------------------------------------------------------------
----
Compiling adtserver.pl:
----------------------------------------------------------------------------
----
Making C(adtserver.pl.c) for adtserver.pl!
C:\perl\5.00503\bin\MSWin32-x86\perl.exe -IC:\perl\5.00503\lib/MSWin32-x86 -
IC:\
perl\5.00503\lib -IC:\perl\site\5.00503\lib -I. -MO=CC,-oadtserver.pl.c
adtserve
r.pl
adtserver.pl syntax OK
Compiling C(adtserver) for adtserver.pl!
Couldn't open !
D:\adtserver2.1>
This happens with the Perl binary distribution at http://www.perl.org/CPAN .
I also tried building the sources and using them but I had the same problem.
However, I am able to compile this same program under Linux using the same
version of Perl (version 5.005_03) with no problems. Any help would be
greatly appreciated.
Thanks,
-Mokoto Mizuhara
zappa@inetnow.net
------------------------------
Date: Tue, 01 Aug 2000 17:10:57 +0200
From: Timpie <tim.schelfhout@alcatel.be>
Subject: perldoc error
Message-Id: <3986E880.16625FF4@alcatel.be>
Recently installed perl v5.6 (via cpan) and now every time I invoke
perldoc I get the following error :
Superuser must not run /usr/local/bin/perldoc without security audit and
tainted checks
Any ideas ? Is it a compilation issue ?
--
Tim Schelfhout
Unix SysAdmin
Alcanet Benelux International
Tel: +32 3 241 68 46
Fax: +32 3 241 68 99
------------------------------
Date: 1 Aug 2000 17:50:32 GMT
From: Tina Mueller <tina@streetmail.com>
Subject: Re: Please unconfuse me.... if (<>)...
Message-Id: <8m72l8$5srk6$4@ID-24002.news.cis.dfn.de>
Keith Calvert Ivey <kcivey@cpcug.org> wrote:
> Tina Mueller <tina@streetmail.com> wrote:
>>while (<>) {}
>>is like doing
>>while ($_ = <>) {}
>>(the same with for)
> Actually, it's like doing
> while (defined($_ = <>)) {}
uhm, yes, i forgot... =(
tina
--
http://tinita.de \ enter__| |__the___ _ _ ___
tina's moviedatabase \ / _` / _ \/ _ \ '_(_-< of
search & add comments \ \ _,_\ __/\ __/_| /__/ perception
please no answers via email unless followup is set to poster.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V9 Issue 3871
**************************************
