topical media & game development
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

talk show tell print

basic-regex-26-MatchInsensitiveLengths.pl / pl



  #!/usr/bin/perl -w
  use strict;
  print "Enter a string. It will be matched against the pattern '/Star/i'.\n\n";
  my myTestString = <STDIN>;
  my myLength = length(myTestString);
  print "The length before chomp() is myLength.\n\n";
  chomp(myTestString);
  myLength = length(myTestString);
  print "The length after chomp() is myLength.\n\n";
  
  if (myTestString =~ m/Star/i)
  {
   print "There is a match for 'myTestString'.\n\n";
  }
  else
  {
   print "No match was found in 'myTestString'.";
  }
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

(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.