Getopt::Long::Configure(qw(gnu_getopt));
GetOptions(
- "fpga|f=s" => \$fpga,
+ "fpga|f=s" => \$fpga_t,
"mimosis-reg|r=s" => \$reg_t,
"mimosis-data|d=s" => \$data_t,
"help|h" => \$help_t,
exit();
}
-defined($fpga) ? $fpga = hex($fpga) : die print("Must provide FPGA address.\n");
-defined($reg_t)
- ? $reg_t = hex($reg_t)
- : die print("Must provide Mimosis register.\n");
+if ( defined $fpga_t && defined $reg_t) {
+ $fpga_t = hex $fpga_t if ( $fpga_t =~ /^0x/ );
+ $reg_t = hex $reg_t if ( $reg_t =~ /^0x/ );
+}
+else {die print "Must provide FPGA address and register.\n";}
trb_init_ports() or die trb_strerror();
if ( defined($data_t) ) {
$data_t = hex($data_t) if ( $data_t =~ /^0x/ );
- Mimosis::mimosis_register_write( $fpga, $reg_t, $data_t );
+ Mimosis::mimosis_register_write( $fpga_t, $reg_t, $data_t );
exit();
}
else {
- printf "%x\n", Mimosis::mimosis_register_read( $fpga, $reg_t );
+ printf "%x\n", Mimosis::mimosis_register_read( $fpga_t, $reg_t );
exit();
}