Discussion :

[dubis]

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 , le début de mon script devrait ressembler à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Philou67430]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dubis]

Merci j'ai un peut corrigé aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[cmcmc]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 $

[dubis]

Pas mal du tout
Encore merci

[Lolo78]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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