note
Tanktalus
<p>Data-driven approaches FTW!</p>
<p>Though I'd be tempted to do things a bit more perlishly (at least for my own definition of perlish):
<c>
my @matchers = (
[ qr/(Lz0|PLATO)/i => 'Apps' ],
...
);
for my $check (@matchers) {
if ($release_name =~ $check->[0]) {
$category = $check->[1];
print "[INFO] Category: $category\n";
last;
}
}
</c>
Actually, a bit more perlish, IMO, would be to replace that for loop altogether:
<c>
use List::Util qw(first);
my $category = map {
$_ ? $_->[1] : undef;
} first {
$release_name =~ $_->[0];
} @matchers;
if ($category)
{
print "[INFO] Category: $category\n";
}
else
{
print "[ERROR] Unrecognised release type: $release_name\n";
}
</c>
But maybe that's just me. :-)</p>
988660
988676