NAME File::Find::Rule::DMIDecode - Common rules for searching for dmidecode files. SYNOPSIS use File::Find::Rule; use File::Find::Rule::DMIDecode; my @files = File::Find::Rule->dmidecode_file->in($dir); my @files = File::Find::Rule->dmidecode_handle($handle)->in($dir); my @files = File::Find::Rule->dmidecode_type($dmi_type)->in($dir); DESCRIPTION This Perl module contains File::Find::Rule rules for detecting dmidecode files. dmidecode text file is output of dmidecode tool, which prints information about DMI. DMI (Desktop Management Interface) generates a standard framework for managing and tracking components in a desktop, notebook or server computer, by abstracting these components from the software that manages them. See DMI on Wikipedia . SUBROUTINES "dmidecode_file" my @files = File::Find::Rule->dmidecode_file->in($dir); The "dmidecode_file()" rule detect dmidecode files by parsing of structure. "dmidecode_handle" my @files = File::Find::Rule->dmidecode_handle($handle)->in($dir); The "dmidecode_handle($handle)" rule detect dmidecode handle in file. "dmidecode_type" my @files = File::Find::Rule->dmidecode_type($dmi_type)->in($dir); The "dmidecode_type($dmi_type)" rule detect dmidecode DMI type in file. EXAMPLE1 use strict; use warnings; use File::Find::Rule; use File::Find::Rule::DMIDecode; # Arguments. if (@ARGV < 1) { print STDERR "Usage: $0 dir\n"; exit 1; } my $dir = $ARGV[0]; # Print all dmidecode files in directory. foreach my $file (File::Find::Rule->dmidecode_file->in($dir)) { print "$file\n"; } # Output like: # Usage: qr{[\w\/]+} dir EXAMPLE2 use strict; use warnings; use File::Find::Rule; use File::Find::Rule::DMIDecode; # Arguments. if (@ARGV < 2) { print STDERR "Usage: $0 dir handle\n"; exit 1; } my $dir = $ARGV[0]; my $handle = $ARGV[1]; # Print all dmidecode handles in directory. foreach my $file (File::Find::Rule->dmidecode_handle($handle)->in($dir)) { print "$file\n"; } # Output like: # Usage: qr{[\w\/]+} dir handle EXAMPLE3 use strict; use warnings; use File::Find::Rule; use File::Find::Rule::DMIDecode; # Arguments. if (@ARGV < 2) { print STDERR "Usage: $0 dir dmi_type\n"; exit 1; } my $dir = $ARGV[0]; my $dmi_type = $ARGV[1]; # Print all dmidecode handles in directory. foreach my $file (File::Find::Rule->dmidecode_type($dmi_type)->in($dir)) { print "$file\n"; } # Output like: # Usage: qr{[\w\/]+} dir dmi_type DEPENDENCIES File::Find::Rule, List::MoreUtils, Parse::DMIDecode, Perl6::Slurp. SEE ALSO File::Find::Rule Alternative interface to File::Find REPOSITORY AUTHOR Michal Josef Špaček LICENSE AND COPYRIGHT © Michal Josef Špaček 2020-2021 BSD 2-Clause License VERSION 0.05