blob: 8895e12fdead4b13ba3aff6d1c8f4dfe5d88b7cf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/local/bin/perl
#-*- perl -*-
#
# Copyright (C) 2001 Ken'ichi Fukamachi
# All rights reserved. This program is free software; you can
# redistribute it and/or modify it under the same terms as Perl itself.
#
# $Id$
# $FML$
#
use lib qw(./lib/ ../../cpan/lib);
use Dialect::ISO2022JP qw(STR2EUC);
for (@ARGV) {
my $x = &STR2EUC($_);
print "<$_> -> <$x>\n";
}
exit 0;
|
