$file = "sample.dat";#ÊÑ´¹¤·¤¿¤¤¥Õ¥¡¥¤¥ë open(IN,$file); while(<IN>){ chomp; s/£°/0/g; s/£±/1/g; s/£²/2/g; s/£³/3/g; s/£´/4/g; s/£µ/5/g; s/£¶/6/g; s/£·/7/g; s/£¸/8/g; s/£¹/9/g; print "$_\n"; } close(IN);
sub Henkan(){ my $line = $_[0]; $line =~ s/£°/0/g; $line =~ s/£±/1/g; $line =~ s/£²/2/g; $line =~ s/£³/3/g; $line =~ s/£´/4/g; $line =~ s/£µ/5/g; $line =~ s/£¶/6/g; $line =~ s/£·/7/g; $line =~ s/£¸/8/g; $line =~ s/£¹/9/g; return($line); }