Sourcecode
use strict;
use RASCH;
# initialize libRASCH
my $ra = new RASCH or die "error initializing libRASCH\n";
# open measurement
my $meas = $ra->open_meas($ARGV[0], 0) or
die "can't open measurement $ARGV[0]\n";
# get default evaluation
my $eval = $meas->get_default_eval() or
die "no evaluation in measurement\n";
# get some general infos
my $v = $eval->get_info(info => 'eval_name');
my $eval_name = $v->value();
$v = $eval->get_info(info => 'eval_add_timestamp');
my $eval_add_ts = $v->value();
$v = $eval->get_info(info => 'eval_program');
my $eval_prg = $v->value();
print "evaluation $eval_name was added at $eval_add_ts" .
" using the program $eval_prg\n\n";
# !!!!! eval handling will be changed in the next version !!!!!
# list event-properties
#my $evprops = $eval->get_props_all();
#for (@$evprops)
#{
# my $prop = $eval->get_prop_by_name($_);
# my ($name) = $prop->get_info(info => 'eval_prop_name');
# my ($desc) = $prop->get_info(info => 'eval_prop_desc');
#
# my $evset = $prop->get_evset();
# my ($evset_name) = $evset->get_info(info => 'eval_set_name');
# my ($n_ev) = $evset->get_info(info => 'eval_set_num_events');
#
# print "event-property $name ($desc) belongs to event-set" .
# " $evset_name and contains $n_ev events\n";
#}
exit 0;
Output of the example
evaluation original was added at 27.05.2005 09:28:53 using
the program perl
|
