重复字符串

2016-10-11 19:54:34来源:CSDN作者:g13731463274人点击

[root@mysql1 perl]# cat 13.pl 
#!/usr/bin/env perl


print "enter a string: ";
$str=<STDIN>;
print "enter a number a times: ";
chomp($num=<STDIN>);
$result=$str x $num;
print "the result is:/n$result";
print "the result is:$result/n";
print "the result is:$result/t";
[root@mysql1 perl]# 
[root@mysql1 perl]# 
[root@mysql1 perl]# ./13.pl   
enter a string: a
enter a number a times: 3
the result is:
a
a
a
the result is:a
a
a


the result is:a
a
a
        [root@mysql1 perl]# 

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台