Die Verwendung von Perl wie kann ich ersetzen Sie alle Leerzeichen in einer Datei mit Zeilenumbrüchen?

Beispielsweise text-Datei:

 Sprich Freund und tritt

mit einem Perl-Skript zum entfernen von Leerzeichen und ersetzen Sie mit carriage-return

 Sprechen 
Freund 
und 
geben Sie

InformationsquelleAutor | 2009-07-28

  1. 21
    perl -p -e 's/\s+/\n/g'
    Danke Peter, das war der trick
    Wenn es war der trick, sollten Sie akzeptieren seine Antwort.

    InformationsquelleAutor Peter Kovacs

  2. 3

    erstellen Sie eine Datei 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;

    dann führen Sie es wie:

    perl test.pl yourfile.txt

    oder, wenn Sie nicht eine Datei verwenden möchten, Sie können es von der Befehlszeile aus wie:

    perl -p -e "s/\s+/\n/g" yourfile.txt
    Dank arolson101, dass auch hat den trick

    InformationsquelleAutor arolson101

  3. 1
    #!/usr/bin/perl -l

use strict;
use warnings;

print join "\n", split while <>;
    Schön. Ich kann nicht verstehen, diejenigen, die sich Stimmen diese perfekte Antwort.

    InformationsquelleAutor Sinan Ünür

  4. 1

    Können Sie sed

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

    oder etwas, das funktioniert mit regulären Ausdrücken

    "s/[ ]/\n/g"
    und Dank monkeyp, dies ist eine freundliche website
    OP fragte nach einen Perl Skript

    InformationsquelleAutor monkey_p

  5. 1

    Wenn Sie möchten, inplace-editing können Sie die-i-Option. Check-out perlrun zu sehen, wie es geht, aber im Grunde:

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

    InformationsquelleAutor Donato Azevedo

Schreibe einen Kommentar