Perl中以my开头的语句，my是什么作用？

像C语言中有作用域的概念，比如一个百在函数中定义的变量，在函数外是无效的。perl也有作用域的概念，perl定义的变量默问认是全局的，当在定义变量时使用。

Perl借取了C、sed、awk、shell脚本语言以及很多其他程序语言的特性，其中最重要的特性是它内部集成了正则表达式的功能，以及巨大的第三方代码库CPAN。简而言之，Perl像C一样强大，像awk、sed等脚本描述语言一样方便，被Perl语言爱好者称之为“一种拥有各种语言功能的梦幻脚本语言”、“Unix中的王牌工具”。

扩展资料：

Perl最初的设计者为拉里·沃尔(Larry Wall)，他于1987年12月18日发表。Perl借取了C、sed、awk、shell 脚本语言以及很多其他程序语言的特性。其中最重要的特性是它内部集成了正则表达式的功能，以及巨大的第三方代码库CPAN。

Perl它是术语，而不仅仅是简写，Perl的创造者，Larry Wall提出第一个，但很快又扩展到第二个。那就是为什么‘’Perl‘’没有所有字母都大写。没必要争论哪一个正确，Larry两个都认可。

像C语言中有作用域的概念,比如一个在函数中定义的变量,在函数外是无效的.

perl也有作用域的概念,perl定义的变量默认是全局的,当在定义变量时使用

my $abc,那么$abc的作用域就限定在当前函数体或当前for循环中.

乃局部变量.

不知道我的回答是否贴切,总之是作用域的定义.

这个问题，其实是有区别的，但实际使用时，可能没有区别。为什么这么说呢？

my $obj 这样使用，是要返回一个scalar变量。my ($obj)这样呢，是要返回一个 array。

我们都知道，perl里的变量类型转换很方便，方便到你都感觉不到。

为了便于理解，写一个例子：

use strict

my $a = getdata()

print "$a\n"

my ($b) = getdata()

print "$b\n"

sub getdata

{

    return 123

}

这个程序，a和b的输出结果都是123。其中a是要一个变量，返回值刚好是一个变量，没有类型转换，就是123。b是要一个数组，返回值是一个变量，就会进行类型转换，转成了(123)这样只有一个元素的数组，再赋值给($b)数组，$b得到该数组中的第一个值，所以还是123。

再举一个例子：

use strict

my $a = getdata()

print "$a\n"

my ($b) = getdata()

print "$b\n"

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\n"

my ($b) = getdata()

print "$b\n"

sub getdata

{

    return wantarray?(123):456

}

这个函数的返回值就好理解了。函数问你想要什么样的值，如果想要array就给你返回(123)这个数组，否则就返回456这个值。所以这段代码的输入分别是456和123。

---