I have a client and server application.MY client is sending the username(which it gets through getlogin()) to server.I want server to save all the registered username in a file called username.On receiving the request from client,it checks the username of client in the file and if it founds it ,its gives him permission to go ahead otherwise rejects it. here is what i did: 

$user = <$client_socket>;
 chop($user); #remove the \n
 print "$prefix USER = $user\n";
  unless (open (USERNAME, "username")) 
     {
       print "ERROR:Cannot open username file.\n";
       exit(1); # ERROR
      }
    while(<USERNAME>)
        {
        my @newusername = <USERNAME>;
    foreach $name (@newusername)
        {
       if($name ne $user) {
       print $client_socket "ERR\n";
       print "$prefix ERROR: user $user not permitted to use this mode
+.  Exiting.\n";
       close(USERNAME);
       exit(1);
              }
        }
        }
     #else, continue
     print $client_socket "ACK\n";  # approve the user.  Limit this in
+ the future.
     close(USERNAME);

[download]

this isnt working as even when the file username has client name it is giving "user $user not allowed".

In reply to Re: Accessing a file from the perl by abcdefg
in thread Accessing a file from the perl by abcdefg

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.