{filelink=14343}

#!/usr/bin/perl -w

  use Tie::File;
  use Fcntl;

  # Lire la ligne 2 du fichier test.txt
  @read_argv = ('c:/test.txt', 2)
  	or die "Erreur dans la définitionn";

  ($filename, $line_number) = @read_argv;
  tie @lines, Tie::File, $filename, mode => O_RDWR
      or die "Impossible d'ouvrir $filename: $!n";
  if (@lines > $line_number)
  {
      die "La ligne $line_number n'existe pas dans $filenamen";
  }
  print "$lines[$line_number-1]n";

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]