Help for this page

Select Code to Download


  1. or download this
    my $seek = '@#]$%(*&Y^%';

my $test = 'This is a test to look for @#]$%(*&Y^% in text data';

print "found it\n" if ( $test =~ /\Q$seek\E/ );
  2. or download this
    s/(STARTDATE &) (STARTTIME)/$1 " " & $2/;
  3. or download this
    # don't try to match the paren explicitly -- use "." instead:

...
# or match it explicity, with an escape:

s/(utime\(STARTDATE &) (STARTTIME)/$1 " " & $2/;