Léa-Linux & amis :   LinuxFR   GCU-Squad   GNU
Initiation à Perl
Envoyé par: NBaH

Bonjour à tous,

C'est décidé, cette année je me met à Perl (il était temps ^^).

J'ai commencé la lecture de Perlintro, et je reproduis fidèlement (à la mimine) les exemples fournis, mais je bute sur celui présenté dans 'Files and I/O'.

En effet, je crois que l'exemple donné devrait afficher toutes les lignes d'un fichier, or il n'affiche cependant pas la première ligne...

Mais, qu'est-ce qu'y se passe ?

Je vous présente les lignes que j'ai insérées dans 'mon' script :
#!/usr/bin/perl

    use strict;
    use warnings;

print "\nFiles and I/O\n==============\n";
open(my $in, "<", "test/text.txt") or die "test/text.txt ne peut pas être ouvert: $!";
my $line = <$in>;
while (<$in>) {
        print "Lit seulement cette ligne : $_";
}
close $in or die "$in: $!";
Aurais-je oublié quelque chose
...
?

Poste le Monday 26 January 2009 17:49:14
Répondre     Citer    
Re: Initiation à Perl
Envoyé par: alsim

La ligne :

my $line = <$in>;

enlève la première ligne de l'entrée standard. Supprime-la et ça marchera :p

[catwell.info]

Poste le Monday 26 January 2009 17:58:53
Répondre     Citer    
Re: Initiation à Perl
Envoyé par: alsim

Hmm, je voulais bien entendu dire de l'entrée correspondant au fichier et pas de l'entrée standard...

[catwell.info]

Poste le Monday 26 January 2009 17:59:46
Répondre     Citer    
Re: Initiation à Perl
Envoyé par: NBaH

Je n'insiste pas davantage, j'ai encore plein de lecture, des clés à trouver, et mes ongles à user sur ma tête de bois dur. smiling smiley

Merci Alsim.

Poste le Monday 26 January 2009 19:33:11
Répondre     Citer    

Veuillez vous authentifier auparavant pour commenter.

 

Ce forum !
Initiation à Perl
Pour poser vos questions sur les scripts shell, le Perl, le C, etc... Attention : nous ne sommes pas des spécialistes du dev, ce forum est juste pour de petites aides ponctuelles concernant le développement et les outils de développement.

Sauf mention contraire, les documentations publiées sont sous licence Creative-Commons