Could someone please break this down, 
I am not sure how to read this:


 m#^/\*# .. m#^\*/#;  # using the range operator
  
match (# is the delimiter) 
at the start of a line /\* (and this where I lose it!)


  Frm Jason King
  
  #!perl -w
  use strict;

  open FILE, 'Cfile' or die "Bad open: $!";

  while(<FILE>)
  {
    next if m#^/\*# .. m#^\*/#;  # using the range operator

    print;     # we're just printing for testing
  }

  __END__


----Thanks-----
Dave

Reply via email to