dringend Script benötigt

[DebiRo]

Hallo,
Ich brauche dringen ein script, das funktioniert, da ich es hier nicht testen kann, und dort wo ich es brauch nicht viel Zeit habe und kein Internet vorhanden ist.

Ich habe eine Datei, bei der in manchen Zeilen so ein Trennstrich ist "|" (oder mehrere mit daten dazwischen). Nun sollen die Zeilen von oben nach unten durchgegangen werden und alles was vor dem ersten | steht durch eine vortlaufende Nummerrierung ersetz werden.

z.B.

Datei vorher:

Code: Alles auswählen

Hallo
Text bla bla
3001|Musterman8|Adresse1||||
2045|Muterman9|Adresse2||||
4|Musterman10|Adresse3|München|||
Text bla bla

Datei soll so aussehen:

Code: Alles auswählen

Hallo
Text bla bla
1|Musterman8|Adresse1||||
2|Muterman9|Adresse2||||
3|Musterman10|Adresse3|München|||
Text bla bla

Wär echt super, wenn ich schnell eine Antwort bekomme

[Joghurt]

Code: Alles auswählen

awk  'BEGIN {FS="|"; OFS="|"} /\|/ {n=n+1; $1=n} {print}' Datei > NeueDatei

[DebiRo]

Vielen vielen Dank. Werde dass dann mal gleich probieren. Wenn es geht (was ich denke), werde ich dich bestimmt noch mit fragen überhäufen, da ich da im Moment nicht durchblicke.

[seep]

Code: Alles auswählen

#!/usr/bin/perl

my $counter= 0;

while (<>) {
  my $line= $_;
  if ($line=~ /\|/) {
    $counter++;
    $line=~ s/^.*?\|/$counter\|/;
  }
  print $line;
}

Als foo.pl speichern, "perl foo.pl < Datei > NeueDatei"

[gms]

Fehlt noch ein Perl Oneliner:

Code: Alles auswählen

gms@gms1:~$ perl -pe 's/^[^|]+\|(?{++$n})/$n\|/' Datei >NeueDatei
gms@gms1:~$ cat NeueDatei
Hallo
Text bla bla
1|Musterman8|Adresse1||||
2|Muterman9|Adresse2||||
3|Musterman10|Adresse3|München|||
Text bla bla

Gruß
gms