File::Find::Rule::DWG - Common rules for searching DWG files.
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);
This Perl module contains File::Find::Rule rules for detecting DWG files.
See .dwg on Wikipedia.
dwg
my @files = File::Find::Rule->dwg->in($dir);
The dwg() rule detect DWG files.
dwg()
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).
dwg_magic($acad_magic)
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
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
CAD::AutoCAD::Detect, File::Find::Rule.
Detect AutoCAD files through magic string.
Class which work with AutoCAD versions.
Alternative interface to File::Find.
https://github.com/michal-josef-spacek/File-Find-Rule-DWG
Michal Josef Špaček mailto:skim@cpan.org
http://skim.cz
© Michal Josef Špaček 2020-2021
BSD 2-Clause License
0.03
To install File::Find::Rule::DWG, copy and paste the appropriate command in to your terminal.
cpanm
cpanm File::Find::Rule::DWG
CPAN shell
perl -MCPAN -e shell install File::Find::Rule::DWG
For more information on module installation, please visit the detailed CPAN module installation guide.