[10404] in Perl-Users-Digest
Perl-Users Digest, Issue: 3997 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Oct 17 06:01:52 1998
Date: Sat, 17 Oct 98 03:00:20 -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 Sat, 17 Oct 1998 Volume: 8 Number: 3997
Today's topics:
Re: A Simple Question (Michael J Gebis)
Re: ActiveState Perl evaluation...questions <masonj@erols.com>
Anybody has statistics on PERL driven Websites? (Chi M. Cheung)
Re: Anybody has statistics on PERL driven Websites? <che@debian.org>
Re: ARGV and Use of uninitialized value <marnix@marnix.com>
Re: count files.... <dgris@perrin.dimensional.com>
Re: count files.... (Larry Rosler)
Re: count files.... <dgris@perrin.dimensional.com>
Re: grrrrr, why not while(<blah>) <tchrist@mox.perl.com>
Re: grrrrr, why not while(<blah>) <eashton@bbnplanet.com>
How to write a recursive function <dlucas@removethisgol.com>
I'm new, but know what I need <forgetit@usadowntheloo.com>
matching variables out of list arrays (Ok1aGo)
Re: Need help with this script <m.v.wilson@erols.com>
Re: Off topic: is he that Larry Wall? (I R A Aggie)
Re: Passing Filehandle as parameters to function <egwong@netcom.com>
Perl and resizing JPEGs <michael@mks-tech.com>
Re: Perl and resizing JPEGs <egwong@netcom.com>
PERL and SQL (Linux) <info@edoc.co.za>
Perl's a first in my book <mp@mkt2mkt.com>
Re: Perl's a first in my book <eashton@bbnplanet.com>
Re: Recover ref from string (Larry Rosler)
Re: sorting (Mark-Jason Dominus)
Syslog not puttting anything into the log (Richard F. Barham)
Re: Syslog not puttting anything into the log (Marc Haber)
Thanks for your responses, two Larry's.(no content) <j9feng@hotmail.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 17 Oct 1998 00:59:26 GMT
From: gebis@fee.ecn.purdue.edu (Michael J Gebis)
Subject: Re: A Simple Question
Message-Id: <708q5e$gn1@mozo.cc.purdue.edu>
yong <yong@shell.com> writes:
}Suppose a file contains 1 million lines. I want to read in all except
}the first line and process them. I can think of this code to do the
}work:
# More human than human
open INP, "the_file" or die "XXX:$!";
# Treat the first line differently, by ignoring it up front:
<INP>;
# Now loop like crazy:
while (<INP>) { &processit; }
close INP;
}But this is quite a waste if compared to a real human doing the job. If
}I do it manually, I'll definitely not ask myself whether the line read
}in is the first line from the second line on.
Now it does the approximately the right thing.
P.S. My computer wants me to point out that there's no way that you
could ever get a human to read a million lines in a loop like that.
He doesn't feel you're giving his kind the proper respect.
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: Sat, 17 Oct 1998 00:02:28 -0400
From: "John Mason Jr" <masonj@erols.com>
Subject: Re: ActiveState Perl evaluation...questions
Message-Id: <7094ss$bdd$1@autumn.news.rcn.net>
ActiveState's debugger does require a license key for demo they email it to
you when you register.
Ray Smith wrote in message <6vvfc0$3dd$1@client3.news.psi.net>...
>I've been trying to use ActiveState's Perl (build 502). A few problems
have
>stopped me cold. I'm hoping this forum might propose some answers.
>1. In attempting to run Perl code which correctly works under Gurusamy
>Sarathy's binary distribution Perl, the following occurs:
>Note the example code uses Tk and I have installed Tk.
>S:/R11/SDFREV/TESTDEV[4204] sdflog -bt01.sfl -e
>...
>Goto undefined subroutine &Tk::Entry::insert at
>d:\ap502\site\5.00502\lib/Tk/Widget.pm line 318.
>I can't see where the problem lies.
>...Looking at the source code, I see nothing which references "insert":
>S:/R11/SDFREV/TESTDEV[4205] head -320
>d:/ap502/site/5.00502/lib/tk/widget.pm|tail
> require "Tk/$method.pm";
> }
> }
> }
> }
>$@ = $save;
>$DB::sub = $what; # Tell debugger what is going on...
>goto &$what;
>}
>I may be dense, but I don't quite see where member references such as ...
>d:/ap502/site/5.00502/lib/Tk/Entry.pm: $w->insert("insert",$s);
>d:/ap502/site/5.00502/lib/Tk/Entry.pm: $w->insert('insert',$new);
>2. Debugging... When I try to use the debugger (via -d switch) to debug the
>above problem.
>a. I get a deluge of "Use of uninitialized value at d:\pasdebug\PerlDB.pl
>line 644." messages
>b. then I get a message saying "No License Key was found"
>c. When I continue the debugger exits upon the "Goto undefined subroutine"
>error.
>Is there a way to set breakpoints in a named module's member function?
>Single stepping from the main would take just too long.
>Does the debugger work properly for evaluation without a license key?
>Thanks for your attention and help.
>
>
>
------------------------------
Date: 17 Oct 1998 04:36:21 GMT
From: cmc@aracnet.com (Chi M. Cheung)
Subject: Anybody has statistics on PERL driven Websites?
Message-Id: <7096s5$ica$1@spitting-spider.aracnet.com>
Does anybody have any statistics on how many websites are driven by PERL?
I need this to convince my manager to let me work on a PERL extension
module.
Thanks in Advance.
--Ming
--
(^_^;
------------------------------
Date: 16 Oct 1998 21:41:55 -0700
From: Ben Gertzfield <che@debian.org>
Subject: Re: Anybody has statistics on PERL driven Websites?
Message-Id: <yttyaqf6bqk.fsf@gilgamesh.cse.ucsc.edu>
>>>>> "Chi" == Chi M Cheung <cmc@aracnet.com> writes:
Chi> Does anybody have any statistics on how many websites are
Chi> driven by PERL? I need this to convince my manager to let me
Chi> work on a PERL extension module.
Ming, wouldn't a better question be:
"How many websites are *not* driven by Perl?"
I'd guess maybe 10 to 15 percent of all the websites out there have no
Perl used on them. Maybe.
--
Brought to you by the letters O and G and the number 15.
"* denotes Hot and Spicy!" -- *Ben Gertzfield
Debian GNU/Linux -- where do you want to go tomorrow? http://www.debian.org/
I'm on FurryMUCK as Che, and EFNet and YiffNet IRC as Che_Fox.
------------------------------
Date: Fri, 16 Oct 1998 20:31:31 -0700
From: "Marnix A. van Ammers" <marnix@marnix.com>
Subject: Re: ARGV and Use of uninitialized value
Message-Id: <3627f37c.0@blushng.jps.net>
In the latter case you're only *testing* $ARGV[0] to see if it's anything
other than 0 or "". In the first case you were trying to *change* $ARGV[0].
I think.
:-)
mike_allen@my-dejanews.com wrote in message
<708bmk$mgv$1@nnrp1.dejanews.com>...
>Hello,
>
>Why does the following:
>
>#!/usr/bin/perl -w
>
>$ARGV[0] =~ s/,//;
>if( $ARGV[0] ) { < error here
> print "$ARGV[0]\n";
>}
>
>produce:
>
>$ temp.pl
>Use of uninitialized value at ./temp.pl line 4
>
>if passed no arguments, but:
>
>if( $ARGV[0] ) {
> print "$ARGV[0]\n";
>}
>
>does not?
>
>Thanks,
>Mike
------------------------------
Date: Sat, 17 Oct 1998 06:30:48 GMT
From: Daniel Grisinger <dgris@perrin.dimensional.com>
Subject: Re: count files....
Message-Id: <m3k91zd7z4.fsf@perrin.dimensional.com>
lr@hpl.hp.com (Larry Rosler) writes:
> Well, not quite. That will also count the pseudo-directories '.' and
> '..' and any other directories.
>
> $num = grep -f => readdir DIRECTORY;
>
> ought to do it.
It doesn't.
$ ls -a | wc -l
130
$ perl -e 'opendir (DIR, q|.|);
$num = grep -f => readdir DIR;
print qq.$num\n.;'
130
$ perl -e 'opendir (DIR, q|.|);
$num = grep -f, readdir DIR;
print qq.$num\n.;'
95
`=>' is generally a synonym for `,', except that it forces
its left hand side to be interpreted as a string. It's
as if you had written -
$num = grep "-f", readdir DIR;
Since the literal string "-f" is always true, you end up counting
every entry in the directory.
On the other hand, this may be a bug in perl, as the result
changes depending upon whether you use single or double quotes
around the -f.
$ perl -e 'opendir (DIR, q|.|);
$num = grep '-f', readdir DIR;
print qq.$num\n.;'
95
$perl -e 'opendir (DIR, q|.|);
$num = grep "-f", readdir DIR;
print qq.$num\n.;'
130
I'm not sure if this is a bug, but it certainly violates
the Principle of Least Surprise :-).
dgris
--
Daniel Grisinger dgris@perrin.dimensional.com
perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'
------------------------------
Date: Sat, 17 Oct 1998 00:37:03 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: count files....
Message-Id: <MPG.1091e8fc34eb23a19898be@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <m3k91zd7z4.fsf@perrin.dimensional.com> on Sat, 17 Oct 1998
06:30:48 GMT, Daniel Grisinger <dgris@perrin.dimensional.com> says...
> lr@hpl.hp.com (Larry Rosler) writes:
>
> > Well, not quite. That will also count the pseudo-directories '.' and
> > '..' and any other directories.
> >
> > $num = grep -f => readdir DIRECTORY;
> >
> > ought to do it.
>
> It doesn't.
...
> `=>' is generally a synonym for `,', except that it forces
^^^^^^
No it doesn't. Or at least it shouldn't. See below.
> its left hand side to be interpreted as a string. It's
> as if you had written -
>
> $num = grep "-f", readdir DIR;
When I tested this before posting it, I got the
Ambiguous use of -f => resolved to "-f" => at try.pl line 16.
warning, fixed it, and promptly forgot to post the corrected version.
This warning goes away in Perl 5.005, BTW.
BUT, there is another mystery. On October 7, Tom Phoenix posted in
http://x12.dejanews.com/getdoc.xp?AN=398757877&CONTEXT=908608691.8013088
97&hitnum=0
"As a shortcut, if the item in the curly braces of a hash element
reference is just a plain bareword, quote marks may be omitted. But if
it's any fancier, it's really an expression, so you may need quotes."
Now a 'bareword' is obviously an unquoted 'word' according to the Perl
definition of a 'word'. And '-f' is not a 'word' -- it is an operator.
Hmpff.
I haven't found a clear definition of 'word' in perldoc. Sometimes it
means 'identifier' (which '-f' is not), or it may mean a string of word
characters "\w" (which '-f' is not). So I don't know why this automatic
quoting occurs.
> On the other hand, this may be a bug in perl, as the result
> changes depending upon whether you use single or double quotes
> around the -f.
>
> $ perl -e 'opendir (DIR, q|.|);
> $num = grep '-f', readdir DIR;
> print qq.$num\n.;'
> 95
>
> $perl -e 'opendir (DIR, q|.|);
> $num = grep "-f", readdir DIR;
> print qq.$num\n.;'
> 130
>
> I'm not sure if this is a bug, but it certainly violates
> the Principle of Least Surprise :-).
Amazing. Each of those strings is TRUE, no?
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sat, 17 Oct 1998 08:33:43 GMT
From: Daniel Grisinger <dgris@perrin.dimensional.com>
Subject: Re: count files....
Message-Id: <m33e8nd2fv.fsf@perrin.dimensional.com>
[posted to comp.lang.perl.misc and mailed to the cited author]
lr@hpl.hp.com (Larry Rosler) writes:
> In article <m3k91zd7z4.fsf@perrin.dimensional.com> on Sat, 17 Oct 1998
> 06:30:48 GMT, Daniel Grisinger <dgris@perrin.dimensional.com> says...
> > `=>' is generally a synonym for `,', except that it forces
> ^^^^^^
> No it doesn't. Or at least it shouldn't. See below.
I don't agree that it shouldn't, but only because it's documented
that way.
>From perlop-
The => digraph is mostly just a synonym for the comma
operator. It's useful for documenting arguments that come
in pairs. As of release 5.001, it also forces any word to
the left of it to be interpreted as a string.
> When I tested this before posting it, I got the
>
> Ambiguous use of -f => resolved to "-f" => at try.pl line 16.
>
> warning, fixed it, and promptly forgot to post the corrected version.
> This warning goes away in Perl 5.005, BTW.
That would explain why I didn't see the warning, I'm running
5.005_02 (and don't have an older perl laying around on this
box to test against).
> Now a 'bareword' is obviously an unquoted 'word' according to the Perl
> definition of a 'word'. And '-f' is not a 'word' -- it is an operator.
> Hmpff.
Indeed.
> I haven't found a clear definition of 'word' in perldoc. Sometimes it
> means 'identifier' (which '-f' is not), or it may mean a string of word
> characters "\w" (which '-f' is not). So I don't know why this automatic
> quoting occurs.
I can't find a reasonable explanation anywhere for what does
or does not qualify as a `word' either. Like you, I'm stuck
when it comes to explaining how perl disambiguates different
constructs (although Ilya will probably claim that it is yet
another issue with perl's context sensitivity algorithm :-).
<snip differences between using double and single quotes for
the left hand side of => >
> > I'm not sure if this is a bug, but it certainly violates
> > the Principle of Least Surprise :-).
>
> Amazing. Each of those strings is TRUE, no?
That's what I would think. But the difference between s'''
and s""" leaves me wondering if this is another place where
the type of quote mark used changes the functionality of an
expression. Perhaps someone else with more of a clue about
perl's parser can explain this.
FWIW, I think that this is probably a bug. If I can scrape
up some extra time tomorrow (and if my wife doesn't go into
labor, which should happen any day now :-) I'll investigate
this further.
dgris
--
Daniel Grisinger dgris@perrin.dimensional.com
perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'
------------------------------
Date: 17 Oct 1998 01:14:58 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: grrrrr, why not while(<blah>)
Message-Id: <708r2i$5gk$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, larry@kiev.wall.org (Larry Wall) writes:
:It's another at-bat, silly. Randal's already had several base hits in
:between.
I guess that means he gets to kick for the extra point.
--tom
--
agoraphobia (n) - fear of implementing or of being trapped in open systems
------------------------------
Date: Sat, 17 Oct 1998 06:20:21 GMT
From: Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
Subject: Re: grrrrr, why not while(<blah>)
Message-Id: <362834A1.E0CE1C6A@bbnplanet.com>
Tom Christiansen wrote:
> I guess that means he gets to kick for the extra point.
Last I checked, there wasn't that sort of thing in the baseball
paradigm, but I could be wrong. Though trying to make a field goal with
a baseball would really be a &^*&%!. I'm buying a round of beer for
everyone concerned. Life is too short to nitpick. Breathe in, breathe
out. It's only Perl, did you mow your lawn today or hug the person close
to you? just a reality check.
e.
After all, the cultivated person's first duty is to
always be prepared to rewrite the encyclopedia. - U. Eco -
------------------------------
Date: Sat, 17 Oct 1998 09:49:16 GMT
From: Dan Lucas <dlucas@removethisgol.com>
Subject: How to write a recursive function
Message-Id: <VA.00000014.02713dae@dlucas.gol.com>
I am trying to write a script which uses a recursive function which
walks through a directory tree and does something to each file. I have
written something gives strange results, often deciding that a file is
a directory and vice versa.
I have appended the script to this message; any pointers to what I have
done wrong would be much appreciated.
TIA,
Dan
#!/usr/bin/perl -w
use strict;
my $input_dir = $ARGV[0];
$input_dir = "e:foo"; # for testing purposes
if (substr($input_dir,(length($input_dir)-1),1) ne "\\") {$input_dir .=
"\\"}; # add slash if necessary
&recur ($input_dir);
#--------------------------------------------------------
sub recur {
my $recur_dir;
my $entry;
$recur_dir = $_[0];
opendir D_RECUR, $recur_dir || die;
my @entries = grep( !/^\.\.?$/, readdir(D_RECUR));
closedir (D_RECUR);
foreach $entry (@entries) {
if (-d $recur_dir . $entry) {
# do something if it's a directory
print ("directory: $entry\n");
&recur ($recur_dir . $entry);
} else {
# do something else if it's a file
print ("file: $entry\n");
}
}
}
------------------------------
Date: Sat, 17 Oct 1998 19:38:25 +1300
From: Dominic <forgetit@usadowntheloo.com>
Subject: I'm new, but know what I need
Message-Id: <36283B60.39A10BCB@usadowntheloo.com>
Hello
First, sorry if this kind of post has appeared many times before. I'm
new and not sure of the "status" of this kind of post.
I'd like some help:
Sites giving an overview of the perl language instruction set.
A site showing a "how to" of getting a script to pass the information it
collects from the form off the Web page and to invoke a .exe
program.(which uses it)
I'd like to set up an online database. I have MS Access. Help please!
What do I need to learn?
Thanks
Dom.
--
reply
blueatihugdotcodotnz
------------------------------
Date: 17 Oct 1998 06:36:57 GMT
From: ok1ago@aol.com (Ok1aGo)
Subject: matching variables out of list arrays
Message-Id: <19981017023657.10537.00001873@ng99.aol.com>
I would like to know how to match
if ($blabla eq $whatever) this is ok
BUT: how to exclude whenever a PART variable matches
I would like to know the code, similar to
if ('blabla" eq " /^blabla/") but for variables out of a list array
------------------------------
Date: Sat, 17 Oct 1998 02:55:59 +0000
From: WMWilson <m.v.wilson@erols.com>
Subject: Re: Need help with this script
Message-Id: <3628073F.C0259C61@erols.com>
Greg Bacon wrote:
>
> In article <707r22$svo$1@nnrp1.dejanews.com>,
> w.wilson@mailexcite.com writes:
> : $LOCK_EX = 2;
> : $LOCK_UN = 8;
>
> Don't do that. It's better to say
>
> use Fcntl qw( :flock );
>
> : while(<STDIN>) {
> : until(\cD) {
> : @comment_array = <STDIN>;
> : }
> : }
>
> No. The expression \cD will always be true (i.e. it's not one of
> the values that Perl considers false), so the until loop won't
> execute. If you had said use strict (why didn't you?) this wouldn't
> have even compiled.
>
> To read everything into @comment_array, use
>
> @comment_array = <STDIN>;
>
> instead of the while loop.
>
> : sub unlock_file {
> : flock LOG, $LOCK_UN;
> : }
>
> It would be simpler to just close the file because that would release
> any locks.
>
> Greg.
> --
> VMS is a text-only adventure game. If you win you can use Unix.
> -- Bill Davidsen
Thanks for the help, two things though. I didn't "use strict;" simply
because I'm not too good at this yet and so I get too involved with
trying to figure out my use of "my()" and whatnot, soon though. I do
have a question on the "until(\cD) portion though, I actually took that
out for a time and it still was not writing to the file. Any thoughts?
Also, does this look somewhere near efficient as far as storing a
variable, opening the file and the writing the variable to the file.
I'm slightly afraid that especially with the @comment_array, I could
drain a bit of memory if someone was especially bored and felt like
rambling. I'm just really not sure if this is decent or if there's a
better way.
Thanks again.
--
\||/
(..)
+---oOOo-----(_)-----oOOo-----+
| mailto:m.v.wilson@erols.com |
| WMWilson |
|__USCS Data Center Sysadmin__|
------------------------------
Date: Fri, 16 Oct 1998 21:19:01 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Off topic: is he that Larry Wall?
Message-Id: <fl_aggie-1610982119010001@aggie.coaps.fsu.edu>
In article <708mph$836@kiev.wall.org>, larry@kiev.wall.org (Larry Wall) wrote:
+ In article <3627846E.DDE5D443@hotmail.com>, feng <j9feng@hotmail.com> wrote:
+ > Is he the Larry Wall who fathered Perl?
+
+ That's the polite way to put it. :-)
Well, its not like you disowned the little bambino at v1.0...
James
------------------------------
Date: Sat, 17 Oct 1998 06:41:34 GMT
From: Eric Wong <egwong@netcom.com>
Subject: Re: Passing Filehandle as parameters to function
Message-Id: <egwongF0yL9A.E2D@netcom.com>
Jules <julius@clara.net> wrote:
: Dear all, newbie question: how do I pass a filehandle as a parameter to a
: function which can then make use of them? An example use:
See the section entitled "Passing Filehandles" in perlfaq7.
Quoting:
Passing Filehandles
To pass filehandles to subroutines, use the *FH or
\*FH notations. These are "typeglobs" - see the
section on Typeglobs and Filehandles in the perldata
manpage and especially the section on Pass by
Reference in the perlsub manpage for more information.
etc.
Eric
[cc'd]
------------------------------
Date: Fri, 16 Oct 1998 22:16:06 -0300
From: "Michael K. Steeves" <michael@mks-tech.com>
Subject: Perl and resizing JPEGs
Message-Id: <708r18$nls$1@garnet.nbnet.nb.ca>
This doesn't have to be be a perl issue but...
I need either some perl code or a standalone application that will let me
resize jpegs (create thumbnails) without haveing to do each one manually. I
don't see anything in the tk modules which will allow resizing. I want to be
able to call it from a perl script.
Any help is much appreciated!
Michael
michael@mks-tech.com
http://mks-tech.com/mks
------------------------------
Date: Sat, 17 Oct 1998 06:35:00 GMT
From: Eric Wong <egwong@netcom.com>
Subject: Re: Perl and resizing JPEGs
Message-Id: <egwongF0yKyC.9MJ@netcom.com>
Michael K. Steeves <michael@mks-tech.com> wrote:
: I need either some perl code or a standalone application that will let me
: resize jpegs (create thumbnails) without haveing to do each one manually. I
: don't see anything in the tk modules which will allow resizing. I want to be
: able to call it from a perl script.
You might try ImageMagick,
http://www.wizards.dupont.com/cristy/ImageMagick.html
http://www.wizards.dupont.com/cristy/www/perl.html
Eric
[cc'd]
------------------------------
Date: Sat, 17 Oct 1998 11:25:45 +0200
From: Nico <info@edoc.co.za>
Subject: PERL and SQL (Linux)
Message-Id: <36286299.48D6@edoc.co.za>
Hi,
I must expand my PERL horizon to SQL.
I'm Running Linux, and would like to know if there is somewhere a
FAQ/HowTo or similar?
Or could somebody give me a good start?
Thanks
Nico
------------------------------
Date: Fri, 16 Oct 1998 18:40:05 -0800
From: madame philosophe <mp@mkt2mkt.com>
Subject: Perl's a first in my book
Message-Id: <36280361.9C517A78@mkt2mkt.com>
Yesssss!!!!!!
I knew it I knew it, you hear I knew it!!!
Madame Philosophe
Larry Wall wrote:
>
> In article <702itf$fm3$1@nnrp1.dejanews.com>, <droby@copyright.com> wrote:
> >Since he seems to poke his head in a bit lately, I'm hoping to hear some
> >commentary from Larry on this question. Might be quote-file fodder.
>
> You want quote fodder? Yow. If there's anything worse than being
> turned out to pasture, it's being turned *into* pasture.
>
> Lessee. Fodder, fodder, fodder...
>
> Perl should only be studied as a second language. A good first
> language would be English.
>
> Don't teach Perl as a first language. Instead, find a nice small
> language and teach the subset of Perl that corresponds to it.
>
> The trouble with teaching Perl as a first computer language is that your
> students won't appreciate it till they start learning their second.
>
> The trouble with teaching Perl as a second language is that there's
> no single suitable first language to go in front.
>
> Don't teach them Perl as a first language, or they'll never make it to
> their second language...
>
> Don't let anyone tell you what your first computer language should be
> before you've learned several.
>
> Perl can certainly be used as a first computer language, but it was
> really designed to be a *last* computer language.
>
> Well of *course* Perl should not be taught to everyone. It should only
> be taught to people who want to like their computers.
>
> Honk if you love Perl! (or strawberries!)
>
> Larry
--
------
madame philosophe
"I am not a troll!"
- Famous last words before
the
guillotine of comp.lang.perl.misc
She's here to save the world from herself...
------------------------------
Date: Sat, 17 Oct 1998 05:29:52 GMT
From: Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
Subject: Re: Perl's a first in my book
Message-Id: <362828CD.D48BB322@bbnplanet.com>
madame philosophe wrote:
> I knew it I knew it, you hear I knew it!!!
You are a freak gurlfren ;)! Austin Powers would be proud.
e.
After all, the cultivated person's first duty is to
always be prepared to rewrite the encyclopedia. - U. Eco -
------------------------------
Date: Fri, 16 Oct 1998 20:39:29 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Recover ref from string
Message-Id: <MPG.1091b15093bc41cd9898bc@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <MPG.109197601a59e43f989696@news.anet-chi.com> on Fri, 16 Oct
1998 18:48:56 -0500, Thomas Rock <thomas@x-tekcorp.com> says...
> my $a = [10, 11, 12];
> my $b = sprintf("%s", $a);
>
> Is there any way to recover the reference to the
> array from the string contained in $b?
No.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 17 Oct 1998 03:24:31 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: sorting
Message-Id: <709gnf$8sp$1@monet.op.net>
In article <sar7ly0p7z9.fsf@camel.fastserv.com>,
Uri Guttman <uri@camel.fastserv.com> wrote:
> i think you should just be able to use the sub ref directly.
I asked Chip about this a couple of days ago, and he agreed.
------------------------------
Date: Sat, 17 Oct 1998 01:46:53 -0500 (CDT)
From: rfbarham@flash.net (Richard F. Barham)
Subject: Syslog not puttting anything into the log
Message-Id: <1.+^ufw2$}a@bato.friendly.org>
Hi. I'm using Sys::Syslog with the examples in the pod and in the book. But
it's not putting anything in the log. Everything looks ok, and I'm using the
perl that came with Redhat 5.1 .
Any ideas? Richard
--
Richard F. Barham
rfbarham@flash.net
http://www.flash.net/~barham/richard
------------------------------
Date: Sat, 17 Oct 1998 09:43:59 GMT
From: Marc.Haber-usenet@gmx.de (Marc Haber)
Subject: Re: Syslog not puttting anything into the log
Message-Id: <709ovt$a7b$2@test-news.rz.uni-karlsruhe.de>
rfbarham@flash.net (Richard F. Barham) wrote:
>Hi. I'm using Sys::Syslog with the examples in the pod and in the book. But
>it's not putting anything in the log. Everything looks ok, and I'm using the
>perl that came with Redhat 5.1 .
You need to have your syslogd accept connections on the syslog port
since Sys::Syslog uses this interface. Most syslogd implementations
need -r added to the syslogd start call.
Greetings
Marc
--
-------------------------------------- !! No courtesy copies, please !! -----
Marc Haber | " Questions are the | Mailadresse im Header
Karlsruhe, Germany | Beginning of Wisdom " | Fon: *49 721 966 32 15
Nordisch by Nature | Lt. Worf, TNG "Rightful Heir" | Fax: *49 721 966 31 29
------------------------------
Date: Sat, 17 Oct 1998 00:19:27 +0000
From: feng <j9feng@hotmail.com>
Subject: Thanks for your responses, two Larry's.(no content)
Message-Id: <3627E28F.28EA89D1@hotmail.com>
feng wrote:
> I am new to perl. Reading through the postings, I found several of them
> were writen by Larry Wall. Is he the Larry Wall who fathered Perl?
> Just curious.
>
> thx.
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3997
**************************************
