[18456] in Perl-Users-Digest
Perl-Users Digest, Issue: 624 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Apr 4 03:05:47 2001
Date: Wed, 4 Apr 2001 00:05:13 -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: <986367912-v10-i624@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 4 Apr 2001 Volume: 10 Number: 624
Today's topics:
Re: array control issues (Chris Fedde)
Re: Deleting one line from a file <uri@sysarch.com>
fetch CGI::Cookie trouble... phantom@yukonmfg.com
Re: fetch CGI::Cookie trouble... <webmaster@webdragon.unmunge.net>
Re: Force Integer Division?? <mnemotronic@mind\no-spam/spring.com>
Re: Funny behavior? <jbritain@home.com>
Re: help needed with sorting Hash (Gwyn Judd)
Re: help needed with sorting Hash <juex@my-deja.com>
Re: help needed with sorting Hash <uri@sysarch.com>
Installing Perl on Win98 <eokec@mediaone.net>
Re: Installing Perl on Win98 <wyzelli@yahoo.com>
Re: Intermediate DBI/CGI books/examples/etc.? (Chris Fedde)
Re: Perl Timer! <uri@sysarch.com>
Re: Perl Timer! <philipg@atl.mediaonet.net>
Re: Perl Timer! <cmon_209@hotmail.com>
Re: Please Flame my Benchmark: open vs. cat (Dave Bailey)
Re: printing colons <goldbb2@earthlink.net>
Re: regular expression aa versus a{2} <don.koks@defence.gov.auREMOVE_CAPITALS>
Re: regular expression aa versus a{2} <wyzelli@yahoo.com>
Security audit and taint checks. <rcook@pcug.org.au>
Re: Security audit and taint checks. (Logan Shaw)
Re: what are the new languages? (Jim Land)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 04 Apr 2001 04:50:13 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: array control issues
Message-Id: <9Kxy6.589$T3.189875200@news.frii.net>
In article <3ACA4BB7.13E20457@ntlworld.com>,
wayne.keenan <wayne.keenan@ntlworld.com> wrote:
>
>
>Abigail wrote:
>
>> danny webster (dsw@naughty.onetel.net.uk) wrote on MMDCCLXXII September
>> <> What im trying to do, is pull out or add a virtualhost to a file
>(httpd.conf)
>> <>
>> <> A vhost entry starts with <VirtualHost domain.com>
>> <> and ends with </VirtualHost>
>> <>
>> <> How can I go about this?
>>
>> ..
>>
>> Abigail
>
>no fair!
>
>if ..
>
if?
perl -lpe 'm|^<VirtualHost|..m|^</VirtualHost>| or next'
--
This space intentionally left blank
------------------------------
Date: Wed, 04 Apr 2001 04:27:10 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Deleting one line from a file
Message-Id: <x7n19xthls.fsf@home.sysarch.com>
NEVER POST ENCODED CODE. what a stupid idea. as if we can't read plain
text here.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture and Stem Development ------ http://www.stemsystems.com
Learn Advanced Object Oriented Perl from Damian Conway - Boston, July 10-11
Class and Registration info: http://www.sysarch.com/perl/OOP_class.html
------------------------------
Date: 3 Apr 2001 14:54:54 GMT
From: phantom@yukonmfg.com
Subject: fetch CGI::Cookie trouble...
Message-Id: <9aco7u$44o$1@news.netmar.com>
Hello,
I am having following problem: After successfully creating the cookie named
'KooKee' (I can see it in IE and Netscape), I want now to read its values,
let's say I want to read the 'pass' and 'pref2' values. This cookie should
have the 'pass' value 'mypass123' and 'pref2' = 2. Below you can see both
pieces of script I was using to both create and read the cookie.
How do I need to write my second script (the read script) in order to get all
or some values of this multivalued cookie??
It is my first attempt to write/read cookies..
Don't laugh :) Bloody newbie, I know... :)
----------------------------------------------------------------
#!/usr/bin/perl
#KooKee Creation
use CGI;
use CGI::Cookie;
#create new Cookie!
my $cookee = new CGI::Cookie(-name => 'KooKee',
-value => {
name => 'John',
pass => 'mypass123',
pref1 => 13,
pref2 => 2,
i01 => 13579,
i02 => 23579,
i03 => 33579,
i04 => 43579,
i05 => 53579,
i06 => 63579,
i07 => 73579,
i08 => 83579,
i09 => 93579,
i10 => 55579
},
-expires => '1M',
-domain => '.MyRealDomainWasHere.com',
-path => '/');
print "Set-Cookie:$cookee\n";
print "Content-Type: text/html\n\n";
print "Blah Blah.. Cookie is set now!!!";
----------------------------------------------------------------
the following piece of script is supposed to read the cookie:
----------------------------------------------------------------
#!/usr/bin/perl
use CGI;
use CGI::Cookie;
#retreive cookie
%cookies = fetch CGI::Cookie;
#the code line below only reads the first value of the cookie,
#in this case the output was: "Blah :) i01"
$hmmm = $cookies{'KooKee'}->value;
#what can I change here to get the 'pass' and the 'pref2' values instead?
print "Content-Type: text/html\n\n";
print "Blah :) $hmmm\n";
----------------------------------------------------------------
Any help is more than welcome.. Couldn't find anything on the web, or maybe I
was searching the wrong places.
Thanks in advance!
Jeremy.
----- Posted via NewsOne.Net: Free (anonymous) Usenet News via the Web -----
http://newsone.net/ -- Free reading and anonymous posting to 60,000+ groups
NewsOne.Net prohibits users from posting spam. If this or other posts
made through NewsOne.Net violate posting guidelines, email abuse@newsone.net
------------------------------
Date: 4 Apr 2001 05:32:59 GMT
From: "Scott R. Godin" <webmaster@webdragon.unmunge.net>
Subject: Re: fetch CGI::Cookie trouble...
Message-Id: <9aebmb$h1e$0@216.155.33.93>
In article <9aco7u$44o$1@news.netmar.com>, phantom@yukonmfg.com wrote:
| Hello,
|
| I am having following problem: After successfully creating the
| cookie named 'KooKee' (I can see it in IE and Netscape), I want now
| to read its values, let's say I want to read the 'pass' and 'pref2'
| values. This cookie should have the 'pass' value 'mypass123' and
| 'pref2' = 2. Below you can see both pieces of script I was using to
| both create and read the cookie. How do I need to write my second
| script (the read script) in order to get all or some values of this
| multivalued cookie?? It is my first attempt to write/read cookies..
| Don't laugh :) Bloody newbie, I know... :)
|
[snip]
| Any help is more than welcome.. Couldn't find anything on the web,
| or maybe I was searching the wrong places.
well, the *first* places I'd send you are:
Lincoln Stein's website (as mentioned in the pod docs of CGI.pm)
<http://stein.cshl.org/WWW/software/CGI/>
and also to the pod docs for CGI::Cookie.pm itself :)
wherein you will note the following admonition:
value() is context sensitive. In a list context it will return the
current value of the cookie as an array. In a scalar context it
will return the first value of a multivalued cookie.
HTH! :)
--
unmunge e-mail here:
#!perl -w
print map {chr(ord($_)-3)} split //, "zhepdvwhuCzhegudjrq1qhw";
# ( damn spammers. *shakes fist* take a hint. =:P )
------------------------------
Date: Tue, 03 Apr 2001 22:24:50 -0600
From: pt <mnemotronic@mind\no-spam/spring.com>
Subject: Re: Force Integer Division??
Message-Id: <3ACAA212.FB4D73EC@mindspring.com>
Rickard wrote:
> Hi
>
> I read that a division of two integers should produce an integer
> answer but that isn't true on my computer.
>
> 12/10 = 1.2
>
Will "use integer" do it?
>
> How can I force Perl to perform an integer division, I want the
> answer to be simply "1".
>
> Please reply to my email:
>
> d96-rsa@d.kth.se
>
> Thanx!!!
>
> /rick
Remove the obvious anti-spam to reply.
------------------------------
Date: Wed, 04 Apr 2001 06:33:35 GMT
From: Jim Britain <jbritain@home.com>
Subject: Re: Funny behavior?
Message-Id: <Cr3KOokU2X1wKg2ptPK9fiCRJGfC@4ax.com>
[posted and mailed]
On Mon, 02 Apr 2001 10:07:03 -0700, Bryan Coon <bcoon@sequenom.com>
wrote:
>It is probably fair to say that 95% or more of what people ask here is in
>some documentation somewhere. So in that respect, most people should
>RTFM, or check the faq, etc. But for some (including myself) of us who
>are embedded in the learning curve of perl, there are of course a
>gazillion things we dont know. For example, I had no idea that 'perldoc
>-q '<<'' was the answer to my question. Perhaps it was obvious to
>everyone else out there, but not me.
>
>So in this case how am I 'supposed to check the faq'? Chris's response
>was very helpful, and I appreciate that. But telling me that I am
>supposed to check the faq, when in essense the questiion is how to find
>this in the faq is not helpful. Clearly, if I had known how to find it
>in the faq, I would not have posted it.
The FAQ for a newsgroup, language, activity, program, application.
is like "Clift's Notes".
Probably the worst answer for anyone who doesn't know about the FAQ
(it is properly capitalized) is perldoc -q "HERE DOCS", or whatever.
A newcomer needs to PRINT OUT ON REAL PAPER. The FAQ, and staple it
together for reference.
It should be the FIRST paper reference document, and the first
consulted..
That's the part that most are missing.
Print the flippin thing!! Read the flippin thing, take notes.
perldoc -q is a very idiotic way to search the FAQ if you are not
familiar with it.
You'll learn a whole lot more turning the pages.
Print it out. Stuff it in your pocket. Use it in the bathroom, take
it on your first date. Lay it beside your monitor.
It's cheaper than the manual.
------------------------------
Date: Wed, 04 Apr 2001 04:12:38 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: help needed with sorting Hash
Message-Id: <slrn9cl7pk.pvn.tjla@thislove.dyndns.org>
I was shocked! How could afshin akbari <afshin.akbari@sympatico.ca>
say such a terrible thing:
>Is there a way to to sort and print a hash based on the
>value field.
This is in the FAQ:
perldoc -q 'How do I sort a hash'
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
A lie is an abomination unto the Lord and a very present help in time
of trouble.
-Adlai Stevenson
------------------------------
Date: Tue, 3 Apr 2001 22:41:43 -0700
From: "Jürgen Exner" <juex@my-deja.com>
Subject: Re: help needed with sorting Hash
Message-Id: <3acab419@news.microsoft.com>
"afshin akbari" <afshin.akbari@sympatico.ca> wrote in message
news:3ACA0608.86016145@sympatico.ca...
> Is there a way to to sort and print a hash based on the
> value field.
No, that is not possible. Hashes don't have a sequence/order.
Therefore even the notion of "sorting a hash" is meaningless.
> suppose we have,
>
> %hash (a => 7,
> b => 1,
> c => 3);
>
> result should be:
>
> %hash (b => 1,
> c => 3,
> a => 7);
These two hashes are 100% identical. No difference whatsoever.
You may want to read up on what a hash is.
BTW: If you want to sort the CONTENT of a hash (either by key or by value)
then you may want to consult the FAQ4: How do I sort a hash?
jue
------------------------------
Date: Wed, 04 Apr 2001 06:20:40 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: help needed with sorting Hash
Message-Id: <x7itkltcco.fsf@home.sysarch.com>
>>>>> "aa" == afshin akbari <afshin.akbari@sympatico.ca> writes:
aa> Is there a way to to sort and print a hash based on the
aa> value field.
did you think you were the first or one of the few to ever ask this?
well, i have news for you, you weren't in either group. so this must be
an FAQ and it is.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture and Stem Development ------ http://www.stemsystems.com
Learn Advanced Object Oriented Perl from Damian Conway - Boston, July 10-11
Class and Registration info: http://www.sysarch.com/perl/OOP_class.html
------------------------------
Date: Wed, 04 Apr 2001 05:43:37 GMT
From: "Evelyn Okec" <eokec@mediaone.net>
Subject: Installing Perl on Win98
Message-Id: <dwyy6.135518$LO3.19200771@typhoon.we.rr.com>
I downloaded Perl Software on my Win98 machine. There are several install
files which show up in a format I am not familiar with. Which install file
do I use and what program do I associate that install file with?
Thanks,
Evelyn
------------------------------
Date: Wed, 4 Apr 2001 15:35:48 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: Installing Perl on Win98
Message-Id: <wDyy6.37$ew2.3939@vic.nntp.telstra.net>
"Evelyn Okec" <eokec@mediaone.net> wrote in message
news:dwyy6.135518$LO3.19200771@typhoon.we.rr.com...
> I downloaded Perl Software on my Win98 machine. There are several install
> files which show up in a format I am not familiar with. Which install
file
> do I use and what program do I associate that install file with?
Assuming that you downloaded from Activestate, and mean the .msi file, you
will probably need to download and install the windows installer. There are
instructions and links on Activestate's web site where you downloaded Perl
from, as to what is needed, and how to go about it.
Wyzelli
--
($a,$b,$w,$t)=(' bottle',' of beer',' on the wall','Take one down, pass it
around');
$d='$_$a$s$b$w';$e='$_$a$s$b';sub d{$h=shift;$h=~s/\$(\w+)/${$1}/g;return$h}
sub
e{return(shift!=1)?'s':''}for(reverse(1..100)){$s=e($_);$f=d($d);$g=d($e);
$c.="$f\n$g\n$t\n";$_--;$s=e($_);$e=d($d);$c.="$e\n\n";}print"$c*hic*";
------------------------------
Date: Wed, 04 Apr 2001 04:33:24 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: Intermediate DBI/CGI books/examples/etc.?
Message-Id: <ouxy6.587$T3.193006592@news.frii.net>
In article <9ad20p$4lk$1@panix2.panix.com>,
Jesse Sheidlower <jester@panix.com> wrote:
>It seems that there is a gap of information that might be
>useful to many people writing Perl programs that access databases
>over the Web. The _Programming the Perl DBI_ book is very helpful
>in understanding the workings of the DBI and what it can do, but
>it doesn't have much example code that would help in setting up
>actual Web-based databases.
>
It's probably not what you are looking for. And there are many
other sites on the web that better fit your needs. But for some
useful examples that can help you get from "I should be able to do
this." to "That's not the way I would have done it." take a look at
Randal L. Schwartz's Web Techniques columns.
http://www.stonehenge.com/merlyn/WebTechniques/
And some other data in that general area.
Good Luck
chris
--
This space intentionally left blank
------------------------------
Date: Wed, 04 Apr 2001 06:23:52 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Perl Timer!
Message-Id: <x7g0fptc7a.fsf@home.sysarch.com>
>>>>> "H" == Hernux <hernux@etherac.com.ar> writes:
H> Hi, is there a way to make a timer in perl???
H> like settimeout function in javascript.......
NO!! javascript is a much more powerful language than perl. the concept
of timers in perl makes little sense as no one uses perl for anything in
the real world, unlike javascript which is used in many complex projects
on many platforms and with a worldwide developer community and archive
of modules.
uri
<BELATED SARCASM TAG>
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture and Stem Development ------ http://www.stemsystems.com
Learn Advanced Object Oriented Perl from Damian Conway - Boston, July 10-11
Class and Registration info: http://www.sysarch.com/perl/OOP_class.html
------------------------------
Date: Wed, 04 Apr 2001 06:31:32 GMT
From: "Philip Garrett" <philipg@atl.mediaonet.net>
Subject: Re: Perl Timer!
Message-Id: <8dzy6.5324$uo6.2060144@typhoon.southeast.rr.com>
----- Original Message -----
From: "Hernux" <hernux@etherac.com.ar>
Newsgroups: comp.lang.perl.misc
Sent: Tuesday, April 03, 2001 10:23 PM
Subject: Perl Timer!
> Hi, is there a way to make a timer in perl???
>
> like settimeout function in javascript.......
If you're running under some *nix, try:
perldoc -f alarm
perldoc perlvar (look for %SIG)
A quick example:
sub say_hello {
print "Hello, world!\n";
}
# tell the program to call say_hello() when it receives an alarm
$SIG{ALRM} = \&say_hello;
alarm(5); # set the alarm
sleep; # wait for the alarm
print "Goodbye, world!\n";
hth,
p
------------------------------
Date: Wed, 04 Apr 2001 06:51:57 GMT
From: Chandramohan Neelakantan<cmon_209@hotmail.com>
Subject: Re: Perl Timer!
Message-Id: <hwzy6.1251$jz.107956@www.newsranger.com>
In article <9ae0kf$1oc$1@taliesin.netcom.net.uk>, Hernux says...
>
>Hi, is there a way to make a timer in perl???
>
>like settimeout function in javascript.......
>
perldoc -f alarm
on your Unix prompt should help you.
regards
Chandramohan Neelakantan
------------------------------
Date: 04 Apr 2001 05:24:59 GMT
From: dave@sydney.daveb.net (Dave Bailey)
Subject: Re: Please Flame my Benchmark: open vs. cat
Message-Id: <slrn9cl1o4.7hg.dave@sydney.daveb.net>
On Wed, 04 Apr 2001 04:00:24 GMT, Gwyn Judd <tjla@guvfybir.qlaqaf.bet> wrote:
>I was shocked! How could Dave Bailey <dave@sydney.daveb.net>
>say such a terrible thing:
>
>>The repetition merely serves to magnify the time difference between the
>>two methods to the point where it is resolvable. There is no implication
>
>But that isn't realistic. If you cannot discern a difference with
>realistic benchmarks so that you have to modify them in unnatural ways
>(such as reading in the same file 10000 times) then that suggests to me
>that the two things you are trying to compare really aren't that
>different in performance.
No. People do tests like this all the time when benchmarking kernel
system calls. See http://www.kegel.com/dkftpbench/Poller_bench.html
for an example.
>Perhaps if you could show me that opening a number of different sized
>files spread over different disks showed a consisitent noticable speed
>increase, then that would be a worthwhile benchmark. Oh wait, that was
>what Abigail was saying before now wasn't it?
That doesn't isolate the difference between the two methods, it merely
adds a constant to the elapsed time for both tests, which washes out the
comparison and renders the benchmark useless.
--
Dave Bailey
davidb54@yahoo.com
------------------------------
Date: Wed, 04 Apr 2001 04:22:04 GMT
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: printing colons
Message-Id: <3ACAA226.7DF582C7@earthlink.net>
Others have said some of this, but I'm putting everything all together:)
Ken Gerdes wrote:
>
> Hi,
>
> I am having some strange trouble printing a colon in a string in Perl.
> This is the part of my script that is giving me trouble:
>
> # if the file is a java file or jsp, just copy it
> if($_ =~ /\.jsp|\.java/){
This should be anchored to the end of the string, otherwise if a file is
named foo.jspblah, it will match. Also, if the string you are searching
is in $_, you don't need to mention it explicitly. Thirdly, you should
probably put one \. at the beginning, and one $ at the end, and combine
the jsp and java inside a pair of parens.
if( /\.(jsp|java)$/ ) {
> $pathtofile = $_;
Where's this variable declared? Is it global, is it used elsewhere, is
strict on? This should probably be "my $pathtofile = $_;"
> chop($pathtofile);
You should generally use chomp for removing a newline, unless you are
absolutely positive that what you want is to remove exactly one
character.
> print "\/usr\/local\/bin\/scp webl\@$fromhost\:";
This suffers from leaning toothpick syndrome. You do not need a
backslash before each *forward*slash, only before backslashes. Also,
you should have full paths somewhere up at the top of the file, not as
literal parts of strings.
print "/usr/local/bin/scp webl\@$fromhost:";
The \ is still needed before @, because it would otherwise be
interpreted as dereferencing an array ref in $fromhost (which would be
wrong). The following would be better:
Put this way near the top of your program, just after "use strict;" :
use constant SCP => "/usr/local/bin/scp";
Replace the print line with the following one:
print SCP, 'webl@', $fromhost, ":";
Putting webl@ in '' instead of "" prevents any confusion about the @
> #print "$pathtofile\n";
If you're commenting this out, then you need to add a newline somewhere
above, like as part of the ":" string.
> } else {
> }
>
> This code reads an input file, and determines what command to print
> out based on file extension. My output should look like this:
>
> /usr/local/bin/scp webl@bedfellow:/path/to/file
>
> Instead, I am getting this:
>
> :[ken@binkley perl]$ bl@bedfellow
>
> It is putting the colon at the beginning of the line, followed by a
> prompt, then the rest of the stuff! I don't get this at all!
What's probably happening is: it prints the scp path, then webl@, then
$fromhost, which for some reason has a \r on the end, which moves the
prompt to the beginning of the line, and then the colon.
Then, your program exits, returning control to the shell, which then
prints a prompt, overwriting most of the scp path, and the first two
letters of webl.
> I tried backslashing the colon, putting it on a separate line, etc,
> but nothing works. How can I get it to print at the end of the
> statement, as above?
Get rid of the \r which has somehow gotten on the end of $fromhost.
It's probably from doing chop instead of chomp.
> Please e-mail me with any answers at ken@ci2i.org.
Sorry. Post it here, read it here.
Anyways, a better, slightly smaller, version of your program would be:
#!/usr/local/bin/env perl -w
use strict;
--
Sometimes the journey *is* its own reward--but not when you're trying to
get to the bathroom in time.
------------------------------
Date: Wed, 04 Apr 2001 13:47:33 +0930
From: Don Koks <don.koks@defence.gov.auREMOVE_CAPITALS>
Subject: Re: regular expression aa versus a{2}
Message-Id: <3ACAA05D.6796FB45@defence.gov.auREMOVE_CAPITALS>
Since my perl appears not to work, I should add that perl -v gives
5.005_01 built for PA-RISC2.0
and it runs on HP-UX unix.
Don
------------------------------
Date: Wed, 4 Apr 2001 14:22:05 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: regular expression aa versus a{2}
Message-Id: <qyxy6.22$ew2.3628@vic.nntp.telstra.net>
"Don Koks" <don.koks@defence.gov.auREMOVE_CAPITALS> wrote in message
news:3ACA9B3D.82D20011@defence.gov.auREMOVE_CAPITALS...
> Thanks people, I go with the reply that said my perl is broken. Here is a
> run of the code:
>
> ~/Perl: cat zaab.pl
> #!/usr/bin/perl -w
>
> if ("zaab" =~ /([^a]*)(a{2})b/) { print "1: $1, $2\n"; }
> if ("zaab" =~ /([^a]*)(aa)b/) { print "2: $1, $2\n"; }
> if ("zaab" =~ /([^a]*)(a{2})/) { print "3: $1, $2\n"; }
> ~/Perl: zaab.pl
> 2: z, aa
> 3: z, aa
> ~/Perl:
>
> How's that?
1: z, aa
2: z, aa
3: z, aa
on mine...
This is perl, v5.6.0 built for MSWin32-x86-multi-threa
(with 1 registered patch, see perl -V for more detail)
Wyzelli
--
#Modified from the original by Jim Menard
for(reverse(1..100)){$s=($_!=1)? 's':'';print"$_ bottle$s of beer on the
wall,\n";
print"$_ bottle$s of beer,\nTake one down, pass it around,\n";
$_--;$s=($_==1)?'':'s';print"$_ bottle$s of beer on the
wall\n\n";}print'*burp*';
------------------------------
Date: Wed, 04 Apr 2001 14:51:20 +1000
From: Owen Cook <rcook@pcug.org.au>
Subject: Security audit and taint checks.
Message-Id: <7u8lctogdr1pijm0up9vucjmqab1q2e5cu@4ax.com>
This message is more of an embuggerance than anything else.
[root@home 5.6.0]# perldoc CPAN
Superuser must not run /usr/bin/perldoc without security audit and taint
checks.
I would love to deactivate this message and its effect on trying to do a
perdoc as root. Is this possible, and if so, How?
TIA
Owen
------------------------------
Date: 4 Apr 2001 00:52:49 -0500
From: logan@cs.utexas.edu (Logan Shaw)
Subject: Re: Security audit and taint checks.
Message-Id: <9aecrh$plf$1@boomer.cs.utexas.edu>
In article <7u8lctogdr1pijm0up9vucjmqab1q2e5cu@4ax.com>,
Owen Cook <rcook@pcug.org.au> wrote:
>This message is more of an embuggerance than anything else.
>
>[root@home 5.6.0]# perldoc CPAN
>Superuser must not run /usr/bin/perldoc without security audit and taint
>checks.
>
>I would love to deactivate this message and its effect on trying to do a
>perdoc as root. Is this possible, and if so, How?
Why? It's there for a reason. You're running something as root
which has no need to be run as root, which is generally a bad
practice. If you want to run it as something other than root,
just do this:
su - nobody -c perldoc CPAN
If it bugs you to type that all the time, create a shell function
like this:
nobody ()
{
su nobody -c "$*"
}
Then, you can type things like this:
nobody perldoc -q shuffle
And, incidentally, this:
nobody telnet somehost
Hope that helps.
- Logan
--
whose? my your his her our their _its_
who's? I'm you're he's she's we're they're _it's_
------------------------------
Date: Wed, 04 Apr 2001 05:21:32 GMT
From: jland@bigfoot.com (Jim Land)
Subject: Re: what are the new languages?
Message-Id: <Xns907923F6jlandbigfootcom@207.106.93.83>
"Todd Smith" <todd@designsouth.net> wrote in
<9Mcy6.3720$C51.1327860@news1.rdc1.tn.home.com>:
>What's Parrot?
>
>
Parrot is a text-based GUI builder, written by Philip Hunt. It is intended
to be used by programmers writing GUI applications.
Parrot is written in Python, and licenced under the GNU GPL.
http://www.vision25.demon.co.uk/prog/parrot.html
------------------------------
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 V10 Issue 624
**************************************
