Re: How do I combine SPLIT with trimming white space


Don't ask to ask, just ask
	PerlMonks

Re: How do I combine SPLIT with trimming white space

by Grey Fox (Chaplain)

on Aug 11, 2009 at 17:57 UTC ( [id://787726]=note: print w/replies, xml )

Need Help??

in reply to How do I combine SPLIT with trimming white space

Thanks;
Fletch I incorporated a couple of your ideas. I also didn't realize you can do the do blocks in perl, very helpful.
Also Moritz thanks I didn't realize, you can use a complex regex in the splits, nice to know.
The code was changed adding:

  
foreach my $entry ( split( /;/, $file_data ) ) {
    do { s/^\s+//; s/\s+$//; }
      for $entry;
    push @email_list, $entry;
}
print join( "\n", sort(@email_list)), "\n";
[download]

Thanks again.

-- Grey Fox
"We are grey. We stand between the darkness and the light" B5

Comment on Re: How do I combine SPLIT with trimming white space Download Code

Replies are listed 'Best First'.

Re^2: How do I combine SPLIT with trimming white space
by codeacrobat (Chaplain) on Aug 11, 2009 at 20:36 UTC

foreach my $entry ( split( /;/, $file_data ) ) {
    s/^\s+//, s/\s+$// for $entry;
    push @email_list, $entry;
}
print join( "\n", sort(@email_list)), "\n";
[download]

Perl::Critic

Perl::Critic::Policy::ControlStructures::ProhibitPostfixControls

List::MoreUtils

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";
[download]