NAME
File::Find::Rule::DWG - Common rules for searching DWG files.
SYNOPSIS
use File::Find::Rule;
use File::Find::Rule::DWG;
my @files = File::Find::Rule->dwg->in($dir);
my @files = File::Find::Rule->dwg_magic($acad_magic)->in($dir);
DESCRIPTION
This Perl module contains File::Find::Rule rules for detecting DWG
files.
See .dwg on Wikipedia <https://en.wikipedia.org/wiki/.dwg>.
SUBROUTINES
"dwg"
my @files = File::Find::Rule->dwg->in($dir);
The "dwg()" rule detect DWG files.
"dwg_magic"
my @files = File::Find::Rule->dwg_magic($acad_magic)->in($dir);
The "dwg_magic($acad_magic)" rule detect DWG files for one magic version
(e.g. AC1008).
EXAMPLE1
use strict;
use warnings;
use File::Find::Rule;
use File::Find::Rule::DWG;
# Arguments.
if (@ARGV < 1) {
print STDERR "Usage: $0 dir\n";
exit 1;
}
my $dir = $ARGV[0];
# Print all DWG files in directory.
foreach my $file (File::Find::Rule->dwg->in($dir)) {
print "$file\n";
}
# Output like:
# Usage: qr{[\w\/]+} dir
EXAMPLE2
use strict;
use warnings;
use File::Find::Rule;
use File::Find::Rule::DWG;
# Arguments.
if (@ARGV < 1) {
print STDERR "Usage: $0 dir acad_magic\n";
exit 1;
}
my $dir = $ARGV[0];
my $acad_magic = $ARGV[1];
# Print all DWG files in directory.
foreach my $file (File::Find::Rule->dwg_magic($acad_magic)->in($dir)) {
print "$file\n";
}
# Output like:
# Usage: qr{[\w\/]+} dir acad_magic
DEPENDENCIES
CAD::AutoCAD::Detect, File::Find::Rule.
SEE ALSO
CAD::AutoCAD::Detect
Detect AutoCAD files through magic string.
CAD::AutoCAD::Version
Class which work with AutoCAD versions.
File::Find::Rule
Alternative interface to File::Find.
REPOSITORY
<https://github.com/michal-josef-spacek/File-Find-Rule-DWG>
AUTHOR
Michal Josef Špaček <mailto:skim@cpan.org>
<http://skim.cz>
LICENSE AND COPYRIGHT
© Michal Josef Špaček 2020-2021
BSD 2-Clause License
VERSION
0.03