[32389] in Perl-Users-Digest
Perl-Users Digest, Issue: 3656 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Apr 2 18:09:26 2012
Date: Mon, 2 Apr 2012 15:09:04 -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, 2 Apr 2012 Volume: 11 Number: 3656
Today's topics:
Re: First Commercial Perl Program <rweikusat@mssgmbh.com>
Re: Is Programing Art or Science? <pjb@informatimago.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 02 Apr 2012 21:50:46 +0100
From: Rainer Weikusat <rweikusat@mssgmbh.com>
Subject: Re: First Commercial Perl Program
Message-Id: <87iphhc0yh.fsf@sapphire.mobileactivedefense.com>
"tbb!/fbr!" <ronaldljohnson@gmail.com> writes:
[...]
> use List::Util qw(shuffle);
> my $str='1234567890!@#$
> %^&*()qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM_+{}|:"<>?~`-
> =[]\;\',./1234567890!@#$
> %^&*()qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM_+{}|:"<>?~`-
> =[]\;\',./';
> my @bits=split(//,$str);
> my @rnd=shuffle(@bits);
> my $stringer="@rnd";
> $stringer=~s/\s//g;
> $stringer=substr($stringer,0,140);
$stringer = substr(join('', shuffle(grep { $_ !~ /\s/; } split(//, $str))), 0, 140);
Especially, it makes more sense to throw the whitespace away before
shuffling etc than to pass it through to the second-to-last stage of
this 'processing pipeline' where it is deleted from the string.
------------------------------
Date: Mon, 02 Apr 2012 23:48:21 +0200
From: "Pascal J. Bourguignon" <pjb@informatimago.com>
Subject: Re: Is Programing Art or Science?
Message-Id: <87vclhn6u2.fsf@kuiper.lan.informatimago.com>
ccc31807 <cartercc@gmail.com> writes:
> Programming is neither an art nor a science, but a trade.
>
> It's not an art in the sense of painting, music, dance, poetry, etc.,
> because the objective isn't to make a beautiful something, but to give
> instructions to a machine to accomplish some useful task.
>
> It's not a science in the sense of either physics and chemistry
> (experimental) or geology or astronomy (observational) or cosmology or
> psychology (theoretical) because the objective isn't to test
> hypothetical s against data, but to give instructions to a machine to
> accomplish some useful task.
>
> Obviously, it's very much connected with art (e.g., user interface
> design) and science (e.g., artificial intelligence) but the practice
> of giving instructions to a machine is more like assembling machines
> in a factory than the pursuit of an art or the practice of a science.
This is a narrow-minded definition of programming.
Watch: http://www.infoq.com/presentations/We-Really-Dont-Know-How-To-Compute
Read: Structure and Interpretation of Computer Programs
http://mitpress.mit.edu/sicp/full-text/book/book-Z-H-4.html
http://swiss.csail.mit.edu/classes/6.001/abelson-sussman-lectures/
--
__Pascal Bourguignon__ http://www.informatimago.com/
A bad day in () is better than a good day in {}.
------------------------------
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 3656
***************************************
