#!/usr/bin/perl
#===============================================================================
#
# FILE: store_data.pl
#
# DESCRIPTION: this small program is to help adding YAML serialized data into srvrmgr_mock program in the DATA handler
#
# AUTHOR: arfreitas@cpan.org,
# CREATED: 11/07/2013 17:17:37
#===============================================================================
use warnings;
use strict;
use utf8;
use YAML::Syck;
use File::Spec;
use Cwd;
use feature 'say';
my %data;
my @keys = (
'load_preferences',
'list_comp',
'list_comp_types',
'list_params',
'list_comp_def',
'list_comp_def_srproc',
'list_params_for_srproc',
'list_servers',
'list_tasks',
'list_tasks_for_server_siebfoobar_component_srproc',
'load_preferences'
);
foreach my $key (@keys) {
say "Processing $key";
read_output( \%data, $key );
}
my $filename = shift;
chomp($filename);
DumpFile( $filename, \%data );
sub read_output {
my $data_ref = shift; # hash ref
my $key = shift;
my $filename =
File::Spec->catfile( getcwd(), 'output', 'mock', 'fixed_width',
$key . '.txt' );
open( my $in, '<:utf8', $filename ) or die "Cannot read $filename: $!\n";
my @data = <$in>;
close($in);
$data_ref->{$key} = \@data;
return 1;
}