sprintf pad string右边有破折号

时间:2017-05-06 21:25:43

标签: perl printf

我需要用破折号填充右边的字符串(' - ')。例如将'M'转换为'M-----'

sprintf "%-6s", "M";给了我'M '。我尝试了printf "%-6-s", "M";printf "%--6s", "M";,但这两项工作都没有......

可以使用sprinf完成此操作,如果是,可以如何完成?

1 个答案:

答案 0 :(得分:3)

单靠RichTextBoxDesigner无法完成。 (sprintf只会使用空格或零填充。)

sprintf

sprintf("%-6s", $s) =~ tr/ /-/r

substr($s.("-" x 6), 0, 6)