[32004] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 3268 Volume: 11

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jan 26 16:09:28 2011

Date: Wed, 26 Jan 2011 13:09:09 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)

Perl-Users Digest           Wed, 26 Jan 2011     Volume: 11 Number: 3268

Today's topics:
        Extracting html urls on a webpage using linktext <mulshankar@gmail.com>
        having problems with trademark symbols in perl but not  <jcharth@gmail.com>
    Re: Learning Object Oriented Programming (newbie) <tzz@lifelogs.com>
    Re: Learning Object Oriented Programming (newbie) <Peter@PSDT.com>
    Re: Learning Object Oriented Programming (newbie) <tadmc@seesig.invalid>
    Re: Memory limit question <edgrsprj@ix.netcom.com>
        Please help me understand this expression <jlconlin@gmail.com>
    Re: Please help me understand this expression <rvtol+usenet@xs4all.nl>
    Re: Please help me understand this expression <jlconlin@gmail.com>
    Re: Please help me understand this expression <rvtol+usenet@xs4all.nl>
        Running PHP scripts from Perl <paul@pstech-inc.com>
    Re: Running PHP scripts from Perl <Luuk@invalid.lan>
    Re: Running PHP scripts from Perl <sherm.pendley@gmail.com>
    Re: Running PHP scripts from Perl <jurgenex@hotmail.com>
    Re: Running PHP scripts from Perl <paul@pstech-inc.com>
        TIOBE language of the year <cartercc@gmail.com>
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Wed, 26 Jan 2011 12:24:29 -0800 (PST)
From: shankar_perl_rookie <mulshankar@gmail.com>
Subject: Extracting html urls on a webpage using linktext
Message-Id: <2077cc74-e52f-45fa-9161-d11600616453@m13g2000yqb.googlegroups.com>

Hello All,

I am using win32::IEAutomation to do some data extraction. I am
encountering a minor issue with extracting html urls on a page using
linktext. I generally use

$ie ->getLink('linktext:', $mytext) ->linkUrl();

The above line of code gives me the url corresponding $mytext. But my
problem now is there are multiple instances of the same $mytext on the
web page. Is there a way I can extract all the different urls
corresponding to the same linktext and store it in an array ?

Thanks,
Shankar


------------------------------

Date: Wed, 26 Jan 2011 12:36:21 -0800 (PST)
From: joe <jcharth@gmail.com>
Subject: having problems with trademark symbols in perl but not in php
Message-Id: <fdc3f1e0-8ab2-4db1-9200-f30b8e7a348d@21g2000prv.googlegroups.com>

Hello, I am using CGI and some how the same script works in a
different server. There are many things different between the two
serverr. If I submit test 111=AE222 111=992222  on my server I get
111=C2=AE222 111=E2=A22222 . I have no problems submitting the same data in
php or using the same script on a diffrent server. Any ideas where the
problems could be? I ve tried adding utf8 in the header and server but
that did not change the outcome any ideas?


------------------------------

Date: Wed, 26 Jan 2011 08:14:25 -0600
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: Learning Object Oriented Programming (newbie)
Message-Id: <87wrlrzr9a.fsf@lifelogs.com>

On Tue, 25 Jan 2011 09:57:50 -0800 (PST) "Skye Shaw!@#$" <skye.shaw@gmail.com> wrote: 

>> On Mon, 24 Jan 2011 12:29:54 -0500 "Uri Guttman" <u...@StemSystems.com> wrote:
>> 
>> >>>>>> "SS" == Skye Shaw!@#$ <skye.s...@gmail.com> writes:
>> 
SS> On Jan 24, 12:02 am, "Skye Shaw!@#$" <skye.s...@gmail.com> wrote:
>> 
>> >>> On Jan 23, 10:45 pm, "Uri Guttman" <u...@StemSystems.com> wrote:
>> 
>> >>> > have you tested that? really tested it? it will not do what you think it
>> >>> > does. classic abuse of ?:.
>> 
>> >>> What do I think it does?
>> 
SS> Well, aside from my typo:  @_ ? $self->{farm} = shift : $self->{farm};
SS> how is it abuse?
>> 
UG> well, it doesn't WORK. try it. really try it out. and it is abuse for
UG> that reason.
>> 
>> This line is near the top of my list for misguided
>> almost-getting-it-but-not-quite use of Perl.  It's a mess of techniques
>> that may have made sense separately[1] but joined they create an unholy
>> union that will burn in my retinas for a while.

SS> Please elaborate.

I gave the right way (if I understand correctly) to do what you're
trying to do.  Here's how I proceeded.

You're mixing the ternary operator and assignments.  You should not
assign *inside* a ternary operator (unless you want to confuse people),
but instead you should use the return value of the ternary operator.
This is a very, very important point and the main reason why the
original code was nasty.  So:

$self->{farm} = @_ ? shift : $self->{farm};

 ...but that's redundant.  You're using a hash key and entry twice, and
in my experience that's both unnecessary and dangerous because of typos.
So you can just say

$self->{farm} = shift if @_;

which will only happen if there is something to shift.

Ted


------------------------------

Date: Wed, 26 Jan 2011 15:42:47 GMT
From: Peter Scott <Peter@PSDT.com>
Subject: Re: Learning Object Oriented Programming (newbie)
Message-Id: <XhX%o.40300$8_2.18735@newsfe17.iad>

On Wed, 26 Jan 2011 08:14:25 -0600, Ted Zlatanov wrote:
> On Tue, 25 Jan 2011 09:57:50 -0800 (PST) "Skye Shaw!@#$"
> <skye.shaw@gmail.com> wrote:
> 
>>> On Mon, 24 Jan 2011 12:29:54 -0500 "Uri Guttman"
>>> <u...@StemSystems.com> wrote:
>>> 
>>> >>>>>> "SS" == Skye Shaw!@#$ <skye.s...@gmail.com> writes:
>>> 
> SS> On Jan 24, 12:02 am, "Skye Shaw!@#$" <skye.s...@gmail.com> wrote:
>>> 
> SS> Well, aside from my typo:  @_ ? $self->{farm} = shift :
> $self->{farm}; SS> how is it abuse?
>>> 
> UG> well, it doesn't WORK. try it. really try it out. and it is abuse
> for UG> that reason.
>>> 
>>> This line is near the top of my list for misguided
>>> almost-getting-it-but-not-quite use of Perl.  It's a mess of
>>> techniques that may have made sense separately[1] but joined they
>>> create an unholy union that will burn in my retinas for a while.
> 
> SS> Please elaborate.
> 
> I gave the right way (if I understand correctly) to do what you're
> trying to do.  Here's how I proceeded.
> 
> You're mixing the ternary operator and assignments.  You should not
> assign *inside* a ternary operator (unless you want to confuse people),
> but instead you should use the return value of the ternary operator.
> This is a very, very important point and the main reason why the
> original code was nasty.  So:
> 
> $self->{farm} = @_ ? shift : $self->{farm};
> 
> ...but that's redundant.  You're using a hash key and entry twice, and
> in my experience that's both unnecessary and dangerous because of typos.
> So you can just say
> 
> $self->{farm} = shift if @_;
> 
> which will only happen if there is something to shift.

Stylistic concerns aside, the original poster's statement returns the 
value of the attribute if no argument is passed to the method, a common 
mixed getter/setter pattern.  You'd need to add a return statement and 
repeat the hash key anyway to get that behavior.

-- 
Peter Scott
http://www.perlmedic.com/     http://www.perldebugged.com/
http://www.informit.com/store/product.aspx?isbn=0137001274
http://www.oreillyschool.com/courses/perl3/


------------------------------

Date: Wed, 26 Jan 2011 13:53:58 -0600
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Learning Object Oriented Programming (newbie)
Message-Id: <slrnik0une.h6d.tadmc@tadbox.sbcglobal.net>

RedGrittyBrick <RedGrittyBrick@spamweary.invalid> wrote:
> On 26/01/2011 15:42, Peter Scott wrote:
>> On Wed, 26 Jan 2011 08:14:25 -0600, Ted Zlatanov wrote:
>>> On Tue, 25 Jan 2011 09:57:50 -0800 (PST) "Skye Shaw!@#$"
>>> <skye.shaw@gmail.com>  wrote:
>>>
>>>>> On Mon, 24 Jan 2011 12:29:54 -0500 "Uri Guttman"
>>>>> <u...@StemSystems.com>  wrote:
>>>>>
>>>>>>>>>>> "SS" == Skye Shaw!@#$<skye.s...@gmail.com>  writes:
>>>>>
>>> SS>  On Jan 24, 12:02 am, "Skye Shaw!@#$"<skye.s...@gmail.com>  wrote:
>>>>>
>>> SS>  Well, aside from my typo:  @_ ? $self->{farm} = shift :
>>> $self->{farm}; SS>  how is it abuse?
>>>>>
>>> UG>  well, it doesn't WORK. try it. really try it out. and it is abuse
>>> for UG>  that reason.
>>>>>
>>>>> This line is near the top of my list for misguided
>>>>> almost-getting-it-but-not-quite use of Perl.  It's a mess of
>>>>> techniques that may have made sense separately[1] but joined they
>>>>> create an unholy union that will burn in my retinas for a while.
>>>
>>> SS>  Please elaborate.
>>>
>>> I gave the right way (if I understand correctly) to do what you're
>>> trying to do.  Here's how I proceeded.
>>>
>>> You're mixing the ternary operator and assignments.  You should not
>>> assign *inside* a ternary operator (unless you want to confuse people),
>>> but instead you should use the return value of the ternary operator.
>>> This is a very, very important point and the main reason why the
>>> original code was nasty.  So:
>>>
>>> $self->{farm} = @_ ? shift : $self->{farm};
>>>
>>> ...but that's redundant.  You're using a hash key and entry twice, and
>>> in my experience that's both unnecessary and dangerous because of typos.
>>> So you can just say
>>>
>>> $self->{farm} = shift if @_;
>>>
>>> which will only happen if there is something to shift.
>>
>> Stylistic concerns aside, the original poster's statement returns the
>> value of the attribute if no argument is passed to the method, a common
>> mixed getter/setter pattern.  You'd need to add a return statement and
>> repeat the hash key anyway to get that behavior.
>>
>
>
> "If no return is found and if the last statement is an expression, its 
> value is returned. "
>
> Perldoc perlsub


You make Peter's point exactly, though I get the feeling that
you were trying to contradict him...


-----------------------------
#!/usr/bin/perl
use warnings;
use strict;

my($val, $self);

$val = setget('foo');
print "val=$val\n";

$val = setget();
print "val=$val\n";

sub setget {
    $self->{farm} = shift if @_;
}
-----------------------------

val=foo
val=0


i.e. it did not work when used as a getter...


-- 
Tad McClellan
email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
The above message is a Usenet post.
I don't recall having given anyone permission to use it on a Web site.


------------------------------

Date: Wed, 26 Jan 2011 11:56:18 -0600
From: "E.D.G." <edgrsprj@ix.netcom.com>
Subject: Re: Memory limit question
Message-Id: <Ka6dnf5DMYul_d3QnZ2dnUVZ_vGdnZ2d@earthlink.com>

"Skye Shaw!@#$" <skye.shaw@gmail.com> wrote in message 
news:9e787eaa-72ff-4b10-bb3a-ea0a40f510ac@t8g2000prh.googlegroups.com...

Google "Windows /3GB", "Windows PAE" and "Windows LARGEADDRESSAWARE".

I did take a look at those references.  Thanks for the information.




------------------------------

Date: Wed, 26 Jan 2011 09:42:37 -0800 (PST)
From: Jeremy <jlconlin@gmail.com>
Subject: Please help me understand this expression
Message-Id: <6d916000-74b4-4e94-b697-1785067559e4@glegroupsg2000goo.googlegroups.com>

I'm no Perl junkie, but I need to understand what this expression means.

     s/\\'\''/'\'\''/g;


I know it is searching for something and replacing it with something else, but I can't seem to figure out what it means.  Can someone help me?

Thanks,
Jeremy


------------------------------

Date: Wed, 26 Jan 2011 20:09:55 +0100
From: "Dr.Ruud" <rvtol+usenet@xs4all.nl>
Subject: Re: Please help me understand this expression
Message-Id: <4d407184$0$41110$e4fe514c@news.xs4all.nl>

On 2011-01-26 18:42, Jeremy wrote:

> I need to understand what this expression means.
>
>       s/\\'\''/'\'\''/g;

Let's simplify it first:

   s{\\'''}{''''}g;

So any slash that is followed by 3 quotes, will be replaced by 4 quotes.
(It was probably formatted the way it is, to silence some editor.)


But I am assuming that the substitution comes out of a Perl source file.
If the shell is involved, then other rules apply first.
Somewhere in bash, it could for example mean s{\\'}{}g.

-- 
Ruud



------------------------------

Date: Wed, 26 Jan 2011 11:55:19 -0800 (PST)
From: Jeremy <jlconlin@gmail.com>
Subject: Re: Please help me understand this expression
Message-Id: <5e6ab3ee-a161-48de-93ab-228dc45ee122@glegroupsg2000goo.googlegroups.com>

On Wednesday, January 26, 2011 12:09:55 PM UTC-7, Dr.Ruud wrote:
> On 2011-01-26 18:42, Jeremy wrote:
> 
> > I need to understand what this expression means.
> >
> >       s/\\'\''/'\'\''/g;
> 
> Let's simplify it first:
> 
>    s{\\'''}{''''}g;
> 
> So any slash that is followed by 3 quotes, will be replaced by 4 quotes.
> (It was probably formatted the way it is, to silence some editor.)
> 
> 
> But I am assuming that the substitution comes out of a Perl source file.
> If the shell is involved, then other rules apply first.
> Somewhere in bash, it could for example mean s{\\'}{}g.
> 

Thanks, Ruud.  This Perl expression was found in a shell script where perl is called with as:

perl -pe '...'

What I quoted above was not the only part of the expression, but I was able to figure out what the rest of the expression did.

Jeremy


------------------------------

Date: Wed, 26 Jan 2011 21:11:32 +0100
From: "Dr.Ruud" <rvtol+usenet@xs4all.nl>
Subject: Re: Please help me understand this expression
Message-Id: <4d407ff4$0$81476$e4fe514c@news.xs4all.nl>

On 2011-01-26 20:55, Jeremy wrote:
> Dr.Ruud:
>> Jeremy:

>>> I need to understand what this expression means.
>>>
>>>        s/\\'\''/'\'\''/g;
>>
>> Let's simplify it first:
>>
>>     s{\\'''}{''''}g;
>>
>> So any slash that is followed by 3 quotes, will be replaced by 4 quotes.
>> (It was probably formatted the way it is, to silence some editor.)
>>
>> But I am assuming that the substitution comes out of a Perl source file.
>> If the shell is involved, then other rules apply first.
>> Somewhere in bash, it could for example mean s{\\'}{}g.
>
> Thanks, Ruud.  This Perl expression was found in a shell script where perl is called with as:
>
> perl -pe '...'
>
> What I quoted above was not the only part of the expression, but I was able to figure out what the rest of the expression did.

Comment out any other line, and put "echo " (without the quotes) in 
front of the line, run the script and if you then still have doubts, 
report here what was echoed.

-- 
Ruud


------------------------------

Date: Wed, 26 Jan 2011 04:46:43 -0500
From: "P E Schoen" <paul@pstech-inc.com>
Subject: Running PHP scripts from Perl
Message-Id: <d4S%o.4344$OX.1516@newsfe07.iad>

I was able to run a single PHP script from Perl by using
print '<html><body><iframe =
src=3D"HTMLfilter.php"></iframe></body></html>' .=20
"\n";

But when I set up a loop to apply it to all the CGI Input variables, it=20
seemed that the PHP script ran after the Perl script had finished, and =
it=20
only acted on the last environment variable. I also tried using <script=20
language=3D"text/php" src=3D"HTMLfilter.php"> but no joy.

The loop is as follows:

my %in =3D Vars();    # Get the CGI input variables
while ( (my $key, my $value) =3D each (%in) ) {
    # Write to Raw.htm
    print fLog "Raw: $key -> $in{$key}\n";
    open (fHTMLraw, '>', $HTMLrawfile)
    or HTMLdie ("File error: $!");
    print fHTMLraw $value;
    close fHTMLraw;
    print '<html><body><iframe =
src=3D"HTMLfilter.php"></iframe></body></html>'=20
 . "\n";
#    sleep(1);
    if (-e $HTMLpurefile){
      open (fHTMLpure, '<', $HTMLpurefile);
      $in{$key} =3D <fHTMLpure>;
      close fHTMLpure; }
    else {
      $in{$key} =3D 'Purifier error';
      print fLog "Purifier error"; }
    print fLog "Pure: $key -> $in{$key}\n";
#    sleep(1);
    }

I had used the sleep() but it just delayed the script and the iframes=20
appeared after the script had finished.

I found this article about using the PHP::Interpreter module:
http://www.linuxjournal.com/article/9282

I was able to download and unzip the package but I was unable to install =
it=20
using ppm install PHP::Interpreter. The article was aimed at Linux and =
I'm=20
not sure if it applies to Win7. I would like to be able to use the PHP=20
HTMLpurifier rather than the Perl equivalent if possible.

Another option may be to assemble the various inputs into a single HTML=20
document and then run it through the purifier. The problem is that I am=20
storing the input variables in a database, although I could just use an=20
autoincrement ID and a DateTime for indexing, and combine the other=20
variables into a single field with the complete HTML. But that would not =

lend itself to changing the appearance of the HTML page for display of =
all=20
the data.

It would probably be OK to use the "Declaw" and "Defang" utilities to =
clean=20
up the raw entries, and then run the final rendered HTML through the PHP =

purifier to catch anything missed.

Thanks,

Paul=20



------------------------------

Date: Wed, 26 Jan 2011 11:21:45 +0100
From: Luuk <Luuk@invalid.lan>
Subject: Re: Running PHP scripts from Perl
Message-Id: <n69518-6eu.ln1@luuk.invalid.lan>

On 26-01-11 10:46, P E Schoen wrote:
> I was able to run a single PHP script from Perl by using
 ....


>    print '<html><body><iframe
> src="HTMLfilter.php"></iframe></body></html>' . "\n";
> #    sleep(1);

This will NOT run your php script. it will just produce some output to
your perl script

$result = `php HTMLfilter.php`;
print '<html><body><iframes>$result</iframe></body></html>' . "\n";

Might do what you want (i'm not a Perl expert... ;)

> Thanks,
> 
> Paul


-- 
Luuk


------------------------------

Date: Wed, 26 Jan 2011 05:27:13 -0500
From: Sherm Pendley <sherm.pendley@gmail.com>
Subject: Re: Running PHP scripts from Perl
Message-Id: <m2fwsgklj2.fsf@sherm.shermpendley.com>

"P E Schoen" <paul@pstech-inc.com> writes:

> I was able to run a single PHP script from Perl by using
> print '<html><body><iframe
> src="HTMLfilter.php"></iframe></body></html>' . "\n";
>
> But when I set up a loop to apply it to all the CGI Input variables,
> it seemed that the PHP script ran after the Perl script had finished,

Of course! The output of the Perl script is sent to the browser, which
then makes a separate request for HTMLfilter.php.

> I also tried using
> <script language="text/php" src="HTMLfilter.php"> but no joy.

What did you expect to happen here?!? The script element loads scripts
that are run in the *browser*. PHP and Perl both run on the server.

You need to read a basic tutorial to get a handle on how this stuff all
works together - you can't just make s**t up and expect it to do what
you want.

sherm--

-- 
Sherm Pendley
                                   <http://camelbones.sourceforge.net>
Cocoa Developer


------------------------------

Date: Wed, 26 Jan 2011 07:19:31 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Running PHP scripts from Perl
Message-Id: <age0k65uni1nnr3fv9747bmvs7kcoevonu@4ax.com>

"P E Schoen" <paul@pstech-inc.com> wrote:
>I was able to run a single PHP script from Perl by using
>print '<html><body><iframe src="HTMLfilter.php"></iframe></body></html>' . 
>"\n";

No you weren't. That is a simple print() statement and it doesn't run
anything whatsoever. Maybe somewhere down the line some web server
decides to interpret that output as a command and run something, but
that is a whole different story and has nothing to do with Perl.

If you want to run an external command from Perl you have to use e.g.
system() or backticks or something similar.

jue


------------------------------

Date: Wed, 26 Jan 2011 15:35:45 -0500
From: "P E Schoen" <paul@pstech-inc.com>
Subject: Re: Running PHP scripts from Perl
Message-Id: <KA%%o.4357$OX.837@newsfe07.iad>

"J=FCrgen Exner"  wrote in message=20
news:age0k65uni1nnr3fv9747bmvs7kcoevonu@4ax.com...

> "P E Schoen" <paul@pstech-inc.com> wrote:
>> I was able to run a single PHP script from Perl by using
>> print '<html><body><iframe src=3D"HTMLfilter.php"></iframe></body>
>> </html>' . "\n";

> No you weren't. That is a simple print() statement and it doesn't run
> anything whatsoever. Maybe somewhere down the line some web
> server decides to interpret that output as a command and run
> something, but that is a whole different story and has nothing to do
> with Perl.

Yes, that was definitely the wrong approach. I found that somewhere as I =
was=20
searching:
http://www.webmasterworld.com/forum13/3512.htm
http://www.theukwebdesigncompany.com/articles/article.php?article=3D159
http://stackoverflow.com/questions/104516/calling-php-functions-within-he=
redoc-strings

> If you want to run an external command from Perl you have to use
> e.g. system() or backticks or something similar.

OK, I tried some of the other suggestions and I also found information =
about=20
running PHP from Perl as well as running Perl from PHP. But they =
required=20
additional modules or extensions to be downloaded and installed and it=20
seemed very complicated and I was not able to get that to work:
http://devzone.zend.com/article/1712
http://www.cpan.org/modules/by-module/PHP/
http://pecl.php.net/package/perl

But, I also tried your suggestion of system(), and it works fine, except =

that a command window flashes for every invocation.
http://perl.about.com/od/programmingperl/qt/perlexecsystem.htm

I removed the echo from the PHP script because it also echoed the =
password.=20
I really did not need the results echoed because the script simply reads =
a=20
"Raw.htm" file, processes its contents through the HTMLpurifier, and =
then=20
writes the results to "Pure.htm". It also writes to a "PHPlog.txt" file =
for=20
debugging purposes. The Perl script takes it from there. So what I have =
is:

while ( (my $key, my $value) =3D each (%in) ) {
    # Write to Raw.htm
    print fLog "Raw: $key -> $in{$key}\n";
    open (fHTMLraw, '>', $HTMLrawfile)
    or HTMLdie ("File error: $!");
    print fHTMLraw $value;
    close fHTMLraw;
    system( '..\php\php HTMLfilter.php' );
    if (-e $HTMLpurefile){
      open (fHTMLpure, '<', $HTMLpurefile);
      $in{$key} =3D <fHTMLpure>;
      close fHTMLpure; }
    else {
      $in{$key} =3D 'Purifier error';
      print fLog "Purifier error"; }
    print fLog "Pure: $key -> $in{$key}\n";
    }

I also looked into backtick and exec() but they did not seem to be what =
I=20
needed:
http://www.troubleshooters.com/codecorn/littperl/perlspaw.htm
http://www.wellho.net/mouth/324_The-backtick-operator-in-Python-and-Perl.=
html
http://perldoc.perl.org/perlfaq8.html#What's-wrong-with-using-backticks-i=
n-a-void-context%3f

And a more detailed discussion of all methods (but in unix):
http://www.techrepublic.com/article/three-handy-perl-approaches-let-you-g=
rab-data-for-unix-apps/1050920

Thanks, everyone. Sorry to ask such stupid questions, but the answer =
proved=20
to be very simple.

Paul=20



------------------------------

Date: Wed, 26 Jan 2011 11:07:29 -0800 (PST)
From: ccc31807 <cartercc@gmail.com>
Subject: TIOBE language of the year
Message-Id: <55e59091-6a13-456b-91a7-f31d0e0afb89@k42g2000yqa.googlegroups.com>

TIOBE has awarded its 'language of the year' designation to Python.

Yes, I know that a language's 'popularity' is a meaningless concept,
that the metrics are suspect, and that at best it only depends on the
change in rank of the language. Still, it counts for something. It
also must count for something that schools like MIT and Ga. Tech. have
switched to Python for their introductory programming course.

I used Python some about six years ago, and liked it a lot. I have
since played with Ruby and have used it some. Of the three, I find
Perl best suited to my needs and to my personality. That said, during
the past year a couple of friends, non-programmers who find themselves
writing scripts quite a bit in the performance of their jobs, have
switched to Python.

My question is this: Is the (seeming) increase in popularity of Python
due more to any intrinsic quality of the language (i.e., is it
'superior' in some way to Perl), or is it more related to appearance
factors?

This isn't intended to start a flame war or any other kind of war.
Languages exist in a state of competition with each other, with some
languages achieving long term success (like C and Java) and others
falling into disuse (like Ada and Lisp). ISTM that some thinking on
this issue is appropriate on clpm.

CC.


------------------------------

Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>


Administrivia:

To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.

Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests. 

#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 V11 Issue 3268
***************************************


home help back first fref pref prev next nref lref last post