ChinaUnix.net
相关文章推荐:

perl 返回 HTTPResponse=HASH

碰到以下问题 my $date = getTime(); print $date; sub getTime #日期函数 { my $time = shift || time(); my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time); $year += 1900; $mon ++; $min = '0'.$min if length($min) < 2; $sec = '0'.$sec if length($sec) < 2; $mon = '0'.$mon if length($mon) < 2; $mday = '0'.$mday if leng...

by andyhau791010 - Perl - 2008-07-17 14:23:16 阅读(1590) 回复(3)

相关讨论

如题,我知道hash可以通过引用作为参数传递给子函数, 但是不知道如果子函数返回一个hash该如何写呢? 多谢。

by zhao_yi707 - Perl - 2007-01-21 11:22:38 阅读(3195) 回复(2)
by artech - Perl - 2006-12-11 19:53:57 阅读(3880) 回复(3)

my %hash = ("aa" => 5, "bb" => 6); my $hashreturn = %hash; print $hashreturn; 打印出来是:2/8这个是什么意思?

by camby - Perl - 2008-10-24 09:00:09 阅读(1745) 回复(4)

我写了一个pl,想返回一个0,或1,写法如下: #!/usr/bin/perl if ($ARGV[0] != "") { return 0; } else { return 1; } 运行提示:Can't return outside a subroutine at test.pl line 2. 在pl下不能有返回值吗?我想让pl有返回值,应该怎么写,是不是必须写在方法里?请指教.

by yinsou - Perl - 2007-12-04 21:09:52 阅读(6360) 回复(2)

my $sth = $dbh->prepare("select id,name from key "); $sth->execute(); #while (my $hash_ref = $sth->fetchrow_hashref) { #$key_id = $hash_ref->{'id'}; #$key_name = $hash_ref->{'name'}; #} our $array_key = $sth->fetchall_arrayref; 现有值$id=30 需要从$array_key取出id对应的name,请教能否给个例子? 新学生,问的问题好像不是问题^_^ 谢谢

by 枫影谁用了 - Perl - 2009-01-06 11:28:43 阅读(2347) 回复(5)

下载了 Spreadsheet::ParseExcel::Simple和相关模块, 想从一个excel文件中读取数据, 模块说明中给出的code是 my $xls = Spreadsheet::ParseExcel::Simple->read('spreadsheet.xls'); foreach my $sheet ($xls->sheets) { while ($sheet->has_data) { my @data = $sheet->next_row; } } 可以运行,把所有的数据都倒了出来。 我想读取特定的数据,遇到问题 my $xls = Spreadsheet::ParseExcel::Simp...

by droopy - Perl - 2006-01-21 13:29:36 阅读(1427) 回复(1)

perl中的hash和我印象中传统的hash表不一样,数据结构中hash表是通过一个函数把关键字映射到一个连续地址空间上,也就是实际上用数组实现的 perl可以允许任意形式的变量直接作为索引,然而如果事先不能知道关键字的特点,也就不能合适的选出hash函数,那有怎么能够保证O(1)的查找效率呢,其实我就是想问perlhash怎么实现的 刚开始学perl 可能说的不大清楚 大家见谅

by Dshadow - Perl - 2007-08-20 09:22:15 阅读(2090) 回复(1)
by soldier - Perl - 2003-02-14 17:33:22 阅读(2160) 回复(0)

my $dbh = DBI->connect("DBI:mysql:database=$db;host=$host",$user,$passwd) or die "connecting : $DBI::errstr\n"; my $sql = qq{select count(*) from MBP}; my $sth = $dbh->prepare($sql) or die "Can't prepare $sql: $dbh->errstr\n"; #my $nums = $sth->{NUM_OF_FIELDS}; my $rv = $sth->{NUM_OF_PARAMS}; print "$rv\n"; $dbh->disconnect(); 结果为0。在MYSQL中不为0 不知错在哪里了

by bitterness - Perl - 2008-12-24 12:42:49 阅读(3741) 回复(3)

本人在CGI上编写过程中,要调用外部的一个程序: system("XXXX"); 怎么获得该程序的返回值???包括出错信息

by chenxiam - Perl - 2007-12-04 21:06:26 阅读(25096) 回复(3)