Re: How to trim a line from leading and trailing blanks without using regex or non-standard modules

in reply to How to trim a line from leading and trailing blanks without using regex or non-standard modules

>$line =~ s/^\s+|\s+$//g which clearly is an abuse of regex.

Why do you say that?

>trim function which BTW was present in Perl 6

You say this like it's a good thing. I bet there is also one in PHP.

Comment on Re: How to trim a line from leading and trailing blanks without using regex or non-standard modules Download Code

Replies are listed 'Best First'.
Re^2: How to trim a line from leading and trailing blanks without using regex or non-standard modules by karlgoethebier (Abbot) on Aug 14, 2020 at 12:34 UTC
You won ŤThe Crux of the Biscuit is the Apostropheť `perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'`Help	[reply] [d/l]
Re^3: How to trim a line from leading and trailing blanks without using regex or non-standard modules by LanX (Saint) on Aug 14, 2020 at 14:43 UTC
easily re-implemented in Perl. It seems ... `DB<33> sub trim { $_[1] //= qr/\s/; $_[0] =~ s/^[$_[1]]+\|[$_[1]]+$// +g } DB<34> $a = $b = " \n . aaa . \n " DB<35> trim $a DB<36> trim $b, " " DB<37> x $a,$b 0 '. aaa .' 1 ' . aaa . ' DB<38>` [download] Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l]
Re^4: How to trim a line from leading and trailing blanks without using regex or non-standard modules by marto (Cardinal) on Aug 14, 2020 at 15:13 UTC
If working with Mojo: Mojo::Util->trim.	[reply]
Re^5: How to trim a line from leading and trailing blanks without using regex or non-standard modules by LanX (Saint) on Aug 14, 2020 at 16:06 UTC
Re^4: How to trim a line from leading and trailing blanks without using regex or non-standard modules by karlgoethebier (Abbot) on Aug 14, 2020 at 17:12 UTC
I was pretty sure that you would answer and provide a solution 😎 Best regards, Karl ŤThe Crux of the Biscuit is the Apostropheť `perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'`Help	[reply] [d/l]

In Section Seekers of Perl Wisdom