pbm avec une regex

Version imprimable

pbm avec une regex

Bonjour,
j'ai un pbm,si je comprend bien mon code puisque je suis débutant, avec une regex normalement pour moi ça dois marcher voila mon code si vous voyez la faute

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
$Phrase = "AFCT = 068-083-01 ETAT = NENG+BLOJ"; 
if($Phrase =~ /
			  \s*AFCT\s*=\s*(\d{3}\-\d{3}\-\d{2})
			  \s*ETAT\s*=\s*(\w{4}\+\w{4})
			  $/)      
{  
			my $AFCT = $1;
			my $ETAT = $2;
print 'afct: '.$AFCT."\n"; 
print 'etat: '.$ETAT."\n"; 
 
  } 
$Phrase2 = "NATC = CSM7   TYC = JML10E07   NFSC = TOL2M"; 
if($Phrase2 =~ /
			   \s*NATC\s*=(\w{3}\d{1})
			   \s*TYC\s*=\s*(\w{3}\d{2}\w{2}\d{1})
			   \s*NFSC\s*=\s*(\w{3}\d{1}\w{1})
			   $/) 
{  
			my $NATC= $1;
			my $TYC = $2;
			my $NFSC = $3;
print 'NATC: '.$NATC."\n"; 
print 'TYC :'.$TYC."\n"; 
print 'NFSC: '.$NFSC."\n";
 }   
$Phrase3 = "PS =03160   CIC=00449   TYR=RN"; 
if($Phrase3 =~ /
			   \s*PS\s*=(\w{5})
			   \s*CIC\s*=\s*(\w{6})
			   \s*TYR\s*=\s*(\w{2})
			   $/) 
{
			my $PS= $1;
			my $CIC = $2;
			my $TYR = $3;
print 'PS: '.$PS."\n"; 
print 'CIC :'.$CIC."\n"; 
print 'TYR: '.$TYR."\n";
  }

merci beaucoup de votre aide.

14/06/2007, 12h21
Jedai
Tu as oublié le /x à la fin de tes regex : si tu ne le mets pas, les espaces dans ta regex doivent être matchés littéralement...
Code:

1 2 3 4 5 m/ \s*NATC\s*=(\w{3}\d{1}) \s*TYC\s*=\s*(\w{3}\d{2}\w{2}\d{1}) \s*NFSC\s*=\s*(\w{3}\d{1}\w{1}) $/x
--
Jedaï
14/06/2007, 13h40
mariafan

ça marche merci Jedaï

et me revoila avec un autre pbm:
voila mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
 
my $basedir = 'C:/Program Files/EasyPHP1-8/www/traitement';
open my ($src), '<', "$basedir/AUDIT_CIC_HS16.txt"
  or die "E/S : $!\n";
 
# Connect to the database.
my $dbh = DBI->connect( "DBI:mysql:database=tdm;host=localhost",
    "chakri", "farid", { 'RaiseError' => 1 } );
 
my $sth =
  $dbh->prepare(
        "INSERT INTO srfil ( ct, afct, etat, nmfsc, cic, natc, tyc, ps, tyr)"
      . " VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)" );
 
# variable d'état pour savoir si l'on se trouve dans ule paragraphe qu'on veut imprimer ($in == 2), après une commande ($in == 1),
# ou en dehors de tout cela ($in == 0)
my $in = 0;
my ( $ct, $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr);
while (<$src>) {
    if ( not $in and my ($cmd) = (m/====\s*CT=(\w{2}\d{2})\s*====/) ) {
        $ct = $1;
		$in = 1;
    }
    elsif (
        $in == 1
        and m{^\s*
			AFCT\s*=\s*(\d{3}\-\d{3}\-\d{2})
			\s*ETAT\s*=\s*(\w{4}\+\w{4})
			$/}x
      )
    {
        if ( defined $afct ) {
            $sth->execute( $ct, $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr)
              or die "pb de requete : $DBI::errstr";
        }
        $afct = $1;
        $etat = $2;
    }
    elsif (
        $in == 1
        and m{^\s*
			NATC\s*=\s*(\w{3}\d{1})
			\s*TYC\s*=\s*(\w{3}\d{2}\w{2}\d{1})
			\s*NFSC\s*=\s*(\w{3}\d{1}\w{1})
			$/}x
      )
    {
        $natc = $1;
        $tyc = $2;
        $nmfsc = $3;
    }
    elsif ( $in == 1 and  m{^\s*
			PS\s*=(\d{5})
			\s*CIC=(\d{5})
			\s*TYR=(\w{2})
			$/}x) {
        $ps = $1;
        $cic = $2;
        $tyr = $3;
 
		if ( defined $afct ) {
            $sth->execute( $ct, $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr)
              or die "pb de requete : $DBI::errstr";
        }
        ( $ct, $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr) = (undef) x 9;
        $in = 1;
 
	    #elsif ( $in == 1 and eof ) {    $in = 0;		}
    }
}
 
close $src;
 
$dbh->disconnect;

mes regex marche bien toute seule mais lorsque je les intègre dans mon scripts j'ai e bug svt en image
j'ai un autre truc à dire c'est qu'il y a tout le temps une ligne vide entre deux
voila un extrait du fichier source

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
==== CT=BX01 ====
   AFCT = 068-083-01 ETAT = NENG+BLOJ
 
                     NATC = CSM7   TYC = JML10E07   NFSC = TOL2M
 
                     PS =03160   CIC=00449   TYR=RN
 
   AFCT = 068-083-02 ETAT = NENG+BLOJ
 
                     NATC = CSM7   TYC = JML10E07   NFSC = TOL2M
 
                     PS =03160   CIC=00450   TYR=RN
 
   AFCT = 068-083-03 ETAT = NENG+BLOJ
 
                     NATC = CSM7   TYC = JML10E07   NFSC = TOL2M
 
                     PS =03160   CIC=00451   TYR=RN
 
   AFCT = 068-083-04 ETAT = NENG+BLOJ
 
                     NATC = CSM7   TYC = JML10E07   NFSC = TOL2M
 
                     PS =03160   CIC=00452   TYR=RN
 
   AFCT = 068-083-05 ETAT = NENG+BLOJ
 
                     NATC = CSM7   TYC = JML10E07   NFSC = TOL2M
 
                     PS =03160   CIC=00453   TYR=RN

merci beaucoup de votre aide

14/06/2007, 16h34
Jedai

afct n'est pas un champ de la table srfil.

--
Jedaï

autant pour moi j'ai pas changé le nom de la table je m'excuse.
j'arrive à envoyer les donner à la bdd c'est un exploit mais toutefois j'ai un problem qui persiste il me prend justement les 3 premieres variables et les autres NULL le revoila mon code avec des petite retouches.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
 
my $basedir = 'C:/Program Files/EasyPHP1-8/www/traitement';
open my ($src), '<', "$basedir/AUDIT_CIC_HS16.txt"
  or die "E/S : $!\n";
 
# Connect to the database.
my $dbh = DBI->connect( "DBI:mysql:database=tdm;host=localhost",
    "chakri", "farid", { 'RaiseError' => 1 } );
 
my $sth =
  $dbh->prepare(
        "INSERT INTO mic_hs ( ct, afct, etat, nmfsc, cic, natc, tyc, ps, tyr)"
      . " VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)" );
 
# variable d'état pour savoir si l'on se trouve dans ule paragraphe qu'on veut imprimer ($in == 2), après une commande ($in == 1),
# ou en dehors de tout cela ($in == 0)
my $in = 0;
my ( $ct, $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr);
while (<$src>) {
    if ( not $in and my ($cmd) = (m/====\s*CT=(\w{2}\d{2})\s*====/) ) {
        $ct = $1;
		$in = 1;
    }
    elsif (
        $in == 1
        and m{^\s*
			AFCT\s*=\s*(\d{3}\-\d{3}\-\d{2})
			\s*ETAT\s*=\s*(\w{4}\+\w{4})
			$/}x
      )
    {
        if ( defined $afct ) {
            $sth->execute( $ct, $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr)
              or die "pb de requete : $DBI::errstr";
        }
        $afct = $1;
        $etat = $2;
    }
    elsif (
 
        $in == 1
        and m{^\s*
			NATC\s*=\s*(\w{3}\d{1})
			\s*TYC\s*=\s*(\w{3}\d{2}\w{1}\d{2})
			\s*NFSC\s*=\s*(.*)
			$/}x
      )
    {
        $natc = $1;
        $tyc = $2;
        $nmfsc = $3;
    }
    elsif ( $in == 1 and  m{^\s*
			PS\s*=(\d{5})
			\s*CIC=(\d{5})
			\s*TYR=(\w{2})
			$/}x) {
        $ps = $1;
        $cic = $2;
        $tyr = $3;
 
		if ( defined $afct ) {
            $sth->execute( $ct, $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr)
              or die "pb de requete : $DBI::errstr";
        }
        ( $ct, $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr) = (undef) x 9;
        $in = 1;
 
	    #elsif ( $in == 1 and eof ) {    $in = 0;		}
    }
}
 
close $src;
 
$dbh->disconnect;

un petit extrait de src

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
   AFCT = 167-009-16 ETAT = NENG+BLOF
 
                     NATC = CSM7   TYC = JML10E07   NFSC = IU55M
 
                     PS =02168   CIC=01285   TYR=RN
 
   AFCT = 167-009-17 ETAT = NENG+BLOF
 
                     NATC = CSM7   TYC = JML10E07   NFSC = IU55M
 
                     PS =02168   CIC=01286   TYR=RN
 
   AFCT = 167-009-18 ETAT = NENG+BLOF
 
                     NATC = CSM7   TYC = JML10E07   NFSC = IU55M
 
                     PS =02168   CIC=01287   TYR=RN
 
   AFCT = 167-009-19 ETAT = NENG+BLOF
 
                     NATC = CSM7   TYC = JML10E07   NFSC = IU55M
 
                     PS =02168   CIC=01288   TYR=RN
 
   AFCT = 167-009-20 ETAT = NENG+BLOF
 
                     NATC = CSM7   TYC = JML10E07   NFSC = IU55M
 
                     PS =02168   CIC=01289   TYR=RN
 
   AFCT = 167-009-21 ETAT = NENG+BLOF
 
                     NATC = CSM7   TYC = JML10E07   NFSC = IU55M
 
                     PS =02168   CIC=01290   TYR=RN
 
   AFCT = 167-009-22 ETAT = NENG+BLOF
 
                     NATC = CSM7   TYC = JML10E07   NFSC = IU55M
 
                     PS =02168   CIC=01291   TYR=RN
 
   AFCT = 167-009-23 ETAT = NENG+BLOF
 
                     NATC = CSM7   TYC = JML10E07   NFSC = IU55M
 
                     PS =02168   CIC=01292   TYR=RN
 
   AFCT = 167-009-24 ETAT = NENG+BLOF
 
                     NATC = CSM7   TYC = JML10E07   NFSC = IU55M
 
                     PS =02168   CIC=01293   TYR=RN
 
   AFCT = 167-009-25 ETAT = NENG+BLOF
 
                     NATC = CSM7   TYC = JML10E07   NFSC = IU55M
 
                     PS =02168   CIC=01294   TYR=RN

et il me donne aucune faute. j'ai beau explosé mes yeux pour détecter qqc sans exploi. (j'ai changer qd meme le regex pour la variable 'NFSC')

merci bcp de votre aide.

Il y a un petit problème de logique dans ta boucle : tu fais deux insert() pour chaque série de donnée, l'un pour AFCT=... et un pour PIC=..., supprime celui pour AFCT, il n'est pas au bon endroit (si ton exemple est bien représentatif) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
 
my $basedir = 'C:/Program Files/EasyPHP1-8/www/traitement';
open my ($src), '<', "$basedir/AUDIT_CIC_HS16.txt"
  or die "E/S : $!\n";
 
# Connect to the database.
my $dbh = DBI->connect( "DBI:mysql:database=tdm;host=localhost",
    "chakri", "farid", { 'RaiseError' => 1 } );
 
my $sth =
  $dbh->prepare(
        "INSERT INTO mic_hs ( ct, afct, etat, nmfsc, cic, natc, tyc, ps, tyr)"
      . " VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)" );
 
# variable d'état pour savoir si l'on se trouve dans ule paragraphe qu'on veut imprimer ($in == 2), après une commande ($in == 1),
# ou en dehors de tout cela ($in == 0)
my $in = 0;
my ( $ct, $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr);
while (<$src>) {
    if ( not $in and my ($cmd) = (m/====\s*CT=(\w{2}\d{2})\s*====/) ) {
        $ct = $1;
	$in = 1;
    }
    elsif (
        $in == 1
        and m{^\s*
			AFCT\s*=\s*(\d{3}\-\d{3}\-\d{2})
			\s*ETAT\s*=\s*(\w{4}\+\w{4})
			$/}x
      )
    {
        $afct = $1;
        $etat = $2;
    }
    elsif (
 
        $in == 1
        and m{^\s*
			NATC\s*=\s*(\w{3}\d{1})
			\s*TYC\s*=\s*(\w{3}\d{2}\w{1}\d{2})
			\s*NFSC\s*=\s*(.*)
			$/}x
      )
    {
        $natc = $1;
        $tyc = $2;
        $nmfsc = $3;
    }
    elsif ( $in == 1 and  m{^\s*
			PS\s*=(\d{5})
			\s*CIC=(\d{5})
			\s*TYR=(\w{2})
			$/}x) {
        $ps = $1;
        $cic = $2;
        $tyr = $3;
        $sth->execute( $ct, $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr)
              or die "pb de requete : $DBI::errstr";
 
        ( $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr) = (undef) x 8;
    }
}
 
close $src;
 
$dbh->disconnect;

Je pense que ça donnera un meilleur résultat.

(Egalement $ct ne doit pas être mis à undef à chaque passage dans la boucle : il est valable pour toute l'exécution et ne change pas, non ?)

--
Jedaï

d'abord merci bcp Jedaï.
effectivement la variable $ct doit être la même pour toute la table puis qu'elle est la même pour tout le fichier.

je sais pas comment faire pour l'envoyer à chaque fois à la table.
et j'ai le même pbm avec la date que je dois insérer à dans chaque boucle.
voila mon nouveau code il marche mais il faut juste que j'arrive à ajouter ces deux variable pour tout le fichier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
#!/usr/bin/perl 
use strict;
use warnings;
use DBI;
 
my $basedir = 'C:/Program Files/EasyPHP1-8/www/traitement';
open my ($src), '<', "$basedir/AUDIT_CIC_HS14.txt"
  or die "E/S : $!\n"; 
 
# Connect to the database.
my $dbh = DBI->connect( "DBI:mysql:database=tdm;host=localhost",
    "chakri", "farid", { 'RaiseError' => 1 } );
 
my $sth =
  $dbh->prepare( 
        "INSERT INTO mic_hs ( ct, afct, etat, nmfsc, cic, natc, tyc, ps, tyr, date_mic_hs)"
      . " VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" );
 
# variable d'état pour savoir si l'on se trouve dans ule paragraphe qu'on veut imprimer ($in == 2), après une commande ($in == 1),
# ou en dehors de tout cela ($in == 0)
my $in = 0;
my ( $ct, $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr);
my  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $dateUs =  (1900+$year)."-".($mon+1)."-".$mday;
while (<$src>) {   #==== CT=BX01 ====
    if ( not $in and   m/====\s*CT=(\w{2}\d{2})\s*====/) {
        $ct = $1;
		$in = 1;
    }
    elsif (
        $in == 1
        and m{^\s*
			AFCT\s*=\s*(\d{3}\-\d{3}\-\d{2})
			\s*ETAT\s*=\s*(.*)$/}x
      )
    {
 
        $afct = $1;
        $etat = $2;
    }
    elsif (
 
        $in == 1
        and m{^\s*
			NATC\s*=\s*(\w{3}\d{1})
			\s*TYC\s*=\s*(\w{3}\d{2}\w{1}\d{2})
			\s*NFSC\s*=\s*(.*)
			$/}x
      )
    {
        $natc = $1;
        $tyc = $2;
        $nmfsc = $3;
 
    }
    elsif ( $in == 1 and  m{^\s*
			PS\s*=(\d{5})
			\s*CIC=(\d{5})
			\s*TYR=(\w{2})
			$/}x) 
	{
        $ps = $1;
        $cic = $2;
        $tyr = $3;
 
		if ( defined $afct ) {
            $sth->execute( $ct, $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr, $dateUs)
              or die "pb de requete : $DBI::errstr";
        }
        ( $ct, $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr, $dateUs) = (undef) x 10;
        $in = 1;
 
	    #elsif ( $in == 1 and eof ) {    $in = 0;		}
    }
}
 
close $src;
 
$dbh->disconnect;

merci beaucoup de votre aide

peut etre j'ai pas bien expliquer mon pbm
avec mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
 
my $basedir = 'C:/Program Files/EasyPHP1-8/www/traitement';
open my ($src), '<', "$basedir/AUDIT_CIC_HS14.txt"
  or die "E/S : $!\n";
 
# Connect to the database.
my $dbh = DBI->connect( "DBI:mysql:database=tdm;host=localhost",
    "chakri", "farid", { 'RaiseError' => 1 } );
 
my $sth =
  $dbh->prepare(
        "INSERT INTO mic_hs ( ct, afct, etat, nmfsc, cic, natc, tyc, ps, tyr, date_mic_hs)"
      . " VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" );
 
# variable d'état pour savoir si l'on se trouve dans ule paragraphe qu'on veut imprimer ($in == 2), après une commande ($in == 1),
# ou en dehors de tout cela ($in == 0)
my $in = 0;
my ( $ct, $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $dateUs =  (1900+$year)."-".($mon+1)."-".$mday;
while (<$src>) {   #==== CT=BX01 ====
    if ( not $in and   m/====\s*CT=(\w{2}\d{2})\s*====/) {
        $ct = $1;
		$in = 1;
    }
    elsif (
        $in == 1
        and m{^\s*
			AFCT\s*=\s*(\d{3}\-\d{3}\-\d{2})
			\s*ETAT\s*=\s*(.*)$/}x
      )
    {
 
        $afct = $1;
        $etat = $2;
 
    }
    elsif (
 
        $in == 1
        and m{^\s*
			NATC\s*=\s*(\w{3}\d{1})
			\s*TYC\s*=\s*(\w{3}\d{2}\w{1}\d{2})
			\s*NFSC\s*=\s*(.*)
			$/}x
      )
    {
        $natc = $1;
        $tyc = $2;
        $nmfsc = $3;
 
    }
    elsif ( $in == 1 and  m{^\s*
			PS\s*=(\d{5})
			\s*CIC=(\d{5})
			\s*TYR=(\w{2})
			$/}x) 
	{
        $ps = $1;
        $cic = $2;
        $tyr = $3;
 
		if ( defined $afct ) {
            $sth->execute( $ct, $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr, $dateUs)
              or die "pb de requete : $DBI::errstr";
        }
        ( $ct, $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr, $dateUs) = (undef) x 10;
        $in = 1;
 
	    #elsif ( $in == 1 and eof ) {    $in = 0;		}
    }
}
 
close $src;
 
$dbh->disconnect;

j'arrive à envoyer mes données à la base de données.
mais le pbm je voudrais envoyer à chaque fois pour chaque boucle : le $ct et la date $dateUS (la variable $ct je la détecte une seule fois au début de mon fichier et la variable $dateUs je la récupère de la date système)
merci beaucoup de votre aide

18/06/2007, 11h25
Jedai

Code:

( $ct, $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr, $dateUs) = (undef) x 10;

Le seul problème est là : évidemment si $ct et $dateUS ne sont affectées qu'une fois dans le programme, tu ne dois pas les vider à chaque boucle !!! (j'avais déjà réglé le problème pour $ct, mais tu sembles l'avoir remis de toi-même...)

Code:

( $afct, $etat, $nmfsc, $cic, $natc, $tyc, $ps, $tyr ) = (undef) x 10;

--
Jedaï
18/06/2007, 13h51
mariafan

ah d'accord je m'excuse. si je l'avait remis c'est parcque j'avais pas bien compris la ligne du code.
maintenant c OK.
Merci bcp Jedaï.