[13147] in Perl-Users-Digest
Perl-Users Digest, Issue: 557 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 16 18:07:18 1999
Date: Mon, 16 Aug 1999 15:05:14 -0700 (PDT)
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, 16 Aug 1999 Volume: 9 Number: 557
Today's topics:
Re: %0 %1 %2 ???? (brian d foy)
Re: <== importing hash symbols from one package to anot (Bart Lateur)
Re: <== importing hash symbols from one package to anot <Allan@due.net>
Re: <== importing hash symbols from one package to anot (Eric Bohlman)
Re: Array, Subroutine question <aqumsieh@matrox.com>
Beginner. Perl on NT <tille@post11.tele.dk>
Counting lines of block of text <dstu@u.washington.edu>
Re: djgpp, Win98, Perl, and serial port <dchristensen@california.com>
Re: HARASSMENT -- Monthly Autoemail miker3@ix.netcom.com
Re: Pattern matching and extracting data ("willow")
Pattern matching on command line tyeung@netscape.net
Re: perl and ftp download <elaine@chaos.wustl.edu>
Perl pattern matching on commandline thomasyeung@my-deja.com
Re: Perl Services <elaine@chaos.wustl.edu>
Re: Perl Services (brian d foy)
Re: Perl Services (brian d foy)
Re: problem printing ("html") <vinger@mail.ford.com>
Problems with the system function <mayes+@andrew.cmu.edu>
Re: returning a ref to a hash from a different module.. <priced@doctor.chem.yale.edu>
sorting arrays <mikej@1185design.com>
Re: spawning multiple processes in perl win32 <bruce_dodson@bigfoot.com>
Static variables <caitchison@novell.com>
Re: Static variables (Eric Bohlman)
text graphics? lan_chai@my-deja.com
unCRAP (was Re: Perl Services) <uri@sysarch.com>
Re: Why use comp.lang.python when you've got comp.lang. <webmaster@chatbase.com>
Re: Why use Perl when we've got Python?! <emschwar@rmi.net>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 16 Aug 1999 17:55:12 -0400
From: brian@pm.org (brian d foy)
Subject: Re: %0 %1 %2 ????
Message-Id: <brian-1608991755130001@234.new-york-61-62rs.ny.dial-access.att.net>
In article <7p8bgu$1e$1@sylvester.vcn.bc.ca>, Rick Lim <ricklim@vcn.bc.ca> wrote:
>are the %0 %1 %2 the same as command line parameters
>in the statment
>
>perl -S %0 %1 %2
i'm not sure what you are asking. command line parameters
show up in Perl in the @ARGV array. the positions that you
note in the above example would show up in $ARGV[0], $ARGV[1],
and $ARGV[2], respectively.
--
brian d foy
------------------------------
Date: Mon, 16 Aug 1999 20:47:14 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: <== importing hash symbols from one package to another ==>
Message-Id: <37ba7782.832608@news.skynet.be>
Kevin Howe wrote:
>Can anyone prove that Exporter can actually do this?
>@EXPORT = qw(hash);
Make this:
@EXPORT = qw(%hash);
I too think that the docs in Exporter.pm aren't clear on this. I
actually had to find out through examining it's source code! Testing
that it works, was of course the icing on the cake.
Bart.
------------------------------
Date: Mon, 16 Aug 1999 17:05:11 -0400
From: "Allan M. Due" <Allan@due.net>
Subject: Re: <== importing hash symbols from one package to another ==>
Message-Id: <7p9ulc$tc1$1@nntp5.atl.mindspring.net>
Kevin Howe wrote in message ...
:I'd like to thank everyone for being so helpful, my module is working
well
:using the sub import{} method. I am left with lingering questions about
:Exporter though. I've read it's documentation many times, I've tried
many
:different things, but I still could not properly export the hashes
using
:Exporter. Can anyone prove that Exporter can actually do this?
:Something along the lines of this:
:
:package main;
:use one;
:print $hash{'Color'};
:
:package one;
:require Exporter;
:@ISA = qw(Exporter);
:@EXPORT = qw(hash);
So close, your hash needs to be a hash <g>:
@EXPORT = qw(%hash);
HTH
AmD
--
$email{'Allan M. Due'} = ' All@n.Due.net ';
--random quote --
you can't just guess at things and expect them to work. this isn't
sociology.
- brian d foy (in clpm)
------------------------------
Date: 16 Aug 1999 21:10:56 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: <== importing hash symbols from one package to another ==>
Message-Id: <7p9up0$h52@dfw-ixnews8.ix.netcom.com>
Kevin Howe (khowe@performance-net.com) wrote:
: Something along the lines of this:
:
: package main;
: use one;
: print $hash{'Color'};
:
: package one;
: require Exporter;
: @ISA = qw(Exporter);
: @EXPORT = qw(hash);
Your hash isn't called 'hash'. It's called '%hash'. Try exporting it
based on what it's called :)
: $hash{'Color'} = "Red";
------------------------------
Date: Mon, 16 Aug 1999 15:23:51 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Array, Subroutine question
Message-Id: <x3y672fr0l4.fsf@tigre.matrox.com>
soccerreferee@hotmail.com writes:
>
> I'm looking for a little guidance understanding some code. I've
> been picking up PERL at a decent pace but this one has me stumped.
>
> The PERL Cookbook 4.11 gives:
>
> @friends = qw(Peter Paul Mary Jim Tim);
> ($this, $that) = shift2(@friends);
>
> sub shift2 (\@) {
> return splice(@{$_[0]}, 0, 2);
> }
>
> I have tried to run the code, but $this and $that come back as null,
> and @friends remains unchanged.
>
> If I change the subroutine to read:
>
> sub shift2 (\@) {
> @tmp = splice(@_, 0, 2);
> return @tmp;
> }
>
> This gives me $this and $that populated as I would expect, however it
> does not affect the @friends array. (I would expect the array to be 2
> items smaller as a result of the splice.)
>
> Anyone see what I'm missing? Any help is appreciated. Thanks!
Are you sure about this?
% perl -w
sub shift2 (\@) {
return splice(@{$_[0]}, 0, 2);
}
@friends = qw(Peter Paul Mary Jim Tim);
($this, $that) = shift2(@friends);
print "'$this' and '$that' and '@friends' ..\n";
__END__
'Peter' and 'Paul' and 'Mary Jim Tim' ..
It seems to be doing what it ought to do.
You get a yellow card for the false alarm :)
Ala
------------------------------
Date: Tue, 17 Aug 1999 00:01:42 +0200
From: "Peter Tilsted" <tille@post11.tele.dk>
Subject: Beginner. Perl on NT
Message-Id: <7pa1mq$cqq$1@news.inet.tele.dk>
Hi there
I am totally green on CGI and is trying to get started. Have bought the book
'Teach yourself CGI in a Week' but since this is a book for unix servers and
my server is NT i think that is the problem:
all i want to do is this:
TEST.HTM
<html>
<body>
Test of cgi
<br>
<!--#exec cgi="http://www.olstykke-fodbold.dk/cgi-bin/hello.pl"-->
</body>
</html>
the Hello.pl i am trying to run is as simple as this
HELLO.PL
#!/usr/bin/perl
print "hello world\n";
Why does this not work, running the perl script locally alone works fine
(perl hello.pl) but not on the server.
i hope someone can help, and if it is just a matter of reading som FAQ,
please direct me to it, and accept my apologies for this mail
TIA
Peter Tilsted
------------------------------
Date: Mon, 16 Aug 1999 12:51:53 -0700
From: "D. Stuart" <dstu@u.washington.edu>
Subject: Counting lines of block of text
Message-Id: <Pine.A41.4.10.9908161246230.40420-100000@vergil01.u.washington.edu>
I am a novice perl user, so my problem is probably elementary.
I have a program that returns a block of text.
Currently I am assigning that to an array "@text". I'd like to be able to
count the number of lines of text that I have. I know how to do this when
reading in a file... but not when it isn't a file.
What is a simple way to do this?
Thanks in advance,
Derek Stuart
UofWashington
------------------------------
Date: Mon, 16 Aug 1999 13:22:12 -0700
From: "David Christensen" <dchristensen@california.com>
Subject: Re: djgpp, Win98, Perl, and serial port
Message-Id: <37b870ba@news5.newsfeeds.com>
Bill:
>I think you mean a Perl version build with DJGPP 2.01. Did you
compile it yourself, or just use a pre-build binary distribution?
Pre-built binary.
>I also must ask WHY? The last time I looked, the DJGPP-built Perl
...
Because my work, and thus home, boxes are Win98. I want to support
the FSF and their "GNU Software for MS-Windows and MS-DOS and
Compatible Systems" (http://www.fsf.org/order/windows.html) seems
to work well on Win98. The FSF/ DJGPP Perl also works well with
Sambar Server (www.sambar.com) for Perl/CGI.
>There are at least two common ports for Win98 ...
Yup.
>> This is my current attempt...
>And it ... is doomed to failure on Win9x...
Hmmm. Eli suggested that I look into serial I/O using DJGPP first,
then try to do it in Perl. I also had the idea of writing test
patterns to the serial port from Perl and seeing what happens.
>> Searching around on Deja...
>People with either of the above ports...
OK that's what I thought. My back-up plan has always been CPAN
first, ActivePerl second.
>>> There is a gentleman in Japan...
>I still have not seen results...
He is constrained by the DOS (DPMI?) API, which I never learned --
I always programmed to the standard C library when I was on DOS. I
did serial I/O once using MS Quick C several years ago, but
couldn't figure out my code the last time I looked at it (~6
months?). I think I got the key bits from sample code in the MS
Mouse Programmer's Guide. I remember there was one or more
bios-something calls, but I couldn't find decent documentation for
them or the DOS serial driver. It was monkey see, monkey do.
For this project, I ended up learning the Win32 API stuff and
writing a console utility to do blocking serial I/O with timeouts.
My early development support apps were Win98 batch files calling
the console utility. I then migrated the serial code into our
Borland C++ Builder production app. The development need is back,
and I refuse to use batch files -- thus Perl. But the console
utility is slow and the constant open/closing of the serial port
confuses everything on the RS-485 bus. The clean Perl solution
would be a DJGPP::SerialPort. A work-around might be a Win32
service with a (piped? socketed?) console interface.
Thanks for your insight and suggestions! :-)
--
David Christensen
dchristensen@california.com
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 16 Aug 1999 20:12:46 GMT
From: miker3@ix.netcom.com
Subject: Re: HARASSMENT -- Monthly Autoemail
Message-Id: <7p9rbi$lcd$1@nnrp1.deja.com>
In article <slrn7rggor.oav.fl_aggie@thepentagon.com>,
fl_aggie@thepentagon.com (I R A Darth Aggie) wrote:
> So, you stand by your accusation that I support spam?
Your messages speak for themselves.
>
> + There is no way one can reasonably interpret Tom's message as an
email
> + followup. A followup contains the subject of the post it is
following
> + up in the subject line.
>
> Why? That's not a user configurable option on your system?
Who said anything about configuration. It doesn't matter whether one
follows up from one's news reader or by manually sending email. It's
called courtesy. When one follows up an article, one identifies which
article one is following up.
Oh! Wait a minute! That really was stupid of me! I forgot that Tom
Christiansen is a regular on comp.lang.perl.misc. Of course this
doesn't apply to him. Courtesy is something for regulars to flame
others about, not something for them to practice themselves.
> You're aren't worth my time.
Obviously, I am else you would not have responded.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 16 Aug 1999 12:32:34 -0800
From: chettah@msn.com ("willow")
Subject: Re: Pattern matching and extracting data
Message-Id: <jv_t3.3993$001.1929287@WReNphoon3>
The lines all look like this:
RP0401 99994028919519991013 +000002236.180000053
RP0401 99998010127619991013 +000000010.420000002
RP0404 91020000119619991013 -000000001.090000000
RP0401 80400000120119991013 -000000014.320000000
I am trying to add up the dollar amounts after the + or - and print the
total without the other numbers on the line getting in the way.
I have been referencing O'Reilly's Programming Perl. I'll play around with
the solution you suggested.
Thanks, Larry
Tara
-**** Posted from RemarQ, http://www.remarq.com/?a ****-
Search and Read Usenet Discussions in your Browser - FREE -
------------------------------
Date: Mon, 16 Aug 1999 20:14:46 GMT
From: tyeung@netscape.net
Subject: Pattern matching on command line
Message-Id: <7p9rf9$lde$1@nnrp1.deja.com>
To all:
I am a new Perl programmer.. and learning by myself. I would like to
know in Perl pattern matching expression.. /b /B /i /g /m etc..
Can I do the pattern matching on the command line??
For example:
on the command line:
perl program m/word/i < inputfile
in the program:
if ($string =~ @ARGV)
instead of
on the command line:
perl program word < inputfile
in the program:
if ($string =~ m/@ARGV/i)
Thanks in advance
Tom
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 16 Aug 1999 16:48:26 -0400
From: Elaine -HFB- Ashton <elaine@chaos.wustl.edu>
Subject: Re: perl and ftp download
Message-Id: <37B8791A.1BEDE607@chaos.wustl.edu>
Heather Wiley wrote:
> Before I reinvent the wheel I was wondering if any one has written/seen a automatic perl download for an ftp site. I DON'T want to mirror the site. I just want to download any file that has been posted since I last downloaded.
You might try rdist or Net::Ftp with File::Find.
e.
------------------------------
Date: Mon, 16 Aug 1999 20:13:52 GMT
From: thomasyeung@my-deja.com
Subject: Perl pattern matching on commandline
Message-Id: <7p9rdj$ld0$1@nnrp1.deja.com>
To all:
I am a new Perl programmer.. and learning by
myself. I would like to know in Perl pattern
matching expression.. /b /B /i /g /m etc..
Can I do the pattern matching on the command
line??
For example:
on the command line:
perl program m/word/i < inputfile
in the program:
if ($string =~ @ARGV)
instead of
on the command line:
perl program word < inputfile
in the program:
if ($string =~ m/@ARGV/i)
Thanks in advance
Tom
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 16 Aug 1999 16:55:04 -0400
From: Elaine -HFB- Ashton <elaine@chaos.wustl.edu>
Subject: Re: Perl Services
Message-Id: <37B87AA7.E5653213@chaos.wustl.edu>
[courtesy copy flung in the direction of ladnar]
"Randal L. Schwartz" wrote:
> mknickelbein> Please see our new site at http://perlservices.com/
> (Not to mention that a few more lines down, they're dumping raw
> characters into HTML without encoding entities... <sigh>. Shades of
> Matt Wright and Selena Sol combined.)
So, instead of bitching, why don't we help to have a site [finally] that
offers good solid free cgi's? I have a machine available to host this
on, and, though I have too many projects as it is, will be happy to help
someone set this up.
I'm tired of the wright rants. Why don't we do something to change that.
e.
------------------------------
Date: Mon, 16 Aug 1999 17:36:52 -0400
From: brian@pm.org (brian d foy)
Subject: Re: Perl Services
Message-Id: <brian-1608991736530001@234.new-york-61-62rs.ny.dial-access.att.net>
In article <m1k8qvv8gt.fsf@halfdome.holdit.com>, merlyn@stonehenge.com (Randal L. Schwartz) wrote:
>>>>>> "mknickelbein" == mknickelbein <mknickelbein@my-deja.com> writes:
>
>mknickelbein> Please see our new site at http://perlservices.com/
>
>The first program I looked at contained the following in the first few
>lines:
>
> print "Content-type:text/html\n\n";
what did you not particularly like about that?
--
brian d foy
------------------------------
Date: Mon, 16 Aug 1999 17:45:56 -0400
From: brian@pm.org (brian d foy)
Subject: Re: Perl Services
Message-Id: <brian-1608991745560001@234.new-york-61-62rs.ny.dial-access.att.net>
In article <37B87AA7.E5653213@chaos.wustl.edu>, elaine@chaos.wustl.edu wrote:
>"Randal L. Schwartz" wrote:
>> mknickelbein> Please see our new site at http://perlservices.com/
>
>> (Not to mention that a few more lines down, they're dumping raw
>> characters into HTML without encoding entities... <sigh>. Shades of
>> Matt Wright and Selena Sol combined.)
>So, instead of bitching, why don't we help to have a site [finally] that
>offers good solid free cgi's?
because it's a customer support nightmare. been there, done that.
why do you think Matt Wright stopped supporting his stuff in the
first place? even if he could program well, he would still have
a customer support problem. i considered it morally wrong to
provide software that you won't be able to support.
however, CRAP is taking the lead on this. wish i had the URL handy,
but just look for recent posts with CRAP in the subject line. i've
offered Jeff free web hosting et cetera.
--
brian d foy
------------------------------
Date: Mon, 16 Aug 1999 11:48:59 -0400
From: Slav Inger <vinger@mail.ford.com>
Subject: Re: problem printing ("html")
Message-Id: <37B832EB.7076D7A4@mail.ford.com>
Daniel Garmendia wrote:
>
> #!usr/bin/perl
>
Did you really forget a forward slash in your #! header? The web server
logs may contain interesting diagnostic messages.
- Slav Inger.
- vinger@mail.ford.com
------------------------------
Date: Mon, 16 Aug 1999 16:14:05 -0400
From: Jonathan J Mayes <mayes+@andrew.cmu.edu>
Subject: Problems with the system function
Message-Id: <Iri74Bu00Ui4054F40@andrew.cmu.edu>
Hi,
I've been trying to call a c program from my perl script and I've
run into a wall. All the c program does is take some variables from my
script and create another file for later use. Anyway, when I type the
call from my program at the unix prompt, it works fine, from any
directory. it is
$call = ("/usr/users/eiolca/otf/mmm first.file second.file final.file")
system ($call) == 0 || print " $?";
I keep getting an error 255. What does this mean?
jm
------------------------------
Date: Mon, 16 Aug 1999 16:46:16 -0400
From: Dan <priced@doctor.chem.yale.edu>
Subject: Re: returning a ref to a hash from a different module...
Message-Id: <37B87898.624232A7@doctor.chem.yale.edu>
Please ignore the last posting. The error was only slightly related. The
code below is fine.
Dan Price wrote:
> Thanks in advance to any suggestions.
>
> I have a routine within a separate package/module from which I would
> like to return a reference to a hash. I've used code similar to what is
> found in 'man perlmod':
>
> use my_module;
>
> %settings = ( );
> *settings = &get_settings;
>
> Within my_module:
> sub get_settings {
> my %what_is_set;
>
> # some code here to fill in %what_is_set
> return \%what_is_set;
> }
>
> This works correctly, except I get a warning:
> Array found where operator expected at (eval 2) line 1 of line
> (Missing operator after ?)
>
> I've also used a scalar as opposed to a glob and dereferenced it with
> identical results:
> $settings=&get_settings();
> print "$$settings{on}\n";
>
> Getting the warning is not clean. Is their a way I can quell this
> message and/or use another syntactic approach to avoid the warning
> altogether?
>
> thanks,
>
> Dan
> priced@doctor.chem.yale.edu
------------------------------
Date: Mon, 16 Aug 1999 14:24:42 -0700
From: mikej <mikej@1185design.com>
Subject: sorting arrays
Message-Id: <37B8817E.BB207103@1185design.com>
Hi,
I want to read in a list of names from an external file, and then sort
this list alphabetically. I was able to do it when I specified the array
in the script itself but there is a problem when I try to define the
array from an external file. Here is the script I have:
open(STATS, "client.log") || &error("Couldn't open client log file
\n\n$!");
@indata = <STATS>;
close(STATS);
sub alphabetically {$a cmp $b}
@sorted = sort alphabetically @indata;
print "Content-type:text/html\n\n";
print "<html><head><title>query results</title></head>\n";
print "<body bgcolor= \"#FFFFFF\">\n";
print "sorted list: @sorted<BR>\n";
print "</body></html>\n";
sub error
{
#does error handling stuff
}
#end of script
The problem is that the @sorted array doesnt get sorted. However, if I
take out the part that reads in from client.log and use:
@indata= qw(c b a);
then it will return the sorted list in alphabetical order. Anyone know
whats wrong with it?
------------------------------
Date: Mon, 16 Aug 1999 18:36:36 -0300
From: "Bruce Dodson" <bruce_dodson@bigfoot.com>
Subject: Re: spawning multiple processes in perl win32
Message-Id: <nw%t3.65571$jl.41302461@newscontent-01.sprint.ca>
If the child didn't need to inherity any handles, etc. from the parent, and
you wanted to keep things simple, I suppose you could `start myprog arg1
arg2`. Start is a program that starts other programs. Start returns
quickly, so the system() or backticks won't block for long.
------------------------------
Date: Mon, 16 Aug 1999 14:20:16 -0600
From: "Cory W. Aitchison" <caitchison@novell.com>
Subject: Static variables
Message-Id: <37b8727e.0@news.provo.novell.com>
I have created a function that needs a static variable. I can think of a
few ways to do this but none are 'elegant'. Currently I am doing it in the
following way:
{
my $static_var = 0;
sub my_func {
while (. . .) {
$static_var++;
}
return $static_var;
}
}
Is there a module, or another way?
Thanks in advance
Cory Aitchison
------------------------------
Date: 16 Aug 1999 21:18:39 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Static variables
Message-Id: <7p9v7f$h52@dfw-ixnews8.ix.netcom.com>
Cory W. Aitchison (caitchison@novell.com) wrote:
: I have created a function that needs a static variable. I can think of a
: few ways to do this but none are 'elegant'. Currently I am doing it in the
: following way:
:
: {
: my $static_var = 0;
:
: sub my_func {
:
: while (. . .) {
:
: $static_var++;
:
: }
: return $static_var;
: }
: }
That *is* the recommended way for the general case. It's possible that
some other solution involving a closure or an object might be better for
your specific case, but it's impossible to tell without more detail.
------------------------------
Date: Mon, 16 Aug 1999 21:19:54 GMT
From: lan_chai@my-deja.com
Subject: text graphics?
Message-Id: <7p9v9c$ogh$1@nnrp1.deja.com>
Hi everyone. I'm new to Perl and I'm wondering if I can do some
text-based graphics using perl for a text GUI for UNIX terminals. Is
there functions like positioning cursors, setting text windows, etc...?
Thanks in advance!
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 16 Aug 1999 17:25:38 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: unCRAP (was Re: Perl Services)
Message-Id: <x7btc72zal.fsf_-_@home.sysarch.com>
>>>>> "E-A" == Elaine -HFB- Ashton <elaine@chaos.wustl.edu> writes:
E-A> [courtesy copy flung in the direction of ladnar]
E-A> "Randal L. Schwartz" wrote:
mknickelbein> Please see our new site at http://perlservices.com/
>> (Not to mention that a few more lines down, they're dumping raw
>> characters into HTML without encoding entities... <sigh>. Shades of
>> Matt Wright and Selena Sol combined.)
E-A> So, instead of bitching, why don't we help to have a site [finally] that
E-A> offers good solid free cgi's? I have a machine available to host this
E-A> on, and, though I have too many projects as it is, will be happy to help
E-A> someone set this up.
E-A> I'm tired of the wright rants. Why don't we do something to change that.
we are, sort of. there is a recent thread on CRAP and i posted we create
a site of good cgi scripts. i volunteered to review them but not write
them. others said they would write them. i think the first stage is to
list the kinds of cgi scripts we want: ( e.g. survey/votes, etc.) and
then spec them with nice clean specs (e.g. the survey should work with a
flat file db, take questions and choices from a file, display in table
and/or graphics, etc.).
then we hand out the assignments to our banks of
monkeescoders and see what happens. the code reviews
should be public as this is a public project. then we host the code on
elaine's site (or cpan somewhere) and declare to the world, here are
some GOOD cgi scripts. if they don't run on fleabag cgi hotels because
they don't have modules, fuck'em!
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
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: Mon, 16 Aug 1999 13:35:09 -0700
From: TRG Software: Tim Greer <webmaster@chatbase.com>
Subject: Re: Why use comp.lang.python when you've got comp.lang.perl.misc?
Message-Id: <37B875FD.1056434D@chatbase.com>
Ian Clarke wrote:
>
> > I believe that if someone wanted to hear about why Perl was a nasty
> > language and Python was the cat's meow, that they wouldn't be reading
> > comp.lang.perl.misc to do so. Wouldn't you agree? Nonetheless, certain
> > members of the Python Mafia seem to have taken it upon themselves to
> > come over here and do precisely that.
>
> Firstly, if you are counting me among those members of the "Python
> Mafia" then you have not paid close attention to my postings. I have
> never claimed to know enough about Perl to say that it is better or
> worse than Python - I have only commented on my initial impressions of
> the language, and on comments made by others in this thread.
>
> Secondly, are you suggesting that any comments critical of Perl should
> be censored from comp.lang.perl.misc? Some people actually enjoy a bit
> of healthy debate.
>
> Ian.
Calm down, I don't think that's what he meant, and this (as you're aware
- just look it it) is a flame war between the languages more then any
"debate"... of course you probably knew that would likely be the result
anyway. Btw, did you bother and read all the information you can find on
Perl and Python, so you could compare them yourself and find what best
suits you, for what you may be doing? Maybe after a little research, you
can judge for yourself, which should always be the case. What if you
only got 10 replies, and all of them told you to not bother, and then
you found out a language did offer more, more features or was just
better suited for you? Don't base your learning of a language or not,
only on the fact if some people can produce enough reasons to study it.
If you know Python well and don't know Perl at all, and you further find
it difficult to learn because of the syntax or whatever, then don't
bother. Perl may be of great advantage for you to learn, on the other
hand, you may waste your time and not like the language. Starting a
flame war doesn't help you, if what you truly seek is help, advice or
suggestions.
--
Regards,
Tim Greer : webmaster@chatbase.com | software@linkworm.com
The ChatBase: http://www.chatbase.com | 250,000+ hits daily Worldwide!
TRG Software: http://www.linkworm.com | CGI scripts in Perl/C, & more.
Unix/NT/Novell Administration, Security, Web Design, ASP, SQL, & more.
Freelance Programming & Consulting, Musician, Martial Arts, +Sciences.
------------------------------
Date: 16 Aug 1999 14:47:33 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: Why use Perl when we've got Python?!
Message-Id: <xkfzozrjvve.fsf@valdemar.col.hp.com>
pacman@defiant.cqc.com (Alan Curry) writes:
> If a sane language were ever to allow + on strings, it should work like this:
>
> "one" + "one" == "two"
> "One" + "One" == "Two"
> "1" + "1" == "2" # perl already does this one correctly!
> "apples" + "oranges" generates a fatal exception, of course.
Don't be silly.
"apples" + "oranges" = "fruit salad"
On the other hand,
if("apples" > "oranges")
print "apples rule ok!\n";
else
print "oranges rule ok!\n";
should generate a fatal error. Everybody knows you can't compare apples
and oranges.
-=Eric
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
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" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. 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" from
almanac@ruby.oce.orst.edu.
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 557
*************************************
