ryo-utsunomiya · November 16, 2013 03:42
diff --git a/learnig_perl_v6_ch02_05 b/learnig_perl_v6_ch02_05
 #!/usr/bin/env perl
 use v5.12;
 use warnings;

 print 'Enter a string: ';
 my $str = <STDIN>;
 print 'Enter a number of times: ';
 chomp(my $num = <STDIN>);
 print $str x $num;
	#!/usr/bin/env perl
	use v5.12;
	use warnings;

	print 'Enter a string: ';
	my $str = <STDIN>;
	print 'Enter a number of times: ';
	chomp(my $num = <STDIN>);
	print $str x $num;