A simple game: name that pkg

Question

I don't know what gave me this idea, but here it is anyway... a simple multiple choice game that presents a package description followed by 4 package names. All  you have to do is pick the right name.
By default it uses locally installed packages. You can pass it the option "--all" to use all packages from the sync database. Passing it a number will change the number of default options.
It keeps track of the number of correct answers and winning streaks. It's not difficult because many of the package descriptions mention the package. Some of them are tricky though, and it can be interesting to see the descriptions of some of the things on  your system.
At the end of the day though, this is basically pointless.
name_that_pkg.pl
#!/usr/bin/perl
use warnings;
use strict;
use Term::ANSIColor;
my $info = (grep {$_ eq '--all'} @ARGV) ? `pacman -Si` : `pacman -Qi`;
push @ARGV, 4;
my $a = (grep {($_ =~ m/^\d+$/) and $_ > 0} @ARGV)[0];
my @list;
my $name;
$info =~ s/\n\s\s+/ /g;
foreach my $line (split "\n", $info)
if ($line =~ m/^Name\s+:\s+(\S+)/)
$name = $1;
elsif ($line =~ m/^Description\s+:\s+(.+)$/)
push @list, "$name : $1";
my $n = scalar @list;
my ($correct, $total, $streak, $best_streak) = (0,0,0,0);
my $ans;
while (1)
my $c_name;
my $c_desc;
my @names;
my $c = int(rand($a));
for (my $i=0; $i<$a; $i++)
my ($name,$desc) = &split_line($list[int(rand($n))]);
if (grep {$name eq $_} @names)
$i--;
next;
push @names, $name;
if ($i == $c)
($c_name,$c_desc) = ($name,$desc);
$c_desc =~ s/\Q$c_name\E/*/gi;
print "description: $c_desc\n";
my $j = 1;
foreach my $name (@names)
print "$j) $name\n";
$j++;
print "x) exit\n";
print "answer: ";
my $ans = <STDIN>;
chomp $ans;
last if (lc($ans) eq 'x');
$total++;
print "\n";
if ($ans == $c + 1)
$correct++;
$streak++;
$best_streak = $streak if ($streak > $best_streak);
print color ('bold green'), 'correct', color ('reset'), "\n";
else
$streak = 0;
print color ('bold red'), 'incorrect', color ('reset'), " (answer: $c_name)\n";
print "current score: $correct/$total ",int(100 * $correct / $total),"%\n";
print "current streak: $streak\n";
print "best streak: $best_streak\n\n";
sub split_line
return ($_[0] =~ m/^(\S+) : (.+?)\s*$/);
Last edited by Xyne (2009-02-24 19:08:51)

Answer 1

It's not that I have too much time on my hands (the opposite, actually), just that I'm easily sidetracked. This only took 10-15 minutes anyway.
I've updated the script to replace the package name with "*", which works well enough for most descriptions with some notable exceptions:
description: * is a language and envi*onment fo* statistical computing and g*aphics
1) shared-mime-info
2) gen-init-cpio
3) r
4) medit
Last edited by Xyne (2009-02-24 19:13:17)