[From nobody Mon Aug 2 21:38:16 2004 Return-Path: <perl6-language-return-13780-mirod=xmltwig.com@perl.org> Delivered-To: mrodrigu@mirlin.xmltwig.com Received: from smtp4-out.lerelaisinternet.com (unknown [194.206.126.89]) by mirlin.xmltwig.com (Postfix) with ESMTP id 85A1914B4 for <mrodrigu@mirlin.xmltwig.com>; Thu, 6 Feb 2003 16:23:56 +0100 (CET) Received: from av12.lerelaisinternet.com (AV12-5.cluster-av.wanadoo.net [192.168.164.226]) by smtp4-out.lerelaisinternet.com (8.12.0/8.12.0) with ESMTP id h16FNrIG021888 for <mrodrigu@mirlin.xmltwig.com>; Thu, 6 Feb 2003 16:23:53 +0100 Received: from smtp2-in.lerelaisinternet.com (pri-smtp2-in.lerelaisinternet.com [192.168.164.194]) by av12.lerelaisinternet.com (8.12.4/8.12.3) with ESMTP id h16FN3VL011834 for <mirod@xmltwig.com>; Thu, 6 Feb 2003 16:23:03 +0100 Received: from onion.perl.org (onion.valueclick.com [64.70.54.95]) by smtp2-in.lerelaisinternet.com (8.12.1/8.12.1) with SMTP id h16FN0bx030104 for <mirod@xmltwig.com>; Thu, 6 Feb 2003 16:23:02 +0100 Received: (qmail 89885 invoked by uid 1005); 6 Feb 2003 15:22:59 -0000 Mailing-List: contact perl6-language-help@perl.org; run by ezmlm Precedence: bulk List-Post: <mailto:perl6-language@perl.org> List-Help: <mailto:perl6-language-help@perl.org> List-Unsubscribe: <mailto:perl6-language-unsubscribe@perl.org> List-Subscribe: <mailto:perl6-language-subscribe@perl.org> Delivered-To: mailing list perl6-language@perl.org Received: (qmail 89858 invoked by uid 76); 6 Feb 2003 15:22:59 -0000 Received: from qmailr@one.develooper.com (HELO ran-out.mx.develooper.com) (64.81.84.115) by onion.perl.org (qpsmtpd/0.20) with SMTP; 2003-02-06 15:22:59Z Received: (qmail 13267 invoked by uid 225); 6 Feb 2003 15:22:56 -0000 Delivered-To: perl6-language@perl.org Received: (qmail 13262 invoked by uid 507); 6 Feb 2003 15:22:55 -0000 Received: from postoffice2.mail.cornell.edu (HELO postoffice2.mail.cornell.edu) (132.236.56.10) by one.develooper.com (qpsmtpd/0.21-dev) with SMTP; 2003-02-06 15:22:53Z Received: from [128.253.64.63] (murmer.cit.cornell.edu [128.253.64.63]) by postoffice2.mail.cornell.edu (8.9.3/8.9.3) with ESMTP id KAA08799 for <perl6-language@perl.org>; Thu, 6 Feb 2003 10:22:48 -0500 (EST) Mime-Version: 1.0 X-Sender: tco2@postoffice2.mail.cornell.edu Message-Id: <p05100301ba6820b6a241@[128.253.64.63]> In-Reply-To: <20030204005700.GC4054@stefp.dyndns.org> References: <20030204005700.GC4054@stefp.dyndns.org> Date: Thu, 6 Feb 2003 10:24:42 -0500 To: perl6-language@perl.org From: Todd Olson <tco2@cornell.edu> Subject: Re: newline as statement terminator Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 8bit X-SMTPD: qpsmtpd/0.21-dev, http://develooper.com/code/qpsmtpd/ X-Spam-Check-By: one.develooper.com X-Spam-Status: No, hits=-1.0 required=7.0 tests=CARRIAGE_RETURNS, IN_REP_TO, QUOTED_EMAIL_TEXT, REFERENCES, SPAM_PHRASE_00_01 version=2.43 X-SMTPD: qpsmtpd/0.20, http://develooper.com/code/qpsmtpd/ X-Virus-Scanned: Analyse Anti-Virus LeRelaisInternet.Com ( http://www.lerelaisinternet.com/ ) At 01:57 +0100 2003/02/04, Stéphane Payrard wrote: >In the tradition of Perl concision, I would like newline to be a >statement terminator everywhere it can: that is when > a) the parser expects an operator > _and_ b) we are not in the middle of a parenthesised expression. > IMO this would be terrible! It would mean I could no longer write %months = { jan => '01' , feb => '02' , mar => '03' , apr => '04' , may => '05' , jun => '06' , jul => '07' , aug => '08' , sep => '09' , oct => '10' , nov => '11' , dec => '12' }; nor could I write ; if ( $planetary_tour ) { $bill = visit_mercury('bring water') + visit_venus('just look') + ( $sick_of_politics || $sick_of_over_population || $sick_of_polution ) ? visit_earth() : 0 + visit_mars() } # marketing insisted we say this ; print <<MARKETING The cost of your trip was $bill Travel with us again soon MARKETING # engineering details ; sub visit_mercury { my @accessories = @_ ; encase_ship_in_radiation_shields or abort_trip ; verify_solar_weather_is_good or abort_trip ; flyby_quickly ; return 12000000 } # etc .... __END__ (ie view separators as line starters (rather than line enders)) Which is strangely addictive ... One of it's virtues is that it is easy to tell where statements start ... they always start with a ';' or similar punctuation The more I use it the more I am addicted to it Yes the style is strange ... but it is neat that one can explore a wide range of styles in Perl ... one reason I don't use python is because it does not give me this freedom. Regards, Todd Olson ]