cdr-ftld.pl

#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
    if $running_under_some_shell;
			# this emulates #! processing on NIH machines.
			# (remove #! line above if indigestible)

eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
			# process any FOO=bar switches

#/usr/bin/awk -f

$, = ' ';		# set output field separator
$\ = "\n";		# set output record separator

print

  'Clinical Dementia Rating + Frontotemporal Lobar Degeneration (CDR-FTLD) Scale';
print

  '=============================================================================';
printf (('1. Please, type the score for memory: '));
while ($M != 0 || $M != 0.5 || $M != 1 || $M != 2 || $M != 3) {
    $M = &readline();
    if ($M != 0 && $M != 0.5 && $M != 1 && $M != 2 && $M != 3) {
	print 'out of range';
    }
    else {
	last;
    }
}
printf (('2. Please, type the score for orientation: '));
while ($O != 0 || $O != 0.5 || $O != 1 || $O != 2 || $O != 3) {
    $O = &readline();
    if ($O != 0 && $O != 0.5 && $O != 1 && $O != 2 && $O != 3) {
	print 'out of range';
    }
    else {
	last;
    }
}
printf (('3. Please, type the score for judgement: '));
while ($J != 0 || $J != 0.5 || $J != 1 || $J != 2 || $J != 3) {
    $J = &readline();
    if ($J != 0 && $J != 0.5 && $J != 1 && $J != 2 && $J != 3) {
	print 'out of range';
    }
    else {
	last;
    }
}
printf (('4. Please, type the score for community affairs: '));
while ($C != 0 || $C != 0.5 || $C != 1 || $C != 2 || $C != 3) {
    $C = &readline();
    if ($C != 0 && $C != 0.5 && $C != 1 && $C != 2 && $C != 3) {
	print 'out of range';
    }
    else {
	last;
    }
}
printf (('5. Please, type the score for hobbies: '));
while ($H != 0 || $H != 0.5 || $H != 1 || $H != 2 || $H != 3) {
    $H = &readline();
    if ($H != 0 && $H != 0.5 && $H != 1 && $H != 2 && $H != 3) {
	print 'out of range';
    }
    else {
	last;
    }
}
printf (('6. Please, type the score for personal care: '));
while ($P != 0 || $P != 1 || $P != 2 || $P != 3) {
    $P = &readline();
    if ($P != 0 && $P != 1 && $P != 2 && $P != 3) {
	print 'out of range';
    }
    else {
	last;
    }
}
printf

  (('7. Please, type the score for behaviour, comportment, and personality: '));
while ($B != 0 || $B != 0.5 || $B != 1 || $B != 2 || $B != 3) {
    $B = &readline();
    if ($B != 0 && $B != 0.5 && $B != 1 && $B != 2 && $B != 3) {
	print 'out of range';
    }
    else {
	last;
    }
}
printf (('8. Please, type the score for language: '));
while ($L != 0 || $L != 0.5 || $L != 1 || $L != 2 || $L != 3) {
    $L = &readline();
    if ($L != 0 && $L != 0.5 && $L != 1 && $L != 2 && $L != 3) {
	print 'out of range';
    }
    else {
	last;
    }
}
{
    $cdr = $M + $O + $J + $C + $H + $P + $B + $L;
    
    print 'The total CDR-FTLD score is  ' . ($M + $O + $J + $C + $H + $P + $B

      + $L) . '/24 via SOB method';

last;
}
sub readline {
    if ($getline_ok = (($_ = <>) ne '')) {
	;
    }
    $_;
}

while (1) {
print "Do you want to save the output to file (cdr-ftld.txt) [yes/no]? ";
my $ans = lc(<STDIN>);
chomp($ans);
if ($ans eq 'yes')  {	   
    my $output = 'cdr-ftld.txt';
open(FH,'>', $output) or die $!;
print FH 
my $str = <<END;

The CDR-FTLD score $cdr/24 via SOB method

END
# print FH $str;
close(FH);
    print "written to cdr-ftld.txt\n";
    last;
}	
elsif ($ans eq 'no') {
    print "Not saved\n";
    last;
	}
else {
print "out of range, please answer [yes or no] ";
 }
}