Récupérer une chaine de caractère à droite

Question

Bonjour à tous,

Je débute complètement en perl et j'ai besoin d'aide sur un sujet.

J'ai créé un petit programme en perl qui permet :
- d'aller dans un répertoire
- de lire tous les fichiers qui s'y trouvent
- de créer un fichier excel
- de mettre dans ce fichier excel certaines données

Etant donné que ces données sont des log je n'ai pas besoin de tout récupérer.

Je m'explique :
sur une ligne j'ai : "blablablablablabla - bliblibliblibliblibliblibli bliblibliblibliblibliblibli "
Je voudrais récupérer la chaine derrière le "-" soit "bliblibliblibliblibliblibli bliblibliblibliblibliblibli " sachant que je récupére la totalité de la chaine dans une variable qui s'appelle "$totally".

Merci d'avance

[Dal] · Accepted Answer

Salut,

Si tu as un seul - séparé par un espace avant et après, c'est assez facile :

#!/usr/bin/perl

use strict;
use warnings;

my $st = "blablablablablabla - bliblibliblibliblibliblibli bliblibliblibliblibliblibli ";
if ($st =~ /\s-\s(.*)$/) {
    my $totally = $1;
    # do something with $totally
} else {
    print "Error, incorrect format in $st
";
}
Dal

Felice_ · Answer

Bonjour :

Soit tu coupes avec la fonction « split » :

En Perl 5 :
use strict;
use warnings;

my $totally   = 'blablablablablabla - bliblibliblibliblibliblibli bliblibliblibliblibliblibli ';
my @donnees = split(' - ', $totally);

print $donnees[1] . "
";

En Perl 6 :
my $totally   = 'blablablablablabla - bliblibliblibliblibliblibli bliblibliblibliblibliblibli ';
my @donnees = split(' - ', $totally);

put @donnees[1];

Soit tu utilises les expressions régulières :

En Perl 5 :
my $totally = 'blablablablablabla - bliblibliblibliblibliblibli bliblibliblibliblibliblibli ';
   $totally =~ /^[^-]+ - (.+)$/;

print $1 . "
";

En Perl 6 :
my $totally = 'blablablablablabla - bliblibliblibliblibliblibli bliblibliblibliblibliblibli ';
   $totally ~~ /^.+ \- (.+)$/;

put $0;

Récupérer une chaine de caractère à droite

2 réponses

Discussions similaires

Newsletters