same thing as#!/usr/bin/perl my $text2 = 'db1$/SQL/GEMINI/StoredProcs/pboValidateClientRefNo_Client +ID.sql'; # chr(36) = $ # http://perldoc.perl.org/functions/chr.html # It's another way to represent $ # my $hmm = chr(36); my $hmm = '$'; # \Q Disable pattern metacharacters until \E # http://perldoc.perl.org/perlreref.html#ESCAPE-SEQUENCES # \Q makes it work =D $text2 =~ s{\Q$hmm}{}g; print "Content-type: text/html\n\n"; print "<html><h1>$text2</h1></html>\n";
Is that good enough?#!/usr/bin/perl my $text2 = 'db1$/SQL/GEMINI/StoredProcs/pboValidateClientRefNo_Client +ID.sql'; $text2 =~ s{\Q$}{}g; print "Content-type: text/html\n\n"; print "<html><h1>$text2</h1></html>\n";
In reply to Re^3: Remove $
by SFLEX
in thread Remove $
by rawsr71
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |