Comment découper des espaces à partir de la sortie que je capture avec des retours en arrière dans Perl?

Question

Je suis une capture sortie d'un programme externe:

my $cmd = "grep -h $text $file2 $file1 | tail -1 | awk '{print \$NF }' "; 
    my $port_number; 
    $port_number =`$cmd`; 

    print "port No : ==$port_number=="; 

La sortie a des espaces supplémentaires autour du numéro de port:

port No : == 2323 

== 

et j'ai essayé chomp mais il ne fonctionne pas.

Answer 1

l'un de vos problèmes est que vous n'avez pas besoin d'utiliser des commandes externes pour faire ce que vous faites. Restez à l'intérieur Perl, qui a le regex, la gestion des fichiers et fonctionnalités awk construit en:

my $last_matching_line; 
{ 
local @ARGV = ($file2, $file1); 

while(<>) 
    { 
    next unless /$text/; 
    $last_matching_line = $_; 
    } 
} 

my($port_number) = (split /\s+/, $last_matching_line)[-1]; 

print "port No : ==$port_number=="; 

Answer 2

Vous pouvez enlever tous les espaces avec ceci:

$port_number =~ s/\s+//g; 

Answer 3

chomp supprime seulement le dernier saut de ligne. Essayez une regex comme ceci:

s/(?:\r?\n)*$// 

Answer 4

Je vais essayer de lire votre esprit ici et comprendre ce que vous entendez par « sa ne fonctionne pas », en vous montrant la documentation chomp:

Cette version plus sûre de "chop" supprime toute chaîne de fin qui correspond à la valeur actuelle de $/(également appelée $ INPUT_RECORD_SEPARATOR dans le module "English"). Renvoie le nombre total de caractères supprimés de tous ses arguments.

Pour l'utiliser correctement (en supposant que vous voulez que le reste de la chaîne, pas le saut de ligne), ne prenez pas sa valeur de retour:

my $port = `$cmd`; 
chomp $port; 
print "$port\n"; 

Vous pouvez supprimer les espaces blancs entourant indésirable avec trim en le module de base String::Util:

use String::Util 'trim'; 
trim $port; 

Answer 5

de perldoc: « Vous pouvez en fait tronquer tout ce qui est une lvalue, y compris une cession: »

Donc, vous voulez :

chomp($port_number =`$cmd`);