jhthorsen

# $self->query_to_where({name => "Bruce"}, {name => "eq"})   => ["name = ?"], ["Bruce"]
# $self->query_to_where({name => "Bruce"}, {name => "like"}) => ["name LIKE '%?%'"], ["Bruce"]
# $self->query_to_where({age => ">=42"},   {age => "num"})   => ["name >= ?"], [42]
sub query_to_where {
  my ($self, $q, $rules) = @_;
  my (@where, @bind);

  for my $col (sort keys %$rules) {
    if (!length $q->{$col} // '') {
      1;    # next

rsvp

#!/usr/bin/env bash
#              bash 4.1.5(1)     Linux Ubuntu 10.04           Date : 2019-01-02
#
# _______________|  noise : ambient Brown noise generator (cf. white noise).
#
#           Usage:  noise  [minutes=59]  [band-pass freq center=1786]  [wave]
#                          ^minutes can be any positive integer.
#                           Command "noise 1" will display peak-level meter.
#
#    Dependencies:  play (from sox package)