var %:p = 1 | while %:p <= $lines(acport.txt) {
.hadd -ms Port List $hget(Port,List) $read(acport.txt,%:p)
inc %:p
}
msg # $hget(Port,List) Port'ları kapatıldı..