{filelink=14338}

 ################ Utilisation de 'open' et 'sysopen' ############################
 # Pendant l'overture du fichier, seul le mode
 # spécifié définit les droits et les actions
 # sur le fichier

# Ouvrir le fichier en mode lecture:
open(FILEHANDLE, "<", $path)                                or die $!;
sysopen(FILEHANDLE, $path, O_RDONLY)                        or die $!;

# Ouvrir le fichier en mode écriture, création si nécessaire
# ou ré-écriture du contenu
open(FILEHANDLE, ">", $path)                                or die $!;
sysopen(FILEHANDLE, $path, O_WRONLY|O_TRUNC|O_CREAT)        or die $!;
sysopen(FILEHANDLE, $path, O_WRONLY|O_TRUNC|O_CREAT, 0600)  or die $!;

# ouvrir le fichier en mode écriture, créer le fichier s'il n'existe pas
sysopen(FILEHANDLE, $path, O_WRONLY|O_EXCL|O_CREAT)         or die $!;
sysopen(FILEHANDLE, $path, O_WRONLY|O_EXCL|O_CREAT, 0600)   or die $!;

# Ouvrir le fichier en mode d'ajout,  créer le fichier s'il n'existe pas
open(FILEHANDLE, ">>", $path)                               or die $!;
sysopen(FILEHANDLE, $path, O_WRONLY|O_APPEND|O_CREAT)       or die $!;
sysopen(FILEHANDLE, $path, O_WRONLY|O_APPEND|O_CREAT, 0600) or die $!;

# Ouvrir le fichier en mode d'ajout, seulemnt s'il existe
sysopen(FILEHANDLE, $path, O_WRONLY|O_APPEND)               or die $!;

# Ouvrir le fichier en mode modification, seulement s'il n'existe pas
sysopen(FILEHANDLE, $path, O_RDWR|O_EXCL|O_CREAT)           or die $!;
sysopen(FILEHANDLE, $path, O_RDWR|O_EXCL|O_CREAT, 0600)     or die $!;

# Ouvrir le fichier en mode modification, seulemnt s'il existe
open(FILEHANDLE, "+<", $path)                               or die $!;
sysopen(FILEHANDLE, $path, O_RDWR)                          or die $!;

# Ouvrir le fichier en mode modification, la créer s'il n'existe pas
sysopen(FILEHANDLE, $path, O_RDWR|O_CREAT)                  or die $!;
sysopen(FILEHANDLE, $path, O_RDWR|O_CREAT, 0600)            or die $!;

Livres sur ce sujet

[amazon_image id="2841773698" link="true" target="_blank" size="medium" ]De l'art de programmer en Perl[/amazon_image][amazon_image id="2914010729" link="true" target="_blank" size="medium" ]Perl pour l'impatient[/amazon_image][amazon_image id="2841771407" link="true" target="_blank" size="medium" ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id="B005ELPHNA" link="true" target="_blank" size="medium" ]Perl moderne: L'essentiel des pratiques actuelles[/amazon_image][amazon_image id="2914010656" link="true" target="_blank" size="medium" ]Les expressions régulières par l'exemple[/amazon_image][amazon_image id="2914010869" link="true" target="_blank" size="medium" ]Les meilleures bibliothèques pour Perl[/amazon_image]