Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

TorgoX (1933)

TorgoX
  sburkeNO@SPAMcpan.org
http://search.cpan.org/~sburke/

"Il est beau comme la retractilité des serres des oiseaux rapaces [...] et surtout, comme la rencontre fortuite sur une table de dissection d'une machine à coudre et d'un parapluie !" -- Lautréamont

Journal of TorgoX (1933)

Monday May 23, 2005
05:44 AM

Stilistik komparé de Javascript et de Perl

[ #24834 ]
Dear Log,

Today was given over to JavaScript and vacuuming. When I wasn't vacuuming, I was leisurely reading Higher-Order Perl and writing some more notes on translating it all to JavaScript.

Today's interesting stuff was mainly yet more cases where the Perl code has push @foo, bar(...) where bar might (directly or indirectly) return an empty list, or one item, or several; and, to make things even more interesting, some of the values returned were arrayrefs, so that I couldn't just say that I'll array-deref whatever values come back. It's not a case of the Perl being bad, or the JavaScript being bad; instead, the trouble is the subtleness of the problems that arise from the apparently safe translation of push @foo, bar(), as foo.push(bar()). In a day or two, I'll put it all up at the usual place.

Then, as I was poking at My RSSs Of Interest, it occurred to me that my XSL tricks do improve things by expressing <lastBuildDate>Mon, 23 May 2005 08:57:22 GMT</lastBuildDate> as "Last feed update: Mon, 23 May 2005 08:57:22 GMT". But, it occurred to me that it's not exactly effortless for people to look at that and say "oh, that just updated", or "that was like ten hours ago"

So I thought how I've already used a bit of JavaScript to moregoodify the data in an RSS feed, and a bit of date-wrangling in JavaScript; so I might as well combine the two past approaches and write some JavaScript to convert "Mon, 23 May 2005 08:57:22 GMT" to a Date object and then to figure out how long ago it was, and then to express that as an approximate time-interval, like "Last feed update: about 9 hours ago".

Then I just got crazy and put some other data off into the title="..." attribute of the wrapper-element around the "ago" phrase, so that mousing over "9 hours ago" shows something like "Sun 22 May 2005 04:58:32 PM ADT (Mon, 23 May 2005 08:58:32 GMT)" (modulo your locale and timezone, etc).

(An example RSS with the feature)

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • The title I'm getting is "Sun 22 May 2005 08:57:22 PM EDT (Mon, 23 May 2005 08:57:22 GMT)". The difference between EDT and GMT is 4 hours, not 12. But perhaps it's some other EDT you're referring to. (Plus it's confusing to use AM/PM for the EDT times and 24-hour time (apparently) for the GMT.)
    • That's very strange. All the time math is done in your browser, which should ideally know its correct TZ offset. But I'll poke around a bit and see if I'm parsing the date wrong or something. What browser are you using?
  • I haven't even finished HOP yet, but I just digested a large Javascript tome [oreilly.com] for work reasons. JS has a few higher-ordery features that Perl doesn't.

    An interesting twist on eval, Function() creates a function reference out of an array of strings.

    And this JS 1.5 syntax, which gives an anonymous closure a temporary name so it can refer to itself.

    var f = function fact(x) { if (x <=1) return 1; else return x*fact(x-1); }

    Despite appearances, there is no fact(). That was just a name for use duri

    • One is tempted to do this:

      my $f = sub { ($_[0] <=1) ? 1 : ( $_[0] * $f->($_[0] - 1)) };
      print $f->(4);

      But that doesn't work, because sub is defined outside the scope of $f. So you've got to do this:

      my $f;
      $f = sub { ($_[0] <=1) ? 1 : ( $_[0] * $f->($_[0] - 1)) };
      print $f->(4);

      That works!

      (GC note: now $f and that sub constitute a circular data structure, so you need to do $f='whatever'; (or just undef($f)) to break the circularity.)

      • Huh. Now I wonder why what I was trying didn't work. That seems relatively straightforward, with the slight inconvenience of defining the variable first. Callee was another weirdness I noticed too. Thanks.
    • Also:
      var f = function (x) { if (x <=1) return 1; else return x * arguments.callee(x-1); };