]>
Commit | Line | Data |
---|---|---|
1 | package data::table2; | |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use Cwd; | |
7 | use Data::Dumper; | |
8 | ||
9 | #warn __PACKAGE__ . ' cwd - ' . getcwd() ; | |
10 | ||
11 | sub new { | |
12 | my $this = shift; | |
13 | bless {}, ref($this) || $this; | |
14 | } | |
15 | ||
16 | sub load_data { | |
17 | ||
18 | my @file = qw(4dig 3dig); | |
19 | ||
20 | my %data; | |
21 | ||
22 | for my $file (@file) { | |
23 | my $f = "t/data/$file.dat"; | |
24 | my @data; | |
25 | open F, $f or die "couldnt open $f: $!"; | |
26 | while (<F>) { | |
27 | push @data, [ split ',', $_ ] ; | |
28 | } | |
29 | $data{$file} = \@data; | |
30 | } | |
31 | #warn Dumper \%data; | |
32 | \%data; | |
33 | ||
34 | } | |
35 | ||
36 | 1; | |
37 |