[13500] in Perl-Users-Digest
Perl-Users Digest, Issue: 910 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Sep 26 02:07:26 1999
Date: Sat, 25 Sep 1999 23:05:08 -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: <938325908-v9-i910@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sat, 25 Sep 1999 Volume: 9 Number: 910
Today's topics:
Re: Accessing Browser History (Abigail)
Re: ActivePerl, DCOM & Windows98 <kbandes@home.com>
Re: Adding commas to long numbers. (Abigail)
Re: An experienced opinion please (Abigail)
Re: Arrays?!? (Abigail)
Re: confusing localtime (Abigail)
Connecting Box to Box with the POST method? <martinc@propage.qc.ca>
Re: How to create files from CGI script? <davids@desertigloo.com>
Re: How to extract data in 'groups' (Abigail)
Re: How to find the directory a script is running from <ltl@rgsun40.viasystems.com>
Re: How to find the directory a script is running from (Kragen Sitaker)
Re: injecting "my" varibales into caller's scope (brian d foy)
Re: injecting "my" varibales into caller's scope (Ilya Zakharevich)
mSQL question about msqlimport ! tomwanginc@my-deja.com
Re: Need a unique "ID" string (Philip 'Yes, that's my address' Newton)
Re: Pie and Bar Charts? (Abigail)
References (Brian)
Re: Still RPC/Taint problems (Abigail)
Re: Still RPC/Taint problems (Kragen Sitaker)
Writing a background process.. (Hartgeorge)
Re: You should be admired, or What does this have to do <uri@sysarch.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 25 Sep 1999 22:33:02 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Accessing Browser History
Message-Id: <slrn7ur5e0.hh.abigail@alexandra.delanet.com>
SteveT (stevet@javanet.com) wrote on MMCCXVI September MCMXCIII in
<URL:news:37ED1CDB.CE07BCCE@javanet.com>:
,, Is there a way to access the browser's history using PERL?
_The browser_? Whose browser?
And it's spelled Perl, not PERL.
Abigail
--
tie $" => A; $, = " "; $\ = "\n"; @a = ("") x 2; print map {"@a"} 1 .. 4;
sub A::TIESCALAR {bless \my $A => A} # Yet Another silly JAPH by Abigail
sub A::FETCH {@q = qw /Just Another Perl Hacker/ unless @q; shift @q}
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 26 Sep 1999 03:15:41 GMT
From: Kenneth Bandes <kbandes@home.com>
Subject: Re: ActivePerl, DCOM & Windows98
Message-Id: <37ED8FFD.D42D6FA0@home.com>
Bert Blink wrote:
>
> I have been trying to install ActicePerl but keep getting the message
> "can't install ActivePerl as DCOM needs to be installed". Needless to
> say this is a malicious lie.
> ...
> Can anyone help?
You may get an answer here but you should consider an ActiveState
mailing list. Go to http://www.activeState.com/support/, check out
the FAQ, and then join one of the mailing lists - you probably want
Perl-Win32-Users. It's actually a pretty friendly list and several
ActiveState people with apparently inexhaustible patience listen and
post regularly.
Another venue to consider: the Microsoft news server,
msnews.microsoft.com, has a bunch of newsgroups related to
Windows 98 (probably the source of your problem). You might
try microsoft.public.win98.setup or one of the other 29 Win98
groups.
Ken Bandes
------------------------------
Date: 25 Sep 1999 22:33:55 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Adding commas to long numbers.
Message-Id: <slrn7ur5fj.hh.abigail@alexandra.delanet.com>
mirak63@yahoo.com (mirak63@yahoo.com) wrote on MMCCXIV September MCMXCIII
in <URL:news:37ea7ee9.82764281@news.vnet.net>:
[] Can anyone tell me a way to add the commas to long numbers?
Can't be bothered to read the FAQ, can you?
Abigail
--
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 25 Sep 1999 22:35:58 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: An experienced opinion please
Message-Id: <slrn7ur5jf.hh.abigail@alexandra.delanet.com>
Dave Wallace (dbwallace@iprimus.ca) wrote on MMCCXIII September MCMXCIII
in <URL:news:37E91D88.9050F4D4@iprimus.ca>:
$$
$$ Problem: When I access a building on the new system, everything displays
$$ as it should: header graphic, photograph, data table header, footer
$$ graphic....but not the data portion of the table. No error messages,
$$ nothing! It's as if the data file is empty and there is nothing to
$$ display, but I have checked everything that I can think of and
$$ everything seems identical to the original system. I reloaded Perl and
$$ tested it...perfect. The script must be running because the photo is
$$ getting loaded by the search variable. For some reason the data
$$ retrieval won't happen.
I guess you have a bug then.
Abigail
--
perl -wle\$_=\<\<EOT\;y/\\n/\ /\;print\; -eJust -eanother -ePerl -eHacker -eEOT
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 25 Sep 1999 22:45:21 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Arrays?!?
Message-Id: <slrn7ur653.hh.abigail@alexandra.delanet.com>
Poohba (poohba@io.com) wrote on MMCCXIII September MCMXCIII in
<URL:news:Pine.LNX.4.10.9909221233090.7611-100000@fnord.io.com>:
<> I have a data file. The first field has a number in it. When I run my
<> program it creates another record. I want to subtract the next to last
<> record first field from the last record first field. How do I do that?
You would use the - operator.
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 25 Sep 1999 22:59:20 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: confusing localtime
Message-Id: <slrn7ur6va.hh.abigail@alexandra.delanet.com>
Z. Huang (zhuang@ic.sunysb.edu) wrote on MMCCXIV September MCMXCIII in
<URL:news:37E9B10F.4ED58766@ic.sunysb.edu>:
-- Today is 9/23/99. But localtime shows 8/23/1999. I tested it on two
-- unix machines with the same result. Anyone one knows why?
Is there a reason you cannot be bothered to read the documentation?
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 26 Sep 1999 00:12:24 -0400
From: Martin Cloutier <martinc@propage.qc.ca>
Subject: Connecting Box to Box with the POST method?
Message-Id: <37ED9D28.39464AD@propage.qc.ca>
This is a multi-part message in MIME format.
--------------CAB2FAB524C5B07537D46E71
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
I am looking to establish a connection from unix box to another and
retrieve information from the second one using the POST method.
Here are my problems:
The GET method does not work with all the machines I interrogate so
I need to strengthen the GET method and develop a POST one.
Here is the code I use using the GET method in the following way:
__________________________________________________________
$URL = "GET HTTP://targetDomain.com/anyCgi.cgi?request http 1.0\n\n";
socket (SOCKET, PF_INET, SOCK_STREAM, (getprotobyname('tcp'))[2]);
connect (SOCKET, pack('Sna4x8', AF_INET, $port,
(gethostbyname($server))[4])) || die "Can't connect to server $server on
port $port.\n";
SOCKET->autoflush();
$pid = fork;
if ($pid == 0) {
while (<SOCKET>){
push(@result, <SOCKET>);
}
}
else {print SOCKET $URL; close SOCKET; exit}
___________________________________________
Can anyone tell me steer me toward the right direction?
Either through some web pages, a book...
Thanks
Martin Cloutier
--------------CAB2FAB524C5B07537D46E71
Content-Type: text/x-vcard; charset=us-ascii;
name="martinc.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Martin Cloutier
Content-Disposition: attachment;
filename="martinc.vcf"
begin:vcard
n:Cloutier;Martin
tel;fax:(514) 486-1455
tel;work:(514) 486-9849
x-mozilla-html:TRUE
adr:;;;;;;
version:2.1
email;internet:martinc@propage.qc.ca
fn:Martin Cloutier
end:vcard
--------------CAB2FAB524C5B07537D46E71--
------------------------------
Date: Sat, 25 Sep 1999 22:28:28 -0700
From: "David P. Schwartz" <davids@desertigloo.com>
Subject: Re: How to create files from CGI script?
Message-Id: <37EDAEFC.C929A798@desertigloo.com>
Kragen said:
> kirk:/home/kragen/tmp/ mkdir protected
> kirk:/home/kragen/tmp/ touch protected/bob
> kirk:/home/kragen/tmp/ chmod 666 protected
> kirk:/home/kragen/tmp/ cat >> protected/bob
> protected/bob: Permission denied.
> kirk:/home/kragen/tmp/ cat protected/bob
> cat: cannot open protected/bob
> kirk:/home/kragen/tmp/ ls protected
> bob
> kirk:/home/kragen/tmp/ touch protected/mary
> touch: cannot create protected/mary: Permission denied
> kirk:/home/kragen/tmp/ rm protected/bob
> protected/bob: Permission denied
> kirk:/home/kragen/tmp/ mv protected/bob .
> mv: cannot access protected/bob
> kirk:/home/kragen/tmp/ ls protected
> bob
> kirk:/home/kragen/tmp/ cat >> protected/mary
> protected/mary: Permission denied.
> kirk:/home/kragen/tmp/ chmod u+x bob # this was a mistake.
> chmod: WARNING: can't access bob
> kirk:/home/kragen/tmp/ chmod u+x protected/
> kirk:/home/kragen/tmp/ cat >> protected/bob
> asdf
>
This strikes me as very unusual and unexpected behavior. Is there some chance that
directories named "protected" are set to behave differently than normal? Or perhaps
even subdirs beneath tmp (it's possible, but unlikely)?
-David
------------------------------
Date: 25 Sep 1999 23:10:26 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How to extract data in 'groups'
Message-Id: <slrn7ur7k2.hh.abigail@alexandra.delanet.com>
Tom Kralidis (tom.kralidis@ccrs.nrcanDOTgc.ca) wrote on MMCCXIII
September MCMXCIII in <URL:news:37E911D4.836900A0@ccrs.nrcanDOTgc.ca>:
..
.. ..and so on. I am currently returning how many times the 'TIME' string
.. is caught, but would like to output a report like:
..
.. No of 'TIME' = 2
.. TIME
.. W = 2
.. R = 4
.. r = 5
..
.. TIME
.. W = 4
.. R = 8
.. r = 0
Well, that looks to me you're only interested in the number of times 'TIME'
appears. You print that number, then you copy the file. If that's the case,
you could use:
open FILE, "file" or die "Failed to open file: $!";
while (<FILE>) {$count ++ if $_ eq "TIME\n"}
seek FILE, 0, 0 or die "Failed to seek file: $!";
print "No of 'TIME' = $count\n";
print while <FILE>;
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 26 Sep 1999 03:24:53 GMT
From: lt lindley <ltl@rgsun40.viasystems.com>
Subject: Re: How to find the directory a script is running from
Message-Id: <7sk3m5$otk$1@rguxd.viasystems.com>
Abigail <abigail@delanet.com> wrote:
:>E. Preble (preble@ipass.net) wrote on MMCCXVI September MCMXCIII in
:><URL:news:GIbH3.243$A3.479@news.ipass.net>:
:>== Is there a command that will return the current directory of
:>== the perl program that is running?
:>==
:>== If I have a script that has several copies, in several
:>== directories. I'd like to log which one runs, but I can't
:>== seem to uncover the directory name.
:>The easiest way to prevent that is not to have several copies; what
:>would be the point?
Good point. Whatever reason Preble has for doing this, there is probably
a better way. But, this is how his/her system works now.
:>The general answer is that you cannot. Files can have multiple names,
:>so-called "hard link"s. That's why there is no remove function in Perl,
:>just an unlink one.
Abigail is, as usual, correct in absolute terms (or absolutely
correct if you prefer). But you aren't using hard links, are you?
:>You could do tricks with `pwd` and $0, but $0 can be set by the environment,
:>so you can be fooled.
But someone went to considerable trouble to write the FindBin package
so that it handles those idiosyncracies on most platforms and under
most conditions. I don't personally know of the exceptions, though
Abigail pointed out a likely one with hard links. Try it and see
if it solves your short term problem. Then resume your contemplation
of a better way. There are many roads to enlightenment. The carping
of gurus can sometimes point the way. :->
--
// Lee.Lindley /// Programmer shortage? What programmer shortage?
// @bigfoot.com /// Only *cheap* programmers are in short supply.
//////////////////// 50 cent beers are in short supply too.
------------------------------
Date: Sun, 26 Sep 1999 04:29:13 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: How to find the directory a script is running from
Message-Id: <tihH3.2549$ru1.267493@typ11.nn.bcandid.com>
In article <37ed7ee8$0$226@nntp1.ba.best.com>,
Paul J. Lucas <pjl@best.com> wrote:
> My God... Tom is WRONG! pwd will return the current working
> directory, granted; but that's not what the poster asked. He
> specifically asked for the current directory OF THE PERL
> PROGRAM THAT IS RUNNING.
That's what pwd or Cwd::cwd gives you -- the current directory of the
perl program that is running. I think you, and the original poster,
mean something else -- specifically, where did Perl load the program
from?
> I believe what you have to do is look at $0 (zero): if it's a
> full path (starts with a '/'), then THAT is the directory of
> the Perl program that is running;
Usually, yes, but the program that executed the Perl script can set $0
to whatever it wants.
The answer is: it is impossible to find the information you're looking
for in a reliable way.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Sat Sep 24 1999
44 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Sat, 25 Sep 1999 23:30:10 -0400
From: brian@pm.org (brian d foy)
Subject: Re: injecting "my" varibales into caller's scope
Message-Id: <brian-ya02408000R2509992330100001@news.panix.com>
In article <37ed63b1$0$214@nntp1.ba.best.com>, "Paul J. Lucas" <pjl@be-NOSPAM-st.com> posted:
> In <37ed0a72@cs.colorado.edu> Tom Christiansen <tchrist@mox.perl.com> writes:
> >Why doesn't your function simply return a hashref, or perhaps take an
> >argument which is a hashref to fill out?
>
> Because accessing hashes is not as fast as accessing scalars
> and I want it to be as fast as possible.
it sounds as if you might be optimizing in the wrong place. if you care
about speed at that level, you may prefer something closer to machine
language.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: 26 Sep 1999 06:05:00 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: injecting "my" varibales into caller's scope
Message-Id: <7skd2c$9e3$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was sent to Tom Christiansen
<tchrist@mox.perl.com>],
who wrote in article <37ed7f26@cs.colorado.edu>:
> :> Then write it in assembly language. The difference is virtually
> :> inconsequential. Have you measured it?
> :
> :Apparently, *you* did not.
>
> I clearly did. Read my results.
I did. They are complete junk.
> :As anyone can see, accessing hashes is 4 (or more) times slower than
> :scalars. [In different runs I get better results for 'array', but the
> :ratio 'hash'/scalar is usually closer to 5.]
>
> I disagree.
Of course, feel free to disagree with a truth. ;-)
[BTW, given other postings of you, do you think many people will be
surprised? Until I read further, I was pretty sure you are again in
your mud-throwing mode, but now I see that I was mistaken and you are
in a good mood. Thanks for a constructive posting.]
> But I most certainly
> did measure that benchmark, and those are most certainly the numbers
> I got. Perhaps you have another explanation, but those are my numbers.
> Don't tell me I didn't measure it when I absolutley did.
Nope, you did not. You could as well measure your test cases with a
measuring tape, and compare the numbers. ;-)
As anyone who was doing benchmarking knows, Benchmark in sub{}-mode is
completely useless unless the testcases are supposed to be
very-long-running. I would not never use Benchmark for anything
useful, but recently I was informed of the ''-mode of Benchmark.
The ''-mode (which I used) at least *has a chance* to give results
which are close to the reality. I will reserve my judgements until I
collect more info.
Here is what I would use for benching:
time perl -wle '$c = shift; $a = (1,"aaa") while -$c' 1e6
time perl -wle '$c = shift; $a = (1) while -$c' 1e6
Ilya
------------------------------
Date: Sun, 26 Sep 1999 04:33:25 GMT
From: tomwanginc@my-deja.com
Subject: mSQL question about msqlimport !
Message-Id: <7sk7ml$vcj$1@nnrp1.deja.com>
Dear Friends:
When I try to load a data file into my database table by using the
"msqlimport", it always gives me the following error message:
"mSQL error at line 1: Non unique value for unique index"
Here is the situation:
1. I have a database named myDB, there is a table called myTable within
myDB. In myTable, there is one field called myIndex defined as Unique
Index.
2. I use the "msqlexport myDB myTable > myTable.dat" to put the table
data into the .dat file. THis was fine.
3. However when I used "msqlimport myDB myTable < myTable.dat" to try
to load the data back, it always gives me the error message as "mSQL
error at line 1: Non unique value for unique index".
If I try to use the same method to load other files into another table
without any Unique index, it is fine, I can load the data into the
table.
I guess I need to put something into the .dat file for the unique index.
Could you give me some idea what to do? How I can load the data back? I
am pretty new to the mSQL, could you give me some more details?
Thanks a lot !
Tom
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sun, 26 Sep 1999 04:22:59 GMT
From: nospam.newton@gmx.net (Philip 'Yes, that's my address' Newton)
Subject: Re: Need a unique "ID" string
Message-Id: <37ed1324.522318176@news.nikoma.de>
On Sat, 25 Sep 1999 16:52:17 +0100, "Rasmus Rimestad"
<rasmusr@online.no> wrote:
>I think the time and the IP ($ENV{'REMOTE_ADDR'}) of the user who is
>invoking the script will be 99,99999% unique. But I'm not sure.
People using proxies may well screw you up (AOL?). This way, you might
get hundreds of hits, apparently all from the same address.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.net>
------------------------------
Date: 25 Sep 1999 23:15:11 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Pie and Bar Charts?
Message-Id: <slrn7ur7su.hh.abigail@alexandra.delanet.com>
Burt lewis (burt@ici.net) wrote on MMCCXV September MCMXCIII in
<URL:news:1zSG3.11$1F3.2154@news.goodnet.com>:
%%
%% I would really like the ability to turn some numbers into Pie or Bar Charts on
%% Unix Perl.
You could use pic.
Abigail
--
perl -wlpe '}$_=$.;{' file # Count the number of lines.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 26 Sep 1999 04:43:04 GMT
From: perl@bjclark.com (Brian)
Subject: References
Message-Id: <37ed9e7f.91665749@news.greenwood.net>
#!/usr/bin/perl -w
# See actual message below Perl.
use strict;
use CGI qw(-no_debug :standard);
my $q = new CGI;
print $q->header();
my $subject = 'Subject Line';
my $sigline = 'http://www.host.com/';
print template('admin.html');
sub template {
my ($html,$template);
$template = $_[0] or die "No template: $!";
open(TEMPLATE, "<$template") or die "Cannot open $template: $!";
while (<TEMPLATE>) { $html .= $_ };
close(TEMPLATE);
$html =~ s!\$(\w+)!${$1}!g;
return $html;
}
__END__
Hiya,
I'm only beginning to get into references, it seems, and I'm having a
very difficult time grasping the concepts presented in perlref and the
References chapter in the Blue Camel.
I have the above shortened version of a larger program that refuses to
run with 'use strict', but you probably know that by now. :-)
First, the HTML in admin.html is basically:
<input type="text" size="40" name="title" value="$subject"><br>
<input type="text" size="40" name="signature" value="$sigline">
The program above is supposed to substitute the values for the scalars
$subject and $sigline in the program into two of the form input
values. In other words, it's just recalling previous user settings
when the page is loaded.
When I test the syntax using perl -c it tells me 'syntax OK.', but
when I run the program it returns:
Can't use string ("subject") as a SCALAR ref while "strict refs"
in use at ref-example.pl line 20.
I'm pleading for any input that may help me to understand the
referencing, or lack thereof, that is happening in the particular
piece of code above.
I've read so much that I feel like I'm going to start hallucinating
any minute now. I actually thought I was getting somewhere, but now I
don't know.
Brian
------------------------------
Date: 25 Sep 1999 22:26:38 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Still RPC/Taint problems
Message-Id: <slrn7ur51v.hh.abigail@alexandra.delanet.com>
Kragen Sitaker (kragen@dnaco.net) wrote on MMCCXVI September MCMXCIII in
<URL:news:1dYG3.767$ru1.59104@typ11.nn.bcandid.com>:
@@
@@ Nobody has yet been fanatical enough to add
@@ information to the pods saying when each new feature was added;
No? perldelta and perl5004delta are just there to fill diskspace?
Just as the Changes files in the Perl source distribution?
Abigail
--
perl -wle 'print "Prime" if (0 x shift) !~ m 0^\0?$|^(\0\0+?)\1+$0'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 26 Sep 1999 04:21:49 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Still RPC/Taint problems
Message-Id: <xbhH3.2538$ru1.266980@typ11.nn.bcandid.com>
In article <slrn7ur51v.hh.abigail@alexandra.delanet.com>,
Abigail <abigail@delanet.com> wrote:
>Kragen Sitaker (kragen@dnaco.net) wrote on MMCCXVI September MCMXCIII in
><URL:news:1dYG3.767$ru1.59104@typ11.nn.bcandid.com>:
>@@
>@@ Nobody has yet been fanatical enough to add
>@@ information to the pods saying when each new feature was added;
>
>No? perldelta and perl5004delta are just there to fill diskspace?
>Just as the Changes files in the Perl source distribution?
Humor a stupid old man and show me where, in perldelta or
perl5004delta, I can find out which version of perl first turned
anonymous subs into real closures. Or which versions of perl broke
'$/ = 0777'. (It works in perl 4 and early perl 5; it works in
5.005_03; but I know there was a time when I tried it and it didn't
work. I looked it up in the manual and discovered I had to use
'undef'.)
These are the sorts of things you need to know if you really want your
code to have some chance of working, or at least being adaptable to
working, on versions of Perl older than the one you have.
Looking at Changes*, I see closures were added in 5.001, but no hint of
the $/ thing. Indeed, I don't even see any mention that the
recommended way to slurp whole files was *ever* to set it to 0777.
Changes* is about 300 pages, though, so I was grepping, not reading the
whole thing.
Now, I'm not complaining that not having the full historical saga
attached to each documentation function is an evil that must be
righted. If I felt that way, I would do something about it, like write
"enhanced" documentation. I'm just saying that, absent that kind of
information, it's perfectly reasonable to say 'require 5.005' at the
beginning of your script.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Sat Sep 24 1999
44 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 26 Sep 1999 06:02:59 GMT
From: hartgeorge@aol.com (Hartgeorge)
Subject: Writing a background process..
Message-Id: <19990926020259.23393.00002511@ng-bh1.aol.com>
Hello,
I need to write a perl program that will automatically erase a few files
everday at around 2 am. How do you do this? My concern is the program will
waste processor time since it has to check the clock to determine when to
delete the files. Is the 'nice' command the anwser or is there something you
must do in perl??
Thank You
George Hart
San Diego.
------------------------------
Date: 25 Sep 1999 23:26:40 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: You should be admired, or What does this have to do with Perl?
Message-Id: <x73dw22w0f.fsf@home.sysarch.com>
>>>>> "DW" == Dan Woods <dwoods@ucalgary.ca> writes:
DW> I check on 30 or so newsgroups (Perl, Java, Javascript, HTML, cgi,
DW> Unix, PHP, MySQL, and so on, etc) that I follow for my job duties as
DW> a sys admin and Senior Programmer Analyst (15 years of Unix/C)
DW> I must say that this is the most childish.
i gonna go and tell my daddy about you!
DW> ... definitely the worse. There's so much anger in the tone of the
DW> messages, you have to wonder what childhood trauma created such pain.
the fact that perl is more popular than any of the technologies you
mentioned? how many newbies in c.l.c ask things like how to name
variables after values? this group attracts voluminous amounts of
newbies since they all want to have their own fancy web pages and they
hear that cgi is always done in perl and perl is easy. if you put all of
them into any of your favorite groups, they would start to flame them as
well.
>> An atmosphere of exclusivity seems be bred in here, which is amazing,
>> considering the number of posts and posters in this group.
not exclusivity, but a lack of respect for those that don't do their
homework. you don't get that sort of post in very specialized groups.
DW> There's definitely a "click" group here, and god forbid you piss
DW> any of them off. If you don't like a question posted by a newbie
DW> or anyone else, simply ignore it and move on... as in "if you
DW> don't have anything nice to say, don't say anything".
s/click/clique/
or if you can't spell fancy words, don't use them.
DW> Although I can see that this "click" group has vast knowledge
DW> about Perl, obviously intelligent, it only makes them seem like
DW> high school geeks still trying to fend off being chased by the
DW> bullies. The difference between them and me is that I left the
DW> "geek" image behind and moved on with my life... married, kids,
DW> (you know) real life priorities.
but we ARE a bunch of high school geeks (with stock options and
mortgages and wives, etc.) we just don't like the script kiddies without
those things.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
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 910
*************************************
