IO::Tokenized::Scalar - Extension of IO::Scalar allowing tokenized input
my $fh = IO::Tokenized::Scalar->new(); $fh->setparser([num => qr/\d+/], [ident => qr/[a-z_][a-z0-9_]], [op => qr![+*/-]!,\&opname]);
$fh->open('tokenfile') || die "Can't open 'tokenfile': $1";
while ($t = $fh->gettoken()) { ... do something smart... }
$fh->close();
IO::Tokenized::Scalar adds the methods provided by IO::Tokenized to IO::Scalar objects. See the IO::Tokenized manpage for details about how the tokens are specified and returned.
IO::Tokenized::Scalar inherits both from IO::tokenized and IO::Scalar, so that methods from both classes are available to IO::Tokenized::Scalar objects.
IO::Tokenized::Scalar redefines the following methods:
new([$filename[,@tokens]])
The new method is redefined so as to call both IO::Scalar::new (passing
to $filename if it is defined) and IO::Tokenized::new (passing to it the
@tokens parameter).
open($filename)
The open method from IO::Scalar is redefined so that only opening for
input is allowed: requestes for other kind of opening are silently converted to
oepning for input (this is a bug).
the IO::Tokenized manpage and the IO::Scalar manpage.
Leo Cacciari, <hobbit@cpan.org>
Copyright 2003 by Leo Cacciari
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.