# subroutine name: writestruct
# Saves structure in file in native Perl language format
# Input:
# $filename - target file name
# $struct - reference to any perl structure
# $store_empty_values - store empty values of hashes or not
# $separator_char - lines separator (default is "\n"), used to write structure in one line
# Returns: nothing
sub writestruct {
	my ($filename, $struct, $store_empty_values, $separator_char) = @_;
	return &syswritedata($filename, &struct2text($struct, $store_empty_values, $separator_char));
}