読者です 読者をやめる 読者になる 読者になる

稲沢市よりお届けしてます。

Perlをはじめとしたプログラミング周りのあれこれについて。Perl界のモブキャラとして暗躍します(謎)。

Perlでテキストファイルの半角スペースを取り除く

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

# フィルハンドルを開いてコンテンツを読み込む
open my $contents, '<', 'digital_dic2.txt';

# 半角スペースを取り除き半角スペースタグ除去後のコンテンツを表示する
# 改行は残したいのでケツに\nを付ける
while(<$contents>){
    $_=~ s/\s//g;
    print $_ . "\n";
}

# フィルハンドルを閉じる
close my $contents;

少しずつWindowsからLinuxに移行していきつつ、
EmacsLispを使って効率的なことを進める1年にしたいなー。

とミサカはミサカは切実に思うのです。