Discussion :

[aramrami]

Bonjour,

J'ai la chaine de caractère suivante, qui est une ligne dans un fichier:

LOGINNAME:173:173:CN=LOGINNAME,OU=DIR,OU=Users,OU=COMPANY,OU=FR,DC=europe,DC=AM_SEC,DC=SEC

Je souhaite extraine CN=LOGINNAME et OU=DIR en parcourant le fichier d'origine et en écrivant le résultat dans un nouveau fichier appelé F1.

Maintenant j'ai une autre chaine de la forme:


LOGINNAME:2790:316567C92CF3DE8AAAD3B435B51404EE:CB90B874365B3A6F9A84469CCB042D8F:::

(c'est le format hash NTLM like this:

<user>:<id>:<lanman pw>:<NT pw>:comment:homedir
)

Je souhaite extraite dans un fichier appelé F2 :

LOGINNAME:LANMAN PW

et merger les deux fichiers F1 et F2.

Quelqu'un dispose-t-il d'un script perl pour ce faire ce genre de manip.
Merci et bonnes fêtes.
ARA

[GLDavid]

Bienvenue à toi

Le but de ce forum n'est pas d'apporter une solution toute faite mais d'aider à construire cette solution.
As-tu écris quelque chose pour tenter de répondre à ces questions?
Sinon, si tu veux t'initier au Perl, tu peux regarder les liens proposés dans ma signature.

@++

[aramrami]

Voilà ce que j'ai fait. J'ai déjà écrit des programmes en perl.
Ma question concerne les fonctions split et join?
Pouvez-vous m'éclaircir?
ARA
-----------
#!/usr/bin/perl
#
# change all occurances of a string in a file to another string
#

if ($#ARGV != 3) {
print "on est ici \n";
print $#ARGV;
print "usage: chstring oldfile newfile oldstring newstring\n";
exit;
}

$oldfile = $ARGV[0];
$newfile = $ARGV[1];
$old = $ARGV[2];
$new = $ARGV[3];

open(OF, $oldfile);
open(NF, ">$newfile");

# read in each line of the file
while ($line = <OF>) {
printf $line;
$line =~ s/$old/$new/;
print NF $line;
}

close(OF);
close(NF);