in reply to Re: Re: "foreach" is to "next" as "map" is to ???
in thread "foreach" is to "next" as "map" is to ???

I abhor foreach/push loops. Gag me with a spoon!

my @paragraph =
    map {
        local $_ = lc;
        tr/-~//cd;

        /foobar/
            ? ()
            : do {
                s/administrator/admin/g;
                length() > 60
                    ? ()
                    : $_ } }
    grep /^#/,
    @lines;

[download]

That code was ugly and I wouldn't have actually written that.

my @paragraph =
    map {
        if ( /^#/ )
        {
            ()
        }
        else
        {
            local $_ = lc;
            tr/-~//cd;
            if ( /foobar/ )
            {
                ();
            }
            else
            {
                s/administration/admin/g;

                length() > 60
                    ? ()
                    : $_;
            }
        }
        /^#/
        ? do {
        }
        : ();
    } @lines;

[download]

In Section Seekers of Perl Wisdom