PERL extraction de valeur

baboun -  
lami20j Messages postés 21506 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   -
Bonjour,

Je doit ecrire un script en PERL (5.8.0) sous unix afin d'extraire ques infos sur les serveurs. Dans mon programme je doit récuperer une variable qui est sous la forme :

usage...............123456789

Je voudrais récuperer uniquement le nombres à la fin.

Quelqu'un connait il une fonction qui me permettrait de récuperer cette valeur en perl ?

Merci
Configuration: Windows 2000
Firefox 2.0.0.9

1 réponse

  1. lami20j Messages postés 21506 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 571
     
    Salut,

    voici un exemple
    #!/usr/bin/perl
    use strict;use warnings;
    
    my $var='usage...............123456789';
    (my $res=$var)=~s/.*\D(\d+)$/$1/;
    
    print "$res\n";
    
    0