try.pl
No OneTemporary
Actions

Size

786 B

Subscribers

None

try.pl
View Options

	#!/usr/bin/perl

	$text = <>;
	chomp $text;
	print "$text\n";

	$text=~s/^\s+//;
	$text=~s/\s+$//;
	@val = split /\s+/,$text;
	print "$#val\n";

	$val = "$val[0]";
	$next=1;
	$nerr=1;
	while ($next<=$#val){
	$pm='true';
	if($next<$#val){if($val[$next]<0.0 \|\| $val[$next+1]<0.0){ $pm='false'; }}
	if($pm eq 'true') {
	if($nerr==1) { $val .= " +- $val[$next]";}
	elsif($nerr==2) { $val .= " (DSYS=$val[$next]";}
	else { $val .= ",DSYS=$val[$next]";}
	$next += 1;
	}
	else{
	if($nerr==1) { $val .= " +$val[$next],$val[$next+1]"; }
	elsif($nerr==2) { $val .= " (DSYS=+$val[$next],$val[$next+1]"; }
	else { $val .= ",DSYS=+$val[$next],$val[$next+1]"; }
	$next += 2;
	}
	$nerr += 1;
	}
	if($nerr>2) { $val .= ")"; }
	print "$val\n";
	exit();