Hasze

  1. Przykład definiowania hasza poprzez przypisywanie indywidualnych wartości:

    
#!/usr/bin/perl
$hasz{'czerwone'} = 'jablko';
$hasz{'zielone'} = 'liscie';
$hasz{'niebieski'} = 'ocean';

     

  2. Można też przypisać do hasza listę par wartośc i klucz. Użyty tu operator
    qw
    wstawia za nas przecinki między elementy listy, a same elementy otacza cudzysłowami. 

    
#!/usr/bin/perl
%hasz = qw(czerwone jablko zielone liscie niebieski ocean);
print "Poprosze lancuch: "; chomp($jakis_lancuch = <STDIN>);
print "Wartosc dla $jakis_lancuch to $hasz{$jakis_lancuch}\n";

     

  3. Program czyta listę słów i bada jak często występują na niej poszczególne wyrazy. Przed pierszym użyciem elementy hasza mają wartość
    undef
    , co przy operacji dodawania wygląda jak zero (a my nie musimy niczego inicjalizować). Funkcja
    keys
    tworzy listę kluczy (ale możnaby tu też użyć oryginalnej listy słów
    @slowa
    , wydruk byłby wtedy inaczej uporządkowany).

    
#!/usr/bin/perl

chomp(@slowa = <STDIN>);
foreach $slowo (@slowa) {
    $licznik{$slowo} = $licznik{$slowo} + 1;
    # lub $licznik{$slowo}++}
foreach $slowo (keys %licznik) {
    print "$slowo zostalo znalezione $licznik{$slowo} razy.\n";
}

     

Last modified: poniedziałek, 10 sierpnia 2015, 10:49