#!/usr/bin/perl -w
# remd: petit script ajoutant une virgule pour faire un tableau dans linux commande

$f = "commandes_Linux.html";

open (F, "$f") or die "ouvrante impossible de $f $!";
@contenu = <F>;
close F || die "imposss shutage $f crote et flute $!";

foreach $l(@contenu) {
    chomp $l;
    if ($u == 0) {
	if($l =~ /^a2p/) {
	    $u++;
	    $l = "$l, ";
	    push @nwcontenu, $l;
	}
	else {
	    push @nwcontenu, $l;
	}
    }
    elsif ($i == 0) {
	if ($l =~ /^zsoelim/) {
	    $i++;
	    $l = "$l, ";
	    push @nwcontenu, $l;
	}
	else {    
	    $l = "$l, ";
	    push @nwcontenu, $l;
	}
    }
    else {
	 push @nwcontenu, $l;
     }
}

$fo = "commandes_linux.html";

open (FO, ">$fo") or die "impos ouverture $fo $!";
print FO "@nwcontenu";
close FO || die "fermeture de $fo compromise $!";

END;
