in reply to Re: Elegant way to split into sequences of identical chars?
in thread Elegant way to split into sequences of identical chars?
I was fascinated by the use of the $| "output autoflush". I usually use '$| = 1;' or '++$|;' for the scripts I write on Windows. So I tried the same.
my $str = 'xx556xx'; my @x = grep --$|, $str =~ m/((.)\2*)/g; my @y = grep ++$|, $str =~ m/((.)\2*)/g; print join ',', @x; print "\n"; print join ',', @y;
The output being:
xx,55,6,xx
xx,x,55,5,6,6,xx,x
I was somewhat suprised as all the documentation I've seen for '$|' says a non-zero value will force fflush after every 'write' or 'print' statement. I assumed the behavior would be the same for positive and negative values. What gives?
Mike
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^3: Elegant way to split into sequences of identical chars?
by QM (Parson) on Nov 30, 2005 at 02:46 UTC |
In Section
Seekers of Perl Wisdom