return $h;
}
+sub usage() {
+ print "Usage: tos-decode-flid flid flid-file\n";
+ exit 2;
+}
+
sub make_flid () {
my $flid = $ARGV[0];
decode(substr($flid,6,1),substr($flid,7,1));
}
+usage() if (scalar(@ARGV)!=2);
+
my $flidstr = make_flid();
my $fn = $ARGV[1];
close INF;
}
else {
- print "Usage: tos-decode-flid flid flid-file\n";
- exit 2;
+ usage();
}
if (!$found) {