| eMish | deparse: grep { last } @array; |
| buubot | grep({last;} @array); |
| f00li5h | eMish: no, you can't eMish: grep is not a loop |
| rhizo | eMish: what sort of silly question is that ? test it and see ! |
| eMish | rhizo, but then f00li5h will be bored can't i make him some busy ? eval: while(1) { grep { last } (); } |
| buubot | Killing 1172 due to run time |
| f00li5h | eMish: ick |
| eMish | hmmmm |
| rhizo | {Primacy of Number}++ # Philip Glass rules |
| eMish | it did eval: while(1) { grep { last } (); print "xxx"; }; print "yyy"; |
| buubot | Killing 1173 due to run time |
| eMish | i don't understand this but i can use goto eval: grep { goto END_GREP } (); END_GREP: |
| buubot | eMish: |
| rhizo | eMish, you can query buubot if you must use its eval functionality, though i strongly suggest you check out perldoc perlrun and adopt perl one-liners for testing |
| f00li5h | eMish: you're greing the empty list |
| eMish | I don't understand what 'last' jumped to in the while...grep {last} example rhizo, ok |
| f00li5h | eMish: you were greping an empty list your test sucked |
| eMish | ah, i see what you mean |
| f00li5h | eval: while( $_ = qw/foo bar baz/ ) { last if /bar/; print } |
| eMish | ok, i can make it with goto |
| buubot | Killing 1175 due to run time |
| eMish | or last LABEL |
| f00li5h | eval: @list = qw/foo bar baz/($_ = shift @list ) { last if /bar/; print } |
| eMish | LABEL: { grep { last LABEL } () } |
| buubot | f00li5h: Error: syntax error at eval line 1, near "qw/foo bar baz/(" syntax error at eval line 1, near "print }" |
| f00li5h | eval: @list = qw/foo bar baz/;($_ = shift @list ) { last if /bar/; print } |
| buubot | f00li5h: Error: syntax error at eval line 1, near ") {" syntax error at eval line 1, near "print }" |
| f00li5h | FUCKIT |
| action | f00li5h takes his ball and goes home |
| f00li5h | takes his ball and goes home |
| eMish | f00li5h, you are loser but you helped me a lot |
| f00li5h | eMish: shut up "MR doesn't understand last" |