Mega Code Archive

 

Categories / Perl / Regular Expression

 

A program that illustrates the use of the matching operator

#!/usr/local/bin/perl  print ("Ask me a question politely:\n");  $question = <STDIN>;  if ($question =~ /please/) {     print ("Thank you for being polite!\n");  } else {     print ("That was not very polite!\n");  }