-
Notifications
You must be signed in to change notification settings - Fork 90
/
Datafile.pm
170 lines (124 loc) · 4.42 KB
/
Datafile.pm
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
#============================================================= -*-Perl-*-
#
# Template::Plugin::Datafile
#
# DESCRIPTION
# Template Toolkit Plugin which reads a datafile and constructs a
# list object containing hashes representing records in the file.
#
# AUTHOR
# Andy Wardley <abw@wardley.org>
#
# COPYRIGHT
# Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
#
# This module is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
#============================================================================
package Template::Plugin::Datafile;
use strict;
use warnings;
use base 'Template::Plugin';
our $VERSION = '3.009';
sub new {
my ($class, $context, $filename, $params) = @_;
my ($delim, $encoding, $line, @fields, @data, @results);
my $self = [ ];
local *FD;
local $/ = "\n";
$params ||= { };
$delim = $params->{'delim'} || ':';
$delim = quotemeta($delim);
$encoding = defined $params->{'encoding'} ? ':encoding('.$params->{'encoding'}.')' : '';
return $class->error("No filename specified")
unless $filename;
open(FD, '<'.$encoding, $filename)
|| return $class->error("$filename: $!");
# first line of file should contain field definitions
while (! $line || $line =~ /^#/) {
$line = <FD>;
chomp $line;
$line =~ s/\r$//;
}
(@fields = split(/\s*$delim\s*/, $line))
|| return $class->error("first line of file must contain field names");
# read each line of the file
while (<FD>) {
chomp;
s/\r$//;
# ignore comments and blank lines
next if /^#/ || /^\s*$/;
# split line into fields
@data = split(/\s*$delim\s*/);
# create hash record to represent data
my %record;
@record{ @fields } = @data;
push(@$self, \%record);
}
# return $self;
bless $self, $class;
}
sub as_list {
return $_[0];
}
1;
__END__
=head1 NAME
Template::Plugin::Datafile - Plugin to construct records from a simple data file
=head1 SYNOPSIS
[% USE mydata = datafile('/path/to/datafile') %]
[% USE mydata = datafile('/path/to/datafile', delim = '|') %]
[% USE mydata = datafile('/path/to/datafile', encoding = 'UTF-8') %]
[% FOREACH record = mydata %]
[% record.this %] [% record.that %]
[% END %]
=head1 DESCRIPTION
This plugin provides a simple facility to construct a list of hash
references, each of which represents a data record of known structure,
from a data file.
[% USE datafile(filename) %]
A absolute filename must be specified (for this initial implementation at
least - in a future version it might also use the C<INCLUDE_PATH>). An
optional C<delim> parameter may also be provided to specify an alternate
delimiter character.
The optional C<encoding> parameter may be used to specify the input file
encoding.
[% USE userlist = datafile('/path/to/file/users') %]
[% USE things = datafile('items', delim = '|') %]
The format of the file is intentionally simple. The first line
defines the field names, delimited by colons with optional surrounding
whitespace. Subsequent lines then defines records containing data
items, also delimited by colons. e.g.
id : name : email : tel
abw : Andy Wardley : abw@tt2.org : 555-1234
sam : Simon Matthews : sam@tt2.org : 555-9876
Each line is read, split into composite fields, and then used to
initialise a hash array containing the field names as relevant keys.
The plugin returns a blessed list reference containing the hash
references in the order as defined in the file.
[% FOREACH user = userlist %]
[% user.id %]: [% user.name %]
[% END %]
The first line of the file B<must> contain the field definitions.
After the first line, blank lines will be ignored, along with comment
line which start with a 'C<#>'.
=head1 BUGS
Should handle file names relative to C<INCLUDE_PATH>.
Doesn't permit use of 'C<:>' in a field. Some escaping mechanism is required.
=head1 AUTHOR
Andy Wardley E<lt>abw@wardley.orgE<gt> L<http://wardley.org/>
=head1 COPYRIGHT
Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved.
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=head1 SEE ALSO
L<Template::Plugin>
=cut
# Local Variables:
# mode: perl
# perl-indent-level: 4
# indent-tabs-mode: nil
# End:
#
# vim: expandtab shiftwidth=4: