src/search.pl

#!/usr/bin/env perl
use v5.16;
use strict;
use warnings FATAL => 'all';
use FindBin;
use lib "$FindBin::Bin";
use mplib::config qw($CFG);
use mplib::util qw(fail);
use mplib::resolve qw(init all_ports);
 
my $flags = mplib::config::parse_flags(\@ARGV);
mplib::config::load($flags);
fail("search term required") unless defined $ARGV[0] && length $ARGV[0];
init();
 
my $term = $ARGV[0];
for my $p (all_ports())
{
	print "$p->{cat}/$p->{name}\n" if "$p->{cat}/$p->{name}" =~ /\Q$term\E/i;
}