how to use grep command in file handling

Question

Am very new to Perl,

My requirement is read one directory and search or match for particular file and handle read that file

I know its very easy to you people but i cannot do that so please give some guidance to complete this

i have listed by code below.

{

#!/usr/bin/perl
use strict;
use warnings;
use File::stat;
use File::Copy;
use Sys::Hostname;

$source_raw_directory = "/dfactory/data/raw/in/";

opendir (DIR,$source_raw_directory) 

#foreach @array (grep(/hiea_._DeletedPatient\.txt$/,readdir(DIR)));
@array = grep (/\hiea_._DeletedPatient\.txt$/,readdir(DIR))
    #print "@array"; 
closedir(DIR);

} am getting error like below

"Array found where operator expected at Deleted_Patient.pl line 45, at end of line (Missing operator before ?) syntax error at Deleted_Patient.pl line 45, near ")

    #foreach @array (grep(/hiea_._DeletedPatient\.txt$/,readdir(DIR)));
     @array "

Deleted_Patient.pl had compilation errors"

Thanks pandia

Sobrique · Accepted Answer · 2017-02-09 11:32:23Z

1

I wouldn't. I find opendir and grep a clunky idiom to be using when you can glob instead.

foreach my $filename ( glob ( "$source_raw_directory/*iea_._DeletedPatient.txt" ) ) {
    print $filename,"\n";
}

Note - glob expands the path, so you'll have full path names. I usually consider that an advantage, because it means you don't ever forget to include the pathname with open calls.

answered Feb 9, 2017 at 11:32

Sobrique

53.6k8 gold badges63 silver badges107 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Dave Cross · Accepted Answer · 2017-02-09 13:36:08Z

0

You say your error includes " (Missing operator before ?)". That's not particularly clear, but it seems to imply that the error comes before the code quoted in the error. The line before @array is a comment, so that's unlikely to be the problem, so let's look at the line before that.

opendir (DIR,$source_raw_directory)

I think it's clear what the problem is. There's no comment at the end of the line.

I tested your code using Perl 5.22.2, which gives the far clearer error message:

Array found where operator expected at test line 13, near ")
#foreach @array (grep(/hiea_._DeletedPatient\.txt$/,readdir(DIR)));
@array"
(Missing semicolon on previous line?)

answered Feb 9, 2017 at 13:36

Dave Cross

69.5k3 gold badges55 silver badges101 bronze badges

Comments

BDL · Accepted Answer · 2017-02-09 09:14:17Z

-1

For first, use google and official POD document, as example http://perldoc.perl.org/functions/readdir.html

And your code worked with this:

$source_raw_directory = "/dfactory/data/raw/in/";

opendir(my $dh, $source_raw_directory) || die "Can't opendir $source_raw_directory: $!";
my @dots = grep { /\hiea_._DeletedPatient\.txt$/ } readdir($dh);
closedir $dh;

edited Feb 9, 2017 at 9:14

BDL

22.4k33 gold badges57 silver badges65 bronze badges

answered Feb 9, 2017 at 9:11

And

1

2 Comments

And Over a year ago

And, if you use "strict", you must set notice for all your vars (my @array = ...)

And Over a year ago

@PANDIALAKSHMANAN what you need in final result?

Collectives™ on Stack Overflow

how to use grep command in file handling

3 Answers 3

Comments

Comments

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

Comments

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related