view release on metacpan or  search on metacpan

examples/v2/fs/whereis  view on Meta::CPAN

#!/usr/local/bin/perl

use blib;
use strict;
use warnings;

use AFS::FS qw(whereis);

my ($dir, $ip, @hosts);

die "Usage: $0 dir ip\n" if ($#ARGV == -1);

$dir = shift;
$ip  = shift;

@hosts = whereis($dir, $ip);
if ($AFS::CODE) { print "AFS::CODE = $AFS::CODE\n"; }
else {
    foreach my $host (@hosts) {
        print " $host\n";
    }
}