Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Dualvar via table

by AnomalousMonk (Bishop)
on Jan 17, 2020 at 20:26 UTC ( #11111548=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    c:\@Work\Perl\monks>perl -wMstrict -le
    "my %h = qw(a 1  b 2  c 3  d 1);
    ...
     keys %r == keys %h or die qq{hash @{[ %h ]} not unique};
    "
    hash c 3 a 1 b 2 d 1 not unique at -e line 1.
    
  2. or download this
    c:\@Work\Perl\monks>perl -wMstrict -le
    "use Data::Dump qw(dd);
    ...
     dd \%r;
    "
    { 1 => ["a", "d"], 2 => ["b"], 3 => ["c"], 88 => ["b"], 99 => ["b", "d
    +"] }
    
  3. or download this
    c:\@Work\Perl\monks>perl -wMstrict -le
    "use Test::More 'no_plan';
    ...
    ok 2 - no warnings
    1..2
    # Looks like you failed 1 test of 2.
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11111548]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (6)
As of 2020-04-08 16:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The most amusing oxymoron is:
















    Results (45 votes). Check out past polls.

    Notices?