25 lines
384 B
Perl
25 lines
384 B
Perl
package common;
|
|
|
|
use strict;
|
|
|
|
sub read_file {
|
|
my $input_path = $_[0];
|
|
|
|
open(FH, "<", $input_path) or die $!;
|
|
|
|
my @lines;
|
|
|
|
while(<FH>) {
|
|
my $line = $_;
|
|
$line =~ s/\s+$//; # rtrim
|
|
my @chars = split('', $line);
|
|
push(@lines, \@chars);
|
|
}
|
|
|
|
close(FH);
|
|
|
|
return @lines;
|
|
}
|
|
|
|
1; # module needs to return a "true value", because reasons
|