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 . 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 AUTHOR Michal Josef Špaček LICENSE AND COPYRIGHT © Michal Josef Špaček 2020-2021 BSD 2-Clause License VERSION 0.03