Mega Code Archive

 

Categories / Perl / String

 

X times pattern

#!/usr/bin/perl -w $s1 = "Value"; $s1 = $s1 x 10; print "$s1\n";