You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

19 lines
177 B

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