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

histogram/histogram: Auto ignore starting white space.

Browse source
This commit is contained in:
Ole Tange 2013-10-21 17:39:49 +02:00
parent 69c72304d1
commit 557e70fc58
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
histogram/histogram
View file

@ -323,11 +323,11 @@ if(not defined $opt::input) {
} elsif(defined $delimiter) {
# guess format: (v delimiter h) or (h delimiter v)
($max_value_length, $max_header_length, $max_value_header_length, $header_ref, $value_ref) =
parse_raw_given_opt_input("v".$delimiter."h",@raw);
parse_raw_given_opt_input('\s*v'.$delimiter."h",@raw);
} else {
# guess format: v
($max_value_length, $max_header_length, $max_value_header_length, $header_ref, $value_ref) =
parse_raw_given_opt_input("v",@raw);
parse_raw_given_opt_input('\s*v',@raw);
$header_ref = $value_ref;
$max_value_length = $max_header_length;
$max_value_header_length = $max_value_length + $max_header_length;
@ -469,7 +469,8 @@ sub max {
for (@_) {
# Skip undefs
defined $_ or next;
defined $max or do { $max = $_; next; }; # Set $_ to the first non-undef
$_ eq "" and next;
defined $max or do { $max = $_; next; }; # Set $_ to the first non-undef
$max = ($max > $_) ? $max : $_;
}
return $max;