[Assorted-commits] SF.net SVN: assorted:[1244] sandbox/trunk/src/pl/while-defined.pl

[<yan...@us...>]

Revision: 1244
          http://assorted.svn.sourceforge.net/assorted/?rev=1244&view=rev
Author:   yangzhang
Date:     2009-03-03 04:44:03 +0000 (Tue, 03 Mar 2009)

Log Message:
-----------
added quick demo of funky while-defined-my syntax

Added Paths:
-----------
    sandbox/trunk/src/pl/while-defined.pl

Added: sandbox/trunk/src/pl/while-defined.pl
===================================================================
--- sandbox/trunk/src/pl/while-defined.pl	                        (rev 0)
+++ sandbox/trunk/src/pl/while-defined.pl	2009-03-03 04:44:03 UTC (rev 1244)
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl
+use strict;
+while (defined(my $infile = glob("*.pl"))) {
+  open INPUT, "< $infile" or die "can't open $infile!";
+  print "$infile\n";
+  close INPUT;
+}


Property changes on: sandbox/trunk/src/pl/while-defined.pl
___________________________________________________________________
Added: svn:executable
   + *


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.