Select Code to Download

Select or download this

  DB<41> x { $max=100; while (  () = undef  ) {print "$x, "; last if $
+max-- == 0 } }
, , , , , , , , , , , , , , , ... , , , , , , , , , , , , , , , , , , 
+, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , ,
+ , , , , , , , , , , ,   empty array

DB<42> x { $max=100; while (  $_ = undef  ) {print "$x, "; last if $ma
+x-- == 0 } }
0  undef

Select or download this

  DB<60> x { $max=100; while ( @x = splice( @{[]},0,1 )) {print "$x, "
+; last if $max-- == 0 } }
0  0
DB<61> x { $max=100; while (  @x = shift @{[]}  ) {print "$x, "; last 
+if $max-- == 0 } }
, , , , , , , , , , , , , , ... , , , , , , , , , , , , , , , , , , , 
+, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , ,
+ , , , , , , ,   empty array