This node falls below the community's threshold of quality. You may see it by logging in.

Replies are listed 'Best First'.
Re: Discovering Esoteric Meanings With Perl Part 2 -- The FOX Network (DELAYED APPROVAL)
by ww (Archbishop) on Apr 20, 2009 at 20:46 UTC
    FTR: /me approved to CUFP, despite great reservations about content, and a strong temptation (resisted) to downvote it.

    I did so on the belief that leaving this sit out there in limbo may be a disservice to some future reader interested in the uses of map here. Hence, it's now approved (subject to consideration or removal by the deities).

    Note, by contrast, AM's post re HAL has also been indicted (in that case, in the CB)...but following the same logic, I've also approved that... and, in that case, ++ed it as "instructive."

    Instruction may or may not have been OP's intent, but the intent has little bearing on its (marginal) value.

[reply]
[d/l]
Re: Discovering Esoteric Meanings With Perl Part 2 -- The FOX Network
by Anonymous Monk on Apr 17, 2009 at 14:09 UTC
    Juvenile
[reply]
      printf "they %s you\n", $_ for qw( ignore ridicule threaten );

      [download]
[reply]
[d/l]
Re: Discovering Esoteric Meanings With Perl Part 2 -- The FOX Network
by Sigmund (Pilgrim) on May 28, 2009 at 14:12 UTC
    ahahah :-)
[reply]
Re: Discovering Esoteric Meanings With Perl Part 2 -- The FOX Network
by wol (Hermit) on Jun 18, 2009 at 11:05 UTC
    I tweaked the code just slightly: 
    my $i = 1;
my %occult = map { $_ => int ($i++ / 9) + 1} ('A' .. 'Z');
my $news = 'FOX';
print join( '', map $occult{$_}, split '', $news ) . $/;

    [download]
    Now it prints out "123". Does that mean that Fox is not evil, but progressive?

    Or does it mean that these mathematical co-incidences are just meaningless, and people wishing to claim that Fox is evil should just back it up with information about what Fox broadcasts?

    --
    use JAPH;
    print JAPH::asString();

[reply]
[d/l]
      Who said 666 was evil? Does this mean you're just expressing your bitterness over things you have no control of? :)
[reply]
Re: Discovering Esoteric Meanings With Perl Part 2 -- The FOX Network
by Bloodnok (Vicar) on Apr 17, 2009 at 23:45 UTC
    ...and your point is ???

    Some folks self-evidently have too much time on their hands ... when they could be learning (more) useful, practical stuff about perl.

    A user level that continues to overstate my experience :-))
[reply]
      Well. What is your point? This used Perl in a pretty clever way. The section this code has been posted to is called "Cool Uses ..." -- not "More Useful, Practical Uses ..." You guys sound like you actually work for FOX.

      "Oh no! We've been exposed!!! Let's ridicule this person so no one can figure out that FOX is evil!"

      Get over yourself! Lighten up! Refactor! Just stop being boring geek wankers who think you know everything. Wow, you mastered one programming language. Congratulations! You are still a geek.

[reply]
        I think you'll find, if you can see round that shield of anonymity, that most postings to Cool Uses For Perl are of general interest - in that, the poster got the title spot on - esoteric: understood or liked by only a small number of people

        I know nothing about FOX (but wonder whether it might have something to do with 20th C Fox & all that) and assert less about its being evil - my point was that the OP, doesn't, IMO, class as a 'Cool Use For Perl'.

        Wow, you mastered one programming language. ... hmmm, I suspect I've forgotten more languages than you've mastered - perl is merely the latest weapon I'm attempting to add to my arsenal.

        As for mastering perl ... had you been around here and paying attention for long enough, you should, by now, have realised that very few achieve the dizzy heights of mastering such a complex and because of that, fun language.

        A user level that continues to overstate my experience :-))
[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.

Back to Cool Uses for Perl