Re: How do I combine SPLIT with trimming white space

Foreach doesn't require an actual array to work from; it's perfectly content to work on the list returned from split:

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

Of course you can use map and get everything in one statement.

print join( "\n", sort map { (my $t=$_)=~s/^\s+//;$t=~s/\s+$//;$t } sp
+lit( /;/, $file_data ) ), "\n";
[download]

Update: Of course if you need the list later you can certainly store the return from the sort into a variable and print that instead.

my @email_list = sort map ... split( /;/, $file_data );
print join( "\n", @email_list ), "\n";
[download]

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

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

Replies are listed 'Best First'.
Re^2: How do I combine SPLIT with trimming white space by Your Mother (Archbishop) on Aug 11, 2009 at 20:37 UTC
`do { s/^\s+//; s/\s+$//; } for $entry;` That's a weird way to write `$entry =~ s/\A\s+\|\s+\z//g;` :)	[reply] [d/l] [select]
Re^3: How do I combine SPLIT with trimming white space by Fletch (Bishop) on Aug 11, 2009 at 21:22 UTC
Wouldn't argue it too hard, but that one has a bit more leaning-toothpick-itis and the two separate s///'s are a bit more explicit in what's being done. But yes, mea culpa on the slightly evil use of postfix for to get `$_` set though. :) The cake is a lie. The cake is a lie. The cake is a lie.	[reply] [d/l]