Return to todo.pl CVS log

Up to [local] / todotxt / Text-Todo / bin

Annotation of todotxt/Text-Todo/bin/todo.pl, Revision 1.1

1.1     ! andrew      1: #!/usr/bin/perl
        !             2: # $RedRiver$
        !             3: ########################################################################
        !             4: # todo.pl *** a perl version of todo.sh. Uses Text::Todo.
        !             5: #
        !             6: # 2010.01.07 #*#*# andrew fresh <andrew@cpan.org>
        !             7: ########################################################################
        !             8: # Copyright 2010 Andrew Fresh, all rights reserved
        !             9: #
        !            10: # This program is free software; you can redistribute it and/or modify
        !            11: # it under the same terms as Perl itself.
        !            12: ########################################################################
        !            13: use strict;
        !            14: use warnings;
        !            15:
        !            16: use Data::Dumper;
        !            17: use Text::Todo;
        !            18:
        !            19: use version; our $VERSION = qv('0.0.1');
        !            20:
        !            21: my $todo = Text::Todo->new('t/todo1.txt') or die $!;
        !            22:
        !            23: foreach my $entry ( sort { lc( $a->text ) cmp lc( $b->text ) } $todo->list ) {
        !            24:
        !            25:     #print Dumper $entry;
        !            26:     print $entry->text, "\n";
        !            27: }