Thread letzten Zeilen im Array wiederholen (15 answers)
Opened by EagleFox at 2006-04-12 18:11

EagleFox
 2006-04-12 18:11
#64790 #64790
User since
2006-04-10
66 Artikel
BenutzerIn
[default_avatar]
Ich brauche nochmal Eure Hilfe.

Mit folgendem code sortiere ich Daten:

Code: (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
26
27
28
29
30
31
sub getDatensatz{
  my ($entry) = @_;
  my $bool = 0;
  my $warte_auf_flanke = 0;
  my $set = '';
  my @fallend;
  for my $line(split(/\r?\n/,$entry)){
    chomp $line;
    my $wert = (split(/\s+/,$line))[-1];

    if($wert > 4.8)
      {
      $warte_auf_flanke = 1;
      }
    if($warte_auf_flanke and $wert < 4)
      {
      $warte_auf_flanke = 0;
      $bool = 1;
      }

    unless($bool){
      push(@fallend,$line);
    }
    else{
      $set .= $line."\n";
    }
  }
  $set .= $_."\n" for(@fallend);
  $set .= "\n\n";
  return $set;
}


Es werden hier die Zeilen in einem Datenblock "abgeschnitten" und nach vorne an den Block gehängt, sobald der letzte Wert der Zeile wieder auf <4 sinkt, nachdem er mal 4.8 überschritten hatte.
Nun möchte ich es realisieren, dass die letzte Zeile des Datenblocks genau noch zehn mal wiederholt wird, bevor die abgeschnittenen Daten vorne angehängt werden.

Also:

vorher

a a a 0
b b b 2
c c c 4
d d d 5
e e e 5
f f f 4
g g g 3
h h h 1
i i i 0

nachher:

g g g 3
h h h 1
i i i 0
i i i 0
i i i 0
i i i 0
i i i 0
i i i 0
i i i 0
i i i 0
i i i 0
i i i 0
i i i 0
a a a 0
b b b 2
c c c 4
d d d 5
e e e 5
f f f 4

Ich hoffe das ist so verständlich.

View full thread letzten Zeilen im Array wiederholen