# This program takes a list of foo data files
# for each file it:
#    reads the file    
#    sanitizes the data fields
#    converts the file to csv (name is based on foo file name)

##</code><code>##

# This program takes a list of foo data files
my @foo_files = @ARGV;

for my $foo_file (@foo_files) {
    save_foo_file_as_csv( $foo_file );
}

sub save_foo_file_as_csv {
    my $foo_file = shift;

    my $csv_file = convert_foo_name_to_csv_name($foo_file);

    my $foo_data = read_foo_file( $foo_file );
    $foo_data = sanitize_data( $foo_data );

    write_as_csv( $csv_file, $foo_data );

    return;
}

##</code><code>##


sub convert_foo_name_to_csv_name {
    my $name = shift;
    $name =~ s/(.foo)?$/.csv/c;

    return $name;
}