ext2html-ext2xml.pl

#!/usr/bin/perl
#perl ext2html-ext2xml.pl
#Remarque: Grâce à c-norm-3.pl on n'a pas de .cnr.xml parmi les fichiers
use locale; #caracteres accentues
print "Bienvenu(e) au programme qui permet de modifier \n vos extensions .html et .xml. \n";
print "Tapez h si vous voulez renommer tous vos \n fichiers .pl.html, .txt.html, .cnr.html, .xml.html \n et .xsl.html en .html \n";
print "Tapez b si vous voulez renommer tous vos \n fichiers .txt.xml, .cnr.xml, en -balise.xml \n";
print "Tapez x si vous voulez renommer tous vos \n fichiers .txt.xml, .cnr.xml, .xml.xml en .xml \n";
print "Tapez p si vous voulez renommer parcours-arborescence-fichiers-2out.html en paf-2out.html \n et extract-patron-cordial-nom-prep-nom.html en extract-patron-c-NPN.html \n";
print "Sinon tapez q \n";
my $rep=<STDIN>;
chomp($rep);
if ($rep=~/h/) {
system "#!/bin/bash
echo \"Vous avez tapé h pour html...\";
rename \.pl.\html \.html *\.html;
rename \.txt.\html \.html *\.html;
rename \.cnr.\html \.html *\.html;
rename \.xml.\html \.html *\.html;
rename \.xsl.\html \.html *\.html
ls > tous-vos-fichiers\.txt;
grep \.html tous-vos-fichiers\.txt > nom-de-fichier\.txt;";
print "\nLe nouveau fichier créé se trouve dans cette liste: \n";
system "#!/bin/bash
cat nom-de-fichier\.txt;";
}
elsif ($rep=~/b/) {
system "#!/bin/bash
echo \"Vous avez tapé b pour -balise\.xml...\";
rename \.txt\.xml -balise\.xml *\.txt\.xml;
rename \.cnr\.xml -balise\.xml *\.cnr\.xml;
ls > tous-vos-fichiers\.txt;
grep balise\.xml tous-vos-fichiers\.txt > nom-de-fichier\.txt;";
print "\nLe nouveau fichier créé se trouve dans cette liste: \n";
system "#!/bin/bash
cat nom-de-fichier\.txt;";
}
elsif ($rep=~/x/) {
system "#!/bin/bash
echo \"Vous avez tapé x pour xml...\";
rename \.txt\.xml \.xml *\.txt\.xml;
rename \.cnr\.xml \.xml *\.cnr\.xml;
rename \.xml\.xml \.xml *\.xml\.xml;
ls > tous-vos-fichiers\.txt;
grep \.xml tous-vos-fichiers\.txt > nom-de-fichier\.txt;";
print "\nLe nouveau fichier créé se trouve dans cette liste: \n";
system "#!/bin/bash
cat nom-de-fichier\.txt;";
}
elsif ($rep=~/p/) {
system "#!/bin/bash
echo \"Vous avez tapé p pour parcours...\";
rename parcours-arborescence-fichiers-2out\.html paf-2out\.html parcours-arborescence-fichiers-2out\.html;
rename extract-patron-cordial-nom-prep-nom\.html extract-patron-c-NPN\.html extract-patron-cordial-nom-prep-nom\.html;
echo \"\nLe nouveau fichier créé se nomme paf-2out\.html \n\";";
}
else {
print "L'ordre a été annulé."};