Valeur de variable commençant par une majuscule

Bonjour,

J'aimerais faire une condition d'entrée ou un substitution sur l'entrée car il faut absolument que la valeur de la variable $host commence par une majuscule.

D'après plusieurs site d'exemple sur le "matching" d'expression régulière (même celui de Djibril ;) et d’après ce que j'ai compris :oops:, le début de mon script devrait ressembler à ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/perl use warnings; use strict;   my $host = undef ; while ( $host =~ ^[A-Z] ) { print "Entrez le Hostname du serveur ( Typhon , Exemple , Pacman) : \n"; $host = <STDIN>; chomp($host); }

---

ou bien

Code:

---

1 2 3 4 5 6 7 8

#!/usr/bin/perl use warnings; use strict; my $host = undef ; print "Entrez le Hostname du serveur ( Typhon , Exemple , Pacman ) : \n"; $host = <STDIN>; chomp($host); $host = s/^[A-Z]/$host/ ;

---

Bien entendu cela ne fonctionne pas car l'expression ^[A-Z] fais une erreur et j'en ai essayé plusieurs.
Merci de votre aide.

Problème syntaxique : l'opérateur de recherche de motif est m// (ou //) :

Code:

---

while ( $host =~ /^[A-Z]/ ) {

---

Merci j'ai un peut corrigé aussi :oops:

Code:

---

while ( $host !=~ /^[A-Z]/ ) {

---

Est ce possible par substitution l’utilisateur entre n'importe quel valeur et le script lui colle une majuscule .... ?

Citation:

---

Envoyé par dubis

Est ce possible par substitution l’utilisateur entre n'importe quel valeur et le script lui colle une majuscule .... ?

---

peut-être plus simple qu'une substitution, utiliser uc ou ucfirst ou une combinaison ucfirst/lc ?

Code:

---

1 2 3 4 5 6

Taisha:~/tttmp/to_hash $ perl -E 'say "$_ ---> uc : ", uc($_), ", ucfirst : ", ucfirst($_), ", lc : ", lc($_) , ", lcfirst : ", lcfirst($_), ", ucfirst(lc) : ", ucfirst(lc($_)) for (@ARGV)' foo BAR BaZ qUx foo ---> uc : FOO, ucfirst : Foo, lc : foo, lcfirst : foo, ucfirst(lc) : Foo BAR ---> uc : BAR, ucfirst : BAR, lc : bar, lcfirst : bAR, ucfirst(lc) : Bar BaZ ---> uc : BAZ, ucfirst : BaZ, lc : baz, lcfirst : baZ, ucfirst(lc) : Baz qUx ---> uc : QUX, ucfirst : QUx, lc : qux, lcfirst : qUx, ucfirst(lc) : Qux Taisha:~/tttmp/to_hash $

---

Pas mal du tout
Encore merci

Citation:

---

Envoyé par dubis

Code:

---

while ( $host !=~ /^[A-Z]/ ) {

---

---

Cela marche mais il est un peu plus simple d'utiliser directement l'opérateur de non reconnaissance:

Code:

---

while ( $host !~ /^[A-Z]/ ) {

---

Mais l'utilisation de ucfirst est sans doute encore plus simple.