•Re: peek - output a one-line preview of stdin

by merlyn (Sage)

on Apr 27, 2003 at 20:40 UTC ( #253528=note: print w/replies, xml )

Need Help??

my $pad = ' ' x $wide;
...
$_ = substr($_ . $pad, 0, $wide);
print $_, "\r";
[download]

That can be written far more simply and efficiently as:

printf "%-${wide}.${wide}s\r", $_;
[download]

Comment on •Re: peek - output a one-line preview of stdin Select or Download Code

Replies are listed 'Best First'.
Re: peek - use printf by halley (Prior) on Apr 28, 2003 at 02:58 UTC
Great tip-- I often forget to use printf, as if moving from C to Perl meant having to leave all of C's methods behind. I have never liked the %#.#s notation of printf... and now I imagine perl6's interpolated hashes may make for some righteous DWIM hacks. -- `[ e d @ h a l l e y . c c ]`	[reply]

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://253528]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others making s'mores by the fire in the courtyard of the Monastery: (5)

As of 2023-03-31 08:36 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?