#!/usr/bin/perl
use strict;
use warnings;

use File::Find;
my $DIRECTORY = "/Users/data/";
find(\&edits, $DIRECTORY);
sub edits()
{
 if ( -f and /.txt$/ ) {  #Find files ending in .txt and drill down al
+l sub dirs
   my $TEXT_FILE = $_; #save the results to $_;
   open MATCHING_FILE, $TEXT_FILE;
   my @all_lines = <MATCHING_FILE>; #Place everything into an array ca
+ll all_lines
   close MATCHING_FILE;
   for my $each_line ( @all_lines ) {
     if ( $each_line =~ /[\d]{1,3}\.[\d]{1,3}\.[\d]{1,3}\.[\d]{1,3}|pa
+ssword|(ssn=)/i ) { #Search for IP or password or ssn=
       #print $each_line, "Found in $File::Find::name\n";
       print $each_line; # Print each line that is found
       }
     }
   }
 }
[download]

Results from all files in a directory
192.168.1.1
192.168.1.1
192.168.1.1
64.22.34.66
221.245.23.44
PASSWORD=FpnmRjE
[download]

This is a faq. See perldoc4, near unique. I also find the following entries when googling for perl unique:

• Recipe 4.6. Extracting Unique Elements from a List (in the Perl Cookbook, no link from here)
• How can I extract just the unique elements of an array?

... and some more. I wonder whether you've seen these links and what parts of the solutions presented there you had problems with.

one quick note glancing at this:


• use /\.txt$/ (not /.txt$/) to be exact... altho the latter will probably work in this context, consider the difference between \. and .

You can simplify your long regexp with :


use Regexp::Common qw /net/;

/\A $RE{net}{IPv4} | password | (ssn=) \z/xmi;
[download]

hth,

PooLpi


'Ebry haffa hoe hab im tik a bush'. Jamaican proverb

Update: Oops,if it's a succession of alternatives : moritz++ ;)
I also forgot the /m

I know that TheDamian recommends character classes to escape chars in regexes (in PBP), but it's generally a bad idea because it will disable some optimizations (at least in older versions of perl, don't know about current ones).

Also \| is shorten than [|], and thus less noise that your brain has to parse.

But in the original post the | isn't escaped at all, so you're actually modifiying the behaviour of the regex.