Question

perl 如何读取全部 hash数据

@readall = $_[0]; 是读取第一组数据

如何将所有数据都一次读到赋值给@readall

谢谢
我得值是 {name => '1 usr/bin/perl t-shirt',price => '14.99',itemID => 1001},{name => '1 usr/bin/perl t-',price => '14.99',itemID => 1002}
请问是sting还是hash? 如果是string得话。如何一次传递到sub里？ $readall = $_; ? 是这样吗

@readall = @_; 应是正解。可就是无法测试成功。 $readall = $_; 好像没有读到正确数据。谁能帮帮我啊。 这个数据需要传递到一个sub里。
#!/usr/bin/perl
print "Pragma: no-cache\n";
print "Content-type:text/html\n\n";
my $alltata = "{quantity => 1,name => 'ddd',price => 15,prod_subtotal => 15,itemID => '15'}";
say_hello();
sub say_hello {
my $alltata1 = $_;
print "Hello, World! <br>@alltata1<br><br>\n";
}

CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers.

Answer 1

@readall = @_;

我不懂CGI,只知道一点perl编程的东西。
看了你的代码，应该是这里的问题：
1.say_hello(); #这里是一个子例程调用，你没有传参数，我想你想要的效果是
say_hello( $alltata );
2. my $alltata1 = $_;
#这个传参的语句错了。你可以改成my $alltata1 = (@_)[0]; 或者
my ($alltata1) = @_; 或者 my $alltata1 = shift;