makesys2.pl
No OneTemporary
Actions

Size

646 B

Subscribers

None

makesys2.pl
View Options

	#!/bin/perl
	$lineold = <>;
	chomp $lineold;
	@listold = split /\t/,$lineold;
	while ($line = <>){
	chomp $line;
	@list = split /\t/,$line;
	if($list[0] == $listold[0]
	&& $list[1] == $listold[1]
	&& $list[8] ne $listold[8]
	) {
	$listold[10]=$list[8];
	$listold[11]=$list[9];
	$lineold = join "\t",@listold;

	# print $lineold,"\n",$line,"\n\n";
	print $lineold,"\n";
	$match = 'yes';
	}
	else{
	$match = 'no';
	print $lineold,"\n";
	}
	if($match eq 'yes'){
	$lineold = <>;
	chomp $lineold;
	@listold = split /\t/,$lineold;
	}
	else{
	@listold = @list;
	$lineold = $line;
	}
	}
	exit();

File Metadata

Mime Type: text/x-perl
Expires: Mon, Jan 20, 8:58 PM (22 h, 56 m)
Storage Engine: blob
Storage Format: Raw Data
Storage Handle: 4197235
Default Alt Text: makesys2.pl (646 B)

Event Timeline