Splitting a text file into lines

[Real]

Hello.

Code: Select all

proc proc_join {nick uhost hand chan} {
 global myhostmask pmfile
  if {$uhost == $myhostmask} {
     set pmfileread [open $pmfile r]
     set pmdata [read -nonewline $pmfileread]
     close $pmfileread
     putserv "PRIVMSG $nick :$pmdata" 
   }
 }

This is my code.

If for example in the text is:

Code: Select all

This is sentence 1
This is sentence 2
This is sentence 3

How can I make it so that the eggdrop pm's me saying each sentence in a new line? I tried using split, but it splits up the data as seperate words, and I need full sentences


Big thanks

[caesar]

Code: Select all

set f [open "the_file.txt" r] 
while {[gets $f l]>-1} {
  putserv "PRIVMSG $nick :$l"
}