oh yes the reverse if for sure the best trick, but you can eliminate entirely the while loop using map instead.
#! perl
use strict;
use warnings;
use Data::Dump;
my @A = qw ( H1 H2 H3 H4);
my @B = qw (1 2 3 4 5 6 7 8 9 10);
my %h;
map {push @{$h{ $_ }},grep {defined} shift @B} (@A, reverse @A) x int
+($#B / $#A) ;
dd %h;
L* UPDATE: with help of choroba i realized i had no need of int nor of so much repetitons:
map {push @{$h{ $_ }}, shift @B} (@A, reverse @A) x ($#B / $#A /2)
+; ##No it is still not good..
L*
There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|