Opened by Ronnie at 2003-09-02 15:21
User since
2003-08-29
347 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-29
347 Artikel
BenutzerIn
Ich hab alle Daten von meiner Hlist in einem Hash, der Hashrefs beinhaltet, so:
Unter meine Hlist hab ich ein Entry gesetz, es per
KeyPress oder Return (Geschmacks und Performencesache)
an die Sub SearchAdress($hlist,$entry) gebunden:
¤dit: Formatierung\n\n
<!--EDIT|eisbeer|1063039944-->
Code: (dl
)
1
2
3
4
5
6
%ADR = (
'Juergen' => {'Name' => 'Juergen',
'Nummer' => '1234567'},
'Franz' => {'Name' => 'Franz',
'Nummer' => '9876543'},
);
Unter meine Hlist hab ich ein Entry gesetz, es per
KeyPress oder Return (Geschmacks und Performencesache)
an die Sub SearchAdress($hlist,$entry) gebunden:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub SearchAddress {
my $Field = shift; # Hlist
my $Search = shift; # Suchfeld
quotemeta $Search; # Metazeichen fuer RegEx
# ausquoten
for (keys %ADR) {
$Field->show(-entry => $ADR{$_}->{'Name'}); # Jedes Feld wieder anzeigen
# Gibt sonst n bloeden Nebeneffekt.
unless ($ADR{$_}->{'Name'}=~/$Search/i) { # Aaaaber wenn es nicht $Search enthaelt...
$Field->hide(-entry => $ADR{$_}->{'Name'}); # ... wieder verstecken
}
}
}¤dit: Formatierung\n\n
<!--EDIT|eisbeer|1063039944-->
Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...