ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch3/quotemeta

Text File | 1992-10-18 | 62 b | 5 lines

#!/usr/bin/perl

$pattern = shift;
$pattern =~ s/(\W)/\\\1/g;