Skip to content
Snippets Groups Projects
Select Git revision
  • a1a8c4d3df9d239ea566abf5a99c77e4b76934d6
  • master default protected
  • dev
  • gh-pages
4 results

mkdocs.yml

Blame
  • Util.pm 617 B
    
    package TA::Util;
    
    use strict;
    
    use JSON;
    
    =head2 _file_slurp ($filename, $format)
    
    read contents of that file and 
    
    =cut
    
    sub slurp_file
    {
      my $fnm= shift;
      my $format= shift || 'lines';
    
      open (FI, $fnm) or return undef;
      my @lines= <FI>;
      close (FI);
    
      if ($format eq 'array')
      {
        return @lines;
      }
      elsif ($format eq 'arrayref')
      {
        return \@lines;
      }
      elsif ($format eq 'string')
      {
        return join ('', @lines);
      }
      elsif ($format eq 'json')
      {
        my $str= join ('', @lines);
        return decode_json ($str);
      }
     
      print STDERR "unknown slurp format '$format'\n";
      return undef;
    }
    
    1;