perl - Perl を使用して、ファイル内のすべての空白を改行に置き換えるにはどうすればよいですか?

Question

テキストファイルの例:

    友達に話しかけて入る

Perl スクリプトを使用して空白を削除し、キャリッジ リターンに置き換える

    話す
    友達
    と
    入力

Answer 1

perl -p -e 's/\s+/\n/g'

Answer 2

ファイル test.pl を作成します。

open my $hfile, $ARGV[0] or die "Can't open $ARGV[0] for reading: $!";
while( my $line = <$hfile> )
{
    $line =~ s/\s+/\n/g;
    print $line;
}
close $hfile;

次に、次のように実行します。

perl test.pl yourfile.txt

または、ファイルを使用したくない場合は、次のようにコマンドラインからすべて実行できます。

perl -p -e "s/\s+/\n/g" yourfile.txt

Answer 3

#!/usr/bin/perl -l

use strict;
use warnings;

print join "\n", split while <>;

Answer 4

インプレース編集が必要な場合は、-iスイッチを使用できます。perlrunをチェックして、それがどのように行われるかを確認してください。ただし、基本的には次のようになります。

perl -p -i.bak -e 's/\s+/\n/g'

Answer 5

使用できますsed

sed -e "s/[ ]/\n/g"

または正規表現で動作するもの

"s/[ ]/\n/g"