Hej
Jag vill jämföra en sträng på fasta ståndpunkt 10-20 för alla rader som börjar med 6. Om de inte matchar det bör ta en kopia av en linje som börjar med 1 och för in den före raden som börjar med 6. Hur gör jag detta? Please help

Eg

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

så produktionen bör

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

kan du förklara lite mer .. liksom vad är det du letar efter och från vilka som linje nos .... Jag tror att jag kan hjälpa dig .......

thnx shishir

Med tanke på ditt prov uppgifter den sömnad som $ 4 kommer att fungera bra.
Använda nawk eller /usr/xpg4/bin/awk på 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;}
}

hej
Fältet är i fast position 10-20 inte 4:e området nödvändigtvis. Kan du hjälpa

Tack

Men du sätter i rött ståndpunkter 9-15, Inte 10-20!

Med 9-15 det bör vara:

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

Detta verk, Tack så mycket.