Hi,

Ich brauche konvertieren Speicherauszugsdatei in den folgenden Format: (Bitte beachten Sie, dass Zeilennummern sind für einfach-Optik)

Original-Datei:

1 2007-10-2482.90 Nr. Handel 0 0,00 100000,00
2 100000,00
3 0,00
4 HOLD
5 2007-10-2589.75 gekauft 1114 1114 100000,00 0,00
6 100000,00
7 -0,00
8 STRONG BUY
9 2007-10-2692.35 Nr. Handel 1114 102896,94 0,00
10 102896,94
11 2,90
12 STRONG BUY
13 2007-10-2991.20 Nr. Handel 1114 101615,60 0,00
14 101615,60
15 1,62
16 STRONG BUY
17 2007-10-3090.05 Nr. Handel 1114 100334,26 0,00
18 100334,26
19 0,33
20 STRONG BUY
21 2007-10-3188.45 Nr. Handel 1114 98551,53 0,00
22 98551,53
23 -1,45
24 STRONG BUY
25 2007-11-0183.70 Verkauft 1114 0 0,00 93259,05
26 93259,05
27 -6,74
28 STRONG SELL

Modifiled-Datei:

1 2007-10-2482.90 Nr. Handel 0 0,00 100000,00 HOLD
2 2007-10-2589.75 gekauft 1114 1114 100000,00 0,00 STRONG BUY
3 2007-10-2692.35 Nr. Handel 1114 102896,94 0,00 STRONG BUY
4 2007-10-2991.20 Nr. Handel 1114 101615,60 0,00 STRONG BUY
5 2007-10-3090.05 Nr. Handel 1114 100334,26 0,00 STRONG BUY
6 2007-10-3188.45 Nr. Handel 1114 98551,53 0,00 STRONG BUY
7 2007-11-0183.70 Verkauft 1114 0 0,00 93259,05 STRONG SELL


Das heißt, alle 4 Zeile der Datei muss in einer einzigen Zeile - nach dem Löschen der 2. und 3. Zeile.

A perl Skript zu tun, das wäre toll. (sed erfüllen, wird auch mein Ziel, aber perl Weise wird sehr geschätzt).

In Erwartung der für Ihre Hilfe!

awk '{ printf "%s", $0; getline;  getline; getline var; printf " %s\n", var }' filename

großartig! gearbeitet - nur wundern, wenn dies kann donw in perl ...

Ja, es kann!

#! /opt/third-party/bin/perl

my $skip = 2;

open(FILE, "<", "a2");

while(<FILE>) {
  chomp;
  if ( $skip < -1 ) {
    $skip = 1;
    print $_;
    next;
  }
  print $_ if( $skip == 2 );
  print "$_\n" if( $skip == -1 );
  $skip--;
}

close(FILE);

Hi,

Diese sollten Sie auf OK.

Code:

awk '{
if (NR%4==1)
	str=$0
if (NR%4==0)
	print NR/4" "str" "$0
}' file

Paste - - - - <x