小编Alf*_*ons的帖子

如何将两个数组和一个字符串传递给子？

这是我正在尝试做的事情:

use strict;
use warnings;

my @x = qw(AAAA BBBB CCCC DDDD EEEE);
my @y = qw(1111 2222 3333 4444 5555);

my $z = "hello";

Hello(@x,@y,$z);

exit(0);

sub Hello {

    my (@x,@y,$z) = @_;

    print "$_\n" for @x;
    print "$_\n";
    print "$_\n" for @y;
    print "$_\n";
    print "$z\n";
}

输出:

AAA
BBBB
CCCC
DDDD
EEEE
1111
2222
3333
4444
5555
hello
Use of uninitialized value $_ in concatenation (.) or string at test.pl line 19.

Use of uninitialized value …

use Uniq;

my @test1 = ("0","0","A");
my @test2 = ("1","1","A");

@test1 = uniq sort @test1;
@test2 = uniq sort @test2;

print "$_" for @test1;
print "\n";
print "$_" for @test2;
print "\n";

回报:

00A
1A

应该是0A还是不是？!

谢谢

我在使用 TIMEDIFF 和两个不同的日期时遇到问题。以下查询“应该”返回 00:04:51

mysql> SELECT TIMEDIFF(TIME('2013-07-21 00:04:50'),TIME('2013-07-20 23:59:59'));
+-------------------------------------------------------------------+

|TIMEDIFF(TIME('2013-07-21 00:04:50'),TIME('2013-07-20 23:59:59')) |

+-------------------------------------------------------------------+

| -23:55:09                                                         |

+-------------------------------------------------------------------+

1 row in set (0.00 sec)

有小费吗？哪种方法最简单？谢谢

我有一个错误代码:

Invalid conversion in printf: "%A"' printing %A characters in a URL

这是我的代码:

$url =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;
printf "%-10s $url\n", $res_request{$key};

我怎样才能解决这个问题？

非常感谢,AL

如何在没有"headers"的情况下读取这样的JSON字符串:

[{"SMS":"hello","NUM":12345},{"SMS":"bye","NUM":54321}]

my $json = JSON->new->utf8;
my $perl_data = $json->decode($content);
print ref($perl_data) . "\n";

返回ARRAY.我想要每个元素.

谢谢