tange/tangetools
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

bsearch: Implemented -z and -R.

Browse source
This commit is contained in:
Ole Tange 2018-01-04 01:32:04 +01:00
parent 6a24480144
commit 7a68589462
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
bsearch/bsearch
View file

@ -83,7 +83,7 @@ sort via a key; KEYDEF gives location and type
compare according to string numerical value compare according to string numerical value
=item B<--random-sort> (not implemented) =item B<--random-sort>
=item B<-R> =item B<-R>
@ -106,7 +106,7 @@ B<-M>, numeric B<-n>, random B<-R>, version B<-V>
use SEP instead of non-blank to blank transition use SEP instead of non-blank to blank transition
=item B<-z> (not implemented) =item B<-z>
=item B<--zero-terminated> =item B<--zero-terminated>
@ -264,6 +264,7 @@ GetOptions(
"h|human-numeric-sort" => \$opt::human_numeric_sort, "h|human-numeric-sort" => \$opt::human_numeric_sort,
"n|numeric-sort" => \$opt::numeric_sort, "n|numeric-sort" => \$opt::numeric_sort,
"r|reverse" => \$opt::reverse, "r|reverse" => \$opt::reverse,
"R|random-sort" => \$opt::random_sort,
"sort=s" => \$opt::sort, "sort=s" => \$opt::sort,
"V|version-sort" => \$opt::version_sort, "V|version-sort" => \$opt::version_sort,
"k|key=s" => \@opt::key, "k|key=s" => \@opt::key,
@ -327,6 +328,9 @@ sub bsearch {
sub compare { sub compare {
my ($a,$b) = @_; my ($a,$b) = @_;
if($opt::random_sort) {
return rand() <=> rand();
}
if($opt::reverse) { if($opt::reverse) {
($a,$b) = ($b,$a); ($a,$b) = ($b,$a);
} }