[TP] Jouer avec des fichiers a trou

[cipher16]

Code: Tout sélectionner

#!/usr/bin/perl -w
#syntax : fichieratrou.pl fichierlut fichierecrit longueur position
if(@ARGV!=4)
{
   die "Pas assez d'argument";
}
my $fichl=shift;
my $fiche=shift;
my $n=shift;
my $pos=shift;
my $BUFFER_S=1;
my $ligne=0;
my $lut="";
open(FICHL,"<"+$fichl) or die "Il n'est pas possible d'ouvrir le fichier $fichl";
open(FICHE,"+>".$fiche) or die "Il n'est pas possible d'ouvrir le fichier $fiche";

sysseek(FICHE,$pos,0) or die "Peut pas aller a cette endroit dans $fiche";

while(sysread(FICHL,$buffer,$BUFFER_S)&&$ligne<=$n)
{
   $ligne=$ligne+1;
   $lut.=$buffer;
#syswrite(FICHE,$buffer,length($buffer)) or die "Probleme lors de l'ecriture...";
}
print $lut;
syswrite(FICHE,$lut,length($lut)) or die "Probleme lors de l'ecriture...";