[8817] in Perl-Users-Digest
Perl-Users Digest, Issue: 2434 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Apr 27 20:27:31 1998
Date: Mon, 27 Apr 98 17:00:27 -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 Mon, 27 Apr 1998 Volume: 8 Number: 2434
Today's topics:
Re: $100 - PERL NEWSGROUP POSTER (Martien Verbruggen)
Re: 'each' and recursion, do they mix? <rootbeer@teleport.com>
Re: 'each' and recursion, do they mix? <tchrist@mox.perl.com>
Re: An open2 issue, why not working through CGI?? <rootbeer@teleport.com>
Re: Backref With a Passed in Replacement Variable Not W <uri@sysarch.com>
Re: Can an assignment and a substitution be done in one (Earl Hood)
Re: Cookies (Abigail)
Credit Card Verification scripts? <zisa@onramp.net>
Re: Credit Card Verification scripts? (brian d foy)
Re: Dummie question: EASY !! file copy wanted (Abigail)
Re: Help: crypt for Win32 ?? (Ben Coleman)
Re: How strong is the perl crypt function ? (Martien Verbruggen)
Re: How to add \ to an email address <rootbeer@teleport.com>
Re: How to read command line literally? (Earl Hood)
Little CGI Problem (I hope) <camerond@skantech.com>
Re: ls -R ? (Earl Hood)
Re: matching man page lines (Earl Hood)
Re: perl 5.004 is better than 5.004004 ?! (Martien Verbruggen)
Re: Perl classes or training <tchrist@mox.perl.com>
Re: Perl classes or training gwynne@utkux.utk.edu
Re: Perl classes or training (brian d foy)
Re: Please stop and help. (Martien Verbruggen)
Re: Radio buttons and check boxes (Abigail)
Re: Reverse Lookup??? <rootbeer@teleport.com>
Re: setting off a ZIP file dload <rootbeer@teleport.com>
Re: Syntax to make my hit counter work? (Abigail)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 27 Apr 1998 23:07:31 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: $100 - PERL NEWSGROUP POSTER
Message-Id: <6i333j$dvb$1@comdyn.comdyn.com.au>
In article <35410C8A.7314FB15@abcpages.com>,
Alexander Kovalenko <techsoft@abcpages.com> writes:
> willing to pay for program which would work like formmail , but not send
> e-mail , but rather post it to newsgroups..
>
> if you can help me... reply back...
Sure we can help.
You should use some modules to do this:
- use CGI to process the form
- use News::NNTPClient and maybe News::Article to post to Usenet
- write some code to stick it all together.
That's it.
Of course you will actually have to read the documentation for these
modules, but I don't think you will have any problem investing some
work yourself, do you? If you don't have the modules yet, you can
download them from CPAN
http://www.perl.com/CPAN
http://www.perl.org/CPAN
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Mon, 27 Apr 1998 23:11:47 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Ilya Zakharevich <ilya@math.ohio-state.edu>
Subject: Re: 'each' and recursion, do they mix?
Message-Id: <Pine.GSO.3.96.980427160900.18175E-100000@user2.teleport.com>
On 27 Apr 1998, Ilya Zakharevich wrote:
> I think I have an idea of what is wanted, since yesterday I had (for a
> couple of minutes ;-) an idea that I know how to do it: allow
>
> local each %hash;
>
> which resets the iterator, and sets it back at the end of the scope.
Did you see my proposal, to allow C<pos HASH>, which could also be an
lvalue? Reading it returns the current position, which is the key which
each would next return, but it doesn't advance the iterator. Setting it to
a non-existant key would be the same as setting it to undef - which sets
the iterator to end-of-hash. Of course, changing the hash means that all
bets are off. More details upon request.
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 27 Apr 1998 23:45:29 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: 'each' and recursion, do they mix?
Message-Id: <6i35ap$qtm$3@csnews.cs.colorado.edu>
Keywords: fractious Grayson multiplication pug
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, mjd@op.net (Mark-Jason Dominus) writes:
: In fact it's so obvious, I'm not sure
: anyone ever thought of doing it a different way.
I have.
You could put it on the C<each> syntax node. Interlaced C<each>s
on the same hash would have separate iterations. But it's a problem
with C<each %$href>.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
"We all agree on the necessity of compromise. We just can't agree on
when it's necessary to compromise."
--Larry Wall in <1991Nov13.194420.28091@netlabs.com>
------------------------------
Date: Mon, 27 Apr 1998 23:12:43 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Craig Simpson <craigs@3rdstone.net>
Subject: Re: An open2 issue, why not working through CGI??
Message-Id: <Pine.GSO.3.96.980427161219.18175F-100000@user2.teleport.com>
On Mon, 27 Apr 1998, Craig Simpson wrote:
> This works on the command line. But through CGI I am getting nothing
When you're having trouble with a CGI program in Perl, you should first
look at the please-don't-be-offended-by-the-name Idiot's Guide to solving
such problems. It's available on CPAN.
http://www.perl.com/CPAN/
http://www.perl.org/CPAN/
http://www.perl.org/CPAN/doc/FAQs/cgi/idiots-guide.html
http://www.perl.org/CPAN/doc/manual/html/pod/
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 27 Apr 1998 19:36:52 -0400
From: Uri Guttman <uri@sysarch.com>
To: Stan Towianski <stowians@ford.com>
Subject: Re: Backref With a Passed in Replacement Variable Not Working
Message-Id: <x7emyidegb.fsf@sysarch.com>
>>>>> "ST" == Stan Towianski <stowians@ford.com> writes:
you have major amounts to learn about perl. you don't think in perl yet,
but you will!
your arg parser needs major rewriting. beside using one of the many
getopt modules in CPAN you are doing this in C style
ST> $numargs = scalar( @ARGV );
ST> if ( $numargs < 1 )
ST> {
ST> print_instructs();
ST> exit 1;
ST> }
ST> for( $c = 0; $c < $numargs; $c++ )
ST> {
ST> if ( $ARGV [$c] eq "-i" or $ARGV [$c] eq "-I" )
ST> {
ST> $fpath = $ARGV [$c + 1];
ST> $c++;
ST> next;
<SNIP>
ST> $c++;
ST> next;
ST> }
ST> }
print_instructs(), exit 1 if @ARGV < 1 ;
perlthink doesn't use array indexing when shifting or foreach work fine
also perlthink doesn't compare both upper and lower strings, it uses lc
or the /i modifier for regexes.
while( @ARGV ) {
$arg = shift @ARGV ;
if ( lc($arg) eq '-i' ) {
$fpath = shift @ARGV ;
next ;
}
etc. etc.
}
ST> # HERE I JUST HARD CODE THE VARIABLES I WANT TO USE
ST> $fpath = "load_ds_dims.hl";
ST> $fpath_new = "out";
ST> $match = "mapsii_data_defs:(.*)\.dim";
ST> while( $line = <FPATH> )
ST> {
ST> print STDERR "got line =$line=";
ST> # IF I JUST REPLACE THE CHANGE_TO WITH WHAT IT IS IT WORKS.
ST> # THE $MATCH WORKS SO I WONDER IF PERL DOES NOT THE $1 IN THE $CHANGE_TO
ST> $line =~ s/$match/$change_to/ig; # THIS DOES NOT WORK WITH $CHANGE_TO
the replacement string is not substituted a second time try using the /ee
modifier. you mention it here but you also do an extra eval later. the
/ee does that for you
ST> ## PLAYED WITH THIS ONCE $newstring = eval( "$line =~
ST> s/$match/$change_to/eig" );
ST> ## print "newstring =$newstring=\n";
ST> print "line =$line=\n";
ST> }
hth,
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---- 8 Years of Perl Experience, Available Immediately
uri@sysarch.com --------- Resume and Perl Example at http://www.sysarch.com
Use the Best Search Engine on the Net -------- http://www.northernlight.com
------------------------------
Date: 27 Apr 1998 22:24:10 GMT
From: ehood@medusa.acs.uci.edu (Earl Hood)
Subject: Re: Can an assignment and a substitution be done in one statement?
Message-Id: <6i30ia$9dc@news.service.uci.edu>
In article <6hqqjv$2sg@transfer.stratus.com>,
Alfred von Campe <alfred@hw.stratus.com> wrote:
>|> ($foo = $bar) =~ s/x/y/;
>
>Of course, why didn't I think of that. Now the (rhetorical)
>question is, which one is more "elegant":
>
> $foo = $bar;
> $foo =~ s/x/y/;
> or
> $foo = $bar; $foo =~ s/x/y/;
> or
> ($foo = $bar) =~ s/x/y/;
"Elegance" is subjective. Also, it depends on what your intent is. I
like to use the last style when I want to say, "Make a modified copy of
a variable". The other two styles do not say it as well.
I tend to use the first style if I plan to do multiple modifications
to a variable that cannot be done with a single operation.
As for putting multiple statements on one line, I may do that when the
statements are are simple, and they are minor compared the surrounding
code.
--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: 27 Apr 1998 23:21:31 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Cookies
Message-Id: <6i33tr$ifg$6@client2.news.psi.net>
Scott Vetter (svetter@ameritech.net) wrote on MDCC September MCMXCIII in
<URL: news:3544B942.6FC1@ameritech.net>:
++ In the cookies parameter you can specify an expiration date. In the
++ doc I have it is hard coded. Is there a way to set this date to the
++ current date, plus one year? I would perfer seeing the code as opposed
++ to using a subroutine.
use Date::Manip;
Abigail
--
perl -we '$_ = q ;4a75737420616e6f74686572205065726c204861636b65720as;;
for (s;s;s;s;s;s;s;s;s;s;s;s)
{s;(..)s?;qq qprint chr 0x$1 and \161 ssq;excess;}'
------------------------------
Date: Mon, 27 Apr 1998 17:32:24 -0600
From: Zisa <zisa@onramp.net>
Subject: Credit Card Verification scripts?
Message-Id: <35451584.3DB50@onramp.net>
I'm new at all Perl and at disscussion groups.
I am doing a webpage for a person down the street and she wants Credit
card Verication Script that will process her orders. I unfortunately do
not know how to do this.
I am in the Llama book and am in chapter1. I would appreciate any tips,
pointers, or scripts that do this stuff.
thanks,
Zisa
------------------------------
Date: Mon, 27 Apr 1998 19:59:29 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Credit Card Verification scripts?
Message-Id: <comdog-ya02408000R2704981959290001@news.panix.com>
Keywords: from just another new york perl hacker
In article <35451584.3DB50@onramp.net>, zisa@onramp.net posted:
>I am doing a webpage for a person down the street and she wants Credit
>card Verication Script that will process her orders. I unfortunately do
>not know how to do this.
>
>I am in the Llama book and am in chapter1. I would appreciate any tips,
>pointers, or scripts that do this stuff.
hire someone who does know - like a merchant account representative.
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers <URL:http://www.pm.org>
------------------------------
Date: 27 Apr 1998 23:22:25 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Dummie question: EASY !! file copy wanted
Message-Id: <6i33vh$ifg$7@client2.news.psi.net>
Michael Haertfelder (haert@wharp.rhein-main.de) wrote on MDCC September
MCMXCIII in <URL: news:6sgJ8gq-ZZB@wharp.rhein-main.de>:
++ Well, I could copy a file in perl like this:
++
++ while(<OLD>) {
++ print NEW $_; }
++
++
++ but I feel that there is another easier (shorter) way to do that.
++ Any suggestions ?
use File::Copy;
or
system "cp file1 file2";
Abigail
--
perl -we '$_ = q ;4a75737420616e6f74686572205065726c204861636b65720as;;
for (s;s;s;s;s;s;s;s;s;s;s;s)
{s;(..)s?;qq qprint chr 0x$1 and \161 ssq;excess;}'
------------------------------
Date: Mon, 27 Apr 1998 23:21:47 GMT
From: tnguru@termnetinc.com (Ben Coleman)
Subject: Re: Help: crypt for Win32 ??
Message-Id: <35450f62.337391272@news.mindspring.com>
On Mon, 27 Apr 1998 22:19:53 GMT, ELSS Admin
<elssa09@callisto.si.usherb.ca> wrote:
>Ben Coleman wrote:
>> There's a Perl version of crypt at
>> http://www.pdv-systeme.de/users/martinv/Crypt.pm.
>Do i just install it? Which directory?
Just copy it into a directory in @INC. c:\perl\lib\site will do if you
have the GS port installed to c:\perl.
For portability's sake, I usually check Config to see if crypt is compiled
in before using the Crypt module. E.g.:
use Config;
if(!defined($Config{d_crypt})) {
eval {
require Crypt;
import Crypt;
};
if($@) {
die "no crypt function available";
}
}
This way, you use the (faster) compiled-in function if it is available, but
can fall back to the Perl version if it is not.
Ben
--
Ben Coleman tnguru@termnetinc.com |
Senior Systems Analyst |
TermNet Merchant Services, Inc. |
Atlanta, GA |
------------------------------
Date: 27 Apr 1998 23:26:54 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: How strong is the perl crypt function ?
Message-Id: <6i347u$dvb$4@comdyn.comdyn.com.au>
In article <6scFmyvFZZB@wharp.rhein-main.de>,
haert@wharp.rhein-main.de (Michael Haertfelder) writes:
> There is a built-in function "crypt" in perl. It resembles at the crypt
> function in C and it guess that this is not as strong as PGP.
The crypt() function (which is nothing more than a wrapper for the C
function crypt(3), available on most unix systems) is something
entirely different from PGP. crypt uses a hashing algorithm, which
'encrypts' things in a one way fashion, typically used for passwords.
# perldoc -f crypt
> Is it possible to apply this function to whole files ?
Well, yes, but it wouldn't do you any good. Only the first 8
characters are used, and you end up with a short string which cannot
be 'decoded'. You might want to check CPAN to see if there are some
modules that can help you out.
http://www.perl.com/CPAN/modules/00modlist.long.html#14)Authenticati
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Mon, 27 Apr 1998 23:05:30 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: spencer@luckman.com
Subject: Re: How to add \ to an email address
Message-Id: <Pine.GSO.3.96.980427160250.18175C-100000@user2.teleport.com>
On Mon, 27 Apr 1998 spencer@luckman.com wrote:
> How do I add \ to a string that contains @ and . characters in Perl? I want to
> convert an email address like:
>
> somebody@here.company.com
>
> to this:
>
> somebody\@here\.company\.com
This looks suspiciously as if you want quotemeta. But you aren't going to
check for string equality with a pattern match, are you? (Use 'eq'.) Or,
nearly as bad, you're not going to search for an email address in text by
using a pattern match? (Use index.)
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 27 Apr 1998 22:34:19 GMT
From: ehood@medusa.acs.uci.edu (Earl Hood)
Subject: Re: How to read command line literally?
Message-Id: <6i315b$9i2@news.service.uci.edu>
In article <6hr1j8$brt$4@csnews.cs.colorado.edu>,
Tom Christiansen <tchrist@mox.perl.com> wrote:
>In comp.lang.perl.misc,
> tendus@rpi.edu (Saurabh S. Tendulkar) writes:
>:I am new to Perl. I want to read the command line literally. For example,
>:if I say
>:
>:perlprog *.txt
>:
>:ARGV expands into all the .txt files. I want $ARGV[0] = "*.txt". How can
>:I do that ?
>
>You call it as
>
> $ perlprog '*.txt'
>
>of course. Any real shell preglobs for you so you don't
>have idiotic applications with varying behaviours.
>
>:I preferably dont want to change the command line in any way.
>
>Then you lose. May I interest you in a CP/M system instead?
If using csh, or tcsh, you can shut off globbing so things like
"*.txt" will not get expanded and passed directly to the program.
The following command shuts off globbing:
set noglob
To get it back:
unset noglob
Note, it is usually easier to just use quotes as already shown, or
to escape the character. For example,
perlprog \*.txt
--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: Mon, 27 Apr 1998 19:54:00 -0400
From: Cameron DeJong <camerond@skantech.com>
Subject: Little CGI Problem (I hope)
Message-Id: <35451A98.12C5@skantech.com>
Hi all
I have set up a cgi chat room on my web site, url
http://www.referencecity.com, which is located at
http://www.referencecity.com/cgi-local/chat/chatpro.cgi
Everything seems to be configured properly, but when a person logs in,
types a message, and hits the post button, the registration screen
appears once again, now allowing the chat message to be posted.
My web host is running off of a SUN Apache server. For further info on
cgi settings, the address is http://www1.fatcow.net
Any help would be greatly appreciated!
thank you
Cameron DeJong
camerond@skantech.com
------------------------------
Date: 27 Apr 1998 22:43:29 GMT
From: ehood@medusa.acs.uci.edu (Earl Hood)
Subject: Re: ls -R ?
Message-Id: <6i31mh$9o1@news.service.uci.edu>
[mail & posted]
In article <354105d3.74684488@news.btinternet.com>,
Jonathan Stowe <Gellyfish@btinternet.com> wrote:
>On 25 Apr 1998 12:21:14 GMT, jon@blading.com wrote:
>Of course you can do this yourself if you must. The neatest way to do
>this would be with the DirHandle module which will overcome the
>nastiness you will encounter with caching Directory handle globs.
Use of the DirHandle module is rarely needed (even the DirHandle
docs imply this).
>A quick example would be:
>
>#!/develop/bin/perl
>use DirHandle;
>dodir("/htdoc");
>sub dodir()
>{
> local $dir = shift;
> my $dirhandle = new DirHandle($dir);
> if($dirhandle)
> {
> while($file = $dirhandle->read)
> {
> next if ($file =~ /^\.{1,2}$/);
> my $fullpath = $dir . "/" . $file;
It is better to get the entire directory list into an array, close the
directory handle, and then iterate of the array. This avoids the need
having a have a unique directory handle, and to avoid the possibility
of running out of descriptors due to too many open files.
--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: 27 Apr 1998 22:28:24 GMT
From: ehood@medusa.acs.uci.edu (Earl Hood)
Subject: Re: matching man page lines
Message-Id: <6i30q8$9e7@news.service.uci.edu>
In article <6hjvue$kn$1@bell.pconline.com>,
John Erjavec V <jev@pconline.com> wrote:
>I have a couple questions: 1) Has anyone done this before (so I don't
>reinvent more of the wheel)? and 2) Does anyone have any suggestions on how
>to speed up the regexes (or general advise on the state of the code)?
Take a look at <URL:http://www.oac.uci.edu/indiv/ehood/man2html.html>.
The basic technique is that stripping headers and footers from
nroff were done by "page" sizes and margins. Ie. You specify the
size of each page in lines with top and bottom margin in lines.
No regexes needed.
--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: 27 Apr 1998 23:17:08 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: perl 5.004 is better than 5.004004 ?!
Message-Id: <6i33lk$dvb$3@comdyn.comdyn.com.au>
In article <slrn6k6gfd.6jv.stolze@paxp01.mipool.uni-jena.de>,
stolze@paxp01.mipool.uni-jena.de (Knut Stolze) writes:
> Das ist hier uebrigens eine deutsche Newsgruppe. Du musst also nicht
> zwingend englisch posten :-))
>
> ciao, Knut
[Translation: This is BTW a german newsgroup. You don't have to post
in english]
Newsgroups: comp.lang.perl.misc,de.comp.lang.perl
Notice the crosspost to both the international and the german group?
He was right posting in english, you should have removed the crosspost
to the international group before responding in german :)
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: 27 Apr 1998 23:20:20 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Perl classes or training
Message-Id: <6i33rk$qtm$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
aml@world.std.com (Andrew M. Langmead) writes:
:asked me where to to find a course on perl, I'd probably point the to
:Randal's company.
Um, I have been giving courses/class/seminars talks on Perl since 88,
classes on C and Unix since 82. I also have a company that gives Perl
classes comprising some half-dozen great trainers. I've made major,
tangible contributions to the Perl distribution and development over
the last decade.
I could give plenty more qualifications, but I deeply despise commercial
adverts; even moreso people who advertise themselves. So I have to go
puke now. But I couldn't let this by.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
X-Windows: A mistake carried out to perfection.
--Jamie Zawinski
------------------------------
Date: Mon, 27 Apr 1998 18:34:35 -0600
From: gwynne@utkux.utk.edu
Subject: Re: Perl classes or training
Message-Id: <6i34mb$c2i$1@nnrp1.dejanews.com>
I don't deny that Randal is a good teacher. How should I know? From all of
the testimony on this thread, he undoubtedly is a VERY good teacher. I was
criticizing his logic. In fact, I would assume from the quality of his
writing and organization that he is a good teacher-- as long as he is not
teaching logic. :>)
Bob Gwynne
In article <Es2s80.Kvs@world.std.com>,
aml@world.std.com (Andrew M. Langmead) wrote:
>
> "Bob Gwynne" <gwynne@utkux.utk.edu> writes:
> >Randal Schwartz wrote in message <8cbttqnhoh.fsf@gadget.cscaper.com>...
> >>Sure, but have they written bestselling Perl books? :-)
> >>
> >Randal:
> > Maybe I'm missing something here, but I don't understand your logic.
> >Although you have written a couple of Perl books and obviously know a lot
> >about Perl, does that necessarily mean that you are a better teacher of
Perl
> >than someone who knows Perl, but has not written a book on the subject?
>
> Last Saturday, I went to a talk given by Randal. When talking about
> some issues in his life that have caused him some financial hardships,
> he told the audience not to think that he was rich because he was an
> author or co-author of some bestselling technical books. He said that
> technical authors mostly write to gain status in their community and
> that the added status hopefully will lead to jobs that will lead to
> better money.
>
> Now I know nothing about Randal's or Onsight's training. But I would
> say that the book does give some credibility to Randal's ability as an
> instructor. (Especially since Randal has said in the past that the
> Llama was an outgrowth of his training course.) It shows knowledge in
> the subject, and an ability to organize the subject in a coherent
> manner for a novice. Also, since according to Randal's web page, he
> has been giving Perl courses since 1992, I would assume that he has
> had enough satisfied customers to maintain teaching as a business. Also
> such a thorough knowledge of the subject at hand (proven by the
> books, the posts here, and other sources), does add value to an
> instructor. That the instructor will be able to answer any question
> given to him is a very valuable asset. (The fact that Randal is
> mentioned in the "Changes*" file in the perl distribution shows that
> he has worked enough of perl to discover bugs or suggest features that
> seemed worthwhile to implement.)
>
> Onsight's Web Page says that the founder created Onsight in 1995. I
> guess I feel that is probably long enough to prove their worth as
> well. (Well, the cynical side of me may think that maybe there is such
> a demand for perl classes that anybody can do it. The year 1995 does
> put put you in the start of the WWW craze. I do recognize that the
> basis for thoughts like that are entirely prejudicial. I have no
> reason to form any opinion one way or another.)
>
> I guess if a friend told me that were going to a class given by some
> company that I had never heard of taught by instructors that I had
> never heard of, I'd tell them that that was great. I'd have no reason
> to doubt that they would get something from it. If they came up and
> asked me where to to find a course on perl, I'd probably point the to
> Randal's company.
>
> --
> Andrew Langmead
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Mon, 27 Apr 1998 19:54:42 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Perl classes or training
Message-Id: <comdog-ya02408000R2704981954420001@news.panix.com>
Keywords: from just another new york perl hacker
In article <6i34mb$c2i$1@nnrp1.dejanews.com>, gwynne@utkux.utk.edu posted:
>I don't deny that Randal is a good teacher. How should I know? From all of
>the testimony on this thread, he undoubtedly is a VERY good teacher. I was
>criticizing his logic. In fact, I would assume from the quality of his
>writing and organization that he is a good teacher-- as long as he is not
>teaching logic. :>)
only if your worldview is so small as to assume everything is based on
logic, or that Randal's humor is entirely superficial...
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers <URL:http://www.pm.org>
------------------------------
Date: 27 Apr 1998 23:13:14 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Please stop and help.
Message-Id: <6i33ea$dvb$2@comdyn.comdyn.com.au>
In article <6hrfas$grf$1@nntp.smartdna.com>,
"Jason Hall" <jasonh@eicp.com> writes:
> My question: How do I compile a perl script on my win95
> machine in order to ftp it to the unix server so it will work?
You don't. You transfer the plain text file that you run on your
windows 95 box with FTP, in (and this is important) ASCII mode. If
your fto client allows you to change the permissions on the file, do
that.
You will want to read:
http://www.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html
http://www.perl.com/CPAN/doc/FAQs/cgi/perl-cgi-faq.html
How to use your ftp client, or how to change those permissions without
telnet access is something I don't know. You might be able to find out
by asking on a group that talks about CGI, or something.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: 27 Apr 1998 23:13:31 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Radio buttons and check boxes
Message-Id: <6i33er$ifg$4@client2.news.psi.net>
Built Environment Engineering Group (sales@beegroup.co.uk) wrote on MDCC
September MCMXCIII in <URL: news:hj08pAAxyLR1EwTj@beegroup.co.uk>:
++ I'm trying to make a perl script gather information from a website
++ response form. Using and adapting a script from a Demon tutorial page,
++ I can easily gather info from text fields, but nowhere can I find advice
++ on how to read radio buttons and check boxes.
Then you haven't read the manual of CGI.pm yet. Please do.
use CGI; # CGI is your friend.
Abigail
--
perl -wle\$_=\<\<EOT\;y/\\n/\ /\;print\; -eJust -eanother -ePerl -eHacker -eEOT
------------------------------
Date: Mon, 27 Apr 1998 23:08:20 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Physics OWL <hsgsj@student.physics.umd.edu>
Subject: Re: Reverse Lookup???
Message-Id: <Pine.GSO.3.96.980427160650.18175D-100000@user2.teleport.com>
On Mon, 27 Apr 1998, Physics OWL wrote:
> Does anyone have any code that'll take an IP address and turn
> it into the host name associated with it? I've tried using
> 'gethostbyname' but it only returns the IP address I feed it.
gethostbyname looks up an adress by name. If you want to do look up by
address, what do you think the function would be named? :-) (You're
really close...)
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 27 Apr 1998 23:15:01 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Ben Jarrett <ben@xeyed.demon.co.uk>
Subject: Re: setting off a ZIP file dload
Message-Id: <Pine.GSO.3.96.980427161320.18175G-100000@user2.teleport.com>
On Mon, 27 Apr 1998, Ben Jarrett wrote:
> Can someone please let me know the best way via PERL to activate
> a ZIP file dload in the browser.
Generally, you use print something like this.
print "some command to the browser";
If you're not sure what string to use there, the documentation for the
browser should be able to help. Failing that, a newsgroup about browsers,
CGI, or similar issues (or the respective FAQs) would be a good place to
turn. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 27 Apr 1998 23:15:51 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Syntax to make my hit counter work?
Message-Id: <6i33j7$ifg$5@client2.news.psi.net>
Iain Gatt (iain.gatt@strath.ac.uk) wrote on MDCC September MCMXCIII in
<URL: news:3544B7D2.41C6@strath.ac.uk>:
++ I want to write the code for my own hit counter rather than go to a 3rd
++ party and just get a banner of some sort. My method has involved useing
++ a hit counter implemented in perl (run on my Unix server) which gives a
++ simple numeric output, this is accessed via javascript to give a
++ graphical output. I am however failing miserably.
Ah, let's see. Right. I see it. There's an error on line 17.
Abigail
--
perl -pwle '$_ .= reverse'
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.
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 2434
**************************************
