Re: Re: An easier way to construct lists of numbers?

Very nice, Chady.

I'd like to add a few things:

First, to filter out the unused ($lite[$something][5]) you can change:

$h{$xy} = [$_->[0], $_->[1]];
[download]

to:

$h{$xy} = [$_->[0], $_->[1]] if $_->[5];
[download]

Second, when you write a loop, you should try to include only the essential stuff in it, so your program runs faster and consumes less resources. so this:

for my $o (0 .. $#line) {
    select BLA
    print ...
    select STDOUT
}
[download]

can become:

select BLA;
for my $o (0 .. $#line) {
    print ...
}
select STDOUT;
[download]

But it's also possible to give a file handle to print, like so: print HANDLE "Something\n"; and then you don't have to select and reselect at-all.

perl -e'$b=unpack"b*",pack"H*","59dfce2d6b1664d3b26cd9969503";\
for(;$a<length$b;$a+=9){print+pack"b8",substr$b,$a,8;}'
[download]

My public key

Comment on Re: Re: An easier way to construct lists of numbers? Select or Download Code