Hashwerte vergleichen: wahr oder nicht? - #82073 (Allgemeines zu Perl)

Crian

2004-05-07 16:57

User since
2003-08-04
5873 Artikel
ModeratorIn

Code: (dl )

sub test_hash {
     my $hr = shift;
     my %h;
     return 1 if ++$h{$_} > 1 for values %$hr;
     return 0;
}

ungetestet...

Edit: Mist, funktioniert nicht... aber so:

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

my %Hash = ( a => 1,
             b => 2,
             c => 3,
           );
my %HasH = ( a => 1,
             b => 2,
             c => 1,
           );

print test_hash(\%Hash), "\n";
print test_hash(\%HasH), "\n";

sub test_hash {
    my $hr = shift;
    my %h;
    for (values %$hr) {return 1 if ++$h{$_} > 1}
    return 0;
}

Gibt aus:

Code: (dl )

1
2

0
1

Naja, keine Überrauschung ;)

Edit2: Dies hier

Code: (dl )

    ++$h{$_} > 1 ? return 1 : print "" for values %$hr;

schluckt er und es funktioniert auch, aber das ist häßlich (und lahm). Warum wag er die

### if ### for ###;

Form nicht? *grmbl* ;-)\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite