Определите, является ли файл ссылкой на сокет в Linux с помощью Perl

Question

В Linux я могу сделать статистику для файла в каталоге proc и определить, является ли он сокетом.

root@dev:/proc/2221/fd# stat 100
  File: `100' -> `socket:[125598]'

Как получить такой же результат с помощью perl?

Answer 1

Если вы хотите знать только, является ли это сокетом, то:

if(-S $file_name) { /* do something */ }