diff options
| author | fukachan <fukachan> | 2001-01-28 06:04:06 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-28 06:04:06 +0000 |
| commit | 4e58304342b32b569f76095a8fcc19f5d0deec05 (patch) | |
| tree | 3e07362d5a52d5242dd45974d540fa44854dab58 /fml/lib/IO/t | |
| parent | bf536b70d36b2932a3f33f7ed10e7b666a075652 (diff) | |
| download | fml8-4e58304342b32b569f76095a8fcc19f5d0deec05.tar.gz fml8-4e58304342b32b569f76095a8fcc19f5d0deec05.tar.bz2 fml8-4e58304342b32b569f76095a8fcc19f5d0deec05.zip | |
Initial revision
Diffstat (limited to 'fml/lib/IO/t')
| -rwxr-xr-x | fml/lib/IO/t/file_map.pl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/fml/lib/IO/t/file_map.pl b/fml/lib/IO/t/file_map.pl new file mode 100755 index 00000000..a223a8e9 --- /dev/null +++ b/fml/lib/IO/t/file_map.pl @@ -0,0 +1,10 @@ +use Carp; + +$map = 'file:/etc/passwd'; + + use IO::MapAdapter; + $obj = new IO::MapAdapter $map; + $obj->open || croak("cannot open $map"); + if ($obj->error) { croak( $obj->error );} + while ($x = $obj->getline) { print $x; } + $obj->close; |