window vs linux vs ....

Bonjour à tous

Voilà un code qui ne fonctionne pas comme je voudrais sous linux :

Code:

---

1 2 3 4

open (F , "+>>mon_fichier"); foreach (<F>) { print "$_\n"; }

---

En fait il ne me sort rien. Cela marche si je rajoute un

Code:

---

seek (F,0,0)

---

La documentation dit que la commande open avec +>>, se place différement en lecture suivant les systèmes.
Citation de perlfunc :
"Due to the rules and rigors of ANSI C, on some systems you have to do a seek whenever you switch between reading and writing."

Donc ma question est comment cela fonctionne sur votre système windows ou autre ? Avez-vous besoin du seek, ou alors la lecture se fait au début du fichier ?

Merci

Salut

En fait, Jedai m'a passé un jour un chouette conseil que je te transmet (en fait c'est tiré du livre Perl Cookbook aux éditions O Reilly). Pour écrire au début du fichier, il faut se mettre ainsi :

Code:

---

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl -w   use strict;   open FILE,"+< toto.txt" or die "$!\n"; seek(FILE, 0, 0); print FILE "tata\n"; close FILE;

---

En espérant t'avoir aidé.

@++

Citation:

---

Envoyé par GLDavid

Salut

En fait, Jedai m'a passé un jour un chouette conseil que je te transmet (en fait c'est tiré du livre Perl Cookbook aux éditions O Reilly). Pour écrire au début du fichier, il faut se mettre ainsi :

Code:

---

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl -w   use strict;   open FILE,"+< toto.txt" or die "$!\n"; seek(FILE, 0, 0); print FILE "tata\n"; close FILE;

---

En espérant t'avoir aidé.

@++

---

Merci de ta réponse, mais je n'ai pas du bien m'exprimer dans mon post. En fait ce que tu me proposes, c est ce que je fais mais les pages du man de perlfunc supposent que le seek(FILE,0,0) n'est pas obligatoire suivant les systèmes sous lesquels tu fais tourner ton perl. Donc ma question était sous un autre système que le mien (Linux) peut-on faire tourner mon code sans seek(FILE,0,0) ?

Citation:

---

Envoyé par strach

En fait ce que tu me proposes, c est ce que je fais mais les pages du man de perlfunc supposent que le seek(FILE,0,0) n'est pas obligatoire suivant les systèmes sous lesquels tu fais tourner ton perl. Donc ma question était sous un autre système que le mien (Linux) peut-on faire tourner mon code sans seek(FILE,0,0) ?

---

# mode Jésuite
# Je réponds à une question par une autre question ...

Si ton code fonctionne sur TOUS systèmes avec le seek, mais sur certains seulement quand on retire le seek, pourquoi veux tu le retirer ?

Le conserver augmentera la portabilité de ton script, et le surcoût n'est pas énorme.

Sans doute, mais se priver d'une compatibilité intersystème pour une misérable ligne de rien du tout... Je ne vois pas bien l'intérêt !

(Edit : oups, 2Eurocents a déjà frappé !)
--
Jedaï

Ok, ok, oublions ça, c'était juste par pure soif de compréhensions ;)

On ne m'y reprendra pas !

A+

Un petit tag Résolu au passage s'il te plait.

Merci !

@++

Citation:

---

Envoyé par strach

Bonjour à tous

Voilà un code qui ne fonctionne pas comme je voudrais sous linux :

Code:

---

1 2 3 4

open (F , "+>>mon_fichier"); foreach (<F>) { print "$_\n"; }

---

En fait il ne me sort rien. Cela marche si je rajoute un

Code:

---

seek (F,0,0)

---

---

Tu veux faire quoi au juste ? Tu es sûr de forcément écrire quelque chose dedans, une fois que tu as parcouru le contenu ? J'ai tendance à me méfier de ces variantes bizarres d'open... je ne peux jamais me souvenir de qui fait quoi.

Le plus simple est de faire un

Code:

---

open F, '<', 'fic.txt' or die $!

---

pour tout imprimer. (A noter la forme open à trois arguments, c'est plus sûr). Ensuite faire un close, et une réouverture en append, si c'est nécessaire :

Code:

---

open F, '>>', 'fic.txt' or die $!

---

Je trouve que c'est beaucoup plus clair, il est evident dès l'ouverture ce que tu attends d'un fichier. Si tu veux lire et écrire en même temps dans un fichier, c'est quasiment toujours le signe d'un bug. Ce qu'il te faut en ces cas, c'est une base de données.

N

Citation:

---

Envoyé par nematoad

Tu veux faire quoi au juste ?

---

Je veux lire un fichier, puis tester si un mot existe dedans, et si il n'existe pas le mettre dans le fichier à la fin.

Citation:

---

Envoyé par nematoad

Tu es sûr de forcément écrire quelque chose dedans, une fois que tu as parcouru le contenu ? J'ai tendance à me méfier de ces variantes bizarres d'open... je ne peux jamais me souvenir de qui fait quoi.

---

C'est étrange que tu parles de variantes bizzares de open, le + sert à écrire et lire en même temps, c'est, à mon avis, le pendant de la fonction open sous C !

Citation:

---

Envoyé par nematoad

Le plus simple est de faire un

Code:

---

open F, '<', 'fic.txt' or die $!

---

pour tout imprimer. (A noter la forme open à trois arguments, c'est plus sûr). Ensuite faire un close, et une réouverture en append, si c'est nécessaire :

Code:

---

open F, '>>', 'fic.txt' or die $!

---

Je trouve que c'est beaucoup plus clair, il est evident dès l'ouverture ce que tu attends d'un fichier. Si tu veux lire et écrire en même temps dans un fichier, c'est quasiment toujours le signe d'un bug. Ce qu'il te faut en ces cas, c'est une base de données.

N

---

La base de données est un outils beaucoup trop volumineux pour ce que je veux. En fait l'ouverture d'un fichier en écriture/lecture fonctionne parfaitement, mais pas de la même manière suivant le système sous lequel on execute le code. Je voulais tout simplement demander de tester le bout de code sur différents systèmes !

Mais comme on me l'a délicatement fait remarquer, si ça marche avec un seek(), cherche pas et en plus c'est portable.

Merci de ta réponse.
A+

Le mode lecture-écriture dans ton cas est effectivement parfaitement superflu, et l'utilisation de la solution proposée par Nematoad t'évite tous ces petits problème. Mais la lecture-écriture n'est pas une variante bizarre de open, elle est très utile dans un certain nombre de cas particuliers où l'on veut manipuler des fichiers binaires volumineux, qui ne sont pas forcément des bases de données ! De plus les variantes sont relativement simple à comprendre : '+<' ouvre en rw au début du fichier, '+>>' ouvre en ajout, à une position inconsistante selon les systèmes semble-t-il, mais ce mode crée le fichier s'il n'existe pas, '+>' est le plus étrange puisqu'il efface le fichier puis l'ouvre (ou le crée) en rw... :?

Citation:

---

Ok, ok, oublions ça, c'était juste par pure soif de compréhensions

---

C'est bien d'être curieux, mais c'est précisément le type de détail qui ne sert à rien et qui peut même être dangereux si on se laisse aller à la paresse sur un système dont on sait qu'il ne va pas nous pénaliser...

--
Jedaï