chiark
/
gitweb
/
~cjwatson
/
bin.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
grep-my-excuses: add openssh-ssh1
[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
' "$@"