Perlで日本語のファイルを読み込む
#!/usr/bin/perl
use utf8;
binmode(STDOUT, ":utf8");
while (my $line = <STDIN>){
utf8::decode($line);
chomp($line);
echo $line;
}
このソースコードをストックして後で利用したり、作業に利用したソースコードをまとめることができます。
#!/usr/bin/perl
use utf8;
binmode(STDOUT, ":utf8");
while (my $line = <STDIN>){
utf8::decode($line);
chomp($line);
echo $line;
}
このソースコードをストックして後で利用したり、作業に利用したソースコードをまとめることができます。
