Re: serial comma function

A superstraightforward version:

sub serial {
    my $last = pop;
    my $seclast = pop;
    $seclast .= ',' if @_;
    join('', map "$_, ", @_) . join(' and ', $seclast || (), $last);
}
[download]

Update: added $seclast .= ',' if @_;

Makeshifts last the longest.

Comment on Re: serial comma function Download Code

Replies are listed 'Best First'.
Re: Re: serial comma function by Your Mother (Archbishop) on Apr 16, 2003 at 01:45 UTC
nice. i'll put an adendum in about the prototype not being needed; or just kill it and put a note in about that instead.	[reply]
Re^3: serial comma function by Aristotle (Chancellor) on Apr 16, 2003 at 11:47 UTC
Yes, nice, except it doesn't work as specified. grumble It doesn't add an extra comma for lists of more than two elements. I don't know where I had my eyes (or my brain, for that matter) when I was testing it. Makeshifts last the longest.	[reply]