Re: Print a string X times?

This is my personal favorite:

local $, = ' ';
print +('-') x $length,"\n";
[download]

Comment on Re: Print a string X times? Download Code

Replies are listed 'Best First'.
Re^2: Print a string X times? by targetsmart (Curate) on Aug 04, 2010 at 07:45 UTC
in the statement `print +('-') x $length , "\n";` the `+('-')` does some magic which I don't understand, could you please explain that statement.. Vivek -- 'I' am not the body, 'I' am the 'soul/consciousness', which has no beginning or no end, no attachment or no aversion, nothing to attain or lose.	[reply] [d/l] [select]
Re^3: Print a string X times? by pid (Monk) on Aug 04, 2010 at 08:27 UTC
From perlop: Symbolic Unary Operators: "Unary "+" has no effect whatsoever, even on strings. It is useful syntactically for separating a function name from a parenthesized expression that would otherwise be interpreted as the complete list of function arguments."	[reply]
Re^3: Print a string X times? by GrandFather (Saint) on Aug 04, 2010 at 09:35 UTC
Try removing the + and ensure you use strictures (well, warnings anyway) and see what happens. True laziness is hard work	[reply]
Re^2: Print a string X times? by Skeeve (Parson) on Aug 04, 2010 at 07:52 UTC
That's really usefull! ++ for that! `s$$([},&%#}/&/]+}%&{});#$&&s&&$^X.($'^"%]=\&(\|?{%` `+`.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e	[reply] [d/l] [select]