Traduire un algo en shell

echo "bonjour !" 1> coucou.txt # écrase le contenu de coucou.txt
echo "pouet" 1>> coucou.txt # écrit à la suite
echo "plop" 1>> coucou.txt
cat coucou.txt

man gzip

# produit toto.gz à partir de toto
gzip toto

#!/usr/bin/perl     

# ouverture fichierA, lecture, stockage contenu et fermeture     
$fa = "fichierA.txt";     
open FA, "$fa" or die "Ouverture de $fa impossible $!";     
@fileA = <FA>;     
close FA || die "fermeture de $fa impossible $!";     

# pareil pour le fichierB     
$fb = "fichierB.txt";     
open FB, "$fb" or die "Ouverture de $fb impossible $!";     
@fileB = <FB>;     
close FB || die "fermeture de $fb impossible $!";     

# traitement files A, recherche titre et nombre de lignes     
foreach $l(@fileA) {     
 chomp;     
 next if /""/;     
 $filename = $l;     
 print "ceci est filename $filename\n";     
      
 open AF, "$filename" or die "Ouverture de $filename impossible $!";     
 @fA = <AF>;     
 close AF || die "fermeture de $filename impossible $!";     
      
 my $i = 0;     
 foreach (@fA) {     
  if($i = 0) {     
   $titreA = $_;     
   $compteurj++;     
   $i++;     
   }     
  else {     
   $compteurj++;     
   $i++;     
   }     
  }     
 push @titreA, $titreA;     
 push @nbrligneA, $compteurj;     
 $titreA = "";     
 $compteurj = 0;     
 }     
      
# traitement des file B et recherche du titre et nbr de lignes     
foreach (@fileB) {     
 chomp $_;     
 $filename = $_;     
 open BF, "$filename" or die "Ouverture de $filename impossible $!";     
 @fB = <BF>;     
 close BF || die "fermeture de $filename impossible $!";     
      
 my $i = 0;     
 foreach (@fB) {     
  if($i = 0) {     
   $titreB = $_;     
   $compteuri++;     
   $i++;     
   }     
  else {     
   $compteuri++;     
   $i++;     
   }     
  }     
 push @titreB, $titreB;     
 push @nbrligneB, $compteuri;     
 $titreB = "";     
 $compteuri = 0;     
 }     
      
# traitement resultat titre B nbr ligne, titre A nbr ligne     
$resultat = "./resultat.txt";     
open RES, ">$resultat" or die "err ouverture de $resultat $!";     
print RES "traitement des fichiers A et B et nombre de lignes\n";     
$nmbenreg = @titreB;    
for ($i = 0, $i++, @nmbenreg) {     
 my $titreA = shift @titreA;     
 my $compteurj = shift @nbrligneA;     
 my $titreB = shift @titreB;     
 my $compteuri = shift @nbrligneB;      
 print RES "titre B: $titreB\tnbr ligne: $compteuri | titre A: $titreA\tnbr ligne: $compteurj\n";     
}     
close RES || die "fernmeture de $resultat impossible $!";     

# script testé, alain     
END;