passer un fichier en parametre à une fonction

Bonjour,
1) Comment passer un fichier en parametre à une fonction en perl;
Si quelqu'un à un exemple S'il vous plait.

2) je veux, dans un fichier, tester si les 6 premiers caractere de chaque ligne sont egaux à la chaine "chaine".
Si qlq'un peut me donner un coup de pousse svp;
Merci

Bonjour,

1) Le mieux est sans doute d'utiliser des handles lexcicaux, non pas que ce soit impossible sans, mais plutôt que la syntaxe te sera certainement très familière ;)
Un petit exemple (je précise que j'ai fait deux fonctions dans le but de prouver que ça marche même quand le handle original est hors de portée) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#! /usr/bin/perl -w use strict;   sub fonc { my $handle = shift; print $handle "Hello World !"; }   sub main { open (my $fic, '>', 'test.txt') or die "Erreur : $!"; fonc($fic); close ($fic); }   main();

---

2) Utilise une expression régulière :

Code:

---

1 2 3 4 5

while (my $ligne = <$fichier>) { if ($ligne =~ m/^chaine/) { #Code exécuté si les première lettres sont chaines } }

---

Bonjour;
g testé votre code; sous windows ça marche correctement mais sur lunix il me semble que j'ai des probleme sur le chemin du fichier:
le prog.pl se trouve dans:'/usr/lib/cgi-bin/tp1/donnees/clients.txt'
et le fichier clients.txt se trouve: '/usr/lib/cgi-bin/tp1/donnees/clients.txt'
voici ce que j'ai fait mais il n'écrit rien dans le fichier, il reste tjrs vide:

sub fonc {
my $handle = shift;
print $handle "Hello World !";
}

sub main {
open (my $fic, '>', '/usr/lib/cgi-bin/tp1/donnees/clients.txt') or die "Erreur : $!";
fonc($fic);
close ($fic);
}
main();

Merci de votre disponibilité

Quelqu'un peut'il répondre à cette question precedente?

déjà j'écrirais ainsi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

#! /usr/bin/perl use warnings; use strict;   sub fonc { my $handle = shift; print {$handle} "Hello World !"; }   sub main { open (my $fic, '>', 'test.txt') or die "Erreur : $!"; fonc($fic); close ($fic); }   main();

---

Ensuite, faut que tu regardes tes logs (/var/logs/error.log )
N'as tu pas des problemes de droits d'ecriture, etc car tu fais du CGI, bref, regarde tes logs

Merci ça marche, c'était bien des probleme de droit;

je veux supprimer une ligne d'un fichier en PERL mais je ne connais pas comment faire pour supprimer une ligne sans derranger les autre.
chaque ligne est identifiée par ses 6 premiers caracteres.

Si qlq un peut m'aider svp?

Merci d'avance

Je te conseille de lire cette excellente Q/R, même si elle est un peu longue. Elle t'aidera.

Pour supprimer tes ligne, tu auras un code de cette forme :

Code:

---

1 2 3 4

while (my $ligne = <$in>) { next if ($ligne =~ m/^chaine/); print $out "$ligne"; }

---

$in étant le fichier ouvert en lecture et $out celui en écriture.

Merci encore; mais je constate qu'un autre fichier se crees pour contenir le resultat. ce qui ne sera pas appréciable en cas de fichier volumineux.

ya t-il un moyen de tout faire dans le meme fichier?

Citation:

---

Envoyé par medmans

Merci encore; mais je constate qu'un autre fichier se crees pour contenir le resultat. ce qui ne sera pas appréciable en cas de fichier volumineux.

ya t-il un moyen de tout faire dans le meme fichier?

---

Et bien, tout dépend de la taille du fichier... Penses-tu qu'il serait dommageable de charger tout le fichier dans la mémoire vive (dans un tableau) ? Si ce n'est pas le cas, alors fais le, puis fais ton traitement sur un tableau (c'est encore plus facile, tu n'as qu'à utiliser un grep) et enfin réinjecte le tout dans ton fichier.

Si tu ne peux pas charger le tout dans la mémoire vive par contre, là ça devient beaucoup plus compliqué... Je pense qu'il y a moyen de bricoler quelque chose avec Tie:: File (la méthode 4 de ka Q/R que je t'ai donné), mais tu auras plus de mal à faire ton script.

lit La FAQ partie astuces, t'auras des réponse sur la gestion des fichiers

Merci encore; mais je constate qu'un autre fichier se crees pour contenir le resultat. ce qui ne sera pas appréciable en cas de fichier volumineux.

ya t-il un moyen de tout faire dans le meme fichier?

tout depends de ton code, on ne fait que te donner des indices.
Maintenant à toi de faire un meilleur algo afin d'eviter de creer x fichiers

Merci encore; mais je constate qu'un autre fichier se crees pour contenir le resultat. ce qui ne sera pas appréciable en cas de fichier volumineux.

ya t-il un moyen de tout faire dans le meme fichier?

Pour eviter de creer plrs fichier j'ai fait ceux ci
#**********************************************************
# Suppression d'un dossier
#**********************************************************
sub suppression{
my ($code) = @_;
open( FILE_IN, "clients.txt" )or die "Erreur : $!";
open( FILE_OUT, ">>clients1.txt" )or die "Erreur : $!";
while (my $ligne = <FILE_IN>) {
next if ($ligne =~ m/^$code/);
print FILE_OUT "$ligne";
}
close(FILE_IN);
close(FILE_OUT);
unlink("clients.txt");
rename("clients1.txt","clients.txt");
}
Qu'en pensez vous;

Une autre question :
J'ai une ligne qui contiernt des mot séparé par le caractere":".
Chaque ligne contient 5 mots.
Je veux les charger dans un tableau sans bien sur utiliser les ":".
Connaissez vous une fonction pour cela.
Merci

Pense à mettre ton code sous balise pour la visulisation sur le forum, merci

pour charger un tableau en fonction des : tu fais un split

Code:

---

@data = split (":", $chaine);

---

C'est bon j'ai truvé la fonction split

Merci encore