Combine query filters instead of combining them
This commit is contained in:
@@ -11,11 +11,10 @@ use Filters;
|
||||
use feature 'say';
|
||||
|
||||
sub query {
|
||||
my ( $experiment, $experiment_dir, $filter_config_name ) = @_;
|
||||
$filter_config_name //= '';
|
||||
my ( $experiment, $experiment_dir, @filter_config_names ) = @_;
|
||||
|
||||
my $filters =
|
||||
Filters::build_filter_clause( $experiment_dir, $filter_config_name );
|
||||
Filters::build_filter_clause( $experiment_dir, @filter_config_names );
|
||||
|
||||
my $querystring = "SELECT
|
||||
CASE
|
||||
@@ -41,9 +40,9 @@ ORDER BY count DESC;";
|
||||
sub args { return "--batch --raw"; }
|
||||
|
||||
sub filename {
|
||||
my ($filter_config_name) = @_;
|
||||
$filter_config_name //= '';
|
||||
my $suffix = length($filter_config_name) ? "_$filter_config_name" : "";
|
||||
my @filter_config_names = grep { defined && length } @_;
|
||||
my $suffix =
|
||||
@filter_config_names ? "_" . join( "+", sort @filter_config_names ) : "";
|
||||
return "mnemonics${suffix}.csv";
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user