| Yaakov | eval: $_="a1b2c3"; $r="(\\d)"; $s=q'"${1}D"'; s/$r/eval($s)/eg; print |
| buubot | Yaakov: a1Db2Dc3D 1 |
| Daveman | ABCDEFG! |
| Teamster | i understand ok great - thanks for taking the time out for me |
| mauke | I chose to use qq\0 \0 instead of " " because \0 is less likely to appear in a config file |
| Teamster | understood, makes sense |
| Yaakov | oops. Stray q in there. :) |
| mauke | (with the first version, if $replacewith = 'foo"bar', we get eval '"foo"bar"', which is a syntax error) |
| Daveman | qua? |
| simcop2387 | GumbyBRAIN: qua |
| GumbyBRAIN | Enter, savetmps, [ pushmark, push, pushback ], call_sv, spagain, freemtmps leave. |
| Daveman | O.o |
| Yaakov | GumbyBRAIN: evaluate simcop2387 |
| GumbyBRAIN | what is simcop studying? |
| action | Daveman high-fives simcop |
| Daveman | high-fives simcop |
| FuzzyB | is there a way to use a while loop instead of a foreach loop to itterate through an array while the array still has elements? |
| Daveman | heehee :) Gumbybrain: Praise Yaakov |
| GumbyBRAIN | How can i get it away to yaakov. |
| simcop2387 | hey Yaakov |
| Daveman | mail it? |
| simcop2387 | whats up |
| Yaakov | Hello, simcop2387. Hello, Daveman. |
| mauke | FuzzyB: like while (@array)? |
| Yaakov | I am talking to you from my shiny new MBP. Woo. |
| Daveman | How's things simcop? You done lately? |
| simcop2387 | Daveman: pretty good, been helping my parents get moved in to their new house |
| FuzzyB | eval my @array= ( 1, 2, 3 ); while (@array) { my $test = pop(@array); print $test; } eval: my @array= ( 1, 2, 3 ); while (@array) { my $test = pop(@array); print $test; } |
| buubot | FuzzyB: 3 2 1 0 |
| Daveman | :) |
| action | LeoNerd huggles Term::Size + Text::Wrap |
| LeoNerd | huggles Term::Size + Text::Wrap |
| Daveman | What a nice gesture. |
| LeoNerd | Now all my error messages line up neatly on the screen :) |
| mauke | eval: for (reverse (1, 2, 3)) { print; } |