Karl-Heinz Kuth wrote: > I've got the following problem: > > use strict; > use warnings; > > my $char = "-"; > my $number_of_lines = 3; > my $number_of_chars = 20; > > print "This is the output I want: \n"; > my $line = $char x $number_of_chars . "\n"; > print $line x $number_of_lines, "\n"; > > # I do not want to use the var $line. So how to write > # it in one statement? > # My try isn't correct. > print "The output with 1 statement: \n"; > print $char x $number_of_chars . "\n" x $number_of_lines, "\n"; Why not use brackets?: print (($char x $number_of_chars . "\n" ) x $number_of_lines, "\n"); --Suresh
_______________________________________________ Perl-Win32-Users mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
