Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

 / 
File-Find-Rule-DWG-0.03
River stage one • 2 direct dependents • 2 total dependents
/ File::Find::Rule::DWG

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

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