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

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

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

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