当前位置：首页 → 问答吧 → perl如何对变量赋值？别笑。。。估计很多人都不会！

perl如何对变量赋值？别笑。。。估计很多人都不会！

时间：2011-04-21

来源：互联网

我想一次性对N个参数赋值为同一个值，该如何做到？
比如my($a,$b,$c)=@_;
现在要对$a,$b,$c赋值为同一个值,例如"test"，如何做到？
虽然这个可能很简单，但是没用过，却发现好像很难。。。

作者: suautotest 发布时间: 2011-04-21

QUOTE:

我想一次性对N个参数赋值为同一个值，该如何做到？
比如my($a,$b,$c)=@_;
现在要对$a,$b,$c赋值为同一个值 ...
suautotest 发表于 2011-04-21 10:55

$a = $b = $c = "test";

作者: jason680 发布时间: 2011-04-21

my $a = my $b = my $c = 'test';

作者: iakuf 发布时间: 2011-04-21

my ($a,$b,$c) = ('text') x 3

作者: zhlong8 发布时间: 2011-04-21

QUOTE:

my ($a,$b,$c) = ('text') x 3
zhlong8 发表于 2011-04-21 11:18

这个最好！厉害！！！谢谢各位了

作者: suautotest 发布时间: 2011-04-21

我认为，这样的需求基本上已经意味着程序设计出问题了。

作者: flw 发布时间: 2011-04-21

不过这个 x 还真……

QUOTE:

Binary "x" is the repetition operator. In scalar context or if the left operand is not enclosed in parentheses, it returns a string consisting of the left operand repeated the number of times specified by the right operand. In list context, if the left operand is enclosed in parentheses or is a list formed by qw/STRING/, it repeats the list. If the right operand is zero or negative, it returns an empty string or an empty list, depending on the context.

必须要在 list context 下而且 x 左边有括号或是 qw，然后给括号里面提供 list context

作者: zhlong8 发布时间: 2011-04-21

QUOTE:

我认为，这样的需求基本上已经意味着程序设计出问题了。
flw 发表于 2011-04-21 11:55

哈，别。。。没那么严重
我其实就是想插入一条SQL数据，这条SQL语句里面呢很多字段都为空值。。。所以。。
当然，我也可以在只定义一个变量并赋值为"xxx"，在引用的地方都使用同一个变量~~
只是为了SQL语句能够看的更清楚一点

作者: suautotest 发布时间: 2011-04-21

你看，果不其然出现问题了吧。

你应该对这个 sql 语句的调用稍微做一下包装。
其实 CPAN 上已经有很多现成的包装了。自己写一个简单的也不复杂。

作者: flw 发布时间: 2011-04-21