Concaténation de chaînes Numéro

Question

Pourriez-vous s'il vous plaît jeter un oeil à mon code ci-dessous.

#!C:\Perl\bin\perl.exe 
use strict; 
use warnings; 
use Data::Dumper; 

my $fh = \*DATA; 
my $str1 = "listBox1.Items.Add(\""; 
my $str2 = "\")\;"; 

while(my $line = <$fh>) 
{ 
    $line=~s/^\s+//g; 

    print $str1.$line.$str2; 

    chomp($line); 

} 


__DATA__ 
Hello 
World 

sortie:

D:\learning\perl>test.pl 
listBox1.Items.Add("Hello 
");listBox1.Items.Add("World 
"); 
D:\learning\perl> 

erreur de style. Je veux le style ci-dessous. Y a-t-il quelque chose qui ne va pas dans mon code? Merci.

D:\learning\perl>test.pl 
listBox1.Items.Add("Hello"); 
listBox1.Items.Add("World"); 
D:\learning\perl> 

Answer 1

La ligne lue en $line a un newline de fuite car. Vous devez utiliser chomp pour vous en débarrasser. Vous avez chomp dans votre code, mais c'est mal placé. Déplacer au début de la boucle comme:

while(my $line = <$fh>) 
{ 
    chomp($line);     # remove the trailing newline. 
    $line=~s/^\s+//g;    # remove the leading white space. 
    print $str1.$line.$str2."\n"; # append a newline at the end. 
} 

EDIT:

Réponse à la question dans le commentaire:

Pour enlever le leader espaces dans une chaîne:

$str =~s/^\s+//; 

Pour supprimer le fuite (fin) espaces dans une chaîne:

$str =~s/\s+$//; 

Pour enlever le avant et arrière espaces dans une chaîne:

$str =~s/^\s+|\s+$//g; 

Answer 2

Pensez à l'ordre, entre l'impression et chomp;)