包含「^」的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"); 

的問題是與密鑰的長度。