topic Re: PERL - Escape special characters in Operating System - Linux

PERL - Escape special characters

Anand_30 — Tue, 20 Dec 2005 13:32:28 GMT

Hi,

I have a PERL script which reads inputs from another file. But each line in the input has few special characters which needs to be escaped.

Can anyone tell me the best way to do this?

Is there any package available in PERL which when used automatically escapes special characters.

Thanks,
Anand

Re: PERL - Escape special characters

James R. Ferguson — Tue, 20 Dec 2005 13:46:17 GMT

Hi:

I would read the file in raw (binary) mode:

#/usr/bin/perl
my $/ = "\0";
while (<>) {
...
}

Regards!

...JRF...

Re: PERL - Escape special characters

Oviwan — Tue, 20 Dec 2005 13:55:31 GMT

Hi

#!/usr/bin/perl
while (<>)
{
chomp;
#Put all special characters in the search pattern
$_ =~ s/([\$\#\@\\])/\\$1/g;
print "$_\n";
}

Regards

Re: PERL - Escape special characters

H.Merijn Brand (procura — Tue, 20 Dec 2005 14:13:35 GMT

JRF, that is NOT raw mode.

method 1

open my $file, "< $file_name" or die "$file_name: $!";
binmode $file;

method 2

open my $file, "<:raw", $file_name or die "$file_name: $!";

What you probably MEANT was

local $/; # set's input record separator to undef
my $content = <>; # 'while' is useless

Being escaped is a too wide and unspecific defenition to give a solution for

# insert a backslash in fron of specials
s{([.....])}{\\$1}g;

where ..... is the range of characters that need the \

but you could also mean to `escape' characters to html entities or octal escapes or ...

Enjoy, Have FUN! H.Merijn

Re: PERL - Escape special characters

James R. Ferguson — Tue, 20 Dec 2005 14:32:12 GMT

Hi Merijn!

Yes, method-2 as you described where was I was (badly) trying to get toward :-)

/* no points please */

Regards (and thanks)!

...JRF...