 |
 |
 |
 |
 |
 |
 |
 |
 |
| |||||||
|
 | ||||||||||||||||||||||
|
 |
Click here to download plain text source code.
# 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)); } |
||||||||||||||||||||
| ||
|
Copyright © 1999-2007 Atomicsoft Ltd. All Rights Reserved. | |
