| rindolf | ofer0: what's up? |
| Botje | hello, rindolf |
| rindolf | Botje: sup? |
| Botje | I was awake for 36 hours yesterday then 14hours of sleep and now I don't feel like coding, so i'll play nethack some more :) |
| ofer0 | Botje, here's the solution: perl -le'print"@{[1..1000]}"' 29 bytes rindolf, I'm fine, you ? |
| Botje | ofer0: of course, nice one |
| hobbs | ofer0: Botje's is the same length without the (accidental as far as I can see) -p |
| rindolf | ofer0: trying to do something with Plagger. ofer0: which isn't very easy. |
| anno_ | perl -le 'print"@{[1 .. 100]}"' |
| dkr | ofer0: perl -le'print"@{[1..1e3]}"' |
| hobbs | then again it seems to fail to do anything... |
| ofer0 | hobbs, it is one byte longer. |
| hobbs | ofer0: it had an unnecessary space in it too, I didn't count that |
| ofer0 | hobbs, see proof @ PM dkr, amazing :) |
| notjohn | hobbs: how do you generate that "Platform" output? |
| hobbs | notjohn: perl -V |
| notjohn | hobbs: did you compile perl yourself ? |
| hobbs | not my machine, not my perl, but I'm assuming it's stock |
| notjohn | osname=darwin, osvers=8.8.4, archname=darwin-2level |
| hru701 | if I had a perl script that had a variable in the beginning to run the program, and I needed a quick way of running the program again without having to manually change that variable, is there a way of supplying the variable arguments from the command line? |
| notjohn | i'm using perl from mac ports... i dont' think the included os x perl is different |
| anno_ | hru: <c>my $var = shift;</c> |
| hru701 | anno_ say I wanted to add two of $var (i.e for the program to run twice, once with the first variable, and again with the next) what amendments would I need to make? |
| rindolf | hru701: use foreach |
| anno_ | the script will only run once per call, never mind how many variables |
| rindolf | hru701: or better - create a subroutine and call it with each one. |
| hru701 | rindolf quick example? my $var1 = ' '; my $var2 = ''; sub ($var1); sub ($var2); ? |
| rindolf | hru701: you can't use sub. hru701: myfunc($var1); myfunc($var2); |
| action | CPAN upload: CAS-0.88 by SEANQ |
| CPAN | upload: CAS-0.88 by SEANQ |
| action | CPAN upload: CAS-Apache-0.45 by SEANQ |
| CPAN | upload: CAS-Apache-0.45 by SEANQ |
| action | CPAN upload: Audio-MPD-0.13.5 by JQUELIN |
| CPAN | upload: Audio-MPD-0.13.5 by JQUELIN |
| dkr | ofer0: perl -l040e'print for 1..1e3' not as short, but TMTOWDI is fun, :) |
| anno_ | for my $var ( @ARGV ) { sub( $var) } |