Perl/全角数字を半角数字へ変換する
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
$file = "sample.dat";#変換したいファイル
open(IN,$file);
while(<IN>){
chomp;
s/0/0/g;
s/1/1/g;
s/2/2/g;
s/3/3/g;
s/4/4/g;
s/5/5/g;
s/6/6/g;
s/7/7/g;
s/8/8/g;
s/9/9/g;
print "$_\n";
}
close(IN);
sub Henkan(){
my $line = $_[0];
$line =~ s/0/0/g;
$line =~ s/1/1/g;
$line =~ s/2/2/g;
$line =~ s/3/3/g;
$line =~ s/4/4/g;
$line =~ s/5/5/g;
$line =~ s/6/6/g;
$line =~ s/7/7/g;
$line =~ s/8/8/g;
$line =~ s/9/9/g;
return($line);
}
終了行:
$file = "sample.dat";#変換したいファイル
open(IN,$file);
while(<IN>){
chomp;
s/0/0/g;
s/1/1/g;
s/2/2/g;
s/3/3/g;
s/4/4/g;
s/5/5/g;
s/6/6/g;
s/7/7/g;
s/8/8/g;
s/9/9/g;
print "$_\n";
}
close(IN);
sub Henkan(){
my $line = $_[0];
$line =~ s/0/0/g;
$line =~ s/1/1/g;
$line =~ s/2/2/g;
$line =~ s/3/3/g;
$line =~ s/4/4/g;
$line =~ s/5/5/g;
$line =~ s/6/6/g;
$line =~ s/7/7/g;
$line =~ s/8/8/g;
$line =~ s/9/9/g;
return($line);
}
ページ名: