getsys.pl
No OneTemporary
Actions

Size

777 B

Subscribers

None

getsys.pl
View Options

	#!/bin/perl
	$nsc = 1;
	$new = 'yes';
	$sc = ' ';
	while ($line = <>){
	chomp $line;
	if($line !~ m/^\*E/){
	$len = length $line;
	$last = substr $line,$len-1,1;
	while($last ne ';') {
	$line1 = <>;
	chomp $line1;
	$line = $line.$line1;
	$len = length $line;
	$last = substr $line,$len-1,1;
	}
	}
	else{
	$new = 'yes'; $nsc++; $sc = ' ';
	}
	if($line =~ m/SC = /){
	# print $nsc,' ',$line,"\n";
	$sc = $line;
	}
	elsif($line =~ m/^SYS/ \|\|
	$line =~ m/^CSYS/ \|\|
	$line =~ m/^CORR/ \|\|
	$line =~ m/^COND/ \|\|
	$line =~ m/^FOLDED/ \|\|
	$line =~ m/^APPLIED/ \|\|
	$line =~ m/^SCALE/){
	if($new eq 'yes'){print 'LEGACY ',$nsc,' ',$sc,"\n"; $new = 'no';}
	print $line,"\n";
	}
	else{
	}
	}
	exit(0);