VMS::FindFile - Perl extension to return all the file names matching a

VMS-FindFile documentation Contained in the VMS-FindFile distribution.

Index

Code Index:

NAME

Top

VMS::FindFile - Perl extension to return all the file names matching a VMS wildcard file specification.

SYNOPSIS

Top

  use VMS::FindFile;

  my $ff=VMS::FindFile->new($wildcard_spec);

  while (my $filename = $ff->search()) {
     # ... do whatever with $filename ...
  }

DESCRIPTION

Top

VMS::FindFile is a VMS-specific module which returns all file names matching a VMS-style wildcard specification. It acts almost exactly like the f$search() function in DCL, except that instead of using context numbers to do multiple concurrent searches, you create multiple VMS::FindFile objects.

While it is VMS-specific, it's a lot faster than the system- independent File::Find.

AUTHOR

Top

Forrest Cahoon (forrest@cpan.org)

SEE ALSO

Top

perl(1).

VMS-FindFile documentation Contained in the VMS-FindFile distribution. 
## VMS::FindFile - Implements some simple hooks to give VMS perl
## a function similar to DCL's f$search().
##
## Copyright (C) 2002 Forrest Cahoon
##
## This source code is free software; you can redistribute it and/or modify
## it under the same terms as Perl itself.


package VMS::FindFile;

use 5.004;
use strict;
require DynaLoader;
use vars qw($VERSION @ISA);
@ISA = qw(DynaLoader);

$VERSION = '0.91';

bootstrap VMS::FindFile $VERSION;

use VMS::FindFile;

sub new {
   my $class = $_[0];
   my $objref = {_filespec  => $_[1]};
   ($objref->{"_resultant"},$objref->{"_context"}) =
     VMS::FindFile::_find_file($objref->{"_filespec"}, 0);
   bless $objref, $class;
   return $objref;
}

sub search {
   my ($self) = @_;
   my $fname = $self->{"_resultant"};
   if ($fname) {
      ($self->{"_resultant"}, $self->{"_context"}) =
	VMS::FindFile::_find_file($self->{"_filespec"}, $self->{"_context"});
   }
   return $fname;
}

sub DESTROY {
   my ($self) = @_;
   if ($self->{"_context"}) {
      VMS::FindFile::_find_file_end($self->{"_context"});
   }
}

1;

__END__