l********s
发帖数: 358 | 1 在Perl Cookbook有下面两段代码是实现相同的功能
(1)
$sum = 0;
foreach my $byteval (unpack("C*", $string)) {
$sum += $byteval;
}
(2)
$sum = unpack("%32C*", $string);
但我看不懂(2)里面‘%32’是什么意思？ | j*****a
发帖数: 436 | 2 %32 means 32-bit checksum, default is 16-bit checksum. | l********s
发帖数: 358 | 3 Thanks.
再问个问题，
while(<>) {
($first_name, $last_name) = split /, /;
}
输入的字符串pattern都是
Tom, ABC
Jack, BAC
John, ACB
...
但如果两行的有一个或几个空行的话，我想在split之前先直接skip空行有什么容易的
方法？我现在想得到的就是length($_)是0的话，就是空行跳过，应该还有其它更容易
的方法。 | j*****a
发帖数: 436 | 4 while(<>) {
next if /^(\s)*$/;
($first_name, $last_name) = split /, /;
} | l********s
发帖数: 358 | 5 Thanks.
【在 j*****a 的大作中提到】
: while(<>) {
: next if /^(\s)*$/;
: ($first_name, $last_name) = split /, /;
: }
|
|
