Thread csv suchen - ersetzen (12 answers)
Opened by Daniel at 2010-06-23 12:14

Sven_123
 2010-06-23 13:34
#138836 #138836
User since
2010-06-01
120 Artikel
BenutzerIn
[default_avatar]
Ein kleiner Versuch...keine Garantie dafür, dass es klappt. ;)
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
26

$i=0.1;
open quelle, "< quelldatei";
while (<quelle>){
  if ($i == 0.1){
    $i=0;
    next;
  }
  if ($i == 0){
    $out[0]=$_;
    $lastline=$_;
    next;
  }
  if($_ eq $lastline){
    next;
  }
  $lastline=$_;
  @line=split /;/,$_;
  $out[$i]=$line[$#line];
  $i++;
}
close quelle;
open out, "> output";
for $j (0 .. $i){
  print out "$out[$j]\n";
}
close out;


Edit: Oh, ich muss das Master;Topic noch überspringen - muss noch kurz was ändern...
Edit2: Getan - wahrscheinlich ziemlich unelegant...egal...*g
Edit3: Mir fällt grad auf...ich weiß eigentlich nicht, was AKS und CSV bedeutet - unter Umständen ist mein Vorschlag also ziemlicher Unfug. Dann ignorier ihn einfach.
Last edited: 2010-06-23 13:42:21 +0200 (CEST)

View full thread csv suchen - ersetzen