Merge branch 'master' of github.com:AloisMahdal/minions

README.md

@@ -79,6 +79,31 @@ Script to measure how long does one second take.  For those that know how long
 one second takes, it can serve as a snippet for Perl `&stamp()`.
 
 
+### se ###
+
+Translate to and from Czech.  Especially sweet if you need to concentrate
+on the work, i.e. avoid all the blinking flashing smiling Internets looks.
+This guy only tells you the woords.
+
+    se [options] word
+
+Throw a word at it and by default, it will throw you back few Czech
+translations of it, one pair per line.  Sweet.  Also supports other languages
+(about 10 in total).
+
+Most useful options are --lines (default is 25) and --direction which supports
+direction keyword in form "LNcz.cz" or "LNcz.LN", where LN is 2-letter code
+(**not** ISO) of the other language.
+
+Uses [www.slovnik.cz][2], so an Internet connection and [LWP::Simple][3] are
+needed.
+
+  [2]: http://www.slovnik.cz/
+  [3]: http://search.cpan.org/~gaas/libwww-perl-6.05/lib/LWP/Simple.pm
+
+Has POD doc (`se --man` or `se --help`) worth looking at.
+
+
 ### watchdump.pl ###
 
 Trivial utility that prints a text file, clears the screen and pauses for 2s
@@ -96,9 +121,9 @@ see `--usage`.
 ### pl2yml.pl, yml2pl.pl ###
 
 Simple scripts to read YAML/Perl data structure from a file and dump it in
-the other format to STDIN.  Uses [YAML::Tiny][2] for YAML jobs.
+the other format to STDIN.  Uses [YAML::Tiny][4] for YAML jobs.
 
-  [2]: https://metacpan.org/module/YAML::Tiny
+  [4]: https://metacpan.org/module/YAML::Tiny
 
 
 cgi-bin - CGI scripts

bin/se

@@ -0,0 +1,151 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+
+use LWP::Simple;
+use Getopt::Long;
+use Pod::Usage;
+use File::Basename;
+
+binmode STDOUT, ":encoding(UTF-8)";
+
+sub usage;
+
+my $direction = 'encz.en';
+my $lines = 25;
+my $man = 0;
+my $help = 0;
+my $host = 'www.slovnik.cz';
+
+GetOptions(
+    'lines|l=i'     => \$lines,
+    'direction|d=s' => \$direction,
+    'help|?|h'    => \$help,
+    'man'       => \$man
+) or pod2usage(2);
+pod2usage(1) if $help;
+pod2usage(-exitstatus => 0, -verbose => 2) if $man;
+
+my $word = shift or usage;
+
+my $query  = sprintf(
+    '/bin/mld.fpl?vcb=%s&dictdir=%s&lines=%s',
+    $word,
+    $direction,
+    $lines
+);
+
+my $url = "http://$host$query";
+my @lines = split m|\n|, get($url);
+@lines = grep m|class="pair"|, @lines;
+
+foreach (@lines) {
+    s/<.*?>//g;
+    print;
+    print "\n";
+}
+
+sub usage {
+    printf STDERR "usage: %s [options] word\n", basename($0); exit 1;
+}
+
+__END__
+
+=head1 NAME
+
+se - Translate en-* to/from cs-CZ and many other languages using
+www.slovnik.cz service
+
+=head1 SYNOPSIS
+
+B<se> [I<OPTIONS>] I<WORD>
+
+=head1 DESCRIPTION
+
+B<se> will take English word, compose a query to dictionary service at
+http://www.slovnik.cz/, fetch the English - Czech pairs and display them
+to stdout.
+
+Although English to Czech is default, using B<--direction> parameter
+you can translate Czech to English or even between Czech and many other
+languages.
+
+For I<WORD> with diacritics, you can provide it
+
+=over 8
+
+=item * directly if your terminal supports it (tested with few Czech words
+on Debian 6.0 with urxvt)
+
+=item * directly with diacritics stripped, or
+
+=item * using special notation described here:
+http://www.slovnik.cz/alternative_chars.html
+
+Few simple examples:
+
+=over 8
+
+=item * C<c<ert/ik> - c with caron, i with acute
+
+=item * C<pu@da> -- u with ring above
+
+=item * C<Bu:ro> -- u with diaeresis
+
+=item * C<c\eramique> -- e with grave
+
+=item * C<valdepen~as> -- n with tilde
+
+=back
+
+=back
+
+=head1 OPTIONS
+
+=over 8
+
+=item B<-d> I<DIR>, B<--direction=>I<DIR>
+
+Direction of translation.  Aside from the default encz.en, it can be
+one of following:
+
+    encz.en, encz.cz, gecz.ge, gecz.cz, frcz.fr, frcz.cz,
+    itcz.it, itcz.cz, spcz.sp, spcz.cz, rucz.ru, rucz.cz,
+    lacz.la, lacz.cz, eocz.eo, eocz.cz, eosk.eo, eosk.sk,
+    plcz.pl, plcz
+
+=item B<-l> I<LINES>, B<--lines=>I<LINES>
+
+Number of lines fetched fronm the service and displayed to stdout.
+Default is 25, but since www.slovnik.cz provides simplistic interface
+with only one term per line, so for words with lot of synonyms, you
+might want to specify more.
+
+=item B<--help>
+
+Prints a brief help message and exits.
+
+=item B<--man>
+
+Prints the manual page and exits.
+
+=back
+
+=head1 THANKS
+
+Big thanks to Martin Vi/t, LangSoft and everybody who contributed to
+existence of this awesome service.
+
+    http://www.slovnik.cz/about.html
+
+I have been using www.slovnik.cz for B<many years> now, mostly as a custom
+search in Opera, so I grew so accustomed to its reliability and simple
+interface that I can't even imagine using anything else.  (Or remember
+I ever had).  I could never repay.
+
+=head1 AUTHOR
+
+...of this scriptie: Alois Mahdal at zxcvb tec<ka cz
+
+=cut