perl 编程中 my $obj = ... 和 my ($obj) = ... 有什么区别？
对$obj进行正则表达式匹配，正则表达式是(/myperl/example/.*)$，字符串 以/myperl/example/.*结尾， 把匹配的个数赋值给$tag , m - - 代表模式匹配一般都写成m/ /，可以用很多字符代替/。
类方法的第一个参数是类（包）的名字，也就是把这个类/包的名字作为第一个参数
package House; # Class2 sub new { # Class method called a constructor3 my $class = shift;4 my $ref={"Owner"=>undef, # Attributes of the object"Price" =>undef, # Values will be assigned later};5 bless($ref, $class);3. 此类子例程接受的第一个参数是包名或类名，在本例中就是House。这是方法和子例程之间的又一个不同之处。方法的第一个参数必需是一个类名或对象名。
这个问题，其实是有区别的，但实际使用时，可能没有区别。为什么这么说呢？
my $obj 这样使用，是要返回一个scalar变量。my ($obj)这样呢，是要返回一个 array。
我们都知道，perl里的变量类型转换很方便，方便到你都感觉不到。
为了便于理解，写一个例子：
use strict;
my $a = getdata();
print "$a
";
my ($b) = getdata();
print "$b
";
sub getdata
{
return 123;
}
这个程序，a和b的输出结果都是123。其中a是要一个变量，返回值刚好是一个变量，没有类型转换，就是123。b是要一个数组，返回值是一个变量，就会进行类型转换，转成了(123)这样只有一个元素的数组，再赋值给($b)数组，$b得到该数组中的第一个值，所以还是123。
再举一个例子：
use strict;
my $a = getdata();
print "$a
";
my ($b) = getdata();
print "$b
";
sub getdata
{
return (123,456);
}
这样会输出什么呢？a是要一个变量，返回的是一个数组，所以它接收到最后一个数据，也就是$a=456。b是要一个数组，返回的是一个数组，所以直接得到了该数组，然后$b得到了该数组的第一个元素，也就是123。
好多模块要编写时，就考虑到了这种情况，在它们的模块里，有判断需要什么返回的语句：wantarray。
wantarray
Returns true if the context of the currently executing subroutine or eval is looking for a list value. Returns false if the context is looking for a scalar. Returns the undefined value if the context is looking for no value (void context).
举个例子：
my $a = getdata();
print "$a
";
my ($b) = getdata();
print "$b
";
sub getdata
{
return wantarray?(123):456;
}
这个函数的返回值就好理解了。函数问你想要什么样的值，如果想要array就给你返回(123)这个数组，否则就返回456这个值。所以这段代码的输入分别是456和123。
左右的手机，
巢振信徕：这个问题,其实是有区别的,但实际使用时,可能没有区别.为什么这么说呢? my $obj 这样使用,是要返回一个scalar变量.my ($obj)这样呢,是要返回一个 array. 我们都知道,perl里的变量类型转换很方便,方便到你都感觉不到...
曲江县15959265001： perl中的 " - > " 这个符号,主要用作什么 - ？
巢振信徕： -> 有两种用法,都和解引用有关.第一种用法,就是解引用.根据 -> 后面跟的符号的不同,解不同类型的引用,->[] 表示解数组引用,->{} 表示解散列引用,->() 表示解子程序引用.例子:$arr_ref = \@array;$arr_ref->[0] 访问数组 @array 的...
曲江县15959265001： 我想把一个java程序改成perl程序,但是其中涉及到好多类、对象和函数,应该怎么办?求高人指点 - ？
巢振信徕： package Chromosome; # Chromosome.pmsub new { bless{} }sub getUnfilteredMarker { my $obj = shift; $obj -> {pos} = shift; # do your thing # .... return $obj}sub getMAF { my $obj = shift; my $res = undef; # do your thing # .... return $res }1;__END__...
曲江县15959265001： Perl中以my开头的语句,my是什么作用?？
巢振信徕：像C语言中有作用域的概念,比如一个在函数中定义的变量,在函数外是无效的. perl也有作用域的概念,perl定义的变量默认是全局的,当在定义变量时使用 my $abc,那么$abc的作用域就限定在当前函数体或当前for循环中. 乃局部变量. 不知道我的回答是否贴切,总之是作用域的定义.
曲江县15959265001： perl 关于路径的问题 ,像.// 和 ../ 怎么解释 - ？
巢振信徕： 在linux类系统里,/代表路径分隔,../与..其实都一样的,代表上级目录..与./代表当前目录. 至于多个连续的/,系统其实当作一个/来处理. 如cd /与cd //////(这里/无论多少个,当然也受系统文件长度的限制)的作用都是一样的,都代表进入根目录.
曲江县15959265001： perl中my($a,$b) = $c 是什么意思? - ？
巢振信徕： 只是将$c的值赋给$a啊,$b还是未定义 可以这样($a, $b) = (1,2);($a, $b) = ($c,$d); 是对多个元素按照数组方式赋值的一种方式
曲江县15959265001： perl 执行效率,如何提高 - ？
巢振信徕： ◆巧用require装载模块◆使用系统函数及XS化模块◆自写低开销模块◆优化正则表达式◆善用BSDsocket巧用require装载模块为避免程序一启动就加载大量模块,降低启动速度,可以在必要的时候再装载模块,这时候就是require大派用场的时...
曲江县15959265001： perl模块要写全路径? - ？
巢振信徕： 为甚麽 java 要写成SomeClass x = new SomeClass(); 得把 Class 写两遍, 而不能像 perl, $x = new SomeClass() ? 为甚麽韩文的句式是主词-副词-动词, 而不像英文的句式: 主词-动词-副词 语法这问题, 没甚麽好比较的... 不过从结构而...
曲江县15959265001： perl 怎么匹配标量中的数字 - ？
巢振信徕： #usr/bin/perl -w use strict; my $a=＂abc123＂; my ($b)=$a=~ /.*(\d+)/; print $b;
曲江县15959265001： perl中的my ($xy,$x,$y,$N,$len)=@ - 是什么意思 - ？
巢振信徕： 上文下理应该是 :sub test { my ($xy,$x,$y,$N,$len)=@_; print $xy; print $x; print $y; print $N; print $len; } test ( 1,2,3,4,5 ); # 印出 ＂12345＂ @_ 是一个 sub 用来接收参数的特定数组 my 就是将变数本地化, 即是$xy,$x,$y,$N,$len 在离开 sub test 的范围就不会有效 my ($xy,$x,$y,$N,$len)=@_; 就是将收到的参数分别赋值到($xy,$x,$y,$N,$len) 这堆变数之中
