some-usable-scripts/perl/essai.perl

19 lines
177 B
Perl
Executable File

#!/usr/bin/perl
while(<>)
{
if($_ =~ "Salut")
{
print "OK\n";
}
};
while(<>)
{
print if $_=~/"Bonjour"/;
};
# Encore plus simple !!
while(<>)
{
print if /"Bonjour"/;
};