[Bio] / FigKernelScripts / trail.pl Repository:
ViewVC logotype

View of /FigKernelScripts/trail.pl

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.1 - (download) (as text) (annotate)
Tue Dec 20 18:04:45 2011 UTC (7 years, 11 months ago) by disz
Branch: MAIN
CVS Tags: rast_rel_2014_0729, mgrast_version_3_2, rast_rel_2014_0912, HEAD
New scripts to load the function audit trail database

use File::stat;
use Data::Dumper;
use FileHandle;
use strict;

my $l2;
my $l1 = (<>);
chomp $l1;
my ($fid, $time, $who, $fn) = split("\t", $l1);
print "$fid\t$time\tNo Annotator\tIncoming Function\t$who\t$fn\n";
while ($l2 = <>) {
	chomp $l2;
	my ($fid2, $time2, $who2, $fn2) = split("\t", $l2);
	if ($fid eq $fid2) {
		print "$fid\t$time2\t$who\t$fn\t$who2\t$fn2\n";
	} else {
		print "$fid2\t$time2\tNo Annotator\tIncoming Function\t$who2\t$fn2\n";
	$l1 = $l2;
	($fid, $time, $who, $fn) = split("\t", $l1);

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3