Help for this page

Select Code to Download


  1. or download this
    $find='\\d{2}-\\d{2}-\\d{4}'
  2. or download this
    \d{2}-\d{2}-\d{4}
  3. or download this
    perl -pi.bak -e "s|d{2}-d{2}-d{4}|...|g" ...
  4. or download this
    my $find    = '\\d{2}-\\d{2}-\\d{4}';
my $replace = '{date}';

s/$find/$replace/
  5. or download this
    my $find    = '(\\d{2}-\\d{2})-(\\d{4})';
my $replace = '$2-$1';

eval "s/\$find/$replace/"