오류 내가 주소록 시뮬레이션해야하는 간단한 프로그램 만든

Question

기록 사용 : 내가 호출 할 때

%% API 
-export([]). 
-export([createAddressBook/0]). 
-export([checkIfExist/3]). 
-export([addContact/3]). 
-record(entry,{nameAndSurname,n_phone,email}). 

createAddressBook() -> 
    Test = #entry{nameAndSurname = {"Marcin", "Majewski"}, n_phone = [997], email=["call@call.tv"]}, 
    [Test]. 

checkIfExist(_,_,[]) -> false; 
checkIfExist(Name,Surname,[H|L]) -> 
    if 
    H#entry.nameAndSurname == {Name,Surname} -> true; 
    true -> checkIfExist(Name,Surname,L) 
    end. 

addContact(Name,Surname,L)-> 
    case checkIfExist(Name,Surname,L) of 
    true -> io:format("Entry already exist, nothing was created!"); 
    _ -> newEntry = #entry{nameAndSurname = {Name,Surname}, n_phone = [],email = []},lists:append(L,newEntry) 
    end. 

을하지만 :

: 나는 오류를 얻고있다

X=module_name:createAddressBook(). 
B=module_name:addContact("Name","Surname",X). 

을

** exception error: no match of right hand side value 
{entry,{"Name","Surname"},[],[]} 
in function addContact 

이 문제의 원인을 이해할 수 없습니다.

Answer 1

당신은 원자 레코드를 할당하려고 애 쓰고있다 : 소문자에서

newEntry = #entry{nameAndSurname = {Name,Surname}, n_phone = [],email = []},lists:append(L,newEntry) 

newEntry부터 시작, 얼랑 원자로 취급하지만, 변수가 없습니다. 그냥 변경하십시오 :

NewEntry = #entry{nameAndSurname = {Name,Surname}, n_phone = [],email]}, 
lists:append(L,NewEntry)