如何在 Perl 中重复一个字符串 N 次？

Question

在 Python 中，如果我这样做：

print "4" * 4

我得到

> "4444"

In Perl，我会得到

> 16

Is there a simple way to do the previous in Perl?

Answer 1

$ perl -e 'print "4" x 4; print "\n"'
4444

x 运算符记录在 perldoc perlop 中。 顺便说一句，这里的二进制意味着一个带有两个参数的运算符，而不是由位组成。

二进制“x”是重复运算符。 在标量环境中或者如果
左操作数不包含在括号中，它返回一个字符串，其中包含
左操作数重复右操作数指定的次数
操作数。 在列表上下文中，如果左操作数括在括号中
或者是由“qw/STRING/”组成的列表，它重复该列表。 如果对的话
操作数为零或负数，则返回空字符串或空
列表，具体取决于上下文。

       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 5

perl -e 旨在从命令行执行 Perl 代码：

$ perl --help
Usage: perl [switches] [--] [programfile] [arguments]
  
  -e program     one line of program (several -e's allowed, omit programfile)

Answer 2

在 Perl 中，您需要使用“x”运算符。

之间的区别

"4" x 4

注意和

("4") x 4

前者产生重复的字符串：

"4444"

后者产生重复的列表：

("4", "4", "4", "4")

Answer 3

Perl 中的情况非常相似

print "4" x 4;

Answer 4

FWIW，它也是 Perl 中的print 4 x 4。

一般来说，在 Perl 中，运算符是单态的，即。 对于字符串语义、数字语义、按位语义等，您有不同的运算符集，只要有意义，操作数的类型在很大程度上并不重要。 当您将数字运算符应用于字符串时，字符串首先会转换为数字，然后您将获得所需的运算（例如乘法），而当您将字符串运算符应用于数字时，它会转换为字符串，然后您将得到所需的运算。获取您要求的操作（例如重复）。 Perl 首先关注操作符，然后才是操作数的类型——如果它确实在意的话。

这与 Python 和大多数其他语言相反，在 Python 和大多数其他语言中，您使用一组运算符，并且操作数的类型决定您实际获得的语义 - 即。 运算符是多态的。

Answer 5

如果你想打印 10 个字符“A”，你也可以

perl -e 'print "A" x 10'; echo

用输出来执行此示例

user@linux:~$ perl -e 'print "A" x 10'; echo
AAAAAAAAAA
user@linux:~$ 

Answer 6

到目前为止给出的所有答案都没有提到运算符x不仅适用于字符串文字，而且还适用于是字符串或表达式评估为像

use feature 'say';

my $msg = "hello ";
say $msg x 2;
say chr(33) x 3;

这样的

hello hello
!!!

字符串，更重要，x将表达式自动转换为字符串（如果还没有）（感谢 ggorlen 为我指明了这个方向！）。 因此，例如

say 4 x 2;
say [$msg] x 2;

将导致类似以下内容的输出

44
ARRAY(0x30ca10)ARRAY(0x30ca10)