#!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.