File::Find::Rule::Dicom - Common rules for searching for DICOM things.
use File::Find::Rule; use File::Find::Rule::Dicom; my @files = File::Find::Rule->dicom_file->in($dir);
This Perl module contains File::Find::Rule rules for detecting DICOM things. DICOM (Digital Imaging and Communications in Medicine) is a standard for handling, storing, printing, and transmitting information in medical imaging. See DICOM on Wikipedia.
dicom_file()
The C<dicom_file()> rule detect DICOM files by DICM magic string.
dicom_file(): From Dicom::File::Detect::dicom_detect_file(): Cannot close file '%s'. Cannot open file '%s'.
use strict; use warnings; use File::Find::Rule; use File::Find::Rule::Dicom; # Arguments. if (@ARGV < 1) { print STDERR "Usage: $0 dir\n"; exit 1; } my $dir = $ARGV[0]; # Print all DICOM files in directory. foreach my $file (File::Find::Rule->dicom_file->in($dir)) { print "$file\n"; } # Output like: # Usage: qr{[\w\/]+} dir
Dicom::File::Detect, File::Find::Rule.
Alternative interface to File::Find
https://github.com/michal-josef-spacek/File-Find-Rule-Dicom
Michal Josef Špaček mailto:skim@cpan.org
http://skim.cz
© Michal Josef Špaček 2014-2020 BSD 2-Clause License
0.05
To install File::Find::Rule::Dicom, copy and paste the appropriate command in to your terminal.
cpanm
cpanm File::Find::Rule::Dicom
CPAN shell
perl -MCPAN -e shell install File::Find::Rule::Dicom
For more information on module installation, please visit the detailed CPAN module installation guide.