#!perl #
# # Function @OUT=RARRAY($FILE) # ~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub RARRAY { $FILE=$_[0]; local(@OUT); open(LU,$FILE); # Reading @OUT=; close(LU) || die "Error"; # Subroutine automatically returns the value of the last expression # evaluated: @OUT=split(' ',join(' ',@OUT)); } #======================================================================= # Subroutine WARRAY($FILE,@OUT) # ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ sub WARRAY { $FILE=shift(@_); local(@OUT)=@_; @OUT=join("\n",@OUT); open(LU,$FILE); print LU "@OUT"; close(LU) || die "Error"; } #======================================================================= 1; #