my @records = map { $_ . ' *' } split /*/, join '', @messy_array;
chop $records[-1];
Presto!
Update: ***Poof*** It's a dud. ;) See my update down below...
| [reply]
[d/l] |
| [reply] |
my @records = map { $_ . ' *' } split /\*/, join '', @messy_array;
...pay no attention to the man behind the curtain.
lol. Anyway, this should be a little better.
| [reply]
[d/l] |
You could redefine how you read the data in. Or, you could
sub rework_data
{
my $x = join '', @_
my $fh = IO::Scalar->new( \$x );
my @rebuilt_data;
{
local $\ = '*';
@rebuilt_data = <$fh>;
}
return @rebuilt_data;
}
I love treating arrays as filehandles. :-)
(Oh, it's $\ ... I just remembered cause I keep writing print $foo, $/;, so it can't be that one. *grins*)
Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.
| [reply]
[d/l]
[select] |