Le fichier ajoute un espace supplémentaire dans chaque ligne

Question

J'essaie d'ajouter tous les éléments dans le tableau en utilisant push. puis j'emmagasinés dans un autre fichier

mais début de fichier je vois un whitespeace dans tout ..

Quel est le problème .. une avant face à ce problème.

open FILE , "a.txt" 

while (<FILE>) 
{ 

    my $temp =$_; 

    push @array ,$temp; 

} 
close(FILE); 

open FILE2, "b.txt"; 
print FILE2 "@array"; 
close FILE2; 

Answer 1

Lorsque vous citez une variable de tableau comme ceci: "@array" elle est interpolée avec des espaces. C'est de là qu'ils viennent dans votre sortie. Donc, ne citez pas si vous n'avez pas besoin de ce type d'interpolation.

Maintenant, réécrivons votre programme sur Perl moderne.

use strict; 
use warnings FATAL => 'all'; 
use autodie qw(:all); 

my @array; 
{ 
    open my $in, '<', 'a.txt'; 
    @array = <$in>; 
} 

{ 
    open my $out, '>', 'b.txt'; 
    print {$out} @array; 
} 

Answer 2

open prend habituellement un autre argument qui spécifie si le fichier est ouvert en entrée ou pour la sortie (ou pour les deux ou pour un autre cas particulier). Vous avez omis cet argument et, par défaut, FILE2 est un descripteur de fichier d'entrée.

Vous vouliez dire

open FILE2, '>', "b.txt" 

Si vous mettez la ligne

use warnings; 

au début de chaque script Perl, l'interprète va attraper beaucoup de questions comme celle-ci pour vous.

Answer 3

Vous placez des guillemets autour de "@array". Cela en fait une interpolation de chaîne qui, pour les tableaux, équivaut à join($", @array). La valeur par défaut pour $" est (devinez quoi?) Un espace.

Essayez

print FILE2 @array;