1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
#! /usr/bin/perl -s #/*@@ # @file output_config.pl # @date Tue Jan 19 18:59:59 1999 # @author Tom Goodale # @desc # Outputs all configuration data # @enddesc #@@*/ sub OutputFile { my($directory, $file, @data) = @_; $dataout = ""; foreach $line (@data) { $dataout .= "$line\n"; } &WriteFile("$directory/$file",\$dataout); } 1;