http://www.perlmonks.org?node_id=393153


in reply to Re: nested combinations: algorithm advice?
in thread nested combinations: algorithm advice?

#!/usr/bin/perl -lapF_ for$p(@p){$;.="$_ and $p "if 1<grep"@F"=~$_,split/_/,$p}push@p,$_}{$_=$

Replies are listed 'Best First'.
Re^3: nested combinations: algorithm advice?
by Pragma (Scribe) on Sep 24, 2004 at 07:57 UTC
    What?! No glob? Bah! Ameteur... :-)

    ps. I believe you are missing a semicolon.