[13498] in Perl-Users-Digest
Perl-Users Digest, Issue: 908 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Sep 25 20:07:22 1999
Date: Sat, 25 Sep 1999 17:05:07 -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: <938304307-v9-i908@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sat, 25 Sep 1999 Volume: 9 Number: 908
Today's topics:
Re: ${$hashref}[$s] and ${$hashref[$s]} <aqumsieh@matrox.com>
Best [MS|Free]DOS16-Bit/8086/640K Perl ? <secristr@my-deja.com>
Re: cookbook: nonforker <SternSZ@gmx.de>
Re: Help <irc_addict@hotmail.com>
How to find the directory a script is running from <preble@ipass.net>
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 (Bill Moseley)
Re: injecting "my" varibales into caller's scope (J. Moreno)
Re: injecting "my" varibales into caller's scope (Sean McAfee)
Re: interpolation question <aqumsieh@matrox.com>
Re: Need a unique "ID" string (Abigail)
Re: Need a unique "ID" string (Abigail)
Perl Cookbook Question <@mdo.net>
Re: Perl Cookbook Question (Randal L. Schwartz)
Re: Perl Cookbook Question (Bill Moseley)
Program API <marc@infinityinternet.com>
rotating random banners 2 at a time <dwoods@ucalgary.ca>
Re: sort depth (Abigail)
Re: weekly update suggestions (Kragen Sitaker)
Re: weekly update suggestions <dwoods@ucalgary.ca>
Re: You should be admired, or What does this have to do <dwoods@ucalgary.ca>
Re: You should be admired (Henry Penninkilampi)
Re: You should be admired (Abigail)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 25 Sep 1999 17:58:24 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: ${$hashref}[$s] and ${$hashref[$s]}
Message-Id: <x3yn1uawt4w.fsf@tigre.matrox.com>
j_chris@sprynet.com writes:
> Need to have a better understanding of the two referents in the subject
> of this question. Have read relevant parts of the Camel book and the
> perlref manpage. Have a grasp of the first (believing that it resolves
> the contents of "hashref" to point to an hash and then uses "s" as a
> subscript to pick up either a value or another referent). But when
> perlref says that ${$hashref[$s]} accesses "a variable called %hashref"
> rather than "dereferencing through $hashref to the hash it's presumably
> referencing" then I'm lost.
You are confused. Let me try to help you.
${$hashref}[$s]:
First the $hashref variable is dereferenced and then the s-th element
is extracted. Note that if $hashref is indeed a hash ref, the above
will generate a run-time error:
Not an ARRAY reference at - line x.
The reason is that once you dereference $hashref, you are treating it
as an array, trying to index the s-th element. Square brakets are used
to index arrays. You need braces {} to index hashes. So changing the
above to ${$hashref}{$s} will actually print out the value associated
with the key $s, since Perl first dereferences the reference to get
the hash back, and then indexes the $s-th key. The above is equivalent
to this:
$hashref->{$s};
${$hashref[$s]}:
In this case, $hashref does not exist. Instead, the badly-named array
@hashref is indexed to get the value of its s-th element. This element
is treated as a reference and dereferenced.
Have another look at perlref, and perldsc for some good examples.
HTH,
--Ala
------------------------------
Date: Sat, 25 Sep 1999 22:32:34 GMT
From: rcs <secristr@my-deja.com>
Subject: Best [MS|Free]DOS16-Bit/8086/640K Perl ?
Message-Id: <7sjii2$hor$1@nnrp1.deja.com>
I am learning Perl and will use lately Win32 Perl at work (until
I can get on a UNIX project) but have a lot of portable
PDA/laptop 8086/640K/16-bit class machines I would like to
also use Perl on for learing or lighter code. CPAN etal. seem
to quit at release 4.0.1.9 patch 36 -- why ? The '.EXEs are so
big there isn't much room left anyway ? Is 5.0.X unrealistic to
build without DOS extenders, 386s, etc. ? What do you
recommend ?
Thanks,
rcs
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 25 Sep 1999 20:27:25 +0200
From: Benjamin Schweizer <SternSZ@gmx.de>
Subject: Re: cookbook: nonforker
Message-Id: <m3aeqa7soi.fsf@anthrax.local.net>
+-->mjtg@cus.cam.ac.uk (M.J.T. Guy):
| In article <m3zoyd6117.fsf@anthrax.local.net>,
| Benjamin Schweizer <SternSZ@gmx.de> wrote:
| >+-->Rick Delaney <rick.delaney@home.com>:
| >| > Iīve got a non forking daemon which is pretty nice. If I mark the
| >| > following code as a comment it runs pretty nice, else Perl reports
| >| > that IO::Select has no method has_exception.
| >|
| >| If you want that method then you should upgrade your version of
| >| IO::Select to the one that has that method. Better yet, upgrade your
| >| perl since this is a standard module.
| >
| >Iīve upgraded my version from 5.005_2 to 5.005_3, but IO::Select
| >doesnīt include "has_exception". Whatīs going wrong; is IO::Select not
| >in the perl.rpm file?
|
| It's certainly in my copy of perl5.005_03. So either you've got
| a misinstalled Perl, or you have multiple Perls around and are getting
| confused about which one you're using. Try "perl -V" to make sure
| you're getting what you expect.
That reported 5.005_3 and perldoc reported the same. Iīll reinstall
Perl on Monday and hope itīll work.
regards
-Benjamin
--
Rosa Luxemburg:
"Freiheit ist immer auch die Freiheit der Andersdenkenden"
------------------------------
Date: Sat, 25 Sep 1999 17:43:19 -0400
From: "Thomas Brian Holdren" <irc_addict@hotmail.com>
Subject: Re: Help
Message-Id: <1nbH3.52$6G4.1959@cletus.bright.net>
http://www.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html
http://www.perl.com/pub/qa/How_can_I_learn_to_write_CGI_scripts?
http://www.perl.com/reference/query.cgi?tutorials
Kudos.
Makarand Kulkarni <makkulka@cisco.com> wrote in message
news:37EBE3A0.6D44DE0C@cisco.com...
> [ Ajay Khanna wrote:
>
> > "Internal Server Error". The error log file says :
> > [Fri Sep 24 11:20:04 1999] [error] [client 128.125.163.106] Premature
end
> > of script headers: /home/cgi-bin/calendar-show.pl
>
> Run you script offline and make sure that it generates the
> proper headers like
>
> content-type:text/html\n\n
>
> etc
>
> --
>
------------------------------
Date: Sat, 25 Sep 1999 18:11:16 -0400
From: "E. Preble" <preble@ipass.net>
Subject: How to find the directory a script is running from
Message-Id: <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.
Thanks ahead.
Edward
--
Datatrend Software
http://www.datatrendsoftware.com
mailto:info@datatrendsoftware.com
Grab It! Digitizer for MS Excel
Double Check It Products
AutoMail Scripts for Website Automation
----------------------------------------------------
------------------------------
Date: 25 Sep 1999 22:40:04 GMT
From: lt lindley <ltl@rgsun40.viasystems.com>
Subject: Re: How to find the directory a script is running from
Message-Id: <7sjj04$ktn$1@rguxd.viasystems.com>
E. Preble <preble@ipass.net> wrote:
:>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.
Fish: Try "perldoc FindBin".
Fishing Lesson: I couldn't remember the name of it, but found it
pretty quickly by trying "perldoc -q directory".
--
// 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: Sat, 25 Sep 1999 16:45:31 -0700
From: moseley@best.com (Bill Moseley)
Subject: Re: How to find the directory a script is running from
Message-Id: <MPG.1256fe6a1667d797989787@nntp1.ba.best.com>
E. Preble (preble@ipass.net) seems to say...
> Is there a command that will return the current directory of
> the perl program that is running?
You might see if this works:
use Cwd;
my $dir = cwd;
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Sat, 25 Sep 1999 16:40:45 -0400
From: planb@newsreaders.com (J. Moreno)
Subject: Re: injecting "my" varibales into caller's scope
Message-Id: <1dyp0qn.xge1w92ysyk7N@roxboro0-0030.dyn.interpath.net>
Tom Christiansen <tchrist@mox.perl.com> wrote:
> I will not answer anyone with a bogus address. Period. If you expect an
> answer, don't screw up your address. Apparently my killfile was not
> working as well as I'd expected it to, since I thought I was killing on
> spam anywhere in the address. Apparently it's fullname only, not address.
> I'll go back to killing the whole thing. If you expect an answer, stand
> up and take your lumps.
Well, you've probably killfiled me already so that this isn't going to
do any good, but killing on "spam" in the name doesn't just hit those
with bogus addresses, it also kills those that have a perfectly
legitimate (and deliverable) address that just happens to contain "spam"
(probably so they can better filter their mail). Better to try to
contact people that are actually using bogus addresses and convince them
to use a reserved top level domain as part of their bogus address (i.e.
"blah@blah.invalid").
--
John Moreno
------------------------------
Date: Sat, 25 Sep 1999 22:35:23 GMT
From: mcafee@waits.facilities.med.umich.edu (Sean McAfee)
Subject: Re: injecting "my" varibales into caller's scope
Message-Id: <L6cH3.1208$V7.219411@news.itd.umich.edu>
In article <37ed05b1$0$201@nntp1.ba.best.com>,
Paul J. Lucas <pjl@be-NOSPAM-st.com> wrote:
>In <DcvG3.940$V7.156747@news.itd.umich.edu> mcafee@waits.facilities.med.umich.edu (Sean McAfee) writes:
>>Why not tell us what
>>you're trying to accomplish? I guarantee you that there's a better way to
>>do what you want.
> I want the caller to call some function that executes an SQL
> query. The callee (the injector) would parse the query,
> specfically the SELECT attributes; it would then use DBI to bind
> the query resuts to "my" variables in the caller's scope.
> Normally, you have to do a SELECT, declare "my" variables, and
> do a bind. This means you specify the same attributes list 3
> times. It's ugly, verbose, and error-prone.
So all you need is to run a query that returns one row, and store the
contents of that row in some variables? Why not just write a subroutine
that executes the query and returns the row, letting you store the return
values any way you want?
sub do_query {
my $query = shift;
my $sth = $dbh->prepare($query);
$sth->execute;
$sth->fetchrow_array;
}
my ($foo, $bar, $baz) = do_query(q(
select foo, bar, baz
from mytable
where quux = 42
));
Unless the number of variables to assigned is very large, it doesn't seem
as if having to name them twice (once in Perl, once in SQL) is all that
onerous.
If you really, REALLY hate naming the variables twice, you could do
something like the following.
sub do_query {
my $query = shift;
my (@vars, %hash);
$query =~ /select (.*)/ ? (@vars = $1 =~ /\w+/g) : die "No select\n";
my $sth = $dbh->prepare($query);
$sth->execute;
@hash{@vars} = $sth->fetchrow_array;
\%hash;
}
my $row = do_query(q(
select foo, bar, baz
from mytable
where quux = 42
));
print "foo = $row->{foo}, bar = $row->{bar}, baz = $row->{baz}\n";
--
Sean McAfee mcafee@umich.edu
print eval eval eval eval eval eval eval eval eval eval eval eval eval eval
q!q@q#q$q%q^q&q*q-q=q+q|q~q:q? Just Another Perl Hacker ?:~|+=-*&^%$#@!
------------------------------
Date: Sat, 25 Sep 1999 17:39:26 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: interpolation question
Message-Id: <x3yogeqwu0h.fsf@tigre.matrox.com>
cLive hoLLoway <cLive@direct2u.co.uk> writes:
> How do I interpolate a variable into a string that is followed
> immediately by another alphanumeric???
Tell Perl explicitly what the variable name is. See below.
> eg,
>
> $word = 'wonder';
>
> $newword = "$wordful":
>
> so that $newword is 'wonderful';
$newword = "${word}ful";
> ...and no, $word.'ful' is not the answer!
why not? doesn't it give you the correct value?
> In RL, I'm looking at the interpolation being halfway down a large print
> <<_END_
Oh. I see.
HTH,
--Ala
------------------------------
Date: 25 Sep 1999 17:13:44 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Need a unique "ID" string
Message-Id: <slrn7uqimu.9b.abigail@alexandra.delanet.com>
Russ Allbery (rra@stanford.edu) wrote on MMCCXVI September MCMXCIII in
<URL:news:yl905vgj3k.fsf@windlord.stanford.edu>:
==
== Guaranteed-unique is somewhat hard, but if you use something like:
==
== time() . "-$$"
==
== you'll get a unique ID unless the process exits before a second has passed
== *and* process numbers on your system manage to repeat within the space of
== a second. A lot of Unix software that generates message IDs assumes it's
== a fairly safe bet this won't happen.
And in case you do this on multiple machines, and want to create
uniqueness overall, stick the hostname to it as well. Add the domain
name if you have multiple machines with the same name.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
-----------== 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 17:15:29 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Need a unique "ID" string
Message-Id: <slrn7uqiqj.9b.abigail@alexandra.delanet.com>
Rasmus Rimestad (rasmusr@online.no) wrote on MMCCXVI September MCMXCIII
in <URL:news:Kn5H3.519$s82.2789@news1.online.no>:
$$ 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.
Well, if you never get 2 of the 10 million AOLers (who only use a handful
of proxies) in the same second, you might be right.
But I wouldn't count on it.
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: Sat, 25 Sep 1999 18:31:42 -0400
From: "CS" <@mdo.net>
Subject: Perl Cookbook Question
Message-Id: <Q0cH3.1945$ru1.197467@typ11.nn.bcandid.com>
In example 14.3 of the Perl cookbook, I don't understand what this
particular section of code is doing.
"+<&=$fd"
It looks like some sort of dereferencing, but I'm not sure, and I'm asking
here because I'm not sure where else to look for the answer.
If someone could take a minute to explain what the above codes is doing, I
would be grateful.
Thanx in advance, Chris S.
[More complete section of code from ex 14.3]
$db = tie(%db, 'DB_File', '/tmp/foo.db', O_CREAT|O_RDWR, 0666)
or die "dbcreat /tmp/foo.db $!";
$fd = $db->fd;
# need this for locking
print "$$: db fd is $fd\n";
open(DB_FH, "+<&=$fd")
or die "dup $!";
------------------------------
Date: 25 Sep 1999 16:09:01 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Perl Cookbook Question
Message-Id: <m1g102pp0y.fsf@halfdome.holdit.com>
>>>>> "CS" == CS <@mdo.net> writes:
CS> In example 14.3 of the Perl cookbook, I don't understand what this
CS> particular section of code is doing.
CS> "+<&=$fd"
CS> It looks like some sort of dereferencing, but I'm not sure, and I'm asking
CS> here because I'm not sure where else to look for the answer.
Really? You stared at "perldoc -f open" and didn't see this?
[...]
If the filename begins with '<' or nothing, the
file is opened for input. If the filename begins
with '>', the file is truncated and opened for
output, being created if necessary. If the
filename begins with '>>', the file is opened for
appending, again being created if necessary. You
can put a '+' in front of the '>' or '<' to
indicate that you want both read and write access
to the file; thus '+<' is almost always preferred
for read/write updates--the '+>' mode would
clobber the file first. [...]
[...]
You may also, in the Bourne shell tradition,
specify an EXPR beginning with '>&', in which case
the rest of the string is interpreted as the name
of a filehandle (or file descriptor, if numeric)
to be duped and opened. You may use & after >,
>>, <, +>, +>>, and +<. The mode you specify
should match the mode of the original filehandle.
(Duping a filehandle does not take into account
any existing contents of stdio buffers.) Here is
a script that saves, redirects, and restores
STDOUT and STDERR:
#!/usr/bin/perl
open(OLDOUT, ">&STDOUT");
open(OLDERR, ">&STDERR");
open(STDOUT, ">foo.out") || die "Can't redirect stdout";
open(STDERR, ">&STDOUT") || die "Can't dup stdout";
select(STDERR); $| = 1; # make unbuffered
select(STDOUT); $| = 1; # make unbuffered
print STDOUT "stdout 1\n"; # this works for
print STDERR "stderr 1\n"; # subprocesses too
close(STDOUT);
close(STDERR);
open(STDOUT, ">&OLDOUT");
open(STDERR, ">&OLDERR");
28/Mar/1999 perl 5.005, patch 03 52
print STDOUT "stdout 2\n";
print STDERR "stderr 2\n";
If you specify '<&=N', where N is a number, then
Perl will do an equivalent of C's fdopen() of that
file descriptor; this is more parsimonious of file
descriptors. For example:
open(FILEHANDLE, "<&=$fd")
Imagine that. Right there in the docs. :)
print "Just another Perl hacker,"
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Sat, 25 Sep 1999 16:24:31 -0700
From: moseley@best.com (Bill Moseley)
Subject: Re: Perl Cookbook Question
Message-Id: <MPG.1256f989fb4e82b0989786@nntp1.ba.best.com>
"CS" <@mdo.net> ("CS" <@mdo.net>) seems to say...
> In example 14.3 of the Perl cookbook, I don't understand what this
> particular section of code is doing.
>
> open(DB_FH, "+<&=$fd")
> or die "dup $!";
perldoc -q dup
perldoc -f open
and
man fdopen
man flock
Duping a file handle, and opening it in r/w mode so there's something to
lock. I assume the read/write mode is for systems where you have to
open the file in read mode to do a share lock (man flock). But I didn't
look at the example very long.
Maybe someone can go into the details more.
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Sat, 25 Sep 1999 20:39:28 GMT
From: "Marc" <marc@infinityinternet.com>
Subject: Program API
Message-Id: <4qaH3.1388$zO4.13257@typhoon.southeast.rr.com>
Hey,
I wanted to add something like an API to my program to allow users of this
program to create their own custom modules to edit the internals of the
program. Like instead of displaying the results by date, they can make a
module to edit that and say display the results in alpha-order (or something
to that effect). Basically, like how Apache does it. There are modules to
change the way the program authenticates people (by ASCII, DBM, SQL, etc.)
but it doesn't actually edit the original source code (or so I believe).
This is what I would like to do for my program, but I can't figure out where
to start. I just need ideas and I think I could peice together the rest.
Thx,
Marc
------------------------------
Date: Sat, 25 Sep 1999 14:00:28 -0700
From: Dan Woods <dwoods@ucalgary.ca>
Subject: rotating random banners 2 at a time
Message-Id: <7sj9r3$bpq@ds2.acs.ucalgary.ca>
I've seen Perl scripts which can do rotating banners,
however I was wondering what is the most efficient
way to avoid showing the same banner twice
on a web page ? The problem is I have a list of
just 6-10 banners (not ads), and I want to display
two at a time *uniquely*.
What perl code can you provide which shows an
efficient way to handle this (I do best with
examples), such as adding counters/flags to a file.
The other solution is to simply return
two banners at once (with HTML in between) since
they are close together on the page.
Thanks...Dan.
http://www.4loops.com
------------------------------
Date: 25 Sep 1999 16:41:23 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: sort depth
Message-Id: <slrn7uqgqk.9b.abigail@alexandra.delanet.com>
Kragen Sitaker (kragen@dnaco.net) wrote on MMCCXVI September MCMXCIII in
<URL:news:HL_G3.870$ru1.81759@typ11.nn.bcandid.com>:
&& In article <slrn7uose1.faj.abigail@alexandra.delanet.com>,
&& Abigail <abigail@delanet.com> wrote:
&& >Uri Guttman (uri@sysarch.com) wrote on MMCCXIII September MCMXCIII in
&& ><URL:news:x7u2om4m9f.fsf@home.sysarch.com>:
&& >?? >>>>> "KS" == Kragen Sitaker <kragen@dnaco.net> writes:
&& >??
&& >?? KS> Lexicographic sorting will, indeed, sort "2000" ahead of "300".
&& >?? KS> However, it will sort " 300" ahead of "2000". This is why
&& >?? KS> right-justifying numeric fields is a Good Thing.
&& >??
&& >?? better to zero pad on the left than to right justify. make more sense as
&& >?? you could do numeric or string compares as desired. assuming blank sorts
&& >?? below digits works but is not nice.
&& >
&& >And neither will work well when - or + might be present. Doing string
&& >comparison on numbers is generally a bad idea.
&&
&& Well, ten's-complement might be a solution, err, ugly kludge. How do
&& *you* suggest sorting possibly-negative 23-digit numbers?
This should take care of signs, fractions and leading/trailing zeros:
map {$_ -> [0]}
sort { $a -> [1] <=> $b -> [1] or
$a -> [1] * ($a -> [2] <=> $b -> [2]) or
$a -> [1] * ($a -> [3] cmp $b -> [3]) or
$a -> [1] * ($a -> [4] cmp $b -> [4])}
map {/^\s*([-+])?\s*0*(\d*)(?:\.(\d*[1-9]))?/;
my $sign = $1 && $1 eq '-' ? -1 : 1;
my $num = $2 || 0;
my $frac = $3 || 0;
[$_, $sign, length $num, $num, $frac]}
@list;
Abigail
--
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n");
-----------== 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: Sat, 25 Sep 1999 20:30:13 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: weekly update suggestions
Message-Id: <phaH3.1789$ru1.178636@typ11.nn.bcandid.com>
In article <7sj9c6$91s@ds2.acs.ucalgary.ca>,
Dan Woods <dwoods@ucalgary.ca> wrote:
>Can you think of any way to for a Perl script to
>do this weekly without cron jobs, no telnet
>access, and avoid using CGI ?
Sure. Just have the Perl script run all the time; the provider is
likely to kill it as a runaway process, though, if they are the kind of
provider that doesn't provide access to cron.
What's wrong with running a cron job on your own machine to invoke a
CGI program?
--
<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 15:22:48 -0700
From: Dan Woods <dwoods@ucalgary.ca>
Subject: Re: weekly update suggestions
Message-Id: <7sjelj$bpo@ds2.acs.ucalgary.ca>
Kragen Sitaker wrote:
> What's wrong with running a cron job on your own machine to invoke a
> CGI program?
We have a winner :) Thanks, since I had not thought about that,
and this is certainly possible for me to do at work.
(Damn, it seems like such an easy solution now.)
Of course the one drawback I see is that hopefully no one else
finds out about the CGI, and adds an entry in their cron job
to change it every minute ;) Although I'm sure I can restrict
the script to certain domains, and use .htaccess to call it as
"user:pass@http://www.here.com/cgi-bin/x.cgi (close enough).
Thanks...Dan.
http://www.4loops.com
------------------------------
Date: Sat, 25 Sep 1999 17:09:16 -0700
From: Dan Woods <dwoods@ucalgary.ca>
Subject: Re: You should be admired, or What does this have to do with Perl?
Message-Id: <7sjkt8$dpk@ds2.acs.ucalgary.ca>
> What I am losing respect for is this newsgroup.
Agreed.
I check on 30 or so newsgroups (Perl, Java, Javascript, HTML, cgi,
Unix, PHP, MySQL, and so on, etc) that I follow for my job duties as
a sys admin and Senior Programmer Analyst (15 years of Unix/C)
I must say that this is the most childish.
> I have read some of Abigail's responses to posts, and I have found them
> to be insultlingly condescending
... definitely the worse. There's so much anger in the tone of the
messages, you have to wonder what childhood trauma created such pain.
> An atmosphere of exclusivity seems be bred in here, which is amazing,
> considering the number of posts and posters in this group.
There's definitely a "click" group here, and god forbid you piss any
of them off. If you don't like a question posted by a newbie or anyone
else, simply ignore it and move on... as in "if you don't have anything
nice to say, don't say anything".
Although I can see that this "click" group has vast knowledge about Perl,
obviously intelligent, it only makes them seem like high school geeks
still trying to fend off being chased by the bullies. The difference
between them and me is that I left the "geek" image behind and moved
on with my life... married, kids, (you know) real life priorities.
Dan.
------------------------------
Date: Sun, 26 Sep 1999 05:45:57 +0930
From: spamfree@metropolis.net.au (Henry Penninkilampi)
Subject: Re: You should be admired
Message-Id: <spamfree-2609990545570001@d6.metropolis.net.au>
In article <1105_938282441@prague_main>, Jenda@Krynicky.cz (Jenda
Krynicky) wrote:
> > In any case, if such a suggestion *is* being made about 50 times a year,
> > then that sounds like an *awful lot of people* who want to change the way
> > this group works. Rather than constantly defending the status quo, have
> > you ever *seriously* contemplated just letting 'them' have their way?
>
> Well, the question is "Would it help?"
> I dunno.
>
> For if all gurus and seasoned Perlers move to comp.lang.perl.gurus
> who will answer the questions in comp.lang.perl.newbies ? So the newbies
> would shortly follow.
...
> I'm afraid if we'd split the group this way, we would end up with an
> empty ...perl.newbies and ...perl.gurus would look the same
> ...perl.misc does now.
Good point. I hadn't thought of it in terms of a dynamic. The people
with questions follow the people with answers.
> Even if there stayed some people in ...perl.newbies how do you know if
> your question is easy or hard? How do you know if you need a guru or
> not? The question is hard for you, otherwise you would not ask. So you
> will go and post in ...perl.gurus immediately, just to be sure you get
> the best.
I think the spanner in the works is the structure of UseNet itself.
I've built and helped build a number of technical support departments in
my time and the approach that seemed to work best, over and over again,
was when you could implement a tiered hierarchy where a large number of
relatively inexperienced support officers fielded the common questions.
If that 1st tier of support couldn't resolve an issue, it was escalated up
to the next level - consisting of a significantly smaller number of
significantly more experienced support officers. If *they* couldn't
resolve the issue, it was escalated to the top level (which usually
consisted of only one or two people that knew everything). We never had a
support issue that needed more than three levels to resolve.
The advantage of the hierarchy was that users couldn't bypass tier 1
support officers and go straight to the tier 3 support officer - a support
issue could only be escalated internally and, as a result, we were able to
prevent our most valuable support staff (tier 3) from getting swamped by
common questions.
Unmoderated newsgroups don't work that way. All support officers get
exposed to all of the questions. There is no filtering, and hence load
cannot be controllably shared.
Heck, moderated newsgroups aren't like that either. To the best of my
knowledge (someone correct me if I'm wrong), there can only be one
moderator to filter articles, and 2000 a week (someone said) is just way
too much for one person.
> So we should try to lessen the load for real gurus and answer
> what we can (of course we should test our suggestions, even
> if we think we know what are we saying).
Which is trying to accomplish the same effect that seems to work best in
situations like I described above. Yes - makes sense.
Hmmm...
It's an interesting collection of dynamics, to be sure. And without
defining 'official' lines of support (via some arbitrary mechanism) I
can't see any way how we can improve the situation. (And implementing
such an arbitrary mechanism would probably cause more problems than it
solved, so I'm not suggesting we should we should even consider that.)
I think I'll shut up now and think about what's been said for a few days -
see if my subconscious can turn anything up that could possibly be
constructive.
Thanks all for your input!
Henry.
------------------------------
Date: 25 Sep 1999 16:53:34 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: You should be admired
Message-Id: <slrn7uqhhg.9b.abigail@alexandra.delanet.com>
Henry Penninkilampi (spamfree@metropolis.net.au) wrote on MMCCXVI
September MCMXCIII in <URL:news:spamfree-2509991918080001@d6.metropolis.net.au>:
==
== I can't remember *ever* seeing a subject line with CFD in it, and none of
== the threads I have been involved in have ever brought the subject up
== either. This was the first.
CFD? I've heard of RFD and CFV. But what's CFD?
== In any case, if such a suggestion *is* being made about 50 times a year,
== then that sounds like an *awful lot of people* who want to change the way
== this group works. Rather than constantly defending the status quo, have
== you ever *seriously* contemplated just letting 'them' have their way?
I won't stop them. But why should _I_ be the torch bearer if "they"
suggest a new group? A new group is often suggested, seldom to be heard
of it a second time by the same person.
If you want to go over to news.groups and start the process, be my guest.
Don't count on me doing it.
Abigail
--
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n");
-----------== 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: 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 908
*************************************
