my @vals = split(/\s+/,$str);
my $i = 0;
foreach my $t (@vals) {
- print "$t\n";
+# print "$t\n";
if($t =~ /0x(\w\w\w\w)/) {
$reglist->{$set}->{$i++}=$1;
}
}
#0x2000 1 0x38 0x38 0x38 0x38 0x38 0x38
if(my ($addr,$set,$str) = $a =~ /^\s*0x(\w\w\w\w)\s+(\d)+((\s+0x\w+)+)/) {
- print "$addr : $set : $str\n";
+# print "$addr : $set : $str\n";
my @vals = split(/\s+/,$str);
shift(@vals) if($vals[0] eq '');
my $i = 0;
#$cmd .= "trbcmd w 0xfffd 0x20 0x200\n";
# print $cmd;
system($cmd);
-system("logger -p local1.info -t DAQ MDC \\<N\\> Loaded settings from file $ARGV[0]");
-print "Done.\n\n";
+# print "Done.\n\n";
foreach my $serial_nr (keys %trb) {
next if(!$trb{$serial_nr}->{'address'} || !defined $trb{$serial_nr}->{'uid'});
- printf "0x%4.4x ", $trb{$serial_nr}->{'address'};
- print $trb{$serial_nr}->{'uid'} . " ";
- printf "0x%2.2x\n", $trb{$serial_nr}->{'endpoint_nr'};
+ //printf "0x%4.4x ", $trb{$serial_nr}->{'address'};
+ //print $trb{$serial_nr}->{'uid'} . " ";
+ //printf "0x%2.2x\n", $trb{$serial_nr}->{'endpoint_nr'};
no warnings 'portable';
my $uid = hex($trb{$serial_nr}->{'uid'});