signature_stuff/pick_a_quote.pl

   1 #! /usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use IO::File;
   7
   8 my $sigfile      = new IO::File "> /home/don/.signature";
   9 my $templatefile = new IO::File "/home/don/signature_stuff/sigtemplate.txt";
  10 my $quotesfile   = new IO::File "/home/don/signature_stuff/quote.txt";
  11
  12 my $template = '';
  13
  14 while (<$templatefile>) {
  15      $template.=$_;
  16 }
  17
  18 undef $templatefile;
  19
  20 my $quotes = '';
  21
  22 while (<$quotesfile>) {
  23      $quotes.=$_;
  24 }
  25
  26 undef $quotesfile;
  27
  28 my @quotes = split /\n*\%\n*/s, $quotes;
  29 undef $quotes;
  30
  31 my $quote = $quotes[rand($#quotes+1)];
  32
  33 $template =~ s/\[\%\s*quote\s*\%\]/$quote/;
  34
  35 print {$sigfile} $template;
  36
  37 undef $sigfile;