如何使用perl从wireshark k12文件中提取源、目标ip和协议类型？

Question

嘿，伙计们，我正在试着从wireshark捕获的数据中提取源ip和目标ip以及协议类型。必须是一个perl程序，它将在屏幕上打印源/目标/协议类型。

这是文件中的一段代码片段

+---------+---------------+----------+
03:00:22,827,689   ETHER
|0   |01|00|5e|7f|ff|fa|c0|14|3d|5a|61|21|08|00|**45|00|00|7a|00|00|40|00|01|11|c7|44|c0|a8|01|8c|ef|ff|ff|fa**|e6|78|07|6c|00|66|13|60|4d|2d|53|45|41|52|43|48|20|2a|20|48|54|54|50|2f|31|2e|31|0d|0a|48|4f|53|54|3a|20|32|33|39|2e|32|35|35|2e|32|35|35|2e|32|35|30|3a|31|39|30|30|0d|0a|4d|41|4e|3a|20|22|73|73|64|70|3a|64|69|73|63|6f|76|65|72|22|0d|0a|4d|58|3a|20|33|0d|0a|53|54|3a|20|73|73|64|70|3a|61|6c|6c|0d|0a|0d|0a|

我知道粗体是源ip和目标ip，|11|是协议类型。只是不确定如何转换/读取然后打印出来。有什么想法吗？

Answer 1

我会从Net::Sharktools开始