Revision: 41511
Updated Code
at February 19, 2011 03:45 by Mazzaroth
Updated Code
#------------------------------------------------------------------------------ # sub load_file_in_array(): # Load a text file into an array. Remove all CR/LF. # sub load_file_in_array { (my $a_file) = @_; my @the_lines = (); unless ("$a_file" eq "") { # load the test case file if ($DEBUG > 1) { print "# loading the file '$a_file'\n" }; unless ( open ( FILE, $a_file ) ) { die "ERROR: $PROGNAME: Can't open '$a_file': $!"; } @the_lines = <FILE>; close FILE; chomp(@the_lines); } return @the_lines; }
Revision: 41510
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at February 19, 2011 03:30 by Mazzaroth
Initial Code
#------------------------------------------------------------------------------ # sub load_file_in_array(): # Load a text file into an array. Remove all CR/LF. # sub load_file_in_array { (my $a_file) = @_; my @the_lines = (); unless ("$a_file" eq "") { # load the test case file if ($DEBUG > 1) { print "# loading the file '$a_file'\n" }; unless ( open ( FILE, $a_file ) ) { die "ERROR: $PROGNAME: Can't open '$a_file': $!"; } @the_lines = <FILE>; close FILE; chomp(@the_lines); } return @the_lines; }
Initial URL
Initial Description
Load a text file into an array. Remove all CR/LF.
Initial Title
load_file_in_array()
Initial Tags
Initial Language
Perl