Discussion :

[medmans]

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

[Woufeil]

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 :

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

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 :

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

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

[medmans]

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é

[medmans]

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

[djibril]

déjà j'écrirais ainsi :

Code :

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

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

[medmans]

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