Привет
Я хотел бы сравнить строки на 10-20 Твердая позиция по всем направлениям, начиная с 6. если они Dont матча ему следует принять копию строки, начинающиеся с 1, и вставить его в начале строки, начиная с 6. Как мне это? Пожалуйста, помогите

Например,

1 тест 1 765533 7643743
6 да 3 5363653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
7 323323 4343434435 545
6 да 3 5373653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
6 да 3 5373653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
6 да 3 5383653 373833
7 323323 4343434435 545
8 4345435435 5454545 55

так что вывод должен быть

1 тест 1 765533 7643743
6 да 3 5363653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
7 323323 4343434435 545
1 тест 1 765533 7643743
6 да 3 5373653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
6 да 3 5373653 373833
7 323323 4343434435 545
8 4345435435 5454545 55
1 тест 1 765533 7643743
6 да 3 5383653 373833
7 323323 4343434435 545
8 4345435435 5454545 55

Вы можете объяснить, пожалуйста, немного .., как то, что вы поиск и из которого, к которой линия н.у.к. .... Я думаю, что может помочь вам .......

thnx shishir

Учитывая вашу выборку данных пластов, что $ 4 будет работать отлично.
Использовать nawk или /usr/xpg4/bin/awk на 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;}
}

привет
Поле находится в фиксированном положении 10-20 не 4-м поле необязательно. Не могли бы вы помочь

Спасибо

Но вы положили в красном позиции 9-15, А не 10-20!

С 9-15 она должна быть:

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

Это работает, спасибо за внимание.