delay1.awk

然後稍微檢查一下 tcl、tck 的版本與路徑

BEGIN{
    highest_packet_id = 0;
}
{
    action = $1;
    time = $2;
    packet_id = $6;
    type = $7;
    
   # if(type == "AODV"){
        if(packet_id > highest_packet_id)
	    highest_packet_id = packet_id;

	if(start_time[packet_id] == 0)
	    start_time[packet_id] = time;

	if(action != "D"){
	    if(action == "r"){
	        end_time[packet_id] = time;
            }else{
	        end_time[packet_id] = -1;
            }
	}
   # }
}
END{
    for(packet_id = 0; packet_id <= highest_packet_id; packet_id ++){
        start = start_time[packet_id];
	end = end_time[packet_id];
	packet_duration = end - start;

	if(start < end && packet_duration < 2) printf("%f %f\n", start, packet_duration);
    }
}