Schlüssel im Hash festlegen / begrenzen: wie ging das nochmal? (Allgemeines zu Perl)

Crian

2004-04-21 14:52

User since
2003-08-04
5866 Artikel
ModeratorIn

Ich weiß ich habe es hier mal gelesen, aber mit der Suche nicht wiedergefunden obwohl ich meine schonmal nachgefragt zu haben - peinllich peinlich :blush:

Zur Sache: Es gibt eine Möglichkeit per use xyz die erlaubten Schlüssel eines Hashes zu einem beliebigen Zeitpunkt auf die dann bekannten zu begrenzen (hilft ähnlich wie strict gegen Tuppfihler in den keys).

Erinnert sich jemand an das, was ich meine?

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

Taulmarill

2004-04-21 15:56

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

hm, mit tie geht das bestimmt, währe aber ein bischen aufwendig für so was.
an sonsten fällt mir nix ein...

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

Crian

2004-04-21 16:04

User since
2003-08-04
5866 Artikel
ModeratorIn

Ne, das war eine ganz einfache Möglichkeit. Mist, warum hab ich mir das nicht aufgeschrieben? *grmpf* Werd ich diesmal machen, falls sich der- oder diejenige erinnert...

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

renee

2004-04-21 16:12

User since
2003-08-04
14371 Artikel
ModeratorIn

Ich erinnere mich zwar nicht, aber wenn Du es wieder weißt, dann kannst Du ja einfach einen FAQ Artikel zu Hashes unter http://wiki.perl-community.de/bin/view/Wissensbasis/FaqHashes schreiben *g*

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

ptk

2004-04-21 16:25

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Hash::Util::lock_keys oder use fields.

Taulmarill

2004-04-21 16:28

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

ICH HABS, ICH HABS, ICH HABS!

Code: (dl )

1
2
3

use Hash::Util qw(lock_keys);
           lock_keys(%hash);
           lock_keys(%hash, @keys);

aus perldoc Hash::Util

Restricts the given %hash's set of keys to @keys. If
@keys is not given it restricts it to its current
keyset. No more keys can be added. delete() and
exists() will still work, but it does not effect the set
of allowed keys.

--edit--
ah, verdamt. 3 min. zu spät :-)\n\n

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

Crian

2004-04-23 16:40

User since
2003-08-04
5866 Artikel
ModeratorIn

genau, das wars :-)

danke, ich habs diesmal in mein rotes Perlbuch eingetragen ;-)\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

renee

2004-04-23 17:09

User since
2003-08-04
14371 Artikel
ModeratorIn

Ich gerade mal schnell dazu ein Wiki-Artikel geschrieben: http://wiki.perl-community.de/bin....raenken ...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

betterworld

2004-04-23 17:25

User since
2003-08-21
2613 Artikel
ModeratorIn

user image

Geil, so ein Feature habe ich schon seit Jahrhunderten vermisst!\n\n

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

Crian

2004-04-24 03:40

User since
2003-08-04
5866 Artikel
ModeratorIn

Schick @renee ... ergänz doch nochmal das fehlende t oben bei der Festlegung der erlaubten Begriffe ... ich komm schon wieder nicht ins Wiki rein. Könnte an meiner Blödheit oder an dem Umlaut im Namen liegen, wahrscheinlich aber ersteres ;-)

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