Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

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

by yosefm (Friar)
on Jan 24, 2004 at 15:39 UTC ( #323839=note: print w/replies, xml ) Need Help??

in reply to Re: An easier way to construct lists of numbers?
in thread 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]];
$h{$xy} = [$_->[0], $_->[1]] if $_->[5];

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 }

can become:
select BLA; for my $o (0 .. $#line) { print ... } select STDOUT;
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;}'
My public key

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://323839]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (5)
As of 2018-03-24 12:28 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (298 votes). Check out past polls.