Discussion :

[Anonymous]

je ne sais pas comment créer des fichiers avec perl.cette info, et je dois etre handicapé mais je la trouve nulle part.ontrouve juste comment ouvrir un fichier mais c'est tout.

si quelqu'un a une info a ce sujet ....

merci d'avance!!!!

Lam

[Bonhome7h]

je ne sais pas si cela répond à ta question:

Pour ouvrir un fichier en écriture, créant un nouveau fichier si nécessaire ou en tronquant le fichier existant sinon :
open(FH, "> $path") || die $!;
sysopen(FH, $path, O_WRONLY|O_TRUNC|O_CREAT) || die $!;
sysopen(FH, $path, O_WRONLY|O_TRUNC|O_CREAT, 0666) || die $!;

Pour ouvrir un fichier en écriture, créant un fichier qui n’existe pas déjà :

sysopen(FH, $path, O_WRONLY|O_EXCL|O_CREAT) || die $!;
sysopen(FH, $path, O_WRONLY|O_EXCL|O_CREAT, 0666) || die $!;

Pour ouvrir un fichier avec ajout en fin, le créant si nécessaire :
open(FH, ">> $path") || die $!;
sysopen(FH, $path, O_WRONLY|O_APPEND|O_CREAT) || die $!;
sysopen(FH, $path, O_WRONLY|O_APPEND|O_CREAT, 0666) || die $!;

ce texte est tiré de perlallfr.pdf

@+

[Plouf]

C'est un peu porcos comme methode mais tu peux faire sois des system de mkdir ou touch par exemple ou des sysopen avec O_CREAT comme flag.....La deuxieme méthode est la moins porc et la plus utilisé....Voilà...

[Plouf]

Hihihi pas mkdir mais touch....j'suis un triso =) (si t'es sous Unix....)