michal-josef-spacek / file-find-rule-dwg Goto Github PK

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:[email protected]>

    <http://skim.cz>

LICENSE AND COPYRIGHT
    © Michal Josef Špaček 2020-2022

    BSD 2-Clause License

VERSION
    0.04