in reply to Re: How do I combine SPLIT with trimming white space
in thread How do I combine SPLIT with trimming white space
Hi,
If you want to chain multiple s/// statements, then you can use a comma and get rid of the ugly do and the curlys.
If you are a Perl::Critic follower then you are not allowed to use the for statement modifier Perl::Critic::Policy::ControlStructures::ProhibitPostfixControls. However consider this using List::MoreUtils apply function.foreach my $entry ( split( /;/, $file_data ) ) { s/^\s+//, s/\s+$// for $entry; push @email_list, $entry; } print join( "\n", sort(@email_list)), "\n";
use List::MoreUtils qw(apply); foreach my $entry ( split( /;/, $file_data ) ) { push @email_list, apply { s/^\s+//; s/\s+$// } $entry; } print join( "\n", sort(@email_list)), "\n";
print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});
|
---|
In Section
Seekers of Perl Wisdom