Perl 密码学 : Encrypting/Decrypting ASCII chracters with pack and unpack functions

Question

我需要帮助弄清楚这两个子例程如何工作以及它们返回什么值或数据结构。这是代码的最小表示:

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

# an array of ASCII encrypted characters
my @quality = ("C~#p)eOA`/>*", "DCCec)ds~~", "*^&*"); # for instance

# input the quality
# the '@' character in front deferences the subroutine's returned array ref 
my @q = @{unpack_qual_to_phred(@quality)};

print pack_phred_to_qual(\@q) . "\n";

sub unpack_qual_to_phred{
    my ($qual)=@_;
    my $upack_code='c' . length($qual);
    my @q=unpack("$upack_code",$qual);
    for(my $i=0;$i<@q;$i++){
        $q[$i]-=64;
    }
    return(\@q);
}

sub pack_phred_to_qual{
    my ($q_ref)=@_;
    @q=@{$q_ref};
    for(my $i=0;$i<@q;$i++){
        $q[$i]+=64;
    }
    my $pack_code='c' . int(@q);
    my $qual=pack("$pack_code",@q);

    return ($qual);
}


1;

根据我的理解，unpack_qual_to_phread() 子例程显然解密了存储在 @quality 中的 ASCII 字符元素。该子例程读入一个包含 ASCII 字符元素的数组。数组的每个元素都经过处理并且显然已解密。然后子例程返回一个包含解密数组元素的数组 ref。我很了解这一点但是我对Perl 函数pack 和unpack 不是很熟悉。我也无法在网上找到任何好的例子。

我认为 pack_phred_to_qual 子例程将质量数组 ref 转换回 ASCII 字符并打印它们。

谢谢。非常感谢任何帮助或建议。此外，如果有人可以提供一个简单的示例来说明 Perl 的 pack 和 unpack 函数是如何工作的，那也会有所帮助。

Answer 1

计算长度是不必要的。这些功能可以简化为

sub unpack_qual_to_phred { [ map $_ - 64, unpack 'c*', $_[0] ] }
sub pack_phred_to_qual { pack 'c*', map $_ + 64, @{ $_[0] } }

用加密术语来说，这是一个疯狂的简单替换密码。它只是简单地从每个字符的字符数中减去 64。可以写成

sub encrypt { map $_ - 64, @_ }
sub decrypt { map $_ + 64, @_ }

打包/解包根本不考虑加密/解密；它只是一种遍历每个字节的方法。