<div>
<div class="content wysiwyg-content">
I want to find where each users home account is.. I am doing<br />
a:<br />
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;#!/serve/bin/perl -w <br />
&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;open(USERS, &quot;user_list&quot;) || die &quot;could not open file ($!)&quot;;<br />
&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;while(&lt;USERS&gt;) {<br />
&nbsp; &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;$person=&quot;$_&quot;; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp; &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;$local = `ypcat passwd | grep $person`;<br />
&nbsp; &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;print $local;<br />
&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp; &nbsp;<br />
<br />
I want to remove the exta info that the ypcat gives me. &nbsp;I tried doing<br />
a $local =~ s/^$person//g; to start widdling away at the output of $person<br />
but it doesn't work.<br />
<br />
Any suggestions?<br />
<br />
-Allen<br />

</div>
</div>


I want to find where each users home account is.. I am doing
a:

	#!/serve/bin/perl -w 
  	open(USERS, "user_list") || die "could not open file ($!)";
  	while(<USERS>) {
    	  $person="$_";	
    	  $local = `ypcat passwd | grep $person`;
    	  print $local;
  	}    

I want to remove the exta info that the ypcat gives me.  I tried doing
a $local =~ s/^$person//g; to start widdling away at the output of $person
but it doesn't work.

Any suggestions?

-Allen


Help with Perl and removing info from a ypcat

Kernel and system programming is the process of creating the software necessary for a computer or device to function and operate other programs. Some operating systems (such as Microsoft Windows) are proprietary, but others, such as the various Linux distributions, are open source.