in reply to Very simple calendar

Cool - I've wanted a cal tool on Windows... Anyone know where can I find out how to "fix" the escape sequences you put in there, to work with Win9x? Looked through the perldoc documentation but couldn't find anything.

Update: ++Juerd for pointing me to the ansi.sys driver.

[Jon]

Replies are listed 'Best First'.
Re: Re: Very simple calendar
by The Mad Hatter (Priest) on Dec 21, 2003 at 21:32 UTC
    Just stripped out the escape sequences... 
    #!/usr/bin/perl -w

use strict;
use Calendar::Simple qw(calendar);
use POSIX qw(strftime);

my $today = strftime '%Y-%m-%d', localtime;
my ($year, $month) = split /-/, shift || $today;

printf "\n%04d-%02d\n\n", $year, $month;
print "Mon Tue Wed Thu Fri Sat Sun\n";

for (calendar $month, $year, 1) {
    for (@$_) {
        no warnings;
        $_ = sprintf '%3s', $_ || '';
    }
    print "@$_\n";
}
print "\n";

    [download]
    diff -u ...
    Read more... (789 Bytes)
[reply]
[d/l]
[select]

      no warnings;

      Not needed anymore. It was there because I was too lazy to deal with the $_ not being numeric when it's empty, in the sprintf line.

      Juerd # { site => 'juerd.nl', plp_site => 'plp.juerd.nl', do_not_use => 'spamtrap' }

[reply]
Re: Re: Very simple calendar
by Juerd (Abbot) on Dec 21, 2003 at 23:11 UTC

    Anyone know where can I find out how to "fix" the escape sequences you put in there, to work with Win9x?

    IIRC, there's a little device driver called ANSI.SYS that you can load from CONFIG.SYS. I think it was something like 

    DEVICE=X:\PATH\TO\ANSI.SYS

    [download]
    But it's been a few years since I last used Windows for more than fixing other people's computers.

    Juerd # { site => 'juerd.nl', plp_site => 'plp.juerd.nl', do_not_use => 'spamtrap' }

[reply]
[d/l]

      Thanks... it works perfectly.

      [Jon]

[reply]

In Section Cool Uses for Perl