lecture fichier dans variable

**remixade** · 09/05/2007, 16h05

Bonjour à tous, je cherche un équivalent perl à la fonction php file_get_contents. Je désire en fait placer tout le contenu d'un fichier dans une variable.
Merci pour votre aide...

**GnuVince** · 09/05/2007, 16h53

Envoyé par remixade

Bonjour à tous, je cherche un équivalent perl à la fonction php file_get_contents. Je désire en fait placer tout le contenu d'un fichier dans une variable.
Merci pour votre aide...

Code :

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

1
2
3
4
5
6
 
open(my $fd, '<', 'foo.txt');
my @lines = <$fd>;
close($fd);
my $lines = join('', @lines);
print $lines;

Et pour en faire une fonction:

Code :

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

1
2
3
4
5
6
7
8
9
 
sub get_file_content {
    my ($filename) = @_;
 
    open(my $fd, '<', $filename) or die("Impossible d'ouvrir $filename: $!\n");
    my @lines = <$fd>;
    close($fd);
    return join('', @lines);
}

**Jedai** · 09/05/2007, 21h05

Envoyé par GnuVince

Code :

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

1
2
3
4
5
6
 
open(my $fd, '<', 'foo.txt');
my @lines = <$fd>;
close($fd);
my $lines = join('', @lines);
print $lines;

Surtout pas ! Tu lis ligne par ligne, pour ensuite jeter tous tes efforts par la fenêtre ? Sur un gros fichier tu le sentiras passer...

L'idiôme courant serait plutôt :

Code :

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

1
2
3
open my($fd), '<', 'foo.txt'
  or die "$!\n";
my $content = do { local $/; <$fd> };

Et la fonction correspondante :

Code :

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

1
2
3
4
5
6
7
sub slurp {
  my $filename = shift;
  open my($fd), '<', 'foo.txt'
    or die "$!\n";
  local $/;
  <$fd>;
}

Pour avoir encore plus rapide et pratique, File::Slurp du CPAN pourrait être intéressant.

--
Jedaï

**GnuVince** · 09/05/2007, 21h33

Je viens de consulter "Perl Best Practices" et Jedaï a raison. La section en question est 10.9. Il est à noter que dans la section suivante, 10.10, Damian Conway nous dit d'utiliser le module Perl6::Slurp.

**GnuVince** · 09/05/2007, 23h48

Jedaï: tu peux m'expliquer pourquoi on utilise local plutôt que my? Je sais que local a un scope dynamique et que my a un scope lexical, mais je vois pas ce que ça changerait dans notre cas.

Merci

**Jedai** · 10/05/2007, 13h57

Envoyé par GnuVince

Jedaï: tu peux m'expliquer pourquoi on utilise local plutôt que my? Je sais que local a un scope dynamique et que my a un scope lexical, mais je vois pas ce que ça changerait dans notre cas.

Merci

Essaie avec my et tu verras le problème... $/ est une variable globale réservée, tu ne peux pas utiliser de my dessus, seulement la localiser.

Parce que sinon, la soluce de GnuVince fait bien son office sur des fichiers pas trop gros et est fréquemment usitée donc...

Oui bien sûr, sauf que la différence est vraiment énorme entre les deux solutions au niveau vitesse. Alors sur les petits fichiers on ne la ressent pas vraiment, mais il arrive que les fichiers grossissent...

--
Jedaï

**remixade** · 10/05/2007, 11h01

Bonjour à tous,
Tout d'abord merci à vous pour ces réponses pleines de connaissances...
J'ai essayé les 2 solutions et le résultat est tout à fait ce que je voulais, j'utiliserai malgré tout la 2eme solution puisque Jedai parle d'un avantage certain pour un gros fichier et c'est mon cas...