git.oblomov.eu Git - multimarkdown/blob - bin/addmetadata.pl

   1 #!/usr/bin/env perl
   2 #
   3 # $Id: addmetadata.pl 496 2008-02-11 01:27:47Z fletcher $
   4 #
   5 # Command line tool to prepend metadata in a MultiMarkdown document
   6 # before processing.
   7 #
   8 # Copyright (c) 2006-2008 Fletcher T. Penney
   9 #       <http://fletcherpenney.net/>
  10 #
  11 # MultiMarkdown Version 2.0.b5
  12 #
  13
  14 # grab metadata from args
  15
  16 my $result = "";
  17
  18 foreach $data (@ARGV) {
  19         $result .= $data . "\n";
  20 }
  21
  22 @ARGV = ();
  23
  24 # grab document from stdin
  25
  26 undef $/;
  27 $result .= <>;
  28
  29
  30 print $result;