碰到以下问题 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)
my %hash = ("aa" => 5, "bb" => 6); my $hashreturn = %hash; print $hashreturn; 打印出来是:2/8这个是什么意思?
我写了一个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有返回值,应该怎么写,是不是必须写在方法里?请指教.
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,请教能否给个例子? 新学生,问的问题好像不是问题^_^ 谢谢
下载了 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...
perl中的hash和我印象中传统的hash表不一样,数据结构中hash表是通过一个函数把关键字映射到一个连续地址空间上,也就是实际上用数组实现的 perl可以允许任意形式的变量直接作为索引,然而如果事先不能知道关键字的特点,也就不能合适的选出hash函数,那有怎么能够保证O(1)的查找效率呢,其实我就是想问perl中hash怎么实现的 刚开始学perl 可能说的不大清楚 大家见谅
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 不知错在哪里了