Discussion :

[Mirel]

Bonjour je voudrez récupérer dans un fichier password de vpopmail le compte et le mot de passe !

Voici dans le fichier ce que je retrouve :

support:$1$V0aFtvE86qsdf456qsfi9SYOTss./:1:0:support:/home/vpopmail/domains/ledomain.net/support:NOQUOTA:HQSKN452S

Je voudrez pouvoir récupérer le compte support et le passe HQSKN452S !
Il faut savoir qu'il y a plusieurs compte dans ce fichier !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
open FICHIER,"< /home/vpopmail/domains/$domain/vpasswd" or die "Le fichier n'existe pas !";
    while (my $ligne = <FICHIER>){
 
	if ($ligne =~ /^(.+?)\s:\sNOQUOTA\s:(.+?)$/) {
 
	my $nom = $1;
	my $pass = $2;
 
        main::snotice($nick,"debug : $nom - $pass");
	 }
    }
    close FICHIER;

Mon code actuel me retourne rien !
Merci de votre aide !

[Jasmine80]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
 
 
use strict;
use warnings;
 
 
open my $fichier ,'<', '/home/vpopmail/domains/$domain/vpasswd' or die "Le fichier n'existe pas !";
 
while (my $ligne = <$fichier>){
 
	if ($ligne =~ /^(.+?):NOQUOTA:(.+?)$/) {
 
		my $nom = $1;
		my $pass = $2;
	}
}
close $fichier;

J'ai laissé ton expression mais si tu ne veux pas des 'support :' utilise

Code :

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

/^support:(.+?)support:NOQUOTA:(.+?)$/

Le problème vient du fait que tu n'as pas d'espace dans ta ligne, il ne faut donc pas de \s (ou alors \s* si des espaces sont parfois possibles).

Utilise $fichier au lieu de FICHIER, c'est préférable.

Il faut savoir qu'il y a plusieurs compte dans ce fichier !

Il faut trouver une expression régulière générale.

[Mirel]

Le résultat me donne :

debug : support:$1$V0aFtvE86qsdf456qsfi9SYOTss./:1:0:support:/home/vpopmail/domains/ledomain.net/support: - HQSKN452S

Au lieu de :

debug : support - HQSKN452S

[Jasmine80]

Code :

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

if ($ligne =~ m/^(\w+):.+?\1:\w+:(.+?)$/)

Voici une EXPREG générale, modifie la si elle doit être plus spécifique.

[Mirel]

Superbe ca fonctionne merci a toi !