在Python中,如果我这样做：
@H_404_2@print "4" * 4
我明白了
@H_404_2@> "4444"在Perl中,我会得到
@H_404_2@> 16在Perl中有一个简单的方法来做前者吗？
解决方法
@H_404_2@$perl -e 'print "4"x4; print "\n"'
4444
在perldoc perlop中记录了x运算符.这里二进制意味着一个运算符采用两个参数,而不是由位组成.
@H_404_2@print ’-’ x 80; # print row of dashes print "\t" x ($tab/8),’ ’ x ($tab%8); # tab over @ones = (1) x 80; # a list of 80 1’s @ones = (5) x @ones; # set all elements to 5Binary “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.
perl -e用于从命令行执行perl代码：
@H_404_2@ $perl --help Usage: perl [switches] [--] [programfile] [arguments] -e program one line of program (several -e's allowed,omit programfile)