BASH DANS PERL
#!usr/bin/perl
my @args = ( "bash" , "-c", "
# exemple de script bash :
grep \"^S\" fichier_in.txt | awk '{print \$1,\$3}' > fichier_out.txt
" ); system(@args);
# Pour incorporer un script BASH dans du PERL , procedez comme suit :
# 1- le shebang du script PERL : #!usr/bin/perl
# 2- la premiere ligne du containeur : my @args = ( "bash" , "-c", "
# 3- la derniere ligne du containeur : " ); system(@args);
# 4- le script bash :
# grep \"^S\" fichier_in.txt | awk '{print \$1,\$3}' > fichier_out.txt
# 5- Attention aux ANTISLASHES devant les " , les $ , les \
# on voit donc le grand interet de cette syntaxe
# puisque tous les scripts "bash" peuvent s'executer sur un site d'hebergement acceptant le Perl
# (site web personnel) et afficher le resultat dans un navigateur Internet Explorer.