[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]#
#!/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]#