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

CUer

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

1. perl -le "print '==='"

复制代码

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

Demon

1. 
   
2. perl -e "print '='x100"
   

复制代码

这么基础的东西。

523066680

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

Batcher

1. foreach (1..100) {
   
2.     print "=";
   
3. }

复制代码

1. for ($i=1; $i <= 100; $i++) {
   
2.     print "="
   
3. }

复制代码