#!/usr/bin/perl


# wie schon gesagt
use strict;
use warnings;
use Time::HiRes qw(gettimeofday);


my $filename='./input_experiment.txt';
my $CatStarttime=gettimeofday();
my $temptime=0;
my $counter=0;
my $globalentrycounter=0;
my $subjectID=1;
my $subjectage=20;
my $sex='male';
my $keys_per_second=5;
my $synccounter=0;

# Bitte Fehlerbehandlung nicht vergessen
# und die dreiparameterige form von "open" nutzen
# damit vermeidet man mögliche Fehler.
open(my $outputfh, ">>", $filename) or die "ERROR open $filename";

print "Geben Sie einen Namen ein. [Falls Sie keine mehr wissen, '999' eingeben]\n\n";
while (1)
{
  my $sinput = <STDIN>;
  chomp ($sinput);
  my $entrytime = gettimeofday() - $CatStarttime;
  my $entryduration = $entrytime - $temptime;
  my $inputlength = length($sinput);
  # my $correctedduration = $entryduration - $inputlength/$keys_per_second;

  #replace "," with "°"
  $sinput =~ tr/,/°/;

  # schleife beenden
  last if($sinput eq '999');

  if($inputlength > 1)
  {
    $counter++;
    # no need for global entry
    # $globalentrycounter++;
    print $outputfh "$subjectID, $subjectage, $sex, $CatStarttime, $entrytime, $entryduration, $inputlength, $sinput, $counter, \n";
  }
  else
  {
    local $| = 1;
    print "Bitte keine Abkürzungen oder leere Eingaben. Weiter mit der Enter-Taste.";
    <STDIN>;
  }

  $temptime = $entrytime;

  # clear screen?
  print "\n" for (1..1000);
}

close($outputfh);

$synccounter = $synccounter + 1;

# clear screen?
print "\n" for (1..1000);

print "Sie haben nun das Ende dieses Experiments erreicht.\n";
print "Sie haben CHF $counter Namen eingegeben.\n";
print "Bitte wenden Sie sich an die/den VersuchsleiterIn.\n\n\n\n";