包含“^”的Perl XOR转义字符串

Question

如何在Perl中执行按位异或时转义“^”字符？我的剧本是好的，但是当我输入像.1M80P]/)S@*>RQF^RM< \n一个字符串，然后输出得到弄糟：

#!/usr/bin/perl 

$key = pack("H*","3cb37efae7f4f376ebbd76cd"); 

print "Enter string to decode: "; 
$str=<STDIN>;chomp $str; $str =~s/\\(.)/$1/g; 
$dec = decode($str); 
print "Decoded string value: $dec\n"; 

sub decode{ 
    @subvar=@_; 
    my $sqlstr = $subvar[0]; 
    $cipher = unpack("u", $sqlstr); 
    $plain = $cipher^$key; 
    return substr($plain, 0, length($cipher)); 
} 

输出：

Enter string to decode: .1M80P]/)S@*>RQF^RM< \n 
Decoded string value: zen94==tuvosÊ× 

有什么奇怪的，下面的字符串,\=_\\^M;+ D1F$U@7L\n工程确定并解码为KL@OU4books!但再次如预期还给R3@coldfusioÆ

这里.;H ^F8B8EQ">SA^BDL8 \n不起作用由池上清洁代码（虽然相同的结果）：

#!/usr/bin/perl 
use strict; 
use warnings; 

sub deliteral { 
    my ($s) = @_; 
    $s =~ s/\\n/\n/g; 
    die "Unrecognised escape \\$1\n" if $s =~ /\\[a-zA-Z0-9]/; 
    $s =~ s/\\(.)/$1/sg; 
    return $s; 
} 

sub uudecode { 
    return unpack 'u', $_[0]; 
} 

sub decode { 
    my ($key, $cipher) = @_; 
    return substr($cipher^$key, 0, length($cipher)); # XXX 
} 

my $key = pack('H*', '3cb37efae7f4f376ebbd76cd'); 

print "Enter string to decode: "; 
chomp(my $coded = <STDIN>); 

my $cipher = uudecode(deliteral($coded)); 
my $plain = decode($key, $cipher); 
print("Plain text: $plain\n"); 

Answer 1

所以这是解决方案，这要归功于池上帮助：

#!/usr/bin/perl 
use strict; 
use warnings; 

sub deliteral { 
    my ($s) = @_; 
    $s =~ s/\\n/\n/g; 
    die "Unrecognised escape \\$1\n" if $s =~ /(?<!\\)(?:\\{2})*\\([a-zA-Z0-9])/; $s =~ s/\\(.)/$1/sg; 
    return $s; 
} 

sub uudecode { 
    return unpack 'u', $_[0]; 
} 

sub decode { 
    my ($key, $cipher) = @_; 
    return substr($cipher^$key, 0, length($cipher)); # XXX 
} 

my $key = pack('H*', '3cb37efae7f4f376ebbd76cdfce7391e9ed9cee4cfceb4b33332fc96ff7b'); 

print "Enter string to decode: "; 
chomp(my $coded = <STDIN>); 

my $cipher = uudecode(deliteral($coded)); 
my $plain = decode($key, $cipher); 
print("Plain text: $plain\n"); 

的问题是与密钥的长度。