[问题求助] [已解决]Perl怎样输出100个连续等号？

CUer

我知道这样可以输出3个等号：

perl -le "print '==='"
复制代码

如果要输出100个等号，有哪些简单的方法呢？

Demon

perl -e "print '='x100"
复制代码

这么基础的东西。

523066680

而且注册名是CUer
CHINA UNIX er 的缩写吗? 难道是来测试的……

Batcher

foreach (1..100) {
    print "=";
}
复制代码

for ($i=1; $i <= 100; $i++) {
    print "="
}
复制代码