Hi
Ich möchte einen String vergleichen zu festen Position 10-20 für alle Zeilen mit 6. wenn sie keine Übereinstimmung sollte sie eine Kopie einer Zeile beginnend mit 1 und fügen Sie es vor der Zeile, die mit 6. Wie kann ich das? Bitte helfen

Z. B.

1 Test 1 765533 7643743
6 ja 3 5363653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
7 323323 4343434435 545
6 ja 3 5373653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
6 ja 3 5373653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
6 ja 3 5383653 373833
7 323323 4343434435 545
8 4345435435 5454545 55

so dass die Ausgabe sollte

1 Test 1 765533 7643743
6 ja 3 5363653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
7 323323 4343434435 545
1 Test 1 765533 7643743
6 ja 3 5373653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
6 ja 3 5373653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
1 Test 1 765533 7643743
6 ja 3 5383653 373833
7 323323 4343434435 545
8 4345435435 5454545 55

Können Sie bitte erklären, wie etwas mehr .. was sind Sie auf der Suche nach und von dem aus die Linie Nr. .... Ich glaube, ich kann Ihnen dabei helfen, .......

thnx Shishir

Da Ihre Probe ist es, dass die Nähte $ 4 funktioniert.
Verwenden nawk oder /usr/xpg4/bin/awk auf Solaris:

awk '/^1 / { s = $0 }
/^6 / && !t[$4]++ {
  c++ && $0 = s RS $0
  }1' infile

perl:

open FH,"<d:/a.txt";
while(<FH>){
	if(m/^1.*/){
		$line=$_;
		print;
		next;
	}
	if(m/^6.*/){
		@t=split;
		if($temp eq ""){
			$temp=$t[3];
			print;
		}
		else{
			if(!($t[3] eq $temp)){
				print $line;
				print $_;
				$temp=$t[3];
			}	
			else{
				print;
			}		
		}
	}
	else{print;}
}

Hi
Das Feld ist in festen Position 10-20 nicht der 4. Bereich unbedingt. Können Sie bitte helfen

Danke

Aber kann man in der rot-Positionen 9-15, Nicht 10-20!

Mit 9-15 Es sollte:

awk '/^1 / { s = $0 }
/^6 / && !t[substr($0,9,7)]++ {
  c++ && $0 = s RS $0
  }1' infile

Das funktioniert, Vielen Dank.