#!/usr/bin/perl -w
# remd: éditeur personnel de texte, alain Adelmar 22 Janvier 2001.
# ce programme fonctionne bien.
doclear;# a revoir de façon a appeller dans bash la commande clear.

$x='x'x30;
$p=0;# p comme probleme
print"\n$x\nBienvenue sur l'éditeur alEd\npour sortir\nTaper: Ctrl-D\n$x\n\n";

@a=<STDIN>;

$aa="\n[a_l_a_i_n // A_d_e_l_m_a_r]";
 

#=============================== sauvegarde:
print"Sous quel titre voulez vous sauver votre travail\n";
chomp($resp=<STDIN>);
if($respeq""){
$p=1;
}
elsif($a[0]=~/^#!\//){
openF,">$resp"||print"Achtung, le prog $resp n\'a pu être sauver $!"&&($p=1);
printF@a;
closeFordie"Le script $resp est ouvert $!";
print"maintenant $resp est enregisré dans le rep courant\n";
}
else{
openF,">$resp"||print"Achtung, le fichier $resp n\'a pu être sauver $!"&&($p=1);
@a=("$x\n","$resp\n","$x\n",@a,"$aa");
printF@a;
closeFordie"no es possibilé de siera el $resp $!";
rename("$resp",("$resp".".txt"));
print"maintenant $resp.txt est enregisré dans le rep courant\n";
}

if($p=1){
$lbnow="trav".(localtime[6]).".log";
openL,">$lbnow"||print"impossible de sauvegarder le travail: $!";
printL@a;
closeL;
print"c\'est fait\n";
$aa="[a_l_a_i_n // A_d_e_l_m_a_r]";
}
END;