Thread Hashvergleich klappt nicht *war Anfänger Frage (10 answers)
Opened by der_thomas at 2013-09-22 18:11

hlubenow
 2013-09-22 18:57
#170501 #170501
User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]
Schließe mich im Grundsatz Raubtier an. Da waren so viele Sachen, ich hab' mal einiges umgeschrieben. Ob man globale Variablen haben will, muß man entscheiden. Bei Konstanten kann es sinnvoll sein, bei Hashes mit Daten (nur) unter Umständen. Gefällt mir immer noch nicht, aber solange ich nicht weiß, was es überhaupt tun soll, erstmal so:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

#!/usr/bin/perl

use warnings;
use strict;

my %daten;

sub datensuchen{
    print "\nLink suchen (Enter = Beenden)\n";
    my $notiz = <STDIN>;
    chomp($notiz);

    if ($notiz eq ""){
        return};
    if (exists $daten{$notiz}) {
        print "\n$daten{$notiz}\n";
    } else {
        print "\nNicht gefunden !!\n";
    }
    datensuchen();
}

sub datenladen{
    open (my $FH, '<', 'links.txt') || die;
    my @liste = <$FH>;
    close $FH;
    chomp(@liste);
    for (my $i = 0; $i <= $#liste; $i += 2){
        $daten{$liste[$i]} = $liste[$i+1];
        $daten{$liste[$i+1]} = $liste[$i];
    }
}

# main
datenladen();
datensuchen();

View full thread Hashvergleich klappt nicht *war Anfänger Frage