[11871] in Perl-Users-Digest
Perl-Users Digest, Issue: 5471 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Apr 24 01:07:28 1999
Date: Fri, 23 Apr 99 22:00:16 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 23 Apr 1999 Volume: 8 Number: 5471
Today's topics:
Re: $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex( (Larry Rosler)
Re: Can a DNS lookup be performed from within perl ? (Earl Hood)
Re: Can a DNS lookup be performed from within perl ? (Larry Rosler)
Re: Can a DNS lookup be performed from within perl ? (Larry Rosler)
Re: chomp-ing from the FRONT end (Charles DeRykus)
Deferences in Explorer vs. Netscape? <honky@best.com>
Re: Encrypt/Decrypt (I R A Aggie)
Re: How to make an array name to be a variable? <mpersico@erols.com>
Re: How to make an array name to be a variable? <mpersico@erols.com>
Re: Newbie - Perl - Registry -NT <jasontw@my-dejanews.com>
PERL Books <preble@ipass.net>
Re: PERL Books (Bob Trieger)
Re: PERL Books <zzekka@intrex.net>
Poker Program Help <jarhead0@rochester.rr.com>
Poker Program Help <jarhead0@rochester.rr.com>
Problem: Installing Modules with CPAN.pm <mkshanx@ust.hk>
Problems catching SIGs (^C, ^D, etc) in perl script run <plaak@home.com>
Re: Reading C binary data from disk <armchair@my-dejanews.com>
See how you compare to our Top Ten list of perl program (Ann Marie Ludlow)
Re: See how you compare to our Top Ten list of perl pro <tchrist@mox.perl.com>
SSI calls <thespaceport@my-dejanews.com>
tr/\,// (Corey Saltiel)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 23 Apr 1999 19:15:37 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
Message-Id: <MPG.118ac91b70ce494a98992f@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <IE8U2.299$oU1.22408@typhoon-sf.snfc21.pbi.net> on Sat, 24
Apr 1999 00:56:08 GMT, Benjamin Franz <snowhare@long-lake.nihongo.org>
says...
> In article <37211199.33175363@well.com>, Greg McCann <gregm@well.com> wrote:
> >Larry Rosler wrote:
> >> I prefer to use:
> >>
> >> $value =~ s/%([\dA-Fa-f]{2})/chr hex $1/eg;
> >>
> >> because it is less to type (or just cut-and-paste :-). As you can
> >> guess, I don't use those modules either. Shame on me!
> >
> >Thank you, Larry. You've given me the courage to admit it...
> >
> >I DON'T USE CGI.PM EITHER!!
>
> Nor do I. I find pulling a 150+Kbytes for a form decoder to be...excessive.
In addition, I don't perceive much benefit from having to learn Yet
Another Language (which requires a several-hundred-page book to describe
it), when learning the rudiments of HTTP/CGI and HTML is so easy.
For static web pages, most people here would scoff at a tool like M$
FrontPage Editor that writes (poor) HTML for you, and would just write
it themselves. Why not the CGI code also?
One could simply take any of the horrible scripts available on line, add
the appropriate error checking that TomC just complained about today,
and have something robust working in no time. Now go read Lincoln
Stein's tome!
> Here is what I use (perhaps I should send it to CPAN as 'CGI::UltraLite')
> Before someone locks on to my use of \r and \n - yes I know. I only use
> it on *nix boxes.
I have a 'cgi.pl' file of a hundred lines or so of functions that do all
I need!
But your module seems quite appropriate (and less than 150+ Kbytes :-).
> Benjamin Franz
<SNIP>
The following caught my eye in a quick scan of the code:
> $sec = "0$sec" if (length($sec) < 2);
> $min = "0$min" if (length($min) < 2);
> $hour = "0$hour" if (length($hour) < 2);
> $mday = "0$mday" if (length($mday) < 2);
> if ($year < 95) {
> $year = $year + 2000;
> }
> if (($year > 94) && ($year < 1000)) {
> $year = $year + 1900;
> }
>
> return ("$wkday, $mday $month $year ${hour}\:${min}\:${sec} GMT");
While I have an aversion to huge modules, that doesn't apply to builtin
functions such as sprintf, which would make this snippet much more
compact (as well as faster, though I doubt that it matters at all).
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 24 Apr 1999 01:18:56 GMT
From: ehood@geneva.acs.uci.edu (Earl Hood)
Subject: Re: Can a DNS lookup be performed from within perl ?
Message-Id: <7fr660$itr@news.service.uci.edu>
In article <37210887.24C61A7A@ececs.uc.edu>,
Rajesh Radhakrishnan <rradhakr@ececs.uc.edu> wrote:
>Uri Raz wrote:
>> As part of the script I want to translate an IP address into a host's
>> name, using (reverse) DNS lookup.
>>
>> Is there a way to do this from within perl, as a function and not by
>> calling a shell to perform nslookup ?
...
>open(IN,"$log_file") or die "Can't open file $log_file\n";
>open(OUT,"> $output_file");
>my %ip_addr=();
>my $machine_name=undef;
>
>while(<IN>) {
> # search for IP address eg.129.137.4.62 in log file
> if (m/(\d+.\d+.\d+.\d+)/) {
> # has this IP address been checked before
> if (!exists($ip_addr{$1})) {
> # if not in the hash table
> $machine_name = gethostbyaddr(inet_aton($1), AF_INET)
The problem with using the gethost*() functions is there is a
dependency on how your system is configured for doing name resolution.
For example, under Solaris, /etc/nsswitch.conf controls host lookups.
If it has the following:
hosts: files
You'll probably never get anything useful for what you are trying
to do.
You may want to look into the Net::DNS modules at CPAN.
--ewh
--
Earl Hood | University of California: Irvine
ehood@medusa.acs.uci.edu | Electronic Loiterer
http://www.oac.uci.edu/indiv/ehood/ | Dabbler of SGML/WWW/Perl/MIME
------------------------------
Date: Fri, 23 Apr 1999 18:54:38 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Can a DNS lookup be performed from within perl ?
Message-Id: <MPG.118ac438437cee1698992e@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <37210887.24C61A7A@ececs.uc.edu> on Fri, 23 Apr 1999 19:55:51
-0400, Rajesh Radhakrishnan <rradhakr@ececs.uc.edu> says...
...
> # search for IP address eg.129.137.4.62 in log file
> if (m/(\d+.\d+.\d+.\d+)/) {
I'll just point out that this regex will also find, for example,
'1234567' or lots of other strings that aren't dotted-quads. I'll let
the others whine about IP addresses that have only two or three dots.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 23 Apr 1999 19:19:57 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Can a DNS lookup be performed from within perl ?
Message-Id: <MPG.118aca1f7fa4659c989931@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <37210887.24C61A7A@ececs.uc.edu> on Fri, 23 Apr 1999 19:55:51
-0400, Rajesh Radhakrishnan <rradhakr@ececs.uc.edu> says...
...
> # search for IP address eg.129.137.4.62 in log file
> if (m/(\d+.\d+.\d+.\d+)/) {
I'll just point out that this regex will also find, for example,
'1234567' or lots of other strings that aren't dotted-quads. I'll let
the others whine about IP addresses that have only one or two dots.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sat, 24 Apr 1999 01:13:37 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: chomp-ing from the FRONT end
Message-Id: <FAo62p.C6y@news.boeing.com>
In article <MPG.118a69447362723e989927@nntp.hpl.hp.com>,
Larry Rosler <lr@hpl.hp.com> wrote:
>[Posted and a courtesy copy mailed.]
>
>chomp (remove the substring $/ if it is at the end of the string):
>
> substr($string, 0, length $/) = "" if index($string, $/) == 0;
>
> $string =~ s%$/%%;
$string =~ s%^$/%%; # frontal chomp
__
Charles DeRykus
------------------------------
Date: Fri, 23 Apr 1999 19:25:09 -0700
From: "David Dodd" <honky@best.com>
Subject: Deferences in Explorer vs. Netscape?
Message-Id: <7fr9fe$g05$1@news2.symantec.com>
Ok,
I finally got a script up and running and now I find that it works great in
Internet Exploder but Netscape always returns... "Document contains no
data."
Is there a difference how these handle the return data? Has anyone else run
into this?
Thanks,
Dave
------------------------------
Date: 24 Apr 1999 01:46:44 GMT
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Encrypt/Decrypt
Message-Id: <slrn7i28p3.8j1.fl_aggie@stat.fsu.edu>
On Fri, 23 Apr 1999 16:38:18 -0700, David Cassell
<cassell@mail.cor.epa.gov>, in <3721046A.C6AFCD94@mail.cor.epa.gov> wrote:
+ Eeeeewwwwww. Please don't do this.. unless you're only trying to
+ protect your files from technoturnips and pointy-haired bosses.
+ This is *not* a good encryption methodology. For an example of how
+ weak this technique is, check out most of the so-called 'encrypted'
+ passowrds in Microsoft products. Granted, they use a painfully-
+ short key.
XOR isn't that bad. Go to Dejanews, and search for XOR in this newsgroup
sometime last year for a _very_ complete hashing out.
Security is implementation dependent. If you implementation sucks, so
does your security...
James
------------------------------
Date: Fri, 23 Apr 1999 23:13:45 -0400
From: "Matthew O. Persico" <mpersico@erols.com>
Subject: Re: How to make an array name to be a variable?
Message-Id: <372136E9.D5DC8109@erols.com>
Uri Guttman wrote:
>
> >>>>> "r" == rbradlaw <rbradlaw@my-dejanews.com> writes:
>
> r> although the previously posted responses are entertaining and maybe
> r> not without merit, i will optimistically think you just got a
> r> typopraphical error and really meant to type
>
> r> print "$key: ${$array}{$key}\n";
>
> ok, we have a winnah!! all future requests for symbolic ref stuff and
> the bugs they will be forwarded to this guy who will help them out. he
> thinks that hashes are not meritorious enough and symrefs are fine. he
> obviously know better than all the guru types that inhabit this group
> and who are on the verge of nervous breakdowns caused by the avalanche
> of newbies asking how to make data structures with symrefs.
>
> all hail rbradlaw, the newest perl hacker on the block, who is so
> competent he uses symrefs with impunity and even posts from dejanews.
>
> should we make a filter to search for "name to variable" and other
> relates strings and just pass all of those posts directly to rbradlaw?
> can you hack that rbradlaw or do you want to renege on your
> disparagement of hashes?
>
> 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
Hey Uri. I think you need to lay off the coffee.
Or the Seinfeld.
--
Matthew O. Persico
http://www.erols.com/mpersico
http://www.digistar.com/bzip2
------------------------------
Date: Fri, 23 Apr 1999 23:14:12 -0400
From: "Matthew O. Persico" <mpersico@erols.com>
Subject: Re: How to make an array name to be a variable?
Message-Id: <37213704.8DD29113@erols.com>
Staffan Liljas wrote:
>
> Uri Guttman wrote:
> [ a lot of stuff ]
>
> I just have to say that it's funny how close all the guru's are to a
> nervous breakdown on this issue.
>
> I just want to say to some of you (speaking as your self-appointed
> therapist): You aren't responsible for the agony of all the newbie
> programmers get from using symbolic refs. Let go of the guilt. If you
> get upset by the stupidity of a post, don't answer. Or do like Abigail.
> Give them a "FAQ" and feel much better afterwards. And put down that
> rifle.
>
> Personally, I think hashes are gods greatest gift to the programmer. I
> love them. If I could turn my wife into one, I would.
>
> Staffan
And just what does SHE think of this? :-)
--
Matthew O. Persico
http://www.erols.com/mpersico
http://www.digistar.com/bzip2
------------------------------
Date: Sat, 24 Apr 1999 03:15:03 GMT
From: Jason Williams <jasontw@my-dejanews.com>
Subject: Re: Newbie - Perl - Registry -NT
Message-Id: <7frcvl$4tn$1@nnrp1.dejanews.com>
Look into the 'Win32::TieRegistry' module if you're not using it already.
Using it, you have the ability to attach to remote registries.
Something like:
use Win32::TieRegistry;
$Registry->Delimiter("/");
my $rkey = $Registry->{"//remotemachine/LMachine/System/"};
Will connect you to remotemachine's registry.
Jason
In article <7fqbup$8ra$1@nnrp1.dejanews.com>,
mclaughlinj@leaders.ccl.org wrote:
> phew...
> I need to update 300 workstation registry values. I wrote a perl script that
> updates the registry on my local machine just fine. Is there a way I can
> update the 300 user workstation via Perl? My confusion is, they don't have
> Perl on their local machine. If you could point me to any documentation I'd
> appreciate. I have looked and search the net but did not find anything I
> understood. I'd like to hook the login script for all users...
> -or- how does one update remote registries via perl
>
> thanks, jeff
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
>
--
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 23 Apr 1999 22:14:39 -0400
From: "E. Preble" <preble@ipass.net>
Subject: PERL Books
Message-Id: <SM9U2.12$rW2.98@news.ipass.net>
What are the best books out there for all levels of PERL writers?
I'm interested in finding out which ones were helpful to you, and
in what way.
What level of help? - Amateur, Intermediate, Expert
Lots of examples?
Title and Author (obvious!)
Thanks ahead. If enough people answer, I'll submit this info to
the FAQ.
Edward Preble
------------------------------
Date: Sat, 24 Apr 1999 02:56:21 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: PERL Books
Message-Id: <7frbf2$d8s$1@holly.prod.itd.earthlink.net>
[ courtesy cc sent by mail if address not munged ]
"E. Preble" <preble@ipass.net> wrote:
>What are the best books out there for all levels of PERL writers?
>I'm interested in finding out which ones were helpful to you, and
>in what way.
>
>What level of help? - Amateur, Intermediate, Expert
>Lots of examples?
>Title and Author (obvious!)
>
>Thanks ahead. If enough people answer, I'll submit this info to
>the FAQ.
What the Hell are you talking about? It's been in the FAQ for years.
------------------------------
Date: Sat, 24 Apr 1999 00:29:16 -0400
From: Zekers <zzekka@intrex.net>
Subject: Re: PERL Books
Message-Id: <3721489C.4584B4F0@intrex.net>
Bob Trieger wrote:
> [ courtesy cc sent by mail if address not munged ]
>
> "E. Preble" <preble@ipass.net> wrote:
> >What are the best books out there for all levels of PERL writers?
> >I'm interested in finding out which ones were helpful to you, and
> >in what way.
> >
> >What level of help? - Amateur, Intermediate, Expert
> >Lots of examples?
> >Title and Author (obvious!)
> >
> >Thanks ahead. If enough people answer, I'll submit this info to
> >the FAQ.
>
> What the Hell are you talking about? It's been in the FAQ for years.
I am just learning PERl and am using WAITE GROUP PRESS's PERL 5
Interactive Course. by Jon Orwant.
Very good beginner book. Great for those that need hand holding and yet
it will take them far into PERL.
Zekers!
------------------------------
Date: Sat, 24 Apr 1999 00:30:56 -0400
From: "Jarhead0" <jarhead0@rochester.rr.com>
Subject: Poker Program Help
Message-Id: <PMbU2.6242$8m5.9899@newsr1.twcny.rr.com>
------------------------------
Date: Sat, 24 Apr 1999 00:31:07 -0400
From: "Jarhead0" <jarhead0@rochester.rr.com>
Subject: Poker Program Help
Message-Id: <%MbU2.6243$8m5.9879@newsr1.twcny.rr.com>
I would love to hear any advice on how to rank hands for a game of seven
card stud. I have all the cards sorted by name, suit, and value, but cant
seem to come up with a good method of determaning which hand is the best. I
have it working fine for 5 card, but 7 is kicking my butt!
jarhead0 at rochester.rr.com
------------------------------
Date: Sat, 24 Apr 1999 11:39:31 +0800
From: "Shashank Tripathi" <mkshanx@ust.hk>
Subject: Problem: Installing Modules with CPAN.pm
Message-Id: <7freci$1va@ustsu10.ust.hk>
If I am using Activestate Perl build 515 (Windows 98), and I am interested
in installing the WWW::Search module . I tried installing it thru PPM but
they dont have it in their repository.
I am now trying to use the CPAN.pm module to achieve the same. I manually
set up the CPAN while installing, and am trying to install the WWW::Search
module but I get the following error:
_____________________
CPAN.pm: Going to build JOHNH/WWW-Search-1.023.tar.gz
The Unsupported function alarm function is unimplemented at
C:\PERL\lib/CPAN.pm
line 3394.
__________________
Could this be because I am running on a windows 98 machine?
Please help!
Thanks
Vic
------------------------------
Date: Sat, 24 Apr 1999 02:38:44 GMT
From: Peter Laakmann <plaak@home.com>
Subject: Problems catching SIGs (^C, ^D, etc) in perl script running through inetd.
Message-Id: <372120BC.3E971C8B@home.com>
I've created a simple perl program that runs through inetd. The problem
is that signals don't seem to get trapped properly. The second I send a
SIG, lets say ^C, it stops, and inetd eventually closes the connection.
I did setup write the program to trap all SIGs via the following code:
foreach $mesig (keys %SIG) {
$SIG{$mesig} = 'IGNORE';
}
The problem with this is that, while it works great on the command line,
it doesn't work through inetd. I'm stumped. And I can't find any
documentation on this. Might this be a problem with my inetd?
(although this doesn't make much sense because telnetd and what not
catch it fine). I'm running RedHat Linux 5.2. Any help or suggestions
would be greatly appreciated.
------------------------------
Date: Sat, 24 Apr 1999 04:02:03 GMT
From: Nigel Simon <armchair@my-dejanews.com>
Subject: Re: Reading C binary data from disk
Message-Id: <7frfnp$710$1@nnrp1.dejanews.com>
In article <7fmtjs$3oe$1@nnrp1.dejanews.com>,
Nigel Simon <armchair@my-dejanews.com> wrote:
> Is it possible to write out a C double (or int) using fwrite() and then open
> that file and read the double value into a Perl scalar type - using just Perl
> code??
> --
> Nigel
>
Thanks to Larry Rosler, Jonathon Feinberg and Michael Cameron for quickly
pointing me to pack/unpack. For the record, here is a snippet of the code you
end up with:
A C program creates a "C datatypes" binary file:
-------------------------------------------------------------------------
#include <stdio.h>
#include <assert.h>
void main(void)
{
FILE *fpFile = fopen("output.file","w");
assert(fpFile);
double d = 4.67;
size_t written = fwrite(&d,sizeof(double),1,fpFile); assert(written == 1);
long l = 555;
written = fwrite(&l,sizeof(long),1,fpFile); assert(written == 1);
short s = 222;
written = fwrite(&s,sizeof(short),1,fpFile); assert(written == 1);
int i = 33;
written = fwrite(&i,sizeof(int),1,fpFile); assert(written == 1);
float f = 12.11;
written = fwrite(&f,sizeof(float),1,fpFile); assert(written == 1);
char *cp = "grape";
written = fwrite(cp,sizeof(char),5,fpFile); assert(written == 5);
fclose(fpFile);
}
---------------------------------------------------------------------
and a Perl program reads it:
---------------------------------------------------------------------
#!/usr/local/bin/perl -w
use diagnostics;
use strict;
my $file = "output.file";
open(FILE, "<$file") or die "could not open file: $!";
binmode(FILE);
my $data = "";
# size of the file of C datatypes on 32 bit machine
# double + long + short + int + float + five chars
my $file_size = 8 + 4 + 2 + 4 + 4 + 5;
my $bytes = read(FILE,$data,$file_size);
if ( $bytes == $file_size )
{
my ($double,$long,$short,$int,$float,$char) =
unpack("dlsifa5",$data);
print "double $double long $long short $short int $int\n";
print "float $float char $char\n";
}
else
{
print "problem with file read\n";
}
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 24 Apr 1999 03:41:45 GMT
From: Ludlow@NewsReader.Com (Ann Marie Ludlow)
Subject: See how you compare to our Top Ten list of perl programmers.
Message-Id: <19990423234145.106$5E@newsreader.com>
Dear perl Programmer,
Strut your stuff! See if you can score the scores to make our TOP TEN
List and get your certification in the process, FREE!
Through April, TekMetrics has extended its free service of perl Programmer
certifications for OS/390 or UDB conducted through its internet-based CAT
engine. Simply go to http://www.tekmetrics.com/cert/certtop.html to order
your free certification for either test. You can either elect to take the
test right away, or come back later, using the PIN you are provided when
you order.
To qualify as a Certified perl Programmer, you must pass the examination
with a score of 2.75 or higher. To be certified as a Master perl
Programmer, you must obtain a score of 4.00 or higher. At the end of the
test, your score will be provided (with a scoring range of 1-5). Once
certified, you can add the logo associated with the test (standard or
master logo, depending on how well you do) to your resume or website.
Furthermore, those that pass prior to 4/19 will be mailed a certificate,
once again, at no cost (after which time their may be a nominal fee for the
shipping of the certificates). There's no catch. We're simply trying to
prove a concept during a beta trial period. Thus far, the feedback has
been extremely positive!
Why bother getting certified by TekMetrics?
1) More and more corporations recognize TekMetrics Certifications as an
indication not only of the technical workers knowledge level, but also as
an indicator that they were willing to demonstrate their skills to them.
2) It's free and it's fun. They won't be free forever, but they are now.
So take advantage of them. Furthermore, those who have completed the tests
generally indicate that they enjoyed the experience and considered both the
delivery of the test and the items themselves to be of high quality.
3) Over 4000 technical workers from around the world are ordering our
certifications each week, and that number is steadily rising.
4) Find out both your strengths and weaknesses in perl. At the end of the
test, you can request specifics on how you did, by subtopic. And yes, that
too is free.
All we ask for in return is your feedback at the end of the exam. We will
be continually focusing on the improvement of the delivery of the test and
quality of the questions. Any feedback you can provide, positive or
negative, will help us greatly.
Another FAQ is, "How do you know the person who supposedly took the test
was actually the same person? What if it was his hotshot perl Programmer
brother, sister or friend? In other words, what is to prevent him from
cheating?" Our solution: we allow employers to spotcheck the technical
workers with a short test at no cost at their corporate locations, if they
so choose. Corporations have unanimously applauded this solution.
Lastly, data you provide in the certification process is not used without
your permission other than to store your certification record and verify to
valid employers at their request. We do, however, publish names on our
site in a Top Ten Scores list for each category, but no addresses, phone
numbers, email, etc.. are shown. For more information, see our privacy
statement at http://www.tekmetrics.com/cert/privacy.html
Well, that's pretty much it! We're trying to establish a new
cost-effective and convenient alternative to today's certification
environment. During this beta trial period, you will be the benefactor of
this fun and challenging experience.
If you have any questions/concerns regarding the perl certification, please
contact Deborah Manley at <mailto:deborah.manley@tekmetrics.com>.
Good luck and thank you.
Ann Marie Ludlow
TekMetrics, Inc.
www.tekmetrics.com <http://www.tekmetrics.com>
--
-------------------- http://NewsReader.Com/ --------------------
Usenet for the Web
------------------------------
Date: 23 Apr 1999 22:30:02 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: See how you compare to our Top Ten list of perl programmers.
Message-Id: <372148ca@cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Ludlow@NewsReader.Com (Ann Marie Ludlow) writes:
:Strut your stuff! See if you can score the scores to make our TOP TEN
:ListM-^E and get your certification in the process, FREE!
I'm afraid you missed April Fools by several weeks, although perhaps
not the April fools.
--tom
--
PROGRAM n. A magic spell cast over a computer allowing it to turn one's input
into error messages. tr.v. To engage in a pastime similar to banging one's
head against a wall, but with fewer opportunies for reward.
-- from a flyer advertising for _Inside_Turbo_Pascal_
------------------------------
Date: Sat, 24 Apr 1999 02:49:51 GMT
From: Brad Beiter <thespaceport@my-dejanews.com>
Subject: SSI calls
Message-Id: <7frbge$3i5$1@nnrp1.dejanews.com>
How can I call an html document from another server to be inserted into my
html doc?
--
--Brad Beiter
Visit the SPACEPORT!
http://www.thespaceport.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sat, 24 Apr 1999 04:47:19 GMT
From: corey@americanrecruitment.com (Corey Saltiel)
Subject: tr/\,//
Message-Id: <slrn7i2ivh.q5.corey@valis.americanrecruitment.com>
$lame = "goober, shnarf";
$lame =~ tr/\,//; # 'nix the comma
print "lame is $lame\n";
lame is goober, shnarf
$lame = "goober, shnarf";
$lame =~ tr/\,/?/;
print "lame is $lame\n";
lame is goober? shnarf
Whats up with that?
Yes, s/\,// works -- but why not tr?
Beers,
Corey
---
"We tend to scoff at the beliefs of the ancients, but we
can't scoff at them personally - to their faces. And this
is what really annoys me."
-- Jack Handy
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 5471
**************************************
