ARRAY-Elemente mit der split-funktion (Allgemeines zu Perl)

[thread]13915[/thread]

ARRAY-Elemente mit der split-funktion

Leser: 28

Articles: hide open all | hide show old branches

+6 replies
PETER_PAN2009

2009-08-24 11:40
User since
2009-08-24
111 Artikel
BenutzerIn
Hallo Perler!!

Bin zur Zeit dabei Perl zu lernen und stehe vor einem Problemchen:
1. Foreach-Schleife, wo ich keys eines Hashes in ein Array pushe!Da sind ca. 100 Datensätze, die folgendermaßen aussehen: "Hier:ist:ein:text"
2. Jetzt möchte ich ganz gerne die split-funktion nutzen und da habe ich meine Probleme:
Mein Code:
Code: (dl )

@array1 = split(":", @array1[$_])
3. Jetzt habe ich eine do_while Schleife, mit der ich die Datensätze überprüfen möchte
Code: (dl )

1 2 3 4 5 6 7

my %myhash = (); do { my $k = join(":", @array1); last if(exists $myhash{$k}); $myhash{$k} = 0; }while(pop @array1);
Ich möchte dass er alle datensätze in dem Array vergeicht, jetzt nimmt er nur den letzten...warum?!?!?!

Was mache ich falsch???

Vielen DANK
Peter

----
Modedit GwenDragon: Code-Tag repariert
----
Last edited: 2009-08-24 11:44:38 +0200 (CEST)
- +4 replies
- GwenDragon
  
  2009-08-24 11:50
  
  User since
  2005-01-17
  14542 Artikel
  Admin1
  
  Zu 1) Und wie erzeugst du das Array?
  
  Zu 2) Wie wird denn in deinem Code $_ gesetzt?
  
  Zu 3) Wie sind denn die Datensätze aufgebaut? Erkläre es doch bitte mal genauer.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +3 replies
  - PETER_PAN2009
    
    2009-08-24 12:01
    User since
    2009-08-24
    111 Artikel
    BenutzerIn
    
    1)
    
    Code: (dl )
    
    1 2 3 4 5
    
    my @array1; foreach my $key (keys %hash_tmp) { push(@array1, $key); }
    
    2)Ähhhm, ich denke dass wenn ich @array1[$_] angebe, dass er automatisch alle Elemente des Array's durch die splite-funktion durchjagt und in dem array1 wieder speichert...ist es nicht so??
    
    3)
    datensatz1: Hier:ist:ein:text
    datensatz2: Hier:ist:ein:weiterer:text
    datensatz3: Hier:ist:ein:weiterer:text2
    
    Gruß
    Peter
    - Taulmarill
      
      2009-08-24 12:09
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      2009-08-24T10:01:11 PETER_PAN2009
      2)Ähhhm, ich denke dass wenn ich @array1[$_] angebe, dass er automatisch alle Elemente des Array's durch die splite-funktion durchjagt und in dem array1 wieder speichert...ist es nicht so??
      
      Nein, um alle Elemente des Arrays abzuarbeiten, musst du da noch eine For-Schleife herum schreiben. Etwa so:
      
      Code (perl): (dl )
      
      1 2 3
      
      for 0 .. $#array { # $#array ist der Index des letzten Elements von @array print $array[$_] . "\n"; }
      
      Wenn du nur ein Element aus dem Array willst, würde ich außerdem $array[$_] anstatt @array[$_] schreiben.
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
    - renee
      
      2009-08-24 12:10
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Zu 1)
      Quote
      
      Code: (dl )
      
      1 2 3 4 5
      
      my @array1; foreach my $key (keys %hash_tmp) { push(@array1, $key); }
      
      Wenn Du wirklich nur das machst, dann kannst Du auch einfach
      
      Code (perl): (dl )
      
      my @array1 = keys %hash_tmp;
      
      machen.
      
      Ich habe allerdings noch nicht erkannt, was Deine Frage bei Punkt 1) ist.
      
      Zu 2)
      Quote
      
      Code: (dl )
      
      @array1 = split(":", @array1[$_])
      
      Der Code macht in zweifacher Weise nicht das, was Du vermutlich willst.
      
      a) Benutzt Du $_, obwohl Du nirgends den Wert der Variablen setzt.
      b) Du überschreibst bei dem "split" das Array.
      
      Du hast ja vorher alle Schlüssel eines Arrays in dem Array gespeichert. Mit dem Code aus 2) nimmst Du das erste Element (das mit dem Index 0) splittest den Wert und speicherst das Ergebnis in dem Array. Damit sind alle anderen Schlüssel verloren.
      
      Am Besten wäre es, wenn Du uns sagst, was Du ganz zum Schluss im Array haben willst.
      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/
- Taulmarill
  
  2009-08-24 12:06
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  So 100%ig werde ich aus deinem Posting noch nicht schlau, was jetzt genau dein Problem ist, ich vermute aber mal, dass es in folgender Zeile liegt.
  
  Code (perl): (dl )
  
  @array1 = split(":", @array1[$_])
  
  Hier überschreibst du @array1, was du wahrscheinlich nicht willst. Ich würde dir raten ein zweites Array aufzubauen, etwa so:
  
  Code (perl): (dl )
  
  push @splitted, split(":", $array1[$_])
  
  Falls du das Ergebnis der splits unbedingt wieder in den selben Array speichern willst, könnte man das mit map machen (ohne for-schleife):
  
  Code (perl): (dl )
  
  @array1 = map{ split ":", $_ } @array1
  
  Sollte das nicht helfen, beantworte bitte erst GwenDragons fragen, damit wir genauer feststellen können wo das Problem liegt.
  Last edited: 2009-08-24 12:10:20 +0200 (CEST)
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

View all threads created 2009-08-24 11:40.