PERL extraction de valeur

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. Modérateur
    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