Not an ARRAY reference 数组名带变量
[code]#!/usr/bin/perl my $base="/etc"; my @server_dirs=qw($base/cgibin $base/config $base/images $base/misc $base/wanboot); foreach $server_dir (@server_dirs){ if (! -d $server_dir ) { print "$server_dir" . "\n"; } }[/code] 现在的输出结果是： [code]$base/cgibin $base/config $base/images $base/misc $base/wanboot[/code] 我想要的结果是： [code]/etc/cgibin /etc/config /etc/im...
by nimysun - Perl - 2008-12-15 18:01:06 阅读（2442） 回复（10）
有没有这样一个简单函数得到一个变量的引用数量 $a = 1; # $refcount = ref_count \$a; # ??? 我自己写了一个Inline::C的扩展，想检验一个对象的索引数量是不是正确的，在c中用SvREFCNT(p)，不知道在perl中用什么。
tie(@STATUS,'IPC::Shareable','FTPS',{ create=>1,exclusive=>0,destroy=>1,mode => 0644}) or die "Parent: Can't tie \@STATUS to shared memory: $!"; print "this array is empty: @STATUS \n"; 这样就会报错： Can't use an undefined value as an array reference at /usr/local/lib/perl5/site_perl/5.8.8/IPC/Shareable.pm line 446. 在使用这个数组之前必须要进行赋值才可以操作。这是为什么？
对除去第一列进行比较（第一列为名字） a 1,2,3,4,5,6,7,8,9,10,11 b,1,2,3,4,5,6,7,8,9,1,11 c,1,2,3,4,5,6,9,8,7,10,12 d,1,20,3,4,5,6,9,8,7,10,12 e,1,2,3,4,5,6,10,13,4,9,8 即对 1,2,3,4,5,6,7,8,9,10,11 1,2,3,4,5,6,7,8,9,1,11 1,2,3,4,5,6,9,8,7,10,12 1,20,3,4,5,6,9,8,7,10,12 1,2,3,4,5,6,10,13,4,9,8 进行比较 如果每行和其他的行有少于2个不同元素的视为一类，多于2个元素的，则为另外一类 即 分为三类 1,2,3,...
为什么我编译总是会出现这样的问题,也在google 八毒,搜了很多都是没有解决问题;
g++ -o main main.cpp
/tmp/cc0i2cum.o(.text+0x14c): In function `main':
: undefined reference to `GDK::CFile::CFile(std::basic_string
关于数组： PHP中的数组是复杂的，并且比许多其他高级语言中的数组更灵活。 数组array是一组有序的变量,其中每个变量被叫做一个元素。 数组可以被编号或者相关联，也就是数组的元素可以分别根据数字索引或文本化字符串来访问 PHP中，数组可以包含标量(整数，布尔，字符串，浮点数)或复合值(对象甚至其他数组)，并且可以包含不同类型的值 1。创建数组 PHP提供创建数组的array()语言结构 $numbers = array(5,4,3,2,1); $words = arr...
小弟遇到一个问题，想请大家指点。 我有一段程序，是读取一个文件，然后把每一排string分给一个数组，如果第2n排有一个满足的条件，就print 第2n－1的string。 但是运行的时候会说java.lang.NullPointerException。 希望哪位高手指点个办法。谢谢 BufferedReader bbr = new BufferedReader(new InputStreamReader(new FileInputStream("passwd"))); 读取一个文件 int j=0; ...
