view release on metacpan or  search on metacpan

lib/Bio/KBase/InvocationService/InvocationServiceImpl.pm  view on Meta::CPAN

    {
	die "Invalid path $dir";
    }

    my @dirs;
    my @files;
    my $dh;
    opendir($dh, $dir) or die "Cannot open directory: $!";
    while (my $file = readdir($dh)) {
	next if ($file =~ m/^\./);
	my($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat("$dir/$file");

	my $date= strftime("%b %d %G %H:%M:%S", localtime($mtime));

        if (-f "$dir/$file") {
	    push @files, { name => $file, full_path => "$fpath/$file", mod_date => $date, size => $size};
        } elsif (-d "$dir/$file") {
	    push @dirs, { name => $file, full_path => "$fpath/$file", mod_date => $date };
        }
    }