Hey,
Try this, it works for me:
use PDL;
sub test_read {
($a, $b) = rcols *DATA;
print $a, $b;
return (1);
}
test_read();
1;
__DATA__
1 2
3 4
5 6
7 8
On 14:44, Tue 06 Mar 07, Matthew Kenworthy wrote:
> Hi,
>
> I'd like to have some tabular data kept with a pdl module, instead of
> having a large text file external to the module.
>
> I've been working out if it is possible to get rcols to read a __DATA__
> structure - something along the lines of:
>
> sub test_read {
> ($a, $b) = rcols <<__DATA__;
> print $a, $b;
> return (1);
> }
> 1;
>
> __DATA__
> 1 2
> 3 4
> 5 6
> 7 8
>
> ..but no luck so far.
>
> Is it possible to read __DATA__ from rcols?
>
> Thanks,
>
> Matt
>
> --
> Matthew Kenworthy / Instrument Scientist / CAAO / Steward Observatory /
> 933 N. Cherry Ave / Tucson AZ 85721 / vox 520 626 6720 fax 520 621 9843
>
> _______________________________________________
> Perldl mailing list
> [email protected]
> http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
>
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
