En utilisant Perl, comment puis-je remplacer tous les espaces dans un fichier avec des retours à la ligne?

Question

Par exemple fichier texte:

 
    Speak friend and enter 

en utilisant un script Perl pour supprimer les espaces et les remplacer par retour chariot

 
    Speak 
    friend 
    and 
    enter 

Answer 1

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

Answer 2

créer un fichier 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; 

puis exécutez-le comme:

perl test.pl yourfile.txt 

ou, si vous ne voulez pas utiliser un fichier, vous pouvez le faire tout de la ligne de commande comme:

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

Answer 3

Vous pouvez utiliser sed

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

ou tout ce qui Fonctionne avec des expressions régulières

"s/[ ]/\n/g" 

Answer 4

Si vous souhaitez modifier l'intérieur, vous pouvez utiliser l'option -i ch. Consultez perlrun pour voir comment il est fait, mais, au fond:

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

Answer 5

#!/usr/bin/perl -l 

use strict; 
use warnings; 

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