NAME File::Find::Rule::Dicom - Common rules for searching for DICOM things. SYNOPSIS use File::Find::Rule; use File::Find::Rule::Dicom; my @files = File::Find::Rule->dicom_file->in($dir); DESCRIPTION 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 . SUBROUTINES "dicom_file()" The C rule detect DICOM files by DICM magic string. ERRORS dicom_file(): From Dicom::File::Detect::dicom_detect_file(): Cannot close file '%s'. Cannot open file '%s'. EXAMPLE # Pragmas. use strict; use warnings; # Modules. 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 DEPENDENCIES Dicom::File::Detect, File::Find::Rule. SEE ALSO File::Find::Rule. REPOSITORY AUTHOR Michal Špaček LICENSE AND COPYRIGHT BSD license. VERSION 0.03