Perl Script to read an excel file into an array and search in the UNIX directories

Linux and Unix-Like UNIX and Linux Applications
1

Hi,
I want the Perl script with versions 5.8.2 and 5.8.5 starting with

#!/usr/bin/perl

The Perl program should read the excel file or text file line by line and taking into an array and search in the UNIX directories for reference file of .jsp or .js or .xsl with path .The Object names in the excel or text file will be having the spaces
(for Ex:
Eliminate Proc
Sample Text
----------
--------
)

The output will be like this:
line1
.../start/login.jsp
../start/reg.js
--------------------------
line2
../start/login.xsl
../script/log.js
----------------

.....

Plz help me out in this ..........................
Thanks in advance:b:

2

what u tried so far ?

3

Code:
#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
# usage $0 <directory list>
open (my $input, '<', "names.txt")
||die "Couldn't open names.txt file:\n\t$!\n";
while (<$input>){
print "$\n";
find(sub {wanted($)} , @ARGV);
}

sub wanted{
if (/\.jsp?$/){
my $regex=shift;
open(my $current_file, '<', $) || print "Could not read $:\n\t$!\n";
FILE:
while(<$current_file>){
if(/$regex/){
print "$File::Find::name";
next FILE;
}
}
close($current_file);
}
}

So, Plz correct me and after searching I want to get the Output in output file (either text file or excel file )with Object name and reference file .........

Thanks .