Re^8: What esteemed monks think about changes necessary/desirable in Perl 7 outside of OO staff

Had a reeeeeaaaaly vague recollection and the Perl Cookbook (Ch 1 section 19) does actually offer $_ = join(' ', split(' ')); as an alternative to these three substitutions:

s/^\s+//;
s/\s+$//;
s/\s+/ /g;
[download]

to strip and canonicalize to single spaces; and does offer this trim sub:

sub trim {
    my @out = @_ ? @_ : $_;
    $_ = join(' ', split(' ')) for @out;
    return wantarray ? @out : "@out";
}
[download]

Edit: That being said, I don't recall having seen this construct in the wild otherwise and had the vaguest of hunches that PC mentioned anything like this so I'd hardly call it a "common idiom" either.

The cake is a lie.
The cake is a lie.
The cake is a lie.

Comment on Re^8: What esteemed monks think about changes necessary/desirable in Perl 7 outside of OO staff Select or Download Code

Replies are listed 'Best First'.
Re^9: What esteemed monks think about changes necessary/desirable in Perl 7 outside of OO staff by Tux (Canon) on Sep 15, 2020 at 16:39 UTC
How often do you need to compress internal whitespace? Anyway. it is faster: `$ perl -MBenchmark=cmpthese -wE'my$x=join" "=>"",("abc")x5,"";say"s +ourc: \|$x\|";sub trim{join" ",split" ",$x};sub rgx{$x=~s/^\s+//r=~s/\s ++$//r=~s/\s\s+/ /gr};say "split: \|",trim(),"\|";say"regex: \|",rgx(),"\| +";cmpthese(-2,{splt=>\&trim,rgx=>\&rgx})' sourc: \| abc abc abc abc abc \| split: \|abc abc abc abc abc\| regex: \|abc abc abc abc abc\| Rate rgx splt rgx 506423/s -- -71% splt 1767763/s 249% --` [download] Enjoy, Have FUN! H.Merijn	[reply] [d/l]
Re^10: What esteemed monks think about changes necessary/desirable in Perl 7 outside of OO staff by Your Mother (Archbishop) on Sep 16, 2020 at 07:14 UTC
I think I always want whitespace normalized. I can’t think of a case where it wouldn’t bother me, even if, as in HTML rendering defaults, it generally will not be apparent. Two spaces between words in a title or regular text is as much a typographical error as a misspelling.	[reply]
Re^10: What esteemed monks think about changes necessary/desirable in Perl 7 outside of OO staff by LanX (Sage) on Oct 02, 2020 at 12:09 UTC
$ `perl -MBenchmark=cmpthese -wE'my$x=join" "=>"",("abc")x5,"";say"sourc: ... yadda yadda ...` Sorry, but this overly wide code-line is breaking the formatting of most of the thread. (took a bit to find it too) Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l]
Re^11: What esteemed monks think about changes necessary/desirable in Perl 7 outside of OO staff by LanX (Sage) on Oct 02, 2020 at 12:49 UTC
strange, logging out showed proper wrapping of long lines. Not sure whats going wrong here, these are my Display Settings `Code Listing Settings Code Wrapping Off [ ] Code Wrap Length [80] Auto Code Wrapping [x] Code Prefix [<font color="red"><i></i></font>]` [download] have to check my own CSS settings and other browsers. never mind! :) Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l]


go ahead... be a heretic
	PerlMonks