Slash Boxes
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

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
More | Login | Reply
Loading... please wait.
  • by rjbs (4671) on 2005.01.11 9:53 (#37371) Homepage Journal
    I use GeekTool, which lets me run scripts and place the output on the desktop. I have the output of 'cal' in the upper left and the output of a simple Time::Human script in the bottom right. I turn off the menubar time.

    It would be easy to change the displayed timezone. (FWIW, I'm going to move to ProseClock instead of Time::Human, because Time::Human seems to have been abandoned until ActivePerl supports Module::Build. Long story. I should blog it.)
    • Ah, that's fantastic. I'm now running:
      $ cat ~/
      #!/usr/bin/perl -w
      my @parts = localtime(time + (3600 * 5));
      printf "London: %02d:%02d\n", $parts[2], $parts[1];
      Thanks for that!
        • Yeah I was aware of that. The alternative is to use something complex like to get it right, but I don't need to get that complex really, and I don't want the overhead of loading and all its friends for this little scriptlet (though I could use pperl to get around that).
          • The alternative is to use something complex like

            ... or something simple like ...

            $ENV{TZ} = 'BST';

            my @parts = localtime(time + (3600 * 5));

            printf "London: %02d:%02d\n", $parts[2], $parts[1];
          • Sorry, engage brain before cutting and pasting. This is what I meant:

            $ENV{TZ} = 'BST';

            my @parts = localtime;

            printf "London: %02d:%02d\n", $parts[2], $parts[1];


            use POSIX;

            $ENV{TZ} = "BST";

            print strftime "London: %H:%M\n", localtime;