can you open /x02/bee/MY_FILE from the command line with something like cat? What are the perms if you ls -l /x02/bee/MY_FILE? Does this match your user/group settings?

Cheers,
R.

Thanks. Yes there are no problems with the file permissions sir. Each and every one of those files have read permission.

there are no problems with the file permissions

If you are getting a permission denied error I am afraid that there is a problem with permissions, however probably not an obvious one.

Can you add the following code between the if -e and the open FH2 line and tell us the results.

        my @file_stat = stat "$users{$user}/MY_FILE";
        my @dir_stat =  stat "$users{$user}";
        printf("%d $users{$user}         -> 0%o %d %d\n", $>, $dir_sta
+t[2] & 07777, $dir_stat[4], $dir_stat[5]);
        printf("%d $users{$user}/MY_FILE -> 0%o %d %d\n", $>, $file_st
+at[2] & 07777, $file_stat[4], $file_stat[5]);
[download]

Update: tidied up code no functionality changed.

Can you try this version and see if any files are opened?

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

# my $fname = '.profile';
my $fname = 'MY_FILE';
my %users =  %{user_paths()};
for my $user (keys %users) {
    my $fh;
    if (open $fh, '<', "$users{$user}/$fname") {
        while (my $line = <$fh>) {
            if ($line =~ /BASE_PORT=(\d+)/) {
                print  "$user --> $1";
            }
        }
    }
    else {
        warn "couldn't open $users{$user}/MY_FILE $!";
    }
}

sub user_paths {
    my %users;
    open my $fh, '<', "/etc/passwd" || die "Can't Open : $!";
    while (<$fh>) {
        my @user = split (/:/);
        if ( $user[2] > 500 ) {
            $users{$user[0]} = "$user[5]";
        }
    }
    return \%users;
}
[download]

Cheers,
R.

Thank you very much R, It worked. :) I owe a big apology to people who tried to help me out because I found out that the string I was looking for in the "MY_FILE" file was "SREG_PORT" not "BASE_PORT". I have wasted your time and mine over some silly thing that I should have easily realized. Sorry gentlemen

Mr R, with right key word being searched the script I initially mentioned in my question also works but I do get that readline error message printed only once on the screen. I tried tweaking the scrit a bit but no luck. Im gonna use your script as it is very clean and solid, but Id still like to realize what I have done wrong to get that error.

following is the output when I run my version of script

supun  -->  40000
  sam  -->  25000
readline() on closed filehandle $fh at ./base_ports.pl line 11.
  binasha  -->  10000
  bundy -->  37000
  binjiya  -->  5000
[download]

Following is my version of script

my $fname = 'MY_FILE';
my %users =  %{user_paths()};
foreach my $user (keys %users) {
        my $fh;
    if (-e "$users{$user}/$fname") {
    open ($fh, '<', "$users{$user}/$fname"); 
    while (my $line = <$fh>) { 
            if ($line =~ /S_REG_PORT_NO=(\d+)/) {
               print "  $user  -->  $1\n";
                
            }
        }
    }
  }

sub user_paths {
    my %users;
    open my $fh, '<', "/etc/passwd" || die "Can't Open : $!";
    while (<$fh>) {
        my @user = split (/:/);
        if ( $user[2] > 500 ) {
        $users{$user[0]} = "$user[5]";
                    
        }
    }
    return \%users;
    }
[download]

Only different thing Im doing here is that Im checking the existence of the file first with the "-e". Please help me figure this out. I just like to learn is all :) thanks again for helping out gentlemen.

Is it possible a user has a folder called MY_FILE ? . If so, this code should find it .

foreach my $user (keys %users) {
  my $fh;
  my $file = "$users{$user}/$fname";
  if (-d $file){
    print "$file is directory for user $user\n";
  } elsif (-e $file ) {
    open ($fh, '<', $file) or warn "Could not open $file for user $use
+r :$!" ; 
    while (my $line = <$fh>) { 
      if ($line =~ /S_REG_PORT_NO=(\d+)/) {
        print "  $user  -->  $1\n";
      }
    }
  } else {
    print "$file does not exist for user $user\n";
  }
}
[download]

poj