Escaping Values

Replace separator characters before storing a value.

escaping_values.pl

use strict;
use warnings;

my $style = ;
my $value = "a=b";
if ($style eq "semicolon") {
    $value = "a;b";
} elsif ($style eq "plain") {
    $value = "abc";
}

my $escaped = $value;
$escaped =~ s/=/\\=/g;
$escaped =~ s/;/\\;/g;

print "style=$style\n";
print "value=$value\n";
print "escaped=$escaped\n";

use strict;
use warnings;

my $style = ;
my $value = "a=b";
if ($style eq "semicolon") {
    $value = "a;b";
} elsif ($style eq "plain") {
    $value = "abc";
}

my $escaped = $value;
$escaped =~ s/=/\\=/g;
$escaped =~ s/;/\\;/g;

print "style=$style\n";
print "value=$value\n";
print "escaped=$escaped\n";

use strict;
use warnings;

my $style = ;
my $value = "a=b";
if ($style eq "semicolon") {
    $value = "a;b";
} elsif ($style eq "plain") {
    $value = "abc";
}

my $escaped = $value;
$escaped =~ s/=/\\=/g;
$escaped =~ s/;/\\;/g;

print "style=$style\n";
print "value=$value\n";
print "escaped=$escaped\n";

escaping-values Escaping keeps delimiter characters from being confused with structure.