Discussion :

[Oli_Ifre]

Bonjour a tous
je sais que le titre de mon message n'est pas très clair, mais je ne voyais pas comment définir ca autrement
J'explique mon problème plus en détails.

En fait, j'ai les 2 lignes suivantes dans un fichier texte (nommé unix.txt) :

Code :

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

1
2
dn: ou=textearemplacer,ou=carnets,dc=ifremer,dc=fr
objectclass: organizationalUnit

Et dans un autre fichier texte (nommé groupe.txt), j'ai a chaque ligne un nom de groupe. Ce que j'essaye de faire, c'est d'écrire un script qui va recréer les 2 lignes de codes du fichier "unix.txt" en remplacant à chaque fois la valeur de "textearemplacer" par le nom de groupe qui sera lu dans le fichier "groupe.txt".

Je vois pas trop comment m'y prendre
Pourriez vous m'aidez ??

Merci

[minus]

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
 
my $group;  #tu recuperes le nom du groupe de la facon que tu veux dans ton fichier group.txt
 
 
open ( UNIX, "< unix.txt" ) or die;
my $string = "";
while ( defined( $l = <UNIX> ) ) {
    $l =~ s/textearemplacer/$group/ ;
    $string = $string.$l ;
}
close (UNIX);
 
open ( NOUVEAU, ">> nouveau.txt") ; 
print (NOUVEAU $string);
close (NOUVEAU);

Ca va mettre ce que tu veux dans le fichier nouveau.txt

[Oli_Ifre]

Merci je vais tester ca

[Oli_Ifre]

Merci pour ton code, ca marche presque parfaitement
en effet, le programme me saute une ligne à chaque fois après avoir remplacer "textearemplacer", et je n'arrive pas à empecher ca !

ca donne ceci :

Code :

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

1
2
3
dn: ou=exemple1
,ou=carnets,dc=plop,dc=fr
objectclass: organizationalUnit

au lieu de ca :

Code :

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

1
2
dn: ou=exemple1,ou=carnets,dc=plop,dc=fr
objectclass: organizationalUnit

Comment faire pour empecher le saut de ligne après "exemple1"?

Voici le code que j'ai utilisé :

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
19
my $fic = "tri_alpha.txt";
	open MONFIC, "<$fic" or die "Impossible de lire le fichier $fic\n";
#Lecture ligne à ligne
	while( my $ligne = <MONFIC> ){
	my $groupe = $ligne;
	open (UNIX, "<groupe.ldif" ) or die;
	my $string = "";
	while (defined($l =<UNIX>)){
		$l =~ s/textearemplacer/$groupe/;
		$string = $string.$l;
	}
	close (UNIX);
	open ( NOUVEAU, ">>liste_unix.ldif") ;
	print (NOUVEAU $string);
	close (NOUVEAU);
 
	print "$string";}
#Fermeture du fichier
close MONFIC;

Merci de m'aider

[Jedai]

Merci pour ton code, ca marche presque parfaitement
en effet, le programme me saute une ligne à chaque fois après avoir remplacer "textearemplacer", et je n'arrive pas à empecher ca !

C'est parce que tu oublies de chomp()er le groupe.

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
19
20
21
22
23
24
25
#!/usr/bin/perl
use strict; use warnings;
 
my $grps_filename = "tri_alpha.txt";
my $ldif_src_filename = "groupe.ldif";
my $ldif_out_filename = "liste_unix.ldif";
open my($grps), '<', $grps_filename
    or die "Impossible de lire le fichier $grps_filename : $!\n";
open my($ldif_src), '<', $ldif_src_filename
    or die "Impossible de lire le fichier $ldif_src_filename : $!\n";
open my($ldif_out), '>>', $ldif_out_filename
    or die "Impossible de lire le fichier $ldif_out_filename : $!\n";
 
my $ldif = do { local $/; <$ldif_src> };
close $ldif_src;
 
while( my $groupe = <$grps> ){
    chomp($groupe);
    my $new_ldif = $ldif;
    $new_ldif =~ s/textearemplacer/$groupe/g;
    print $ldif_out $new_ldif;
    print $new_ldif;
}
close $ldif_out;
close $grps;

--
Jedaï

[Oli_Ifre]

merci ca marche nickel maintenant