向文件中添加記錄問題

ubac

向一個文件添加學生記錄，包括id,password
現(xiàn)在遇到的問題是：
如果文件中存在記錄的話，不能往里面寫空記錄；但是如果文件本身就是空白的，這時候往里面添加
空白記錄竟然成功了，難道每個新創(chuàng)建的文件開頭都存在一個空白符？應該怎么去除啊？

1. 
   
2. my ( $id, $pwd );    #需要添加的用戶id和密碼
   
3. my $list;
   
4. open(AD, "+<userInfo.csv") || die "cannot access file userInfo.csv:$!"
   
5. while( <AD> )
   
6. {
   
7.     if( $id eq '' || $pwd eq '' )
   
8.    {
   
9.         close(AD);
   
10.    }
    
11.     $list .= join( "," $id, $pwd )."\n";
    
12.     print AD $list;
    
13. 
    
14.     close(AD);
    
15. }   
    

復制代碼

蘭花仙子

你再check下吧.
1) 邏輯有問題;
2) 打開文件的方式不對.

ubac

麻煩說具體點吧，謝謝~~

ulmer

Thinking in logic:
1. create a new file (empty) if not exists.
    open F ">user.txt" or die $!;
    # insert first or initial records
    close F;
2. reading  this created file
3. processing data (old and new), for data uniqu, using hash is one of a choice.
4. appending new records to existed file, using open F, ">>user.txt" .

see
    perldoc -f open
    perldoc perlopentut
will more help you.   

-- ulmer