projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add standard gcommit command
[spider.git]
/
perl
/
DXUtil.pm
diff --git
a/perl/DXUtil.pm
b/perl/DXUtil.pm
index 927df28baad7444e8224eb833e3033212308b974..2e7536accabbbfd749f68f20ac20b907df231d3f 100644
(file)
--- a/
perl/DXUtil.pm
+++ b/
perl/DXUtil.pm
@@
-15,12
+15,6
@@
use Data::Dumper;
use strict;
use strict;
-use vars qw($VERSION $BRANCH);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
-
use vars qw(@month %patmap @ISA @EXPORT);
require Exporter;
use vars qw(@month %patmap @ISA @EXPORT);
require Exporter;
@@
-30,7
+24,7
@@
require Exporter;
filecopy ptimelist
print_all_fields cltounix unpad is_callsign is_latlong
is_qra is_freq is_digits is_pctext is_pcflag insertitem deleteitem
filecopy ptimelist
print_all_fields cltounix unpad is_callsign is_latlong
is_qra is_freq is_digits is_pctext is_pcflag insertitem deleteitem
- is_prefix
+ is_prefix
dd
);
);
@@
-134,6
+128,22
@@
sub yesno
return $n ? $main::yes : $main::no;
}
return $n ? $main::yes : $main::no;
}
+# provide a data dumpered version of the object passed
+sub dd
+{
+ my $value = shift;
+ my $dd = new Data::Dumper([$value]);
+ $dd->Indent(0);
+ $dd->Terse(1);
+ $dd->Quotekeys($] < 5.005 ? 1 : 0);
+ $value = $dd->Dumpxs;
+ $value =~ s/([\r\n\t])/sprintf("%%%02X", ord($1))/eg;
+ $value =~ s/^\s*\[//;
+ $value =~ s/\]\s*$//;
+
+ return $value;
+}
+
# format a prompt with its current value and return it with its privilege
sub promptf
{
# format a prompt with its current value and return it with its privilege
sub promptf
{
@@
-145,12
+155,7
@@
sub promptf
my $q = qq{\$value = $action(\$value)};
eval $q;
} elsif (ref $value) {
my $q = qq{\$value = $action(\$value)};
eval $q;
} elsif (ref $value) {
- my $dd = new Data::Dumper([$value]);
- $dd->Indent(0);
- $dd->Terse(1);
- $dd->Quotekeys(0);
- $value = $dd->Dumpxs;
- $value =~ s/([\r\n\t])/sprintf("%%%02X", ord($1))/eg;
+ $value = dd($value);
}
$prompt = sprintf "%15s: %s", $prompt, $value;
return ($priv, $prompt);
}
$prompt = sprintf "%15s: %s", $prompt, $value;
return ($priv, $prompt);
@@
-429,3
+434,4
@@
sub deleteitem
@$list = grep {$_ ne $item } @$list;
return $n - @$list;
}
@$list = grep {$_ ne $item } @$list;
return $n - @$list;
}
+