[17506] in Perl-Users-Digest
Perl-Users Digest, Issue: 4926 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Nov 19 21:06:02 2000
Date: Sun, 19 Nov 2000 18:05:10 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <974685909-v9-i4926@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sun, 19 Nov 2000 Volume: 9 Number: 4926
Today's topics:
.htaccess + perl + getting user <nathan@nathanward.com>
Re: .htaccess + perl + getting user <bart.lateur@skynet.be>
Re: Calling Javascript from Perl - not working! fhinchey@my-deja.com
Re: DBI newbie question <mbudash@sonic.net>
Re: DBI newbie question <stevie_d38nospam@hotmail.com>
How to send back 2 or more gif, if only one cgi call? <claudej@videotron.ca>
Re: How to send back 2 or more gif, if only one cgi cal (Mark W. Schumann)
Inexplicably, "A Midsummers Day" <collin@crosslink.net>
Re: Inexplicably, "A Midsummers Day" (Martien Verbruggen)
Most easy way to get IP from a local NIC by device name <mats.pettersson@falukuriren.se>
Re: Most easy way to get IP from a local NIC by device (Martien Verbruggen)
Re: Need easy Perl help, will trade for online presenta (Al Rosetti)
Perl Illiterate <repentandspamnomoremillerdg@mindspring.com>
Re: Perl Illiterate <wyzelli@yahoo.com>
Re: Perl List Question <Juha.Laiho@iki.fi>
PerlScript and ASP <toddm@waltz.rahul.net>
Re: PerlScript and ASP (Mark W. Schumann)
Re: regexp question (Garry Williams)
Re: regexp question (Tad McClellan)
Re: regexp question <andyw2@nospam.btconnect.com>
Re: Serial Port (Mark W. Schumann)
What is a Junior Perl Programmer? <brannon@lnc.usc.edu>
Re: What is a Junior Perl Programmer? <rstarr@pobox.com>
Re: What is a Junior Perl Programmer? (Randal L. Schwartz)
Re: What is a Junior Perl Programmer? <flavell@mail.cern.ch>
Re: What is a Junior Perl Programmer? <bowman@montana.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 20 Nov 2000 13:16:00 +1300
From: "Nathan Ward" <nathan@nathanward.com>
Subject: .htaccess + perl + getting user
Message-Id: <rb_R5.20$rY8f.524493@news.xtra.co.nz>
ok, i have a site hosted on a free server (virtualave) and hav setup
.htaccess passwording etc etc. i am using it on a message board and want to
be able to retrieve the user name that is entered in the login dialog. this
is not strictly a perl question and for that i aplologise, but i need to get
the information into a perl script.
thanx in advance
------------------------------
Date: Mon, 20 Nov 2000 00:30:24 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: .htaccess + perl + getting user
Message-Id: <f3sg1tslgiilagjc5c1ov7qs9v9f9qf6rt@4ax.com>
Nathan Ward wrote:
>ok, i have a site hosted on a free server (virtualave) and hav setup
>.htaccess passwording etc etc. i am using it on a message board and want to
>be able to retrieve the user name that is entered in the login dialog.
There's an environment variable for this, I think it's
$ENV{REMOTE_USER}.
--
Bart.
------------------------------
Date: Mon, 20 Nov 2000 00:49:29 GMT
From: fhinchey@my-deja.com
Subject: Re: Calling Javascript from Perl - not working!
Message-Id: <8v9seo$7jr$1@nnrp1.deja.com>
thanks, i did what you suggested and it's working great. But I was
wondering if you had any advice on the script to clean up temporary
files. How do you schedule a clean up of files?
In article <8v79od$9be$1@slb6.atl.mindspring.net>,
"Kurt Stephens" <kstep@pepsdesign.com> wrote:
> <fhinchey@my-deja.com> wrote in message
news:8v74ii$a6e$1@nnrp1.deja.com...
> > I'm having problems calling a javascript function from perl. I have
a
> > multipart form for uploading files to my server. I want to be able
to
> > check if a file of the same name alread exists and pop-up a confirm
box
> > asking if it's okay to overwrite that file. I thought a javascript
> > would be the way to go, but i can't get it to work. Here's my
> > javascript...
>
> Big problem - JavaScript runs on the browser and your upload script
runs on
> the server. The only way to execute client-side JavaScript from the
server
> is to serve up a new page with the JS code either inline or triggered
by the
> onLoad event. For your upload program, you probably don't want to do
this.
>
> Why not do something like this:
>
> If a file was uploaded
> Parse the file name
> If the file exists
> Save the file in a temporary location
> Return a page asking for confirmation
> Else
> Save the file
> Return a page indicating success
> Else if this is a confirmation
> If confirmed
> Move the temporary file
> Return a page indicating success
> Else
> Delete the temporary file
> Return a page indicating deletion
>
> You will need to save some state information such as the file name in
a
> hidden field so that you know which file to move or delete. You will
also
> want to add some garbage collection that deletes old temporary files
where
> the user has uploaded the file and left your site without submitting
the
> confirmation.
>
> Hopefully this helps,
>
> Kurt Stephens
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sun, 19 Nov 2000 16:06:28 -0800
From: Michael Budash <mbudash@sonic.net>
Subject: Re: DBI newbie question
Message-Id: <mbudash-FF59D5.16062819112000@news.pacbell.net>
In article <RHWR5.181$w33.57082@nnrp1.sbc.net>, "StevieD"
<stevie_d38nospam@hotmail.com> wrote:
> Hi - just now writing scripts using DBI module (to MySQL in this case),
> and
> i can't seem to gather any metadata using the DBI commands .... Am i
> doing
> something wrong here? After connecting:
>
> sub metainfo {
> @tables = $dbh->tables;
> print "<br>\nAvailable Tables:<br>\n";
> foreach $table (@tables) {
> print "$table<br>\n";
> }
> $response = "Done listing tables<br>\n";
> }
>
> It always comes up empty, yet i've got 3 tables, and can return data from
> them, etc.
>
the docs i use (http://www.savebaseball.com/mysql/Menu.php3) say to use
this instead of what you're using:
@tables = $dbh->func('_ListTables');
try that...
hth-
--
Michael Budash ~~~~~~~~~~ mbudash@sonic.net
------------------------------
Date: Sun, 19 Nov 2000 18:25:46 -0600
From: "StevieD" <stevie_d38nospam@hotmail.com>
Subject: Re: DBI newbie question
Message-Id: <yb_R5.469$NT6.133823@nnrp2.sbc.net>
Thanks, nod, i've tried that, it also comes back empty, as does
$sth = $dbh->table_info
as does
$infoString = $dbh->{'info'}
as does
@tables = @{$sth->{'mysql_table'}}
However, preparing and executing the query "SHOW tables" (a MySQL command)
returns what i'm after! Really annoying, because it's not portable at all
... Oh well. Still wish i knew why all the other DBI and DBD methods don't
work.
Also, @tables = $dbh->func('_ListTables'); is listed as Obsolete in the docs
at CPAN:
http://search.cpan.org/doc/JWIED/Msql-Mysql-modules-1.2214/mysql/lib/DBD/mys
ql.pm
(about a third the way down:)
ListTables
*WARNING*: This method is obsolete due to DBI's $dbh->table_info().
@tables = $dbh->func('_ListTables');
-Steve
"Michael Budash" <mbudash@sonic.net> wrote in message
news:mbudash-FF59D5.16062819112000@news.pacbell.net...
> In article <RHWR5.181$w33.57082@nnrp1.sbc.net>, "StevieD"
> the docs i use (http://www.savebaseball.com/mysql/Menu.php3) say to use
> this instead of what you're using:
>
> @tables = $dbh->func('_ListTables');
>
> try that...
>
> hth-
> --
> Michael Budash ~~~~~~~~~~ mbudash@sonic.net
>
------------------------------
Date: Sun, 19 Nov 2000 20:09:51 -0500
From: claudej <claudej@videotron.ca>
Subject: How to send back 2 or more gif, if only one cgi call?
Message-Id: <B63DE40F.61CC%claudej@videotron.ca>
In a CGI Perl script
How to send back 2 or more gif, if only one cgi call ?
<IMG SRC="cgi-bin/counter.cgi">
Without use GD;
Without SSI
They must appear side by side.
#!/usr/local/bin/perl
print "Content-type: image/gif\n\n";
open (TILE,"5.gif");
print <TILE>;
close TILE;
open (TILE,"6.gif");
print <TILE>;
close TILE;
I only get the first one.
Thanks in advance,
claudej
------------------------------
Date: 19 Nov 2000 21:00:37 -0500
From: catfood@apk.net (Mark W. Schumann)
Subject: Re: How to send back 2 or more gif, if only one cgi call?
Message-Id: <8va0k5$ed7@junior.apk.net>
In article <B63DE40F.61CC%claudej@videotron.ca>,
claudej <claudej@videotron.ca> wrote:
>In a CGI Perl script
>
>How to send back 2 or more gif, if only one cgi call ?
><IMG SRC="cgi-bin/counter.cgi">
>
>Without use GD;
>Without SSI
>
>They must appear side by side.
>
>#!/usr/local/bin/perl
>
>print "Content-type: image/gif\n\n";
>
>open (TILE,"5.gif");
>print <TILE>;
>close TILE;
>
>open (TILE,"6.gif");
>print <TILE>;
>close TILE;
This is really a CGI question disguised as a Perl question, but you don't
know that because you're missing the big picture.
Your CGI script can only send one Content-type header to the client,
because a CGI script (or "CGI program" or whatever) receives a _single_
request and sends a _single_ response. If you're sending the client
an image/gif, great, that's what the client gets. If you're sending
an HTML document that has a bunch of <img> tags that in turn cause the
client to request the corresponding GIF documents, that's fine too.
You need to be clear in your own mind as to what the script is supposed
to be doing. Is it supposed to send a single image back to the client,
or is it supposed to send a whole HTML document that will contain one
or more images?
I think that your code doesn't really make sense because your design
doesn't make sense yet.
Please think about this and try one of the CGI groups if you need more
help at that level. But come back if you have a Perl question.
------------------------------
Date: Sun, 19 Nov 2000 03:30:30 -0500
From: "Collin Borrlewyn" <collin@crosslink.net>
Subject: Inexplicably, "A Midsummers Day"
Message-Id: <974675925.249929@pizza.crosslink.net>
I've only recently started this whole perl/programming/scripting bit, so I
hope you will not wince too much at the obvious blunders.
I'm writing a game to be run on the command line. It's a trivia game, a
clone of one some friends and I played elsewhere, which is why it has to
work in such a specific way. I'll show you the code below, but what I've
decided I need to be able to do is to have perl running through a loop, but
still being able to detect of the user types something.
You see, the trivia question would be displayed on the screen, and nine
seconds later, if you hadn't answered, it would go away again. To get a nine
(or whatever) second delay (and to get different point values for
longer/shorter delays before answering) I did the following:
sub timed_count(){
($sec)=localtime(time);
if(@_){ $stop = $sec + $_[0]; }
else { $stop = $sec +4; }
for(($sec)=localtime(time);$sec<$stop;($sec)=localtime(time)){
if( $sec == 0 && $stop > 59 ){ $stop -= 60; }
print $sec."\n";
}
}
Ignore, for the moment, the awfulness, and the fact that it doesn't DO
anything. I stopped here when I realized my problem. When the loop is
finished the function would end, and tell whatever called it that it was
done. At that point the users answer (if any) would be compared to the
correct answer. If the user had not answered, no points would be awarded (or
subtracted) and the next question would come up. The trouble is that I know
of no way for this nine second wait to happen while the script is waiting
for user input. Can it be done? Is there a better way to get the same/a
similar effect? Am I like a dog barking up the proverbial tree? Does this
dress make me look fat? Did I say that out loud?
#Collin E Borrlewyn
##More enlightening than Buddist Jeopardy.
###collin@crosslink.net
------------------------------
Date: Mon, 20 Nov 2000 01:14:52 GMT
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Inexplicably, "A Midsummers Day"
Message-Id: <slrn91gune.q2.mgjv@verbruggen.comdyn.com.au>
On Sun, 19 Nov 2000 03:30:30 -0500,
Collin Borrlewyn <collin@crosslink.net> wrote:
> The trouble is that I know
> of no way for this nine second wait to happen while the script is waiting
> for user input. Can it be done? Is there a better way to get the same/a
The alarm() function (described in the perlfunc documentation) will help:
#!/usr/local/bin/perl -w
use strict;
$| = 1; # This may or may not be needed on your platform
print "What do you say? ";
my $answer;
eval {
local $SIG{ALRM} = sub { die "timeout\n" };
alarm 3;
chomp($answer = <STDIN>);
alarm 0;
};
if ($@ eq "timeout\n")
{
$answer = 'nothing';
print "\rToo late. You no longer have a vote.\n";
}
print "You said: $answer\n";
> similar effect? Am I like a dog barking up the proverbial tree? Does this
> dress make me look fat? Did I say that out loud?
Quote from the fast show?
Martien
--
Martien Verbruggen |
Interactive Media Division | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Mon, 20 Nov 2000 01:00:27 GMT
From: "Mats Pettersson" <mats.pettersson@falukuriren.se>
Subject: Most easy way to get IP from a local NIC by device name (eth0,eth1...)
Message-Id: <LI_R5.6701$jv2.838136@newsc.telia.net>
Hi!
I'm trying to get the IP from one of my NICs (eth1) from perl (running on
FreeBSD).
I'm using DHCP so the IP may change from time to time and when my script run
i need to know what the adress is.
Is there any other way than extracting it from nestat or something like
that?
Mats
------------------------------
Date: Mon, 20 Nov 2000 01:16:32 GMT
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Most easy way to get IP from a local NIC by device name (eth0,eth1...)
Message-Id: <slrn91guqi.q2.mgjv@verbruggen.comdyn.com.au>
On Mon, 20 Nov 2000 01:00:27 GMT,
Mats Pettersson <mats.pettersson@falukuriren.se> wrote:
> Hi!
>
> I'm trying to get the IP from one of my NICs (eth1) from perl (running on
> FreeBSD).
>
> I'm using DHCP so the IP may change from time to time and when my script run
> i need to know what the adress is.
>
> Is there any other way than extracting it from nestat or something like
> that?
No portable way. The best thing to do is just call ifconfig. You might
want to wrap the call in some sub, so that you can easily add to
it/change it for other platforms.
Martien
--
Martien Verbruggen |
Interactive Media Division | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Sun, 19 Nov 2000 23:06:07 GMT
From: al@maystreet.com (Al Rosetti)
Subject: Re: Need easy Perl help, will trade for online presentation at www.maystreet.com
Message-Id: <3a186a9a.289603@news>
Hey, ya never know when one might come in handy. It might make a
great Christmas present. (wink wink, nudge nudge) <g>
Anyway thanks a ton for the link. I'll go check it out right now.
--Al Rosetti
al@maystreet.com
www.maystreet.com
On Sun, 19 Nov 2000 17:05:53 GMT, "Lauren Smith"
<lauren_smith13@hotmail.com> wrote:
>
>"Al Rosetti" <al@maystreet.com> wrote in message
>news:3a17fdb4.622883@news...
>> I'm not a code expert and I'm having trouble setting up a counter
>> system for my website, www.maystreet.com. If you'll build me a
>> counter and a simple page search (allows users to input a keyword in a
>> text box that sends them to a corresponding URL) I'll be happy to
>> build you an online presentation for whatever you need. Whether you
>> want an online photo album or a presentation to sell a
>> car/house/whatever I'll take care of it.
>
>Not that the offer is not tempting, it's just that I don't have any need
>for such a presentation.
>
>Here's a link that may help you get underway.
>
>http://www.perl.com/pub/doc/FAQs/cgi/perl-cgi-faq.html
>
>Do a text search for "counter".
>
>Lauren
>
>
>
------------------------------
Date: Sun, 19 Nov 2000 18:52:25 -0600
From: "Matt Miller" <repentandspamnomoremillerdg@mindspring.com>
Subject: Perl Illiterate
Message-Id: <8v9snk$87h$1@slb6.atl.mindspring.net>
What is perl?
------------------------------
Date: Mon, 20 Nov 2000 10:33:25 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: Perl Illiterate
Message-Id: <uG_R5.16$Is1.1866@vic.nntp.telstra.net>
"Matt Miller" <repentandspamnomoremillerdg@mindspring.com> wrote in
message news:8v9snk$87h$1@slb6.atl.mindspring.net...
> What is perl?
www.perl.com
Wyzelli
--
($a,$b,$w,$t)=(' bottle',' of beer',' on the wall','Take one down, pass
it around');
for(reverse(1..100)){$s=($_!=1)?'s':'';$c.="$_$a$s$b$w\n$_$a$s$b\n$t\n";
$_--;$s=($_!=1)?'s':'';$c.="$_$a$s$b$w\n\n";}print"$c*hic*";
------------------------------
Date: 19 Nov 2000 11:43:18 +0200
From: Juha Laiho <Juha.Laiho@iki.fi>
Subject: Re: Perl List Question
Message-Id: <8v87bm$lm8$1@ichaos.ichaos-int>
"Jtk" <jtk@_nospam_jtkconsulting.com> said:
>Okay I am stumped. I have a Perl list and I am trying to add
>stuff to the end of each item in the list. What I came up with
>is :
>
>@Email[$ListPos] = @Email[$ListPos] .= ":" ;
Synonymous to
@Email[$ListPos] .= ':';
>Now this adds a colon to the Front on each item
No it doesn't. It appends to the end. And as Perl instructs, if you have
warnings enabled, it ought to be written as
$Email[$ListPos] .= ':';
(two more functionally identical pieces of code removed)
>So how can I add this colon to the the end of each item?
I think I found your problem. You are actually appending the colon to the
ends of your strings, but all the strings contain newline as the last
character. Apparently you read the data from a file and forgot to chomp
it. The below code should be what you need, once you chomp the data as
you read it in.
#! /usr/bin/perl -w
use strict;
my @arr=( 'aa','bb','cc' );
# Append colon to each field
foreach (@arr) {
$_ .= ':';
}
# Print all fields
foreach (@arr) {
print $_,"\n";
}
--
Wolf a.k.a. Juha Laiho Espoo, Finland
(GC 3.0) GIT d- s+: a- C++ UH++++$ UL++++ P+@ L+++ E(-) W+$@ N++ !K w !O
!M V PS(+) PE Y+ PGP(+) t- 5? !X R tv--- b+ DI? D G e+ h--- r+++ y+
"...cancel my subscription to the resurrection!" (Jim Morrison)
------------------------------
Date: 20 Nov 2000 01:43:39 GMT
From: Todd McLaughlin <toddm@waltz.rahul.net>
Subject: PerlScript and ASP
Message-Id: <8v9vkb$i5n$1@samba.rahul.net>
The folowing code lets me store a value in the application data. How do I
do this if I want to store an array instead of a single value? Say I had
@var1 instead of $var1.
Thanks!
Todd
<%@ LANGUAGE = PerlScript %>
<html>
<body>
<%
my $var1 = 23;
$Application->Lock;
$Application->Contents->SetProperty('Item','test',$var1);
$Application->UnLock;
my $var2 = $Application->Contents('test');
$Response->Write("value: $var2");
%>
</body>
</html>
------------------------------
Date: 19 Nov 2000 20:56:18 -0500
From: catfood@apk.net (Mark W. Schumann)
Subject: Re: PerlScript and ASP
Message-Id: <8va0c2$dcj@junior.apk.net>
In article <8v9vkb$i5n$1@samba.rahul.net>,
Todd McLaughlin <toddm@waltz.rahul.net> wrote:
>The folowing code lets me store a value in the application data. How do I
>do this if I want to store an array instead of a single value? Say I had
>@var1 instead of $var1.
$ man perldata
One example:
@var1 = ('one thing', 'another', 0xdeadbeef, {1,2,3});
------------------------------
Date: Sun, 19 Nov 2000 23:06:44 GMT
From: garry@ifr.zvolve.net (Garry Williams)
Subject: Re: regexp question
Message-Id: <82ZR5.1088$xb1.65444@eagle.america.net>
On Sun, 19 Nov 2000 22:28:15 -0000, AndyW
<andyw2@nospam.btconnect.com> wrote:
>... so, how do I test for a string which is all uppercase (or at
>least has no lower case letters - punctuation, numerals etc are
>allowed)?
>
>I've tried "/^[^a-z]{length($string)}/" which I understand to mean
>"match strlen non-[a-z] characters at the start of the line" but it
>doesn't work.
It's not clear what "doesn't work" means, but ...
Let's do a test for exactly what you said:
/^[A-Z\W]+$/
for "a string which is all uppercase ... punctuation, numerals etc are
allowed". Or,
! /[a-z]/
for "has no lower case letters". (This test assumes that $_ is not
the empty line.)
--
Garry Williams
------------------------------
Date: Sun, 19 Nov 2000 17:07:15 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: regexp question
Message-Id: <slrn91gjoj.9me.tadmc@magna.metronet.com>
On Sun, 19 Nov 2000 22:28:15 -0000, AndyW <andyw2@nospam.btconnect.com> wrote:
>how
>do I test for a string which is all uppercase (or at least has no lower case
>letters - punctuation, numerals etc are allowed)?
if ( /[a-z]/ )
{ print "has lc\n" }
else
{ print "no lc\n" }
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 19 Nov 2000 23:33:40 -0000
From: "AndyW" <andyw2@nospam.btconnect.com>
Subject: Re: regexp question
Message-Id: <luZR5.1866$Bh.30236@NewsReader>
Thanks Garry
> /^[A-Z\W]+$/
>
works perfectly! I didn't think of anchoring both ends. Duh!
Cheers,
Andy
------------------------------
Date: 19 Nov 2000 21:04:26 -0500
From: catfood@apk.net (Mark W. Schumann)
Subject: Re: Serial Port
Message-Id: <8va0ra$fde@junior.apk.net>
In article <8v9gt6$ffq$1@samba.rahul.net>,
Todd McLaughlin <toddm@waltz.rahul.net> wrote:
>Got the following code out of the Perl FAQ:
>
>open( SERIAL_PORT, "+>com1" ) or die "Can't open COM1: $!";
>print( $send );
>close( SERIAL_PORT );
>
>How do I set the baud rate, parity, and other parameters of the com port?
Very carefully.
>I'm using Win2K. From the command line, I can use the mode command. Can
>I do this with Perl?
You can probably use Perl's system() function to invoke the MODE command.
This might actually work as you want it to.
If that doesn't do the right thing, check out Win32::SerialPort and/or
Win32API::CommPort on your local CPAN site. They seem to be what you
need.
>What does the + symbol indicate in the open command? I know the > is write
>access.
Do you have perldoc? Try "perldoc -f open" for the answer to this and
much much more!
------------------------------
Date: Sun, 19 Nov 2000 23:14:26 GMT
From: Terrence Brannon <brannon@lnc.usc.edu>
Subject: What is a Junior Perl Programmer?
Message-Id: <lbofzbeer2.fsf_-_@lnc.usc.edu>
merlyn@stonehenge.com (Randal L. Schwartz) writes:
> And can they complete in a day what it would take a junior programmer
> a week to have coded and debugged?
In my opinion you are either a mid-level to senior programmer, or you
should stick to a simpler language.
I have never seen anyone use Perl at Junior level without writing
something that was better thrown away.
I consider myself a 6 on a scale of 10 in Perl skills and even said
that in the face of the people about to hire me... but my six is based
on knowing that there are very few 10s out there period. Probably 100
total.
--
Terrence Brannon
------------------------------
Date: Mon, 20 Nov 2000 00:08:27 GMT
From: Bob Starr <rstarr@pobox.com>
Subject: Re: What is a Junior Perl Programmer?
Message-Id: <3A186B71.5C4180AB@pobox.com>
If you don't know who Randal Schwartz is, I seriously doubt you are
anywhere close to a 6 in Perl skills.
Terrence Brannon wrote:
>
> merlyn@stonehenge.com (Randal L. Schwartz) writes:
> > And can they complete in a day what it would take a junior programmer
> > a week to have coded and debugged?
>
> In my opinion you are either a mid-level to senior programmer, or you
> should stick to a simpler language.
>
> I have never seen anyone use Perl at Junior level without writing
> something that was better thrown away.
>
> I consider myself a 6 on a scale of 10 in Perl skills and even said
> that in the face of the people about to hire me... but my six is based
> on knowing that there are very few 10s out there period. Probably 100
> total.
>
> --
> Terrence Brannon
------------------------------
Date: 19 Nov 2000 16:26:52 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: What is a Junior Perl Programmer?
Message-Id: <m1vgtj8p4j.fsf@halfdome.holdit.com>
>>>>> "Bob" == Bob Starr <rstarr@pobox.com> writes:
[upside-down post put in proper order.. please do this yourself next time]
Bob> Terrence Brannon wrote:
>>
>> merlyn@stonehenge.com (Randal L. Schwartz) writes:
>> > And can they complete in a day what it would take a junior programmer
>> > a week to have coded and debugged?
>>
>> In my opinion you are either a mid-level to senior programmer, or you
>> should stick to a simpler language.
Bob> If you don't know who Randal Schwartz is, I seriously doubt you are
Bob> anywhere close to a 6 in Perl skills.
In Terrence's defense, I think you misread his quote. I don't think
he was calling me a mid-level to senior programmer. :) I think he
was talking about the generic "if you are...".
Not that I call myself a 10. I leave others to label me. :)
--
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: Mon, 20 Nov 2000 01:13:40 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: What is a Junior Perl Programmer?
Message-Id: <Pine.GHP.4.21.0011200111520.17728-100000@hpplus03.cern.ch>
On Sun, 19 Nov 2000, Terrence Brannon wrote:
(to Randal, of all people)
> I consider myself a 6 on a scale of 10 in Perl skills
"Quite remarkable". And you don't even seem to know who Randal is.
Oh well. the scorefile was wondering when the next adjustment would
come.
------------------------------
Date: Sun, 19 Nov 2000 17:39:46 -0700
From: "bowman" <bowman@montana.com>
Subject: Re: What is a Junior Perl Programmer?
Message-Id: <ak_R5.11160$en6.9455@newsfeed.slurp.net>
Terrence Brannon <brannon@lnc.usc.edu> wrote in message
news:lbofzbeer2.fsf_-
>
> In my opinion you are either a mid-level to senior programmer, or you
> should stick to a simpler language.
And you sprung from the womb as a mid-level Perl programmer?
------------------------------
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 4926
**************************************
