国立感染症研究所に不正アクセス、20年前のPerlプログラムが想定外の動作
国立感染症研究所は2020年3月4日、管理するサーバーが不正アクセスを受け、想定外の動作をしていたと発表した。3月5日現在、サーバーを停止し、外部からアクセスできないようにしている。新型コロナウイルス関連などの内部情報の流出は確認されていない。 感染研の説明によれば、3月2日午前0時39分ごろ、2012年まで公式Webサイト用に使っていた「www0.nih.go.jp」というサーバーから外部の電子掲示板に書き込みがあった。電子掲示板の利用者からの通報で事態が発覚した。 www0.nih.go.jpは公式Webサイト用に使わなくなっていたが、所員が比較的自由に使えるファイルサーバーとして運用を続けていた。「20年以上前にPerl言語で作られたCGIプログラムに脆弱性があり、外部から操作されてしまった」（ネットワーク管理者）。CGIプログラムを通じて別のPerlプログラムファイルがサーバー上に
Perl を書き続ける理由と大事にしたいこと | #interest_ae
私がプログラミングをするときの第一言語は Perl です。周囲には「私は Perl 以外のプログラミング言語はよくわかりません」と念を押すくらいには Perl ばかり書いています。 しかし、2018年の今日 Perl は一定の役割を終えた古い言語とみなされ、メインストリームからは退いたと多くの人が考えています。10年前の2008年を思い返しても、複数の対抗言語の登場で Perl に陰りがあった事は事実ですし、今日のメインストリームに Perl が居ないことを改めて言う必要も無いでしょう。 それでもなぜ私は Perl を書き続けるのか、少し考えてみました。 私と Perl 私と Perl との本格的な出会いの場は、大学院を卒業した2003年に入社したIT企業です。その会社がメインで使用していたプログラミング言語が Perl だったので自然と Perl を書くようになりました。 2003年3月
Perlで書き初め - Shohei Yoshida's Diary
あけましておめでとうございます。 今年も何卒よろしくお願いします。 新年の初めなので書き初めをしたいと思います。 元ネタ 週記くらい | Common Lispで書き初め vallog: 2012年が明けたので書き初めしました。lispで。 ソース 試行錯誤して微調整した感じですが。 #!/usr/bin/env perl package App::Kakizome; use strict; use warnings; use GD; use Encode; use Encode::Locale; sub new { my $class = shift; bless {}, $class; } my $mainfont = $ENV{HOME} . '/.fonts/aoyagireisyosimo.ttf'; my $subfont = '/usr/share/fonts/truetyp
livedoor knowledge: カテゴリーを一覧表示するには？
2012年12月3日をもちまして、livedoor ナレッジのサービスは終了いたしました。 livedoor ナレッジを長年ご愛顧いただきまして、誠にありがとうございました。 今後ともLINE株式会社のサービスをよろしくお願いいたします。
電話番号、郵便番号にマッチする真の正規表現 : にぽたん研究所
Shibuya.pm #16 「夏の正規表現祭り」で、正規表現のお話をさせていただきました。 まぁ、「電話番号にマッチする正規表現」とか「郵便番号にマッチする正規表現」とかよく書かれてるけど、「どれもこれも手緩いよね」って話。 あ、だいぶはしょったかな。 とりあえずスライドに書いたので、発表をご覧になってない方はスライドからご覧ください。 ふと見返すと、このブログで電話番号の正規表現を公表するのは 3 度目ですが、あれからだいぶ経ってますね。 今ではもっと厳密な正規表現を作っています。 そして、Number::Phone::JP に続き、Number::ZipCode::JP という酔狂なモジュールが公開された記念で、郵便番号にマッチする正規表現を今回初めて公開しますが、そもそもここまで厳密な正規表現が公開されること自体、本邦初公開ってヤツでしょう。 Shibuya.pm でも言いましたが
Perlの正しい潰し方 - TKSKを作る人のネタ帳 〜人格崩壊〜
Perlを潰したい他の言語の派閥の人に教えてあげます。Perlの正しい潰し方を。 まず言語自体を潰すのは難しいと考えてください。 いいとこ取りして出来た言語なので、致命的な欠点がありません。 狙いどころは開発体制やコミュニティなどです。 過去に失敗したが、そんなに無茶ではない方法 最初に何個か便利なライブラリをPerlで作ってリリースしてください。 #perl-users, #perl-casualの両方にアナウンスするのをおすすめします。 これでPerlコミュニティに潜入できます。 自分の作ったライブラリを標準添付してくれと言い張ります。#perl-casualで議論することを勧めます。 #p5pではコミュニティのメインストリームでしか議論が起きません。 拒否されたら、それまでに追加された標準添付ライブラリの採用根拠を説明させます。 ライブラリのメンテナ一覧を出してくれと騒ぎます。 #p
常識を覆すソートアルゴリズム！その名も"sleep sort"！ - Islands in the byte stream (legacy)
TwitterのTLで知ったのだが、少し前に海外の掲示板で"sleep sort"というソートアルゴリズムが発明され、公開されたようだ。このアルゴリズムが面白かったので紹介してみる。 Genius sorting algorithm: Sleep sort 1 Name: Anonymous : 2011-01-20 12:22 諸君！オレは天才かもしれない。このソートアルゴリズムをみてくれ。こいつをどう思う？ #!/bin/bash function f() { sleep "$1" echo "$1" } while [ -n "$1" ] do f "$1" & shift done wait example usage: ./sleepsort.bash 5 3 6 3 6 3 1 4 7 2 Name: Anonymous : 2011-01-20 12:27 >>1 なん…だと
perlのsortって評価するたびにスコープ作ってんじゃないの？ - Yappo::タワシ
作ってないっぽい? 少なくともopcodeレベルでは作ってないが詳しくはpp_sort.cを見ろ。 use strict; use warnings; use blib; use Devel::RunOpsAnalyze; print Devel::RunOpsAnalyze::analyze { my @x = qw( 7 83 4 2 09 8 1 7 ); my @y = sort { $a <=> $b } @x; }->as_term; 実行結果 ./sort.pl 7: my @x = qw( 7 83 4 2 09 8 1 7 ); B::OP(10720), pushmark, pushmark 1 steps, 1 usec, (avrg: 1 usec) B::SVOP(10721), const, constant item [7] 1 steps, 1 usec,
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
harold-spm.com - harold spm リソースおよび情報
「Perl」の商標登録に対する登録異議の申立てについて