タグ

perlに関するyusukekomoのブックマーク (3)

  • 連想配列 - とほほのWWW入門

    ■ 連想配列を使用する ◆ 連想配列とは 連想配列 は、文字列を キー とする配列です。ハッシュ とも呼ばれます。個々の要素は $連想配列名{キー} で表します。配列ではキー(添字)を [...] で囲みますが、連想配列では {...} で囲みます。 $person{'Name'} = "Tanaka"; $person{'Age'} = 26; $person{'Tel'} = "012-345-6789"; print "$person{'Name'} $person{'Age'} $person{'Tel'}\n"; 実行結果は次のようになります。 Tanaka 26 012-345-6789

  • wgetでpost ログイン認証 とpostダウンロード - OZの部屋

    wgetで GETでダウンロードするのはとっても簡単ですが、 POSTの場合一ひねり、さらに認証してセッションを張っているような場合は また一ひねり必要です。 VANで発注していたものが、最近はインターネットEDIにつぎつぎ変わってきています。 モデムでピーガーして接続ダウンロードしていたものがインターネット経由になってきているのですが、自動ダウンロードするにはBacrexというツールを使うというのが一般的らしい。もちろん違うのもたくさんあると思うけど。 Bacrex でダウンロード、アップロードしているけど 貧乏会社はそんなものに金を使う余裕がない。 というか、Bacrexて使いにくそうなので、WGETで ダウンロード、アップロードをやってみることにする。 ダウンロードは割りとすぐ出来たけど、アップロードはちと手こずったよ。 ということで、ここから題 つかうのはWin版のWGET と 

    wgetでpost ログイン認証 とpostダウンロード - OZの部屋
  • Disk I/Oの使用率を監視するワンライナー - kazuhoのメモ置き場

    iostat -x の %util を監視してしきい値を超えたらアラートメール飛ばしたいなぁと思って crontab 書いた。こんな感じ。 */5 * * * * perl -wle 'my $s = `/usr/bin/iostat -xk /dev/sd[abc] 270 2 | tail -4`; print $s if $s =~ m{\s(?:[0-9]{3}|[5-9][0-9])\.[0-9]+$}m'ポイントは、 iostat の後ろから2つ目の引数がサンプリングを行う秒数 tail で デバイス数+1 することで、最後のサンプルを取り出す 正規表現で50%以上だった場合に標準出力に iostat の結果を出す=メール送信

    Disk I/Oの使用率を監視するワンライナー - kazuhoのメモ置き場
  • 1