make_slides/make.pl

   1 #!/usr/local/bin/perl
   2
   3 use strict ;
   4 use warnings ;
   5
   6 use Data::Dumper ;
   7
   8 use Template::Simple ;
   9 use CMS::Simple::Parse ;
  10 use File::Slurp ;
  11
  12
  13
  14 my $cont_file = shift || 'slides.cont' ;
  15
  16 my $cont_text = read_file( $cont_file ) ;
  17
  18 my $content = CMS::Simple::Parse::parse_content( $cont_text ) ;
  19
  20 print Dumper $content ;