Array mit Laufvariable erstellen (Allgemeines zu Perl)

[thread]15509[/thread]

Array mit Laufvariable erstellen

Leser: 28

Articles: hide open all | hide show old branches

+7 replies
Sanny

2010-10-04 15:48
User since
2010-09-26
11 Artikel
BenutzerIn
Hallo Leute,

Ich habe mal eine Frage:
Weiß jemand, wie ich in Perl ein array mit einer Laufvariable erstelle?
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

foreach (@data) #Durchlaufen des arrays @data { for($i=1; $i<=3; $i++) { my $j=$i+1; if (m/Sec\_$i/ .. m/Sec\_$j/) { push(my @dat_($i), $_); # ohne die Laufvariable $i gibt es hier keine Probleme #pop(@dat_($i)); # Löschen des letzten array elements } } } print @dat_($i);
Es wird folgender Fehler ausgegeben:

syntax error at Chain1.2.pl line 42, near "@dat_("
syntax error at Chain1.2.pl line 52, near "@dat_("
Execution of Chain1.2.pl aborted due to compilation errors.

Zum anderen weiß ich nicht, weshalb die Zeile "pop(@dat_($i));" dazu führt, das nichts ausgegeben wird (auch ohne die Laufvariable $i). Ich habe Sie daher vorerst auskommentiert. Ich wollte hiermit nur das letzte array element rausnehmen/entfernen.

für evtl. Vorschläge danke ich im voraus.

Gruß

Sanny
- pq
  
  2010-10-04 16:11
  User since
  2003-08-04
  12208 Artikel
  Admin1
  vielleicht sollte man an das problem von der anderen seite rangehen. von deinem code kann ich nämlich nicht erraten, was da passieren soll. du iterierst mit foreach über @data. in jeder iteration hast du nochmals eine schleife, übrigens mit einer sehr unperligen c-style-for-loop, und dazu noch ohne my()!
  kennst du use strict schon? unbedingt lesen und verstehen.
  
  also, statt
  for($i=1; $i<=3; $i++)
  schreibt man in perl viel einfacher
  for my $i (1 .. 3)
  
  was ich dann gar nicht verstehe, ist das statement
  push(my @dat_($i), $_);
  
  was soll das für eine sprache sein? was möchtest du tun?
  
  ich verstehe schon allein die frage "array mit laufvariable" nicht.
  was ist ein array mit laufvariable, und was wäre ein array ohne laufvariable?
  
  was soll das my() an der stelle? my() deklariert variablen. das macht man *einmal* am anfang des bereichs, in dem sie benutzt wird.
  du kannst doch nicht in jeder schleife innerhalb eines push-befehls ein array neu deklarieren.
  dann das komische @dat_($i). woher kommt diese syntax? das ist wie gesagt kein perl.
  
  willst du vielleicht gaaanz einfach die zeile ($_ aus @data), wenn sie matcht, an dein neues array @dat_ anhängen? mal so in deutsch statt in perl gefragt? (komischer name übrigens für ein array).
  
  also in etwa so?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my @dat_; foreach (@data) { if (m/Sec\_$i/ .. m/Sec\_$j/) { push @dat_, $_; } }
  
  edit: typo
  Last edited: 2010-10-04 16:14:41 +0200 (CEST)
  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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- payx
  
  2010-10-04 16:11
  
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  
  Hallo Sanny,
  
  eine Laufvariable ist ganz einfach zu bekommen: Entweder Du nimmst den Schleifenindex (z.B. for my $laufVar (0..10) {), der ja die klassische Laufvariable ist, oder Du hast eben eine Variable, die Du immer dann inkrementierst (z.B. $laufVar++;, wenn sie eben weiterzählen soll.
  
  Arrays musst Du Dir nochmals ansehen, z.B. im ArraysAllgemein.
  
  *Du definierst ein Array mit dem @, z.B. my @data;
  *Du hängst einen Wert an mit push, z.B. push @data, $wert;
  *Du setzt einen Wert zu einem bestimmten Index mit $ und [], z.B. $data[3]=$wert;
  
  Ich habe nicht verstanden, was Dein Script machen soll.
  
  HTH trotzdem
  Grüße
  payx
- pq
  
  2010-10-04 19:30
  User since
  2003-08-04
  12208 Artikel
  Admin1
  wenn ich das vielleicht richtig errate, möchtest du die variable $i im variablennamen haben.
  das ist eine äusserst schlechte idee, auf diese weise dynamische variablennamen zu generieren, und ausserdem ist es in perl 5 nicht nötig, da man mittels array-refereferenzen ganz einfach mehrdimensionale arrays erstellen kann.
  siehe zum thema variablennamen auch VariablenAlsVariablennamen
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  use strict; use warnings; use Data::Dumper; my @data = ...; my @sections; for (@data) { for my $i (1 .. 3) { my $j = $i+1; if (m/Sec_$i/ .. m/Sec_$j/) { # füge zeile in das array von $sections[$i-1] ein push @{ $sections[$i-1] }, $_; } } } print Dumper \@sections;
  
  so könnte das funktionieren, allerdings glaube ich, dass das mit dem flip-flop-operator so nicht funktionieren wird, wenn er mit verschiedenen bedingungen hintereinander aufgerufen wird.
  
  wie sehen deine daten genau aus? dann könnte man sich hier einen algorithmus ohne flip-flop-operator überlegen.
  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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +3 replies
- bianca
  
  2010-10-04 20:41
  
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  
  Die anderen haben schon sehr viel geschrieben, ich frage einfach mal, was willst Du denn machen?
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - Sanny
    
    2010-10-04 21:11
    User since
    2010-09-26
    11 Artikel
    BenutzerIn
    
    Ja das war richtig pq, ich hatte vor, die Daten, die im array @data vorliegen, in n array`s "auszuspiltten" und diese n arrays mit der variablen $i durchzunummerieren, so dass ich dann arrays der Form @dat_1, @dat_2,@dat_3,...., @dat_n vorliegen habe, mit denen ich dann weiterarbeiten kann.
    
    Die Zeile
    
    Code (perl): (dl )
    
    if (m/Sec\_$i/ .. m/Sec\_$j/)
    
    sollte die Daten aus dem array @data extrahieren.
    
    Ja, bin blutiger Anfänger, und habe alle eure Vorschläge sehr, sehr zu schätzen! Dauerd auch immer bisschen länger, bis ich dann reagiere, weil ich eure Info`s dann immer erst verarbeiten muss ;-) Ich bitte daher um euer Verständnis.
    Ganz lieben Dank an euch! Ich werde mir jetzt erst mal die Themen/ links durchlesen, dir Ihr empfohlen habt.....
    
    Gruß an Alle
    
    Sanny
    - topeg
      
      2010-10-05 00:33
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Ich hoffe du weist dass du if (m/Sec\_$i/ .. m/Sec\_$j/) immer einschließlich der angeben Werte auswählst. Wenn $j immer um 1 größer ist als $i und $i immer um 1 erhöht wird werden die Einträge aus @data dupliziert da $j der nächste $i wert ist. Ich hoffe du bist dir dessen bewusst.

View all threads created 2010-10-04 15:48.