Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: PERL or SHELL Scrript to search in Directories by taking line by line from a text file
Top Forums Shell Programming and Scripting PERL or SHELL Scrript to search in Directories by taking line by line from a text file Post 302583265 by Skrynesaver on Tuesday 20th of December 2011 04:30:17 AM
Old 12-20-2011
Something like the following?
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);
    }
}

As far as I know File::Find is a core module in both Perl versions you list.
Last edited by Skrynesaver; 12-20-2011 at 07:13 AM.. Reason: Anchored the file selection regex and added a warning for un-readable files
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl: Search for string on line then search and replace text

Hi All, I have a file that I need to be able to find a pattern match on a line, search that line for a text pattern, and replace that text. An example of 4 lines in my file is: 1. MatchText_randomNumberOfText moreData ReplaceMe moreData 2. MatchText_randomNumberOfText moreData moreData... (4 Replies)
Discussion started by: Crypto
4 Replies

2. UNIX for Dummies Questions & Answers

how can search a String in one text file and replace the whole line in another file

i am very new to UNIX plz help me in this scenario i have two text files as below file1.txt name=Rajakumar. Discipline=Electronics and communication. Designation=software Engineer. file2.txt name=Kannan. Discipline=Mechanical. Designation=CADD Design Engineer. ... (6 Replies)
Discussion started by: kkraja
6 Replies

3. Shell Programming and Scripting

reverse search a text file from a specified line

Hello All, I have a following task that I need to accomplish through a script or program and I am looking for some help as I have exhausted my ideas. 1. given: a text file with thousands of lines 2. find: pattern A in file and get line number ( grep -n works) 3. find: the first occurence of... (14 Replies)
Discussion started by: PacificWonder
14 Replies

4. Shell Programming and Scripting

Perl script to search a line and copy it to another line

Hi I have a log file (say log.txt). I have to search for a line which has the string ( say ERROR) in the log file and copy 15 lines after this into another file (say error.txt). Can someone give me the code and this has to be in PERL Thanks in advance Ammu (3 Replies)
Discussion started by: ammu
3 Replies

5. Shell Programming and Scripting

Search text from a file and print text and one previous line too

Hi, Please let me know how to find text and print text and its previous line. Please don't get irritated few days back I asked text and next line. I am using HP-UX 11.11 Thanks for your help. (6 Replies)
Discussion started by: kamranjalal
6 Replies

6. Shell Programming and Scripting

get the fifth line of a text file into a shell script and trim the line to extract a WORD

FOLKS , i have a text file that is generated automatically of an another korn shell script, i want to bring in the fifth line of the text file in to my korn shell script and look for a particular word in the line . Can you all share some thoughts on this one. thanks... Venu (3 Replies)
Discussion started by: venu
3 Replies

7. Shell Programming and Scripting

perl search and replace - search in first line and replance in 2nd line

Dear All, i want to search particular string and want to replance next line value. following is the test file. search string is tmp,??? ,10:1 "???" may contain any 3 character it should remain the same and next line replace with ,10:50 tmp,123 --- if match tmp,??? then... (3 Replies)
Discussion started by: arvindng
3 Replies

8. UNIX for Dummies Questions & Answers

search all file for particular text and make changes to line 3

Hi All, I am sitting on HPUX. I want to change the exit into #exit, which appears into 3red line of code in shell scripting, wondering how shell script to be called up to perform action. I have following code in all files. Now, I need to find the text exit and replace into #exit. #!/sbin/sh... (10 Replies)
Discussion started by: alok.behria
10 Replies

9. Shell Programming and Scripting

Shell script to read a text file line by line & process it...

Hi , I am trying to write an shell, which reads a text file (from a location) having a list of numbers of strictly 5 digits only ex: 33144 Now my script will check : 1) that each entry is only 5 digits & numeric only, no alphabets, & its not empty. 2)then it executes a shell script called... (8 Replies)
Discussion started by: new_to_shell
8 Replies

10. Shell Programming and Scripting

Shell script UNIX to read text file line by line

i have a text file as belows, it includes 2 columns, 1st is the column name, 2nd is the file_name data_file.txt column_name file_name col1 file1 col2 file2 col3 file1 col4 file1 col5 file2 now, i would like to... (4 Replies)
Discussion started by: tester111
4 Replies

LEARN ABOUT DEBIAN

file::find::rule::procedural

File::Find::Rule::Procedural(3pm)			User Contributed Perl Documentation			 File::Find::Rule::Procedural(3pm)

NAME

       File::Find::Rule::Procedural - File::Find::Rule's procedural interface

SYNOPSIS

	 use File::Find::Rule;

	 # find all .pm files, procedurally
	 my @files = find(file => name => '*.pm', in => @INC);

DESCRIPTION

       In addition to the regular object-oriented interface, File::Find::Rule provides two subroutines for you to use.

       "find( @clauses )"
       "rule( @clauses )"
	   "find" and "rule" can be used to invoke any methods available to the OO version.  "rule" is a synonym for "find"

       Passing more than one value to a clause is done with an anonymous array:

	my $finder = find( name => [ '*.mp3', '*.ogg' ] );

       "find" and "rule" both return a File::Find::Rule instance, unless one of the arguments is "in", in which case it returns a list of things
       that match the rule.

	my @files = find( name => [ '*.mp3', '*.ogg' ], in => $ENV{HOME} );

       Please note that "in" will be the last clause evaluated, and so this code will search for mp3s regardless of size.

	my @files = find( name => '*.mp3', in => $ENV{HOME}, size => '<2k' );
							   ^
							   |
		      Clause processing stopped here ------/

       It is also possible to invert a single rule by prefixing it with "!"  like so:

	# large files that aren't videos
	my @files = find( file	  =>
			  '!name' => [ '*.avi', '*.mov' ],
			  size	  => '>20M',
			  in	  => $ENV{HOME} );

AUTHOR

       Richard Clamp <richardc@unixbeard.net>

COPYRIGHT

       Copyright (C) 2003 Richard Clamp.  All Rights Reserved.

       This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

       File::Find::Rule

perl v5.12.4							    2011-09-19					 File::Find::Rule::Procedural(3pm)
All times are GMT -4. The time now is 10:10 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy