Another Perl Practice(ActivePerl On Window Platform)

最新推荐文章于 2016-12-14 17:27:55 发布

jxluoix

最新推荐文章于 2016-12-14 17:27:55 发布

阅读量92

点赞数

分类专栏：编程语言－Perl

编程语言－Perl 专栏收录该内容

5 篇文章

订阅专栏

本文提供了一个使用Perl语言编写的简单程序示例，该程序能够接收用户输入的字符串及该字符串需要显示的次数，并按指定次数重复显示该字符串。此外，程序还设置了一个循环，允许用户连续进行多次输入操作直至输入结束命令。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

$count = 5;
$ss = "12345";

print "$ss\n" x $count;
print "--------------------------\n";

print "Pls input a string: ";
$ss = <STDIN>;

print "Pls the count of string to display: ";
$count = <STDIN>;
print "$ss\n" x $count;
print "--------------------------\n";

while (1) {
    print "Pls input a string: ";
    $ss = <STDIN>;
    if ($ss == "\n") {
        print "exit";
        last;
    }

    print "Pls the count of string to display: ";
    while ($count = <STDIN>) {
        if ($count != "\n") {
            last;
        }
        print "Pls the count of string to display: ";
    }

    print "$ss\n" x $count;
    print "--------------------------\n";
}