view release on metacpan or  search on metacpan

DwgRead.pm  view on Meta::CPAN

	}
	$self->{'_tmp_dir'} = $tmp_dir;

	# Verbose level.
	my $v = '-v'.$self->{'_opts'}->{'v'};

	my @selected_files;
	if ($self->{'_opts'}->{'s'}) {
		@selected_files = File::Find::Rule->in($self->{'_directory'});
	} else {
		@selected_files = File::Find::Rule->dwg->not_symlink->in($self->{'_directory'});
	}
	my $file_num = 1;
	foreach my $dwg_file_in (@selected_files) {

		# Copy DWG file to dir.
		my $dwg_file_out = catfile($tmp_dir, $file_num.'.dwg');
		copy($dwg_file_in, $dwg_file_out);

		# dwgread.
		my $dwgread = "$DR $v $dwg_file_out";