Letter by letter

DaveMonk has asked for the wisdom of the Perl Monks concerning the following question:

Hi there, I was wondering if there is a more efficient way of printing a string out letter by letter. At the moment I am doing it like:

for ($i=0; $i=1; $i++) {
     print "s";
     sleep 1;
     [... etc ...]
}
[download]

But it looks and feels stupid. Is there a better way?

Comment on Letter by letter Download Code

Replies are listed 'Best First'.
Re: Letter by letter by Riales (Hermit) on Apr 20, 2012 at 18:22 UTC
Why the sleep after each print? Are you perhaps suffering from buffering? If not, my initial thought when I think about printing a string letter by letter would be: `$\| = 1; print $_ foreach (split '', $string);` [download] Edit: I took a second look at the code you provided. I'm really not sure I understand what you're trying to do now. The second bit of the for loop is supposed to be a test that tells the loop when to stop, but since you're just assigning to `$i`, I'm pretty sure that loop will run forever.	[reply] [d/l] [select]
Re^2: Letter by letter by DaveMonk (Acolyte) on Apr 20, 2012 at 18:33 UTC
Hmm... it prints out the string directly. I want it to instead of print "string", to make it so it has 1 second intervals between each character it's printing... But im going to read the article you linked me.	[reply]
Re^3: Letter by letter by Riales (Hermit) on Apr 20, 2012 at 18:41 UTC
Ah, in that case, I think you were mostly on the right track except with the buffering thing and the end case for the for loop. `$\| = 1; foreach my $letter (split '', $string) { print $letter; sleep 1; }` [download]	[reply] [d/l]
Re^4: Letter by letter by tobyink (Canon) on Apr 20, 2012 at 23:14 UTC
Re: Letter by letter by JavaFan (Canon) on Apr 20, 2012 at 19:01 UTC
That indeeds looks stupid. The loop will never terminate, as the middle expression, `$i=1` will always be true. It's probably not your intention, but then, you aren't saying what you want to do.	[reply] [d/l]