reverse hash? (Allgemeines zu Perl)

mustermann

2007-09-13 13:31

User since
2007-09-10
12 Artikel
BenutzerIn
[default_avatar]

Hallo,

sorry für die vielen Fragen, aber ich bin Anfänger in Perl.
Ich versuche gerade, die reverse Funktion zum laufen zu bekommen, aber es klappt nicht:

Code (perl): (dl )

#!perl

use strict;
my %hash;
%hash = ("1", "tag", "2", "hallo");
print $hash{"1"};
my %hash2;
%hash2 = reverse %hash;
print $hash{"tag"};

Das einzige was ausgegeben wird ist tag, aber eigentlich müsste ja auch 1 da stehen.

Gruß

pktm

2007-09-13 13:38

User since
2003-08-07
2921 Artikel
BenutzerIn

use warnings; offeriert dir deinen Fehler.
Du sprichst noch den nicht umgedrehten Hash an, du möchtest aber %hash2 ansprechen.

http://www.intergastro-service.de (mein erstes CMS :) )

pq

2007-09-13 13:39

User since
2003-08-04
12208 Artikel
Admin1

schonmal mit %hash2 versucht?

Code (perl): (dl )

print $hash2{"tag"};

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

pq

2007-09-13 13:40

User since
2003-08-04
12208 Artikel
Admin1

boah, können endlich mal die zeilennummern aus dem perl-tag verschwinden?
echt nervig, dass man die immer von hand rauslöschen muss.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

mustermann

2007-09-13 14:11

User since
2007-09-10
12 Artikel
BenutzerIn
[default_avatar]

Hallo,
ups, die 2 hatte ich übersehen jetzt gehts damit. Jetzt versuche ich einen Hash in dem Keys und Values, beides nur Zahlen, sind zu "reversen" und dann in einer Schleife mit $hash{$i} auszugeben, dabei komm aber gar nichts aus dem reversten Hash raus.
Gruß

pktm

2007-09-13 14:29

User since
2003-08-07
2921 Artikel
BenutzerIn

Hm, dazu kann ich so nicht viel sagen, schreib mal ein bischen Code.
Wenn du wissen möchtest, wie deine Datenstruktur aussieht kannst du sie schön mit Data::Dumper ausgeben lassen:

Code: (dl )

use Data::Dumper qw/Dumper/;
my %hash = (
  a => b,
  1 => [7,8,9],
  42 => {'die' => 'antwort'},
);

print Dumper \%hash; # man beachte den "\" für eine schönere Ausgabe :)

Das hilft manchmal ungemein.

http://www.intergastro-service.de (mein erstes CMS :) )

mustermann

2007-09-13 14:58

User since
2007-09-10
12 Artikel
BenutzerIn
[default_avatar]

Hi,
die Funktion ist wirklich sehr nützlich, meine Hashstruktur scheint nicht in Ordnung zu sein, da werde ich das Problem wohl erstmal woanders suchen müssen.
Vielen Dank!

lichtkind

2007-09-13 15:48

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

ich sehe ein perl tag mit und eins ohne nummern. gibts da 2 verschiedene schreibweisen?

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

renee

2007-09-13 15:56

User since
2003-08-04
14371 Artikel
ModeratorIn

Nein, ohne Zeilennummern ist das ein einzeiliges Skript... Bei mehreren Zeilen kommen die Zeilennummern.

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/

lichtkind

2007-09-13 19:11

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

achso also sind wir mit der zeilennummern-tabelle damals auf keine einigung gekommen?

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.