I tried you idea. I sent you the output right. It is
searching /
etc.........
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
--- Sudhir Sambrani <[EMAIL PROTECTED]> wrote:
> $PATHP is the absolute path of the find utility
>
>
> i guess the difference is bcos the value of $Hme is
> changing
> where as at the command line / is constant
>
> try printing out the value of $Hme each time to
> check
>
>
>
>
>
>
> ----- Original Message -----
> From: "sreenath sarikonda" <[EMAIL PROTECTED]>
> To: "Wiggins d Anconia" <[EMAIL PROTECTED]>
> Cc: <[EMAIL PROTECTED]>
> Sent: Thursday, June 17, 2004 1:15 PM
> Subject: Re: find command works different when used
> in perl script
>
>
> > 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>
> >
> >
>
> --
> To unsubscribe, e-mail:
> [EMAIL PROTECTED]
> For additional commands, e-mail:
> [EMAIL PROTECTED]
> <http://learn.perl.org/>
> <http://learn.perl.org/first-response>
>
>
>
__________________________________
Do you Yahoo!?
Read only the mail you want - Yahoo! Mail SpamGuard.
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>
