• バックアップ一覧
• 差分 を表示
• ソース を表示
• バックアップ を表示
• Perl/全角数字を半角数字へ変換する へ行く。
  • 1 (2009-11-09 (月) 08:34:50)

• 追加された行はこの色です。
• 削除された行はこの色です。

	$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);
	}