Re: commify_series script in cookbook page 94

[Dr.Ruud]

Richard Lee schreef:

> While reading perl cookbook, I came to page 94 and having a hard time
> understanding this particular phrase
>
> my $sepchar = grep( /,/ => @_ ) ? ";" : ",";

Shortcutting alternative:

    my $sepchar = ",";
    for (@_) { /,/ and $sepchar = ";" and last }

but (unless @_ is quite big) the grep alternative is likely to be
faster.

-- 
Affijn, Ruud

"Gewoon is een tijger."