 |
 |
 |
 |
 |
 |
 |
 |
 |
| |||||||
|
 | ||||||||||||||||||||||
|
 |
Click here to download plain text source code.
# subroutine name: readstruct # Input: file name # Returns: data structure, which is read from file specified by $filename, # previously created with writestruct sub readstruct { my ($filename) = @_; return &text2struct(${&sysreaddata($filename)}); } |
||||||||||||||||||||
| ||
|
Copyright © 1999-2007 Atomicsoft Ltd. All Rights Reserved. | |
