read and split file in emacs lisp

test.el

#!/usr/local/bin/emacs --script

(defun read-lines (filename)
  (with-temp-buffer
    (insert-file-contents filename)
    (split-string (buffer-string) "\n" t)))


;; test.log                                                                                                                                                   
;; 111111,22222222222,3333333333333                                                                                                                           
;; 2222222222,3333333333,444444444                                                                                                                            
;; 555555555,222222222,1111111                                                                                                                                
;; 555555555,2222222,111111111                                                                                                                                


(dolist (var (read-lines "test.log"))
  (print (split-string var "," t)))


;; ("111111" "22222222222" "3333333333333")                                                                                                                   

;; ("2222222222" "3333333333" "444444444")                                                                                                                    

;; ("555555555" "222222222" "1111111")                                                                                                                        

;; ("555555555" "2222222" "111111111") 

it rocks, but I don't think it was in the right way.