3 %apply int
*OUTPUT { size_t
*imin
, size_t
*imax
, size_t
*jmin
, size_t
*jmax
};
5 %apply double
*OUTPUT { double
* min_out
, double
* max_out
};
7 #include
"/usr/local/include/gsl/gsl_matrix.h"
8 #include
"/usr/local/include/gsl/gsl_vector_double.h"
9 #include
"/usr/local/include/gsl/gsl_matrix_double.h"
10 #include
"/usr/local/include/gsl/gsl_matrix_int.h"
11 #include
"/usr/local/include/gsl/gsl_matrix_complex_double.h"
12 #include
"/usr/local/include/gsl/gsl_matrix_char.h"
15 %include
"/usr/local/include/gsl/gsl_matrix.h"
16 %include
"/usr/local/include/gsl/gsl_vector_double.h"
17 %include
"/usr/local/include/gsl/gsl_matrix_double.h"
18 %include
"/usr/local/include/gsl/gsl_matrix_int.h"
19 %include
"/usr/local/include/gsl/gsl_matrix_complex_double.h"
20 %include
"/usr/local/include/gsl/gsl_matrix_char.h"
25 no warnings 'redefine'
;
27 @EXPORT_OK
= qw
/fopen fclose
28 gsl_matrix_alloc gsl_matrix_calloc gsl_matrix_alloc_from_block
29 gsl_matrix_alloc_from_matrix gsl_vector_alloc_row_from_matrix
30 gsl_vector_alloc_col_from_matrix gsl_matrix_free gsl_matrix_submatrix
31 gsl_matrix_row gsl_matrix_column gsl_matrix_diagonal
32 gsl_matrix_subdiagonal gsl_matrix_superdiagonal gsl_matrix_subrow
33 gsl_matrix_subcolumn gsl_matrix_view_array
34 gsl_matrix_view_array_with_tda gsl_matrix_view_vector
35 gsl_matrix_view_vector_with_tda gsl_matrix_const_submatrix
36 gsl_matrix_const_row gsl_matrix_const_column gsl_matrix_const_diagonal
37 gsl_matrix_const_subdiagonal gsl_matrix_const_superdiagonal
38 gsl_matrix_const_subrow gsl_matrix_const_subcolumn
39 gsl_matrix_const_view_array gsl_matrix_const_view_array_with_tda
40 gsl_matrix_const_view_vector gsl_matrix_const_view_vector_with_tda
41 gsl_matrix_get gsl_matrix_set gsl_matrix_ptr gsl_matrix_const_ptr
42 gsl_matrix_set_zero gsl_matrix_set_identity gsl_matrix_set_all
43 gsl_matrix_fread gsl_matrix_fwrite gsl_matrix_fscanf gsl_matrix_fprintf
44 gsl_matrix_memcpy gsl_matrix_swap gsl_matrix_swap_rows
45 gsl_matrix_swap_columns gsl_matrix_swap_rowcol gsl_matrix_transpose
46 gsl_matrix_transpose_memcpy gsl_matrix_max gsl_matrix_min
47 gsl_matrix_minmax gsl_matrix_max_index gsl_matrix_min_index
48 gsl_matrix_minmax_index gsl_matrix_isnull gsl_matrix_ispos
49 gsl_matrix_isneg gsl_matrix_isnonneg gsl_matrix_add gsl_matrix_sub
50 gsl_matrix_mul_elements gsl_matrix_div_elements gsl_matrix_scale
51 gsl_matrix_add_constant gsl_matrix_add_diagonal
52 gsl_matrix_char_alloc gsl_matrix_char_calloc gsl_matrix_char_alloc_from_block
53 gsl_matrix_char_alloc_from_matrix gsl_vector_char_alloc_row_from_matrix gsl_vector_char_alloc_col_from_matrix
54 gsl_matrix_char_free gsl_matrix_char_submatrix
55 gsl_matrix_char_row gsl_matrix_char_column
56 gsl_matrix_char_diagonal gsl_matrix_char_subdiagonal gsl_matrix_char_superdiagonal
57 gsl_matrix_char_subrow gsl_matrix_char_subcolumn gsl_matrix_char_view_array
58 gsl_matrix_char_view_array_with_tda gsl_matrix_char_view_vector gsl_matrix_char_view_vector_with_tda
59 gsl_matrix_char_const_submatrix gsl_matrix_char_const_row gsl_matrix_char_const_column
60 gsl_matrix_char_const_diagonal gsl_matrix_char_const_subdiagonal gsl_matrix_char_const_superdiagonal
61 gsl_matrix_char_const_subrow gsl_matrix_char_const_subcolumn gsl_matrix_char_const_view_array
62 gsl_matrix_char_const_view_array_with_tda gsl_matrix_char_const_view_vector gsl_matrix_char_const_view_vector_with_tda
63 gsl_matrix_char_get gsl_matrix_char_set gsl_matrix_char_ptr gsl_matrix_char_const_ptr
64 gsl_matrix_char_set_zero gsl_matrix_char_set_identity
65 gsl_matrix_char_set_all gsl_matrix_char_fread
66 gsl_matrix_char_fwrite gsl_matrix_char_fscanf gsl_matrix_char_fprintf
67 gsl_matrix_char_memcpy gsl_matrix_char_swap
68 gsl_matrix_char_swap_rows gsl_matrix_char_swap_columns
69 gsl_matrix_char_swap_rowcol gsl_matrix_char_transpose gsl_matrix_char_transpose_memcpy
70 gsl_matrix_char_max gsl_matrix_char_min
71 gsl_matrix_char_minmax gsl_matrix_char_max_index
72 gsl_matrix_char_min_index gsl_matrix_char_minmax_index
73 gsl_matrix_char_isnull gsl_matrix_char_ispos gsl_matrix_char_isneg
74 gsl_matrix_char_isnonneg gsl_matrix_char_add
75 gsl_matrix_char_sub gsl_matrix_char_mul_elements gsl_matrix_char_div_elements
76 gsl_matrix_char_scale gsl_matrix_char_add_constant gsl_matrix_char_add_diagonal
77 gsl_matrix_int_alloc gsl_matrix_int_calloc gsl_matrix_int_alloc_from_block
78 gsl_matrix_int_alloc_from_matrix gsl_vector_int_alloc_row_from_matrix gsl_vector_int_alloc_col_from_matrix
79 gsl_matrix_int_free gsl_matrix_int_submatrix gsl_matrix_int_row
80 gsl_matrix_int_column gsl_matrix_int_diagonal gsl_matrix_int_subdiagonal
81 gsl_matrix_int_superdiagonal gsl_matrix_int_subrow gsl_matrix_int_subcolumn gsl_matrix_int_view_array
82 gsl_matrix_int_view_array_with_tda gsl_matrix_int_view_vector gsl_matrix_int_view_vector_with_tda
83 gsl_matrix_int_const_submatrix gsl_matrix_int_const_row gsl_matrix_int_const_column
84 gsl_matrix_int_const_diagonal gsl_matrix_int_const_subdiagonal gsl_matrix_int_const_superdiagonal
85 gsl_matrix_int_const_subrow gsl_matrix_int_const_subcolumn gsl_matrix_int_const_view_array
86 gsl_matrix_int_const_view_array_with_tda gsl_matrix_int_const_view_vector gsl_matrix_int_const_view_vector_with_tda
87 gsl_matrix_int_get gsl_matrix_int_set
88 gsl_matrix_int_ptr gsl_matrix_int_const_ptr
89 gsl_matrix_int_set_zero gsl_matrix_int_set_identity gsl_matrix_int_set_all
90 gsl_matrix_int_fread gsl_matrix_int_fwrite
91 gsl_matrix_int_fscanf gsl_matrix_int_fprintf
92 gsl_matrix_int_memcpy gsl_matrix_int_swap
93 gsl_matrix_int_swap_rows gsl_matrix_int_swap_columns gsl_matrix_int_swap_rowcol
94 gsl_matrix_int_transpose gsl_matrix_int_transpose_memcpy
95 gsl_matrix_int_max gsl_matrix_int_min gsl_matrix_int_minmax
96 gsl_matrix_int_max_index gsl_matrix_int_min_index
97 gsl_matrix_int_minmax_index gsl_matrix_int_isnull
98 gsl_matrix_int_ispos gsl_matrix_int_isneg gsl_matrix_int_isnonneg
99 gsl_matrix_int_add gsl_matrix_int_sub
100 gsl_matrix_int_mul_elements gsl_matrix_int_div_elements gsl_matrix_int_scale
101 gsl_matrix_int_add_constant gsl_matrix_int_add_diagonal
102 gsl_matrix_get_row gsl_matrix_get_col gsl_matrix_set_row gsl_matrix_set_col
104 %EXPORT_TAGS
= ( all
=> [ @EXPORT_OK
], char
=> [gsl_matrix_char_alloc
, gsl_matrix_char_calloc
, gsl_matrix_char_alloc_from_block
, gsl_matrix_char_alloc_from_matrix
, gsl_vector_char_alloc_row_from_matrix
, gsl_vector_char_alloc_col_from_matrix
, gsl_matrix_char_free
, gsl_matrix_char_submatrix
, gsl_matrix_char_row
, gsl_matrix_char_column
, gsl_matrix_char_diagonal
, gsl_matrix_char_subdiagonal
, gsl_matrix_char_superdiagonal
, gsl_matrix_char_subrow
, gsl_matrix_char_subcolumn
, gsl_matrix_char_view_array
, gsl_matrix_char_view_array_with_tda
, gsl_matrix_char_view_vector
, gsl_matrix_char_view_vector_with_tda
, gsl_matrix_char_const_submatrix
, gsl_matrix_char_const_row
, gsl_matrix_char_const_column
, gsl_matrix_char_const_diagonal
, gsl_matrix_char_const_subdiagonal
, gsl_matrix_char_const_superdiagonal
, gsl_matrix_char_const_subrow
, gsl_matrix_char_const_subcolumn
, gsl_matrix_char_const_view_array
, gsl_matrix_char_const_view_array_with_tda
, gsl_matrix_char_const_view_vector
, gsl_matrix_char_const_view_vector_with_tda
, gsl_matrix_char_get
, gsl_matrix_char_set
, gsl_matrix_char_ptr
, gsl_matrix_char_const_ptr
, gsl_matrix_char_set_zero
, gsl_matrix_char_set_identity
, gsl_matrix_char_set_all
, gsl_matrix_char_fread
, gsl_matrix_char_fwrite
, gsl_matrix_char_fscanf
, gsl_matrix_char_fprintf
, gsl_matrix_char_memcpy
, gsl_matrix_char_swap
, gsl_matrix_char_swap_rows
, gsl_matrix_char_swap_columns
, gsl_matrix_char_swap_rowcol
, gsl_matrix_char_transpose
, gsl_matrix_char_transpose_memcpy
, gsl_matrix_char_max
, gsl_matrix_char_min
, gsl_matrix_char_minmax
, gsl_matrix_char_max_index
, gsl_matrix_char_min_index
, gsl_matrix_char_minmax_index
, gsl_matrix_char_isnull
, gsl_matrix_char_ispos
, gsl_matrix_char_isneg
, gsl_matrix_char_isnonneg
, gsl_matrix_char_add
, gsl_matrix_char_sub
, gsl_matrix_char_mul_elements
, gsl_matrix_char_div_elements
, gsl_matrix_char_scale
, gsl_matrix_char_add_constant
, gsl_matrix_char_add_diagonal
], double
=> [ gsl_matrix_alloc
, gsl_matrix_calloc
, gsl_matrix_alloc_from_block
, gsl_matrix_alloc_from_matrix
, gsl_vector_alloc_row_from_matrix
, gsl_vector_alloc_col_from_matrix
, gsl_matrix_free
, gsl_matrix_submatrix
, gsl_matrix_row
, gsl_matrix_column
, gsl_matrix_diagonal
, gsl_matrix_subdiagonal
, gsl_matrix_superdiagonal
, gsl_matrix_subrow
, gsl_matrix_subcolumn
, gsl_matrix_view_array
, gsl_matrix_view_array_with_tda
, gsl_matrix_view_vector
, gsl_matrix_view_vector_with_tda
, gsl_matrix_const_submatrix
, gsl_matrix_const_row
, gsl_matrix_const_column
, gsl_matrix_const_diagonal
, gsl_matrix_const_subdiagonal
, gsl_matrix_const_superdiagonal
, gsl_matrix_const_subrow
, gsl_matrix_const_subcolumn
, gsl_matrix_const_view_array
, gsl_matrix_const_view_array_with_tda
, gsl_matrix_const_view_vector
, gsl_matrix_const_view_vector_with_tda
, gsl_matrix_get
, gsl_matrix_set
, gsl_matrix_ptr
, gsl_matrix_const_ptr
, gsl_matrix_set_zero
, gsl_matrix_set_identity
, gsl_matrix_set_all
, gsl_matrix_fread
, gsl_matrix_fwrite
, gsl_matrix_fscanf
, gsl_matrix_fprintf
, gsl_matrix_memcpy
, gsl_matrix_swap
, gsl_matrix_swap_rows
, gsl_matrix_swap_columns
, gsl_matrix_swap_rowcol
, gsl_matrix_transpose
, gsl_matrix_transpose_memcpy
, gsl_matrix_max
, gsl_matrix_minmax
, gsl_matrix_max_index
, gsl_matrix_min_index
, gsl_matrix_minmax_index
, gsl_matrix_isnull
, gsl_matrix_ispos
, gsl_matrix_isneg
, gsl_matrix_isnonneg
, gsl_matrix_add
, gsl_matrix_mul_elements
, gsl_matrix_div_elements
, gsl_matrix_scale
, gsl_matrix_add_constant
, gsl_matrix_add_diagonal
], int
=> [gsl_matrix_int_alloc
, gsl_matrix_int_alloc_from_matrix
, gsl_matrix_int_free
, gsl_matrix_int_column
, gsl_matrix_int_superdiagonal
, gsl_matrix_int_view_array_with_tda
, gsl_matrix_int_const_submatrix
, gsl_matrix_int_const_diagonal
, gsl_matrix_int_const_subrow
, gsl_matrix_int_const_view_array_with_tda
, gsl_matrix_int_get
, gsl_matrix_int_ptr
, gsl_matrix_int_set_zero
, gsl_matrix_int_fread
, gsl_matrix_int_fscanf
, gsl_matrix_int_memcpy
, gsl_matrix_int_swap_rows
, gsl_matrix_int_transpose
, gsl_matrix_int_max
, gsl_matrix_int_max_index
, gsl_matrix_int_minmax_index
, gsl_matrix_int_ispos
, gsl_matrix_int_add
, gsl_matrix_int_mul_elements
, gsl_matrix_int_add_constant
]);
110 Math
::GSL
::Matrix
- Mathematical functions concerning Matrices
114 use Math
::GSL
::Matrix qw
/:all
/;
118 Here is a list of all the functions included in this module
:
120 gsl_matrix_alloc gsl_matrix_calloc gsl_matrix_alloc_from_block
121 gsl_matrix_alloc_from_matrix gsl_vector_alloc_row_from_matrix
122 gsl_vector_alloc_col_from_matrix gsl_matrix_free gsl_matrix_submatrix
123 gsl_matrix_row gsl_matrix_column gsl_matrix_diagonal
124 gsl_matrix_subdiagonal gsl_matrix_superdiagonal gsl_matrix_subrow
125 gsl_matrix_subcolumn gsl_matrix_view_array
126 gsl_matrix_view_array_with_tda gsl_matrix_view_vector
127 gsl_matrix_view_vector_with_tda gsl_matrix_const_submatrix
128 gsl_matrix_const_row gsl_matrix_const_column gsl_matrix_const_diagonal
129 gsl_matrix_const_subdiagonal gsl_matrix_const_superdiagonal
130 gsl_matrix_const_subrow gsl_matrix_const_subcolumn
131 gsl_matrix_const_view_array gsl_matrix_const_view_array_with_tda
132 gsl_matrix_const_view_vector gsl_matrix_const_view_vector_with_tda
133 gsl_matrix_get gsl_matrix_set gsl_matrix_ptr gsl_matrix_const_ptr
134 gsl_matrix_set_zero gsl_matrix_set_identity gsl_matrix_set_all
135 gsl_matrix_fread gsl_matrix_fwrite gsl_matrix_fscanf gsl_matrix_fprintf
136 gsl_matrix_memcpy gsl_matrix_swap gsl_matrix_swap_rows
137 gsl_matrix_swap_columns gsl_matrix_swap_rowcol gsl_matrix_transpose
138 gsl_matrix_transpose_memcpy gsl_matrix_max gsl_matrix_min
139 gsl_matrix_minmax gsl_matrix_max_index gsl_matrix_min_index
140 gsl_matrix_minmax_index gsl_matrix_isnull gsl_matrix_ispos
141 gsl_matrix_isneg gsl_matrix_isnonneg gsl_matrix_add gsl_matrix_sub
142 gsl_matrix_mul_elements gsl_matrix_div_elements gsl_matrix_scale
143 gsl_matrix_add_constant gsl_matrix_add_diagonal
144 gsl_matrix_char_alloc gsl_matrix_char_calloc gsl_matrix_char_alloc_from_block
145 gsl_matrix_char_alloc_from_matrix gsl_vector_char_alloc_row_from_matrix gsl_vector_char_alloc_col_from_matrix
146 gsl_matrix_char_free gsl_matrix_char_submatrix
147 gsl_matrix_char_row gsl_matrix_char_column
148 gsl_matrix_char_diagonal gsl_matrix_char_subdiagonal gsl_matrix_char_superdiagonal
149 gsl_matrix_char_subrow gsl_matrix_char_subcolumn gsl_matrix_char_view_array
150 gsl_matrix_char_view_array_with_tda gsl_matrix_char_view_vector gsl_matrix_char_view_vector_with_tda
151 gsl_matrix_char_const_submatrix gsl_matrix_char_const_row gsl_matrix_char_const_column
152 gsl_matrix_char_const_diagonal gsl_matrix_char_const_subdiagonal gsl_matrix_char_const_superdiagonal
153 gsl_matrix_char_const_subrow gsl_matrix_char_const_subcolumn gsl_matrix_char_const_view_array
154 gsl_matrix_char_const_view_array_with_tda gsl_matrix_char_const_view_vector gsl_matrix_char_const_view_vector_with_tda
155 gsl_matrix_char_get gsl_matrix_char_set gsl_matrix_char_ptr gsl_matrix_char_const_ptr
156 gsl_matrix_char_set_zero gsl_matrix_char_set_identity
157 gsl_matrix_char_set_all gsl_matrix_char_fread
158 gsl_matrix_char_fwrite gsl_matrix_char_fscanf gsl_matrix_char_fprintf
159 gsl_matrix_char_memcpy gsl_matrix_char_swap
160 gsl_matrix_char_swap_rows gsl_matrix_char_swap_columns
161 gsl_matrix_char_swap_rowcol gsl_matrix_char_transpose gsl_matrix_char_transpose_memcpy
162 gsl_matrix_char_max gsl_matrix_char_min
163 gsl_matrix_char_minmax gsl_matrix_char_max_index
164 gsl_matrix_char_min_index gsl_matrix_char_minmax_index
165 gsl_matrix_char_isnull gsl_matrix_char_ispos gsl_matrix_char_isneg
166 gsl_matrix_char_isnonneg gsl_matrix_char_add
167 gsl_matrix_char_sub gsl_matrix_char_mul_elements gsl_matrix_char_div_elements
168 gsl_matrix_char_scale gsl_matrix_char_add_constant gsl_matrix_char_add_diagonal
169 gsl_matrix_int_alloc gsl_matrix_int_calloc gsl_matrix_int_alloc_from_block
170 gsl_matrix_int_alloc_from_matrix gsl_vector_int_alloc_row_from_matrix gsl_vector_int_alloc_col_from_matrix
171 gsl_matrix_int_free gsl_matrix_int_submatrix gsl_matrix_int_row
172 gsl_matrix_int_column gsl_matrix_int_diagonal gsl_matrix_int_subdiagonal
173 gsl_matrix_int_superdiagonal gsl_matrix_int_subrow gsl_matrix_int_subcolumn gsl_matrix_int_view_array
174 gsl_matrix_int_view_array_with_tda gsl_matrix_int_view_vector gsl_matrix_int_view_vector_with_tda
175 gsl_matrix_int_const_submatrix gsl_matrix_int_const_row gsl_matrix_int_const_column
176 gsl_matrix_int_const_diagonal gsl_matrix_int_const_subdiagonal gsl_matrix_int_const_superdiagonal
177 gsl_matrix_int_const_subrow gsl_matrix_int_const_subcolumn gsl_matrix_int_const_view_array
178 gsl_matrix_int_const_view_array_with_tda gsl_matrix_int_const_view_vector gsl_matrix_int_const_view_vector_with_tda
179 gsl_matrix_int_get gsl_matrix_int_set
180 gsl_matrix_int_ptr gsl_matrix_int_const_ptr
181 gsl_matrix_int_set_zero gsl_matrix_int_set_identity gsl_matrix_int_set_all
182 gsl_matrix_int_fread gsl_matrix_int_fwrite
183 gsl_matrix_int_fscanf gsl_matrix_int_fprintf
184 gsl_matrix_int_memcpy gsl_matrix_int_swap
185 gsl_matrix_int_swap_rows gsl_matrix_int_swap_columns gsl_matrix_int_swap_rowcol
186 gsl_matrix_int_transpose gsl_matrix_int_transpose_memcpy
187 gsl_matrix_int_max gsl_matrix_int_min gsl_matrix_int_minmax
188 gsl_matrix_int_max_index gsl_matrix_int_min_index
189 gsl_matrix_int_minmax_index gsl_matrix_int_isnull
190 gsl_matrix_int_ispos gsl_matrix_int_isneg gsl_matrix_int_isnonneg
191 gsl_matrix_int_add gsl_matrix_int_sub
192 gsl_matrix_int_mul_elements gsl_matrix_int_div_elements gsl_matrix_int_scale
193 gsl_matrix_int_add_constant gsl_matrix_int_add_diagonal
194 gsl_matrix_get_row gsl_matrix_get_col gsl_matrix_set_row gsl_matrix_set_col
196 You have to add the functions you want to use inside the qw
/put_funtion_here
/.
197 You can also write use Math
::GSL
::PowInt qw
/:name_of_tag
/ to use all avaible functions of the module.
198 Other tags are also avaible
, here is a complete list of all tags for this module
:
205 For more informations on the functions
, we refer you to the GSL offcial documentation
: http
://www.gnu.org
/software
/gsl
/manual
/html_node
/
206 Tip
: search on google
: site
:http
://www.gnu.org
/software
/gsl
/manual
/html_node
/name_of_the_function_you_want
210 Most of the examples from this section are perl versions of the examples there
: http
://www.gnu.org
/software
/gsl
/manual
/html_node
/Example-programs-for-matrices.html
212 The program below shows how to allocate
, initialize and read from a matrix using the functions gsl_matrix_alloc
, gsl_matrix_set and gsl_matrix_get.
214 use Math
::GSL
::Matrix qw
/:all
/;
215 $m
= gsl_matrix_alloc
(10,3);
216 for
($i
= 0; $i
< 10; $i
++){
217 for
($j
= 0; $j
<3; $j
++){
218 gsl_matrix_set
($m
, $i
, $j
, 0.23 + 100*$i
+ $j
);
222 for
($i
= 0; $i
< 100; $i
++){ # OUT
OF RANGE
ERROR
223 for
($j
=0; $j
<3; $j
++){
224 print
"m($i, $j) = " . gsl_matrix_get
($m
, $i
, $j
) .
"\n";
227 gsl_matrix_free
($m
);
230 use Math
::GSL
::Matrix qw
/:all
/;
232 $m
= gsl_matrix_alloc
(100, 100);
233 $a
= gsl_matrix_alloc
(100, 100);
235 for
($i
= 0; $i
< 100; $i
++){
236 for
($j
= 0; $j
< 100; $j
++){
237 gsl_matrix_set
($m
, $i
, $j
, 0.23 + $i
+ $j
);
241 The next program shows how to write a matrix to a file.
243 $out
= fopen
("test.dat", "wb");
244 gsl_matrix_fwrite
($out
, $m
);
247 $in
= fopen
("test.dat", "rb");
248 gsl_matrix_fread
($in
, $a
);
252 for
($i
= 0; $i
< 100; $i
++){
253 for
($j
= 0; $j
< 100; $j
++){
254 $mij
= gsl_matrix_get
($m
, $i
, $j
);
255 $aij
= gsl_matrix_get
($a
, $i
, $j
);
256 if
($mij
!= $aij
){ $k
++ };
263 print
"differences = $k (should be zero)\n";
267 Jonathan Leto
<jonathan@leto.net
> and Thierry Moisan
<thierry.moisan@gmail.com
>
269 =head1 COPYRIGHT
AND LICENSE
271 Copyright
(C
) 2008 Jonathan Leto and Thierry Moisan
273 This program is free software
; you can redistribute it and
/or modify it
274 under the same terms as Perl itself.