Please group reply so everyone can help and be helped
(and to avoidbeing accidentally ignored).
> Wiggins ,
> Thank you for the reply
> You haven't told us what the difference is, but out
> > of curiousity why
> > are you using $PATHP to start your search, isn't
> > that what $Hme is for?
I am sending you a modified code and ouput is
#./passwd.pl
seraching /
/usr/sbin/a.txt
/scripts/a.txt
/a.txt
seraching /
/usr/sbin/a.txt
/scripts/a.txt
/a.txt
seraching /usr/bin
seraching /
/usr/sbin/a.txt
/scripts/a.txt
we can see that find is executing as find / etc....
and now when I run the find command in bash
find / -name \*.txt
/var/apache/icons/small/README.txt
/usr/openwin/lib/X11/Xcms.txt
/usr/openwin/lib/X11/rgb.txt
/usr/openwin/lib/locale/C/help/handbooks/sample.txt
/usr/openwin/lib/locale/C/help/olittable/Ab-G.txt
/usr/openwin/lib/locale/C/help/olittable/Bb.txt
/usr/openwin/lib/locale/C/help/olittable/Ca.txt
/usr/openwin/lib/locale/C/help/olittable/Cb.txt
/usr/openwin/lib/locale/C/help/olittable/Cp.txt
/usr/openwin/lib/locale/C/help/olittable/Da.txt
/usr/openwin/lib/locale/C/help/olittable/Dt.txt
****************************************
#!/usr/bin/perl -w
use strict;
my $file_name="/etc/passwd.bkp";
my $PATHP="/bin/";
open ( FIN,$file_name) or die "cannot open $file_name
",$!;
my $line;
while($line=<FIN>){
my @user_details = split(":",$line);
chomp(@user_details);
my $user= $user_details[0];
my $Hme = ($user_details[5]);
#chomp($Hme);
#chomp($user);
print "seraching \t ", $Hme ,"\n" ;
system("$PATHP/find $Hme -name \*.txt")
}
close FIN;
__________________________________________________
If I am able to work this out it would be a great
benefit to me.
Thank you
sree
__________________________________
Do you Yahoo!?
Yahoo! Mail Address AutoComplete - You start. We finish.
http://promotions.yahoo.com/new_mail
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
