Discussion :

[dani22]

Salut à tous,

Je suis nouveau sur ce forum et aussi en Perl.

J'ai un script où j'essaie de créer un nouveau fichier comme suit:

Code :

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

open CALLFILE, ">>/tmp/bidon.call"  or die "can't open CALLFILE for writing\n";

mais à l'exécution ni le fichier se crée, ni le message d'erreur apparait à l'ecran. En plus le code continue à être exécuté comme si tout va bien.

Quelqu'un peut me dire d'où peut venir ce problem svp?

Merci d'avance,

Daniel

[Arioch]

Bonjour,

si ton programme ne die( ) pas à la création du fichier et qu'il continue son bonhomme de chemin, ça veut donc forcément dire que le fichier est ouvert dans ton /tmp.

J'ai du mal à voir une autre explication

[stoyak]

voilà ma façon de faire. vois si tu peux t'en inspirer pour trouver ton problème

Code :

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

1
2
3
4
5
6
7
 
my $fic = "fichier.txt";
open (ECR, ">$fic") || die ("impossible d'ecrire dans le fichier $fic $!");
 
.../...
 
close (ECR);

[Arioch]

Je sais bien mais la fonction open( ) est simple : elle retourne 1 si elle réussit, 0 si échec. Ton die( ) n'est là que pour pallier à tout retour valant 0 de ta fonction open( ), si tu dis que le die n'entre pas en action cela signifie que la fonction a réussi et l'ouverture du fichier avec.

Le fichier est ouvert sur ton disque dur ou bien passe-tu par un réseau ?

[Woufeil]

Bonjour,

C'est bizarre ça comme problème...
Bon, test ça et donne nous un retour

Code :

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

1
2
3
4
5
6
7
8
#! /usr/bin/perl -w
use strict;
 
open (TEST, ">>/tmp/bidon.call") or die "Impossible de creer le fichier : $!";
if( -e "/tmp/bidon.call" )
{
   print "Le fichier existe\n";
}