topical media & game development

talk show tell print

basic-regex-26-MatchAlternativeChomp2.pl / pl



  #!/usr/bin/perl -w
  use strict;
  print "Enter a string. It will be matched against the pattern '/Star/i'.\n\n";
  chomp (my myTestString = <STDIN>);
  print "There is a match for 'myTestString'." if (myTestString =~ m/Star/i);
  print "There is no match for 'myTestString'." if (myTestString !~ m/Star/i);


(C) Æliens 20/2/2008

You may not copy or print any of this material without explicit permission of the author or the publisher. In case of other copyright issues, contact the author.