Free find out software for linux

MP3::Find is a Perl module to search and sort MP3 files based on their ID3 tags.

SYNOPSIS

# select with backend you want
use MP3::Find qw(Filesystem);

print "$_n" foreach find_mp3s(
dir => /home/peter/cds,
query => {
artist => ilyaimy,
title => deep in the am,
},
ignore_case => 1,
exact_match => 1,
sort => [qw(year album tracknum)],
printf => %2n. %a - %t (%b: %y),
);

This module allows you to search for MP3 files by their ID3 tags. You can ask for the results to be sorted by one or more of those tags, and return either the list of filenames (the deault), a printf-style formatted string for each file using its ID3 tags, or the actual Perl data structure representing the results.

There are currently two backends to this module: MP3::Find::Filesystem and MP3::Find::DB. You choose which one you want by passing its name as the argument to you use statement; MP3::Find will look for a MP3::Find::$BACKEND module. If no backend name is given, it will default to using MP3::Find::Filesystem.
Note: Im still working out some kinks in the DB backend, so it is currently not as stable as the Filesystem backend.

Note the second: This whole project is still in the alpha stage, so I can make no guarentees that there wont be significant interface changes in the next few versions or so. Also, comments about what about the API rocks (or sucks!) are appreciated.

File::Find is a Perl module to traverse a directory tree.

SYNOPSIS

use File::Find;
find(&wanted, @directories_to_search);
sub wanted { ... }

use File::Find;
finddepth(&wanted, @directories_to_search);
sub wanted { ... }

use File::Find;
find({ wanted => &process, follow => 1 }, .);

These are functions for searching through directory trees doing work on each file found similar to the Unix find command. File::Find exports two functions, find and finddepth. They work similarly but have subtle differences.

find

find(&wanted, @directories);
find(%options, @directories);

find() does a depth-first search over the given @directories in the order they are given. For each file or directory found, it calls the &wanted subroutine. (See below for details on how to use the &wanted function). Additionally, for each directory found, it will chdir() into that directory and continue the search, invoking the &wanted function on each file or subdirectory in the directory.

finddepth

finddepth(&wanted, @directories);
finddepth(%options, @directories);

finddepth() works just like find() except that is invokes the &wanted function for a directory after invoking it for the directorys contents. It does a postorder traversal instead of a preorder traversal, working from the bottom of the directory tree up where find() works from the top of the tree down.

File::Find::Closures is a Perl module with functions you can use with File::Find.

SYNOPSIS

use File::Find;
use File::Find::Closures qw(:all);

my( $wanted, $list_reporter ) = find_by_name( qw(README) );

File::Find::find( $wanted, @directories );
File::Find::find( { wanted => $wanted, ... }, @directories );

my @readmes = $list_reporter->();

SOME PARTS ARE NOT IMPLEMENTED YET! THIS IS ALPHA ALPHA SOFTWARE: A MERE SHELL OF AN IDEA.

I wrote this module as an example of both using closures and using File::Find. Students are always asking me what closures are good for, and heres some examples. The functions mostly stand alone (i.e. they dont need the rest of the module), so rather than creating a dependency in your code, just lift the parts you want).

When I use File::Find, I have two headaches---coming up with the &wanted function to pass to find(), and acculumating the files.

This module provides the &wanted functions as a closures that I can pass directly to find(). Actually, for each pre-made closure, I provide a closure to access the list of files too, so I dont have to create a new array to hold the results.

The filenames are the full path to the file as reported by File::Find.
Unless otherwise noted, the reporter closure returns a list of the filenames in list context and an anonymous array that is a copy (not a reference) of the original list. The filenames have been normalized by File::Spec::canonfile unless otherwise noted. The list of files has been processed by File::Spec::no_upwards so that "." and ".." (or their equivalents) do not show up in the list.

SYNOPSIS

use File::Find::Rule;
# find all the subdirectories of a given directory
my @subdirs = File::Find::Rule->directory->in( $directory );

# find all the .pm files in @INC
my @files = File::Find::Rule->file()
->name( *.pm )
->in( @INC );

# as above, but without method chaining
my $rule = File::Find::Rule->new;
$rule->file;
$rule->name( *.pm );
my @files = $rule->in( @INC );

NetAddr::IP::Find is a Perl module to find IP addresses in plain text.

SYNOPSIS

use NetAddr::IP::Find;
$num_found = find_ipaddrs($text, &callback);

This is a module for finding IP addresses in plain text.

Functions

NetAddr::IP::Find exports one function, find_ipaddrs(). It works very similar to URI::Finds find_uris() or Email::Finds find_emails().

$num_ipaddrs_found = find_ipaddrs($text, &callback);

The first argument is a text to search through and manipulate. Second is a callback routine which defines what to do with each IP address as theyre found. It returns the total number of IP addresses found.

The callback is given two arguments. The first is a NetAddr::IP instance representing the IP address found. The second is the actual IP address as found in the text. Whatever the callback returns will replace the original text.

EXAMPLES

# For each IP address found, ping its host to see if its alive.
use Net::Ping;
my $pinger = Net::Ping->new;
my %pinged;
find_ipaddrs($text, sub {
my($ipaddr, $orig) = @_;
my $host = $ipaddr->to_string;
next if exists $pinged{$host};
$pinged{$host} = $pinger->ping($host);
});

while (my($host, $up) == each %pinged) {
print "$host is " . $up ? up : down . "n";
}


# Resolve IP address to FQDN
find_ipaddrs($text, sub {
my($ipaddr, $orig) = @_;
resolve_ip($ipaddr->to_string);
});

sub resolve_ip {
use Net::DNS;
# see perldoc Net::DNS for details
}

Arping is an ARP level ping utility. Its good for finding out if an IP is taken before you have routing to that subnet. You can also ping MAC addresses directly.

Broadcasts a who-has ARP packet on the network and prints answers. VERY useful when you are trying to pick an unused IP for a net that you dont yet have routing to. Then again, if you have no idea what Im talking about then you prolly dont need it.

Arping is util to find out it a specific IP address on the LAN is taken and what MAC address owns it. Sure, you *could* just use ping to find out if its taken and even if the computer blocks ping (and everything else) you still get an entry in your ARP cache. But what if you arent on a routable net? Or the host blocks ping (all ICMP even)? Then youre screwed. Or you use arping.

MP3::Find::Filesystem is a File::Find-based backend to MP3::Find.

SYNOPSIS

use MP3::Find::Filesystem;
my $finder = MP3::Find::Filesystem->new;

my @mp3s = $finder->find_mp3s(
dir => /home/peter/music,
query => {
artist => ilyaimy,
album => myxomatosis,
},
ignore_case => 1,
);