blob: 40b6f7757dad9017adab0f46ddd60f1185014add (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/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.
#
# $FML: string.pl,v 1.3 2001/04/03 09:51:12 fukachan Exp $
#
use lib qw(./lib/ ../../cpan/lib);
use Dialect::ISO2022JP qw(STR2EUC);
for (@ARGV) {
my $x = &STR2EUC($_);
print "<$_> -> <$x>\n";
}
exit 0;
|
