{"title":"perl\u7d4c\u7531\u306eping\u3068arp\u30b3\u30de\u30f3\u30c9\u3067\u3001mac\u30a2\u30c9\u30ec\u30b9\u306b\u8a72\u5f53\u3059\u308bIP\u3092\u63a2\u7d22","provider_url":"https://hatena.blog","height":"190","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fend0tknr.hateblo.jp%2Fentry%2F20111101%2F1320140128\" title=\"perl\u7d4c\u7531\u306eping\u3068arp\u30b3\u30de\u30f3\u30c9\u3067\u3001mac\u30a2\u30c9\u30ec\u30b9\u306b\u8a72\u5f53\u3059\u308bIP\u3092\u63a2\u7d22 - end0tknr&#39;s kipple - web\u5199\u7d4c\u958b\u767a\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","description":"\u3053\u3093\u306a\u611f\u3058\u304b\u306a\u3041 #!/usr/local/bin/perl use strict; my $DEST_MAC_ADDR = '00:ff:dd:49:2f:76'; my @DHCP_IP_REALM = map(\"192.168.0.$_\", 1..10); #depend on router dhcp config my $PING_CMD= '/bin/ping -c 1 -w 1'; my $ARP_CMD= '/sbin/arp -e'; main(); sub main { my $found_ip = ''; #DESTINATION IP for my $ip ( @DHCP\u2026","version":"1.0","categories":[],"type":"rich","author_url":"https://blog.hatena.ne.jp/end0tknr/","width":"100%","image_url":null,"url":"https://end0tknr.hateblo.jp/entry/20111101/1320140128","blog_url":"https://end0tknr.hateblo.jp/","provider_name":"Hatena Blog","published":"2011-11-01 18:35:28","author_name":"end0tknr","blog_title":"end0tknr's kipple - web\u5199\u7d4c\u958b\u767a"}