perl script

[Guest_imported]

i need help finishing a script that looks through my password directory for two or more users with the same name and print those namesin standard out put this is what i have
myfile- 'etc/passwd';
open$file || or die (Can not open $myfile\n);
while(){
($uname,$password,$uid,$gid,$username,$home,$shell);
printf
}

 

[raider2001]

The following should work:

$myfile = '/etc/passwd';
open(F, "$myfile&quot or die "Can't open $myfile\n";
while(<F>){
@info = split &quot;:&quot;;
$uname = $info[0];
@match = grep /^$uname$/, @names if (defined(@names));
print &quot;Duplicate user names: $uname @match \n&quot; if ($#match > -1);
push(@names, $uname);
}

 

[patel]

Hi
How many time you are asking this question under different name?

Sachin

 

[MikeLacey]

Patel - I'm wondering if these questions maybe *do* all come from different people, but maybe all on the same course.... Mike
michael.j.lacey@ntlworld.com
Email welcome if you're in a hurry or something -- but post in tek-tips as well please, and I will post my reply here as well.

 

[patel]

No Mike this is same person. &quot;nhelper&quot; then nhelper1. Looks like same pattern. But if I am wrong then sorry.

I don't mind answering/asking question.

Patel

 

[MikeLacey]

Oh - I wasn't criticising you Patel - in fact these &quot;assignment questions&quot; where people just seem to copy-and-paste into tektips irritate my a little, I don't mind helping at all (like it) but resent being asked to do someone's assignment for them Mike
michael.j.lacey@ntlworld.com
Email welcome if you're in a hurry or something -- but post in tek-tips as well please, and I will post my reply here as well.

 

[patel]

Oh ic.
Hi Mike, Don't worry in future even if you critice me. Bythe way I didn't even feel that you are criticicing. I really don't take most of the stuff personally. And I know if you critice me that might be good for me.

Patel