chiark / gitweb /
grep-my-excuses: monitor grub
[bin.git] / unicode-word
1 #! /bin/sh
2
3 # Perl doesn't seem to like -CA in the #! line.
4 perl -w -CA -e '
5     use strict;
6     for my $char (split //, join " ", @ARGV) {
7         system("unicode", $char);
8     }
9 ' "$@"