ファイル中の2つ以上の空白文字を1つに変換する Perl ワンライナー

書き方

$ perl -i.org -ple 's/\s+/ /g' <ファイルパス>

実行例

$ cat <<EOF >foo.lst
1   neo      male
2    trinity   female
3 oracle    female
EOF
$ perl -i.org -ple 's/\s+/ /g' foo.lst
$ cat foo.lst
1 neo male
2 trinity female
3 oracle female