Ein Array splitten (Allgemeines zu Perl)

[thread]20408[/thread]

Ein Array splitten

Tags: perl6 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+7 replies
zeta3010

2017-12-19 14:16
User since
2017-12-19
2 Artikel
BenutzerIn
Hi zusammen,

ich hätte mal kurz eine Frage bei der Durchführung.

Ich habe folgenden Output der in einem Array gespeichert ist z.B.
Code: (dl )

1 2 3 4 5 6 7 8 9 10

Zeile nummer 1 Zeile nummer 2 Zeile nummer 3 Zeile nummer 4 Zeile nummer 5 Zeile nummer 6 zeile nummer 7
Diese sind in einem Array z.B. @content gespeichert.

Nun möchte ich gerne ein Array daraus machen, dass die jeweiligen Blöcke in jedem Element hat. z.B
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

say $new_array[0] Output: Zeile nummer 1 Zeile nummer 2 Zeile nummer 3 say $new_array[1] Output: Zeile nummer 4 say $new_array[2] Output: Zeile nummer 5 Zeile nummer 6 zeile nummer 7
Ich habe versucht es mit folgenden Code zu machen
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

my @tmp; my @new_output; foreach my $var (@old_output){ if($var !~ /\n/){ push(@tmp, $var) } else{ print(@tmp); push(@new_output, @tmp); @tmp = (); } }
Leider bekomme ich damit kein Array hin, so dass ich den kompleten Block per Index ansprechen kann.

Danke schonmal für die Hilfe

Grüße
Zeta
Last edited: 2017-12-19 14:55:55 +0100 (CET)
- +3 replies
- GwenDragon
  
  2017-12-19 18:14
  User since
  2005-01-17
  14758 Artikel
  Admin1
  Gleich richtig einlesen ;)
  
  Perl 5:
  =======
  Siehe auch Input-Record-Separator http://perldoc.perl.org/perlvar.html#%24INPUT_RECO...
  
  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
  
  use strict; use warnings; my @in; { local $/ = "\n\n"; # Record-Trenner für Einlesen setzen @in = <DATA>; # Daten einlesen } for my $wert ( 0 .. $#in ) { print $in[ $wert ]; } __DATA__ Zeile nummer 1 Zeile nummer 2 Zeile nummer 3 Zeile nummer 4 Zeile nummer 5 Zeile nummer 6 Zeile nummer 7
  
  erzeugt:
  Zeile nummer 1 Zeile nummer 2 Zeile nummer 3 Zeile nummer 4 Zeile nummer 5 Zeile nummer 6 Zeile nummer 7
  Last edited: 2017-12-20 09:33:12 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - Raubtier
    
    2017-12-19 19:35
    
    User since
    2012-05-04
    1076 Artikel
    BenutzerIn
    
    Das sieht aber alles verdammt nach Perl 5 aus ;-)
    - GwenDragon
      
      2017-12-20 09:23
      
      User since
      2005-01-17
      14758 Artikel
      Admin1
      
      Nachdem ich nicht wusste, was die fragende Person braucht, habe ich mal Perl 5 genommen.
      Perl 6 oben nachgetragen.
      Last edited: 2017-12-20 09:32:12 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +3 replies
- GwenDragon
  
  2017-12-20 09:31
  User since
  2005-01-17
  14758 Artikel
  Admin1
  Perl 6
  ======
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  my $data = "Zeile nummer 1 Zeile nummer 2 Zeile nummer 3 Zeile nummer 4 Zeile nummer 5 Zeile nummer 6 Zeile nummer 7"; my @in = $data.split(/\n\n/); for @in -> $wert { say $wert; say "------"; }
  
  Last edited: 2017-12-20 09:33:29 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - zeta3010
    
    2017-12-22 16:32
    
    User since
    2017-12-19
    2 Artikel
    BenutzerIn
    
    Vielen lieben Dank für die Hilfe :)
    
    Ich werde mich gleich mal ransetzen
    - GwenDragon
      
      2017-12-22 16:43
      
      User since
      2005-01-17
      14758 Artikel
      Admin1
      
      Aus Interesse: Hast du jetzt was für Perl 6 oder >5.20 gesucht?
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2017-12-19 14:16.