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, .TXT.html, .cnr.html, .sh.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 \.sh.\html \.html *\.html; rename \.txt.\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é."};