Chaines sous Perl

Résolu/Fermé

Rahal - 2 janv. 2009 à 15:19
Rahal - 2 janv. 2009 à 15:54

Bonjour à tous,

Je suis entrain de préparer un script Perl, mais j'ai trouvé le problemee suivant:

Dans les chaine suivantes (Par exemple $chaine1 = " oui, c'est, 1234, une , chaine" et $chaine2 = "resolution, d'un,34585, problème")
J'ai besoin de comparer les deux chiffres ( ici 1234 et 34585 ) et de renvoyer le plus grand.

Est ce que quelqu'un peut m'aider.

Merci d'avance.

A voir également:

Chaines sous Perl
Recherche automatique des chaînes ne fonctionne pas - Guide
Nouvelles chaînes tv 2024 - Accueil - TV & Vidéo
Denon perl pro test - Accueil - Audio
Comment décrypter les chaines cryptées sur eutelsat 16a - Forum Réseaux sociaux
Je ne reçois plus les chaines 8 15 16 17 18 ✓ - Forum TNT / Satellite / Réception

1 réponse

Réponse 1 / 1

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
2 janv. 2009 à 15:39

Salut,

lami20j@debian:~/trash$ cat ccm.pl
#/usr/bin/perl
use strict;use warnings;

my $chaine1 = " oui, c'est, 1234, une , chaine";
my $chaine2 = "resolution, d'un,34585, problème";

my ($n1,$n2)="$chaine1 $chaine2"=~/(\d+)/g;
print "Le plus grand nombre entre $n1 et $n2 est : ",$n1 < $n2?$n2:$n1,"\n";
__END__

Exécution

lami20j@debian:~/trash$ perl ccm.pl
Le plus grand nombre entre 1234 et 34585 est : 34585

Rahal
2 janv. 2009 à 15:54

C'est résolu.
Merci beaucoup.

Discussions similaires

Décryptage de chaînes précédées de '$'.

Aucune chaines lors de la recherche automatique

DECRYPTAGE DES CHAINES CRYPTES

manque chaines tnt 8-15-16-17-18

N'arrive pas a installer ses chaînes tv