「Perl」の記事 - Crieit

アノニマス BBS プログラムの系譜をまとめていく

2022-09-26T22:01:37+09:00

BBS プログラムについて調べていると日本でのインターネット掲示板のプログラムが時代背景の理解なしには、なぜそうなっているのかまったくわからない点があるので、掘り下げて１９９５年辺りから系譜をおって概要を調べてまとめていきたい。

よく知られている匿名のインターネット掲示板である 4chan、そのクローンのような komica (Taiwan) 、8kun 等へ影響を与えているようなので、その元になったと思われるプログラムのことについてよく知りたい。つまり、2 ch てよく知らないけど、まだあるということを最近知って、その直接的ではないが 2ch から影響をうけた 4chan 、8chan 等で事件がよく起こっていることに関心がある。

komica
https://ja.m.wikipedia.org/wiki/Komica

8chan / 8kun
https://ja.m.wikipedia.org/wiki/8chan

歴史参考資料:
あめぞうの歴史
http://history.amebbs.com/

『あやしいわーるどの歴史』(2006/09/28 現在)
http://f16.aaacafe.ne.jp/~stwalker/

スレッドフロート型掲示板
https://ja.m.wikipedia.org/wiki/スレッドフロート型掲示板

Everything shii knows
'Anonymous'
https://shii.bibanon.org/shii.org/knows/Anonymous.html
'4chan'
https://shii.bibanon.org/shii.org/knows/4chan.html

「Qアノン」はなぜ日本でも浸透しているのか？　黒幕の実像に迫ったルポ／藤原学思『Qを追う　陰謀論集団の正体』
https://note.com/asahi_books/n/n30f689b063bf

https://archive.ph/bjmj1
個人情報３万件流出か
https://archive.ph/5vPgR

https://archive.ph/jsZdB

image

https://atmarkit.itmedia.co.jp/ait/articles/1309/12/news012.html

image

Onionちゃんねるで発生した「さっしーえっち ◆MwKdCUj7XWlQ」による情報漏えいをまとめてみた。
https://piyolog.hatenadiary.jp/entry/20130901/1378006827

「昔から、「2chのコードをひろゆきは書いてない」というデマを流す人がいたけど、あめぞうが潰れたのはあめぞうウイルスの影響です。」@hirox246
https://togetter.com/li/1957179?page=3

なぜ沖縄はデマ情報の悪意にさらされるのか｜ひろゆき氏のツイートに端を発し注目を集める沖縄・辺野古の抗議運動。繰り返されるデマと悪意にさらされる構造とは｜ゲスト：伊藤昌亮・モバイルプリンス（10/12）
https://youtu.be/k92y1O9jAwk?t=3389

[ PHP 4 ] ksphp-en (kuz-sysadmin committed on 6 Aug 2021)

A similar script to the one used on ayashii's world, an ancient japanese textboard that is considered the precursor to 2ch.
https://github.com/kuz-sysadmin/ksphp-en/

kuzuha script (perl) => PHP 4

group: ayashii world
group: kuzuha script

[ Perl ] くずはすくりぷと (2000.9.3-)

[origin] くずはすくりぷと Rev.0.1 Preview 9 (2000.9.3) (掲示板本体)
あやしいわーるど＠暫定版 Rev. 0.22 (2012.10.19現在)
w.atwiki.jp/swsw/pages/12.html

group: ayashii world
group: kuzuha script

[ Perl ] 靴スミ掲示板 (2000.1.21)

https://www.csmith.jp/contents/csbbs/

group: amezou

[ Perl ] あめぞう型掲示板　スクリプト一覧 (2006/07/23 初版)

2007/03/04 更新
あめぞう型掲示板　スクリプト一覧
http://www.amebbs.com/doc/bbs.html

group: amezou

[ Perl ] スレッドフロート式、マルチ某ch風板 (2007/04/28)

フリースレッドボード
（FreeThreadBoard）
スレッドフロート式、マルチ某ch風板
http://usa.rgr.jp/cgilab.html

group: 2 chan

[ PHP 5 ] スレッドフロート型掲示板スクリプト(PHP・UTF-8・スマホ対応) (2021年10月18日 12時00分正午の月齢:12.0 月名:十三夜潮汐:中潮月齢:12.0[十三夜] 潮汐:中潮)

ThreadFloatBbs・煤式
https://susu.cc/2021/10/threadfloat.html

group: 2 chan

[ Perl ] MiniBBS

https://www.rescue.ne.jp/cgi/minibbs1/

[ PHP 4 ? ] futaba chan script (02/12/23-)

https://news.ycombinator.com/item?id=7639435
group: futaba chan
group: 4 chan

[ Perl ] , [ PHP ] , [ node.js ] , [ go ] , [ rust ] , [ Scheme ] , [ ur ] , [ elixir ] , [ haskell ] 108 catalouge

https://overscript.net/

Overscript
a little list of bbs scripts
This is overscript, a comprehensive overview of all known anonymous futaba-style bulletin board scripts.
if you have any scripts you know about that aren't listed here, please email [email protected] with details about it

group: futaba chan
group: 4 chan

[ PHP ] Shiichan Anonymous BBS (2004)

Shiichan 3960 - The PHP script that was used at world4ch
https://wakaba.c3.cx/shii/shiichan

group: futaba chan
group: 4 chan

[ PHP ] futallaby

http://www.1chan.net/futallaby/

group: futaba chan
group: 4 chan

[ PHP ] Wakaba and [ Perl ] Kareha

https://wakaba.c3.cx/s/web/wakaba_kareha

WakabaScript - An image board script.
KarehaScript - A database-less message and image board script.

Rf. Shiichan Anonymous BBS (https://wakaba.c3.cx/shii/shiichan)
Rf. https://shii.bibanon.org/shii.org/knows/Anonymous.html

group: futaba chan
group: 4 chan

[ Perl ] 2ch bbs.cgi (2011/1 )

https://github.com/j416dy/2ch/blob/master/bbs-main.cgi

group: 4 chan

[ Python2 ] weabot

https://github.com/z411/weabot
Rf. https://bienvenidoainternet.org/bai/
group: PyIB
group: Bienvenido a Internet BBS/IB

[ PHP ] Tinyboard

Tinyboard is a free light-weight, fast, highly configurable and user-friendly imageboard software package. It is written in PHP and has few dependencies.

https://github.com/savetheinternet/Tinyboard

group: Tinyboard

[ PHP 5.4- ] vichan

vichan is a free light-weight, fast, highly configurable and user-friendly imageboard software package. It is written in PHP and has few dependencies.

https://github.com/vichan-devel/vichan

group: Tinyboard
group: 8 chan

つづく。

サーバやPC上のプログラムでModbus機器からデータを取得 (2)

2022-07-30T15:43:22+09:00

サーバやPC上のプログラムでModbus機器からデータを取得、その第二回です。
第一回では、Android上のModbusシミュレータからデータを取得するための、Perlスクリプトのサンプルを紹介しました。Perlでは問題があるという方は、他の言語で記述しても原理は変わらないはずなので、他の言語で実装してみてください。

サーバやPC上のプログラムでModbus機器からデータを取得 (1)

今回は、取得したデータをデータベースに保存します。

データベース

以前の記事で使用した、MySQLとテーブル"from_plc"
を使います。

PLCからゲートウェイでデータを取得しデータベースにJSONで保存 (4)

C:\Users\hoge\Downloads>mysql -u hoge -p
Enter password: *******
Welcome to the MySQL monitor.  Commands end with ; or \g.
Your MySQL connection id is 60
Server version: 8.0.29 MySQL Community Server - GPL

Copyright (c) 2000, 2022, Oracle and/or its affiliates.

Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.

Type 'help;' or '\h' for help. Type '\c' to clear the current input statement.

mysql> use hoge
Database changed
mysql> desc from_plc;
+-------------+-----------+------+-----+-------------------+-------------------+
| Field       | Type      | Null | Key | Default           | Extra             |
+-------------+-----------+------+-----+-------------------+-------------------+
| body        | json      | YES  |     | NULL              |                   |
| time_insert | timestamp | YES  |     | CURRENT_TIMESTAMP | DEFAULT_GENERATED |
+-------------+-----------+------+-----+-------------------+-------------------+
2 rows in set (0.02 sec)

mysql>

Perlスクリプト

前回は、Perlスクリプトを僕のセルフォンTermux上で動作させましたが、今回はPCのWindows上で開発し動作させます。何故？

僕のセルフォンのTurmuxのcpanになんらかの問題があるらしく、DBIのビルドができないんです。いろいろトライしたけど僕には解決は無理と判断し、Turmax上のPerlスクリプトを放棄しました。
DBIは必須ではないですが、データベースをアクセスするPerlなら、DBIを使うのが一般的ですよね。
DBIのない環境で、これ以上Perlを書く気にはなれませんよね。まあ、僕のせいなんですけどね。

「サーバやPC上のプログラムでModbus機器からデータを取得 (1)」で作成したスクリプトに手を加えました。これで、Modbus機器からModbus/TCPにより取得したデータをデータベースに保存します。

#!/usr/bin/perl

use IO::Socket;
use DBI;
use Time::HiRes "gettimeofday";
use utf8;
use Encode;
use JSON;

{
    my $Server = 'localhost';
    my $Port = 502;

    my $TransactionID = 0x0200;
    my $ProtocolID = 0x0000;
    my $Length = 0x0006;

    my $UnitID = 0x01;
    my $FunctionCode = 0x03;
    my $StartAddress = 0x0000;
    my $CountRegister = 0x0001;

    my $req = pack("n3C2n2", 
        $TransactionID, $ProtocolID, $Length, 
        $UnitID, $FunctionCode, 
        $StartAddress, $CountRegister);

    my $old = -1;

    while (1) {
        my $socket = new IO::Socket::INET( 
            PeerAddr=>$Server,
            PeerPort=>$Port,
            Proto=>'tcp');
        die "IO::Socket : $!" unless $socket;

        my $size = $socket->send($req);
        shutdown($socket, 1);

        my $response = "";
        $socket->recv($response, 1024);

        my @data = unpack("n3C3n", $response);
        my $Register = $data[6];

        if ($old != $Register) {
            print "sent data:\n";
            BinaryDump($req);
            print "received response:\n";
            BinaryDump($response);

            my $now = getCurrentTimeStr();
            my $output_data = {
                'ts' => $now,
                'value' => $Register
            };
            my $json_text = decode('utf-8', encode_json( $output_data )); 
            print $json_text . "\n";
            my @values = ($json_text);

            $user = 'hoge';
            $passwd = 'hoge001';
            $db = DBI->connect('DBI:mysql:hoge:localhost', $user, $passwd);
            $sth = $db->prepare("INSERT INTO from_plc (body) values (?)");
            $sth->execute(@values);
            $sth->finish;
            $db->disconnect;
        }

        $old = $Register;

        $socket->close();
        sleep 1;
    }

}

# 利用させていただきました
# https://netlog.jpn.org/r271-635/2018/11/perl-bynary-dumper.html
sub BinaryDump {
    my ($buf) = @_;
    my $len;
    my $i;

    $len = length($buf);
    printf ("length = %d\n", $len);
    for ($i = 0; $i < $len; $i++) {
        printf("%02X ", ord(substr($buf, $i, 1)));
        # 16文字目で画面上の改行
        if (($i % 16) == 15) {
            print "\n";
        }
    }
    if (($i % 16) != 15) {
        print "\n";
    }
}

# 利用させていただきました
# https://akrad.hatenablog.com/entry/2018/10/20/234528
sub getCurrentTimeStr {
    my ($epochSec, $microSec) = gettimeofday();
    my ($sec, $min, $hour, $day, $mon, $year) = localtime($epochSec);
    $year += 1900;
    $mon++;
    return "$year" 
        . '-' . sprintf("%02d", $mon) 
        . '-' . sprintf("%02d", $day) 
        . 'T' . sprintf("%02d", $hour) 
        . ':' . sprintf("%02d", $min)
        . ':' . sprintf("%02d", $sec)
        . '.' . "$microSec";
}

Perlの自由さと気楽さが良いですね。

テスト

Windows上ということで、再び MOD-RSsim に登場いただきます。MOD-RSsimを起動しておきます。

Perlスクリプトを実行します。

C:\Users\hoge\Downloads>perl sample.pl
sent data:
length = 12
02 00 00 00 00 06 01 03 00 00 00 01
received response:
length = 11
02 00 00 00 00 05 01 03 02 00 00
{"ts":"2022-07-30T15:05:59.916895","value":0}

Holding Register 40001 の0を取得しデータベースに保存されます。

MOD-RSsim で 40001 に任意の数値を入力します。

40001 のデータが変わる都度、データベースに値が保存されます。

C:\Users\hoge\Downloads>perl sample.pl
sent data:
length = 12
02 00 00 00 00 06 01 03 00 00 00 01
received response:
length = 11
02 00 00 00 00 05 01 03 02 00 00
{"ts":"2022-07-30T15:05:59.916895","value":0}
sent data:
length = 12
02 00 00 00 00 06 01 03 00 00 00 01
received response:
length = 11
02 00 00 00 00 05 01 03 02 00 01
{"ts":"2022-07-30T15:06:04.10446","value":1}
sent data:
length = 12
02 00 00 00 00 06 01 03 00 00 00 01
received response:
length = 11
02 00 00 00 00 05 01 03 02 00 02
{"ts":"2022-07-30T15:06:07.41537","value":2}
sent data:
length = 12
02 00 00 00 00 06 01 03 00 00 00 01
received response:
length = 11
02 00 00 00 00 05 01 03 02 00 03
{"value":3,"ts":"2022-07-30T15:06:10.72655"}
sent data:
length = 12
02 00 00 00 00 06 01 03 00 00 00 01
received response:
length = 11
02 00 00 00 00 05 01 03 02 00 04
{"value":4,"ts":"2022-07-30T15:06:12.150828"}
sent data:
length = 12
02 00 00 00 00 06 01 03 00 00 00 01
received response:
length = 11
02 00 00 00 00 05 01 03 02 00 05
{"ts":"2022-07-30T15:06:14.213053","value":5}
Terminating on signal SIGINT(2)

C:\Users\hoge\Downloads>

データベースのテーブル"from_plc"を確認してみます。

C:\Users\hoge\Downloads>mysql -u hoge -p
Enter password: *******
Welcome to the MySQL monitor.  Commands end with ; or \g.
Your MySQL connection id is 75
Server version: 8.0.29 MySQL Community Server - GPL

Copyright (c) 2000, 2022, Oracle and/or its affiliates.

Oracle is a registered trademark of Oracle Corporation and/or its
affiliates. Other names may be trademarks of their respective
owners.

Type 'help;' or '\h' for help. Type '\c' to clear the current input statement.

mysql> use hoge
Database changed
mysql> select * from from_plc;
+----------------------------------------------------+---------------------+
| body                                               | time_insert         |
+----------------------------------------------------+---------------------+
| {"ts": "2022-07-30T15:05:59.916895", "value": 0}   | 2022-07-30 15:05:59 |
| {"ts": "2022-07-30T15:06:04.10446", "value": 1}    | 2022-07-30 15:06:04 |
| {"ts": "2022-07-30T15:06:07.41537", "value": 2}    | 2022-07-30 15:06:07 |
| {"ts": "2022-07-30T15:06:10.72655", "value": 3}    | 2022-07-30 15:06:10 |
| {"ts": "2022-07-30T15:06:12.150828", "value": 4}   | 2022-07-30 15:06:12 |
| {"ts": "2022-07-30T15:06:14.213053", "value": 5}   | 2022-07-30 15:06:14 |
+----------------------------------------------------+---------------------+
6 rows in set (0.00 sec)

mysql>

まとめ

このように、Modbus機器からのデータ取得は、専用の機器や商用のソフトウェアがなくても可能です。今回はModbus/TCPでしたが、RTUでも原理は同じです。
データ取得だけではなく、Modbus機器にデータを書き込むことも難しくはありません。Modbusの仕様を理解すれば、データの取得も書き込みも簡単です。
Modbusに限らず、各メーカのPLCの仕様もほとんどがオープンになっているので、それぞれの仕様を理解しさえすれば、Modbusと同じように自分で書いたプログラムでの読み書きが可能です。
様々な種類のPLCやリモートIOなどをアクセスする場合には、ゲートウェイなどを利用したほうが良いかもしれません。一方で、限られた種類のPLCやリモートIOをアクセスする場合は、自分で書いたプログラムを使用するという選択もあると思います。

「作らない」のではなく「作れない」んです。なぜ「作れない」のか？「作らない」からです。

サーバやPC上のプログラムでModbus機器からデータを取得 (1)

2022-07-26T17:14:42+09:00

サーバやPC上のプログラムでModbus機器からデータを取得、なんて場面があります。例えば、接点やセンサーがつながったリモートIOからデータを取得したい場合などです。

この記事では、Modbus/TCPでリモートIOなどからデータを取得するサンプル・プログラムを紹介します。

この記事で紹介するサンプルはModbus/TCPを前提としていますが、Modbus/RTUでも原理は同じです
。Socketがシリアル・インタフェースに変わり、やりとりするデータのフォーマットがTCPからRTUに変わるだけです。
※RTUの場合、送受するデータにCRCを組み込む必要があり、少々やっかいですけどね。

リモートIOのメーカーのサイトでは、PLCがリモートIOからデータを取得するように書かれていたりします。リモートIOからのデータを使って機械を制御する場合はそんな構成なのかもしれませんが、そのデータをサーバやPCで処理したい場合には、リモートIOのデータをサーバやPCが直接取得するのが合理的です。リモートIOとPLCは必ずしもセットではないのです。
「そんなことは、ここであらためて書かなくてもあたりまえだろ」と思われる方も多いでしょうが、固定観念と先入観が、迷わず（本来は不要であるはずの）PLCを登場させてしまいます。

Modbus/TCP

Modbusについては、エム・システム技研さまのこのドキュメントがおすすめです。

Modbus プロトコル概説書

サンプル・プログラム

今回はPerlを使いました。Perlである必要性はありませんが、Perlではだめだという理由もありません。なぜPerlを選択したか？僕のセルフォンでPerlが使えたからです。

サンプルでは、ファンクション0x03: Read Holding Register を使っています。

データをコンソールに16進表記で表示するために、公開されていたコレを遠慮なく拝借いたしました。
(Perl) バイナリ変数の１６進ダンプ表示

#!/usr/bin/perl

use IO::Socket;

{
    my $Server = 'localhost';
    my $Port = 5502;

    my $socket = new IO::Socket::INET( 
        PeerAddr=>$Server,
        PeerPort=>$Port,
        Proto=>'tcp');
    die "IO::Socket : $!" unless $socket;
    print "connected to the server\n";

    my $TransactionID = 0x0200;
    my $ProtocolID = 0x0000;
    my $Length = 0x0006;

    my $UnitID = 0x01;
    my $FunctionCode = 0x03;
    my $StartAddress = 0x0000;
    my $CountRegister = 0x0001;

    my $req = pack("n3C2n2", 
        $TransactionID, $ProtocolID, $Length, 
        $UnitID, $FunctionCode, 
        $StartAddress, $CountRegister);
    my $size = $socket->send($req);
    print "sent data:\n";
    BinaryDump($req);

    shutdown($socket, 1);

    my $response = "";
    $socket->recv($response, 1024);
    print "received response:\n";

    BinaryDump($response);

    $socket->close();
}

# 利用させていただきました
# https://netlog.jpn.org/r271-635/2018/11/perl-bynary-dumper.html
sub BinaryDump {
    my ($buf) = @_;
    my $len;
    my $i;

    $len = length($buf);
    printf ("length = %d\n", $len);
    for ($i = 0; $i < $len; $i++) {
        printf("%02X ", ord(substr($buf, $i, 1)));
        # 16文字目で画面上の改行
        if (($i % 16) == 15) {
            print "\n";
        }
    }
    if (($i % 16) != 15) {
        print "\n";
    }
}

テスト

テストにも僕のセルフォンを使いました。
Modbusスレーブとして、Androidアプリケーション"ModTCPSimX"に活躍いただきました。

ModTCPSimX のポート番号のデフォルトは5502です。僕のプログラム側も5502にしてあります。
※一般的なModbus/TCPは502です。
Holding Register 40001 に任意の数値を設定しておきます。
※ModTCPSimX では値の背景が黄色の場合は更新がコミットされていません。鉛筆アイコンでコミットするのを忘れずに

Termuxでプログラムを動かすと、最後のバイトに値が置かれたTXが返ります。

次回

せっかくなので、次回は取得したデータをデータベースに保存します。どうってことないんですけどね。

サーバやPC上のプログラムでModbus機器からデータを取得 (2)

Perlでかんたんな自作言語のコンパイラを書いた

2021-09-14T07:28:41+09:00

ブログに書いていたものを引っ越してきました。元の記事公開日は 2020-09-08 です。

20年ぶりくらいに Perl のコードを書きました。やっつけなので汚いです。ライフゲームのコンパイルが通ったのでヨシ、という程度の雑なものです。

https://github.com/sonota88/vm2gol-v2-perl

移植元

Rubyで素朴な自作言語のコンパイラを作った
（自作言語の概要などについてはこちらを参照してください）

ベースになっているバージョン: tag:49 のあたり
（追記 2021-09-11: ステップ60の修正まで適用しました）

作り方はここに全部書いています（Ruby 版のものですが）: vm2gol v2 製作メモ

ただ、Ruby 版よりは主に C言語版を見ながら書き写していました。クラスを使わなかったのもあり、C言語版に近いところも多いです。

メモ

20年ぶりくらいといっても、当時はちょっと入門した程度だったしもうほとんど忘れてるので
ほぼゼロから再入門といった感じ
でも 2日（日曜＋月曜）でなんとか完成した。殴り書きです。
配列・ハッシュとリファレンスが絡むあたりが最初よく分からなかった
- まず配列の要素数の取り方が分からないとか、for my $x (@$xs) { ... } の @ がなくて動かないとか、たぶん初心者あるある
数と文字列の区別がない（シェルスクリプトっぽい）のをどうするかちょっと悩んだ。データの型を見て処理を分岐しているところがあるので。
- ハッシュでラッパーオブジェクトみたいなものを作ってどうにかした（ lib/Val.pm ）。
- 最初は C言語版のときの NodeList, NodeItem 構造体を使う書き方にすれば何も考えずに機械的に移植できそうと思ったけど、あれはあれでリストの処理が煩雑・大げさで、配列で済むならその方がシンプルなので、最低限文字列と数だけ判別できるようにした。
クラスの使い方もちょっと調べてみたけど、もうちょっと Perl 力が上がった状態で使わないと逆に回り道っぽくなりそうな気がして、 C言語版の「構造体＋関数群のセット」方式でやってしまった

my $foo = ... をいっぱい書かないといけなくてさすがに面倒だったので途中で次のような Emacs Lisp を書いて Ctrl + Alt + M で入力できるようにしたり。yasnippet でも良かったかも。

(add-hook
 'perl-mode-hook
 '(lambda ()
    (local-set-key (kbd "C-M-m")
                   (lambda ()
                     (interactive)
                       (insert "my $ = ;")
                       (backward-char 4)))))

Dart版で call、Java版で set を不要にした流れで、今回は call_set キーワードを不要にしてみました。同じ要領でできますね、ということが分かりました。

（追記 2021-04-09: この修正はいったん revert しましたが、一応 trial ブランチに残してあります。）

sub parse_stmt {
    my $t = peek(0);

    if (Token::is($t, "sym", "}")) {
        return -1;
    }

    if    (Token::str_eq($t, "func"    )) { return parse_func();       }
    elsif (Token::str_eq($t, "var"     )) { return parse_var();        }
    elsif (Token::str_eq($t, "set"     )) { return parse_set();        }
    elsif (Token::str_eq($t, "call"    )) { return parse_call();       }
    # elsif (Token::str_eq($t, "call_set")) { return parse_call_set();   }
    elsif (Token::str_eq($t, "return"  )) { return parse_return();     }
    elsif (Token::str_eq($t, "while"   )) { return parse_while();      }
    elsif (Token::str_eq($t, "case"    )) { return parse_case();       }
    elsif (Token::str_eq($t, "_cmt"    )) { return parse_vm_comment(); }
    else {
        if (Token::kind_eq($t, "ident")) {
            return parse_call_set();
        } else {
            p_e("parse_stmt", $t);
            die "not_yet_impl";
        }
    }
}

（追記 2021-08-30: その後の修正により、下記の部分はなくなりました）

それと、今回はコード生成処理のアレ、何度も似たようなのが出てきて鬱陶しかった部分をためしにサブルーチンに抽出して共通化してみました。うーん。どうでしょう。どうしようかな。とりあえず名前が微妙。

名前が微妙な上に上手い抽象でもない気がする……となるとこれはメソッド抽出すべきではないパターンのように思えます。いい解決法が見つかるまで本家の Ruby版には取り込めなさそう。とはいえコーディングの手間・退屈さは減らせるので、移植版では気軽に使っていこうかなと。

sub to_asm_str {
    my $fn_arg_names = shift;
    my $lvar_names = shift;
    my $val = shift;

    if (Utils::is_arr($val)) {
        return undef;
    } elsif (Val::kind_eq($val, "int")) {
        return $val->{"val"};
    } elsif (Val::kind_eq($val, "str")) {
        my $str = $val->{"val"};
        if (0 <= str_arr_index($fn_arg_names, $str)) {
            return to_fn_arg_ref($fn_arg_names, $str);
        } elsif (0 <= str_arr_index($lvar_names, $str)) {
            return to_lvar_ref($lvar_names, $str);
        } else {
            return undef;
        }
    } else {
        return undef;
    }
}

呼び出し箇所は6箇所。それなりに使いまわせているようではあります。

vgcg.pl:132:    $push_arg = to_asm_str($fn_arg_names, $lvar_names, $val);
vgcg.pl:240:    $push_arg = to_asm_str($fn_arg_names, $lvar_names, $fn_arg);
vgcg.pl:304:    $src_val = to_asm_str($fn_arg_names, $lvar_names, $expr);
vgcg.pl:316:                    my $vram_ref = to_asm_str($fn_arg_names, $lvar_names, sval($vram_arg));
vgcg.pl:342:            my $vram_ref = to_asm_str($fn_arg_names, $lvar_names, sval($vram_arg));
vgcg.pl:375:                my $vram_ref = to_asm_str([], $lvar_names, sval($vram_arg));

他の言語への移植

記事	リポジトリ	日付
Haskell	github	2021-06-28
OCaml	github	2021-06-26
Pascal	github	2021-05-22
Julia	github	2021-05-03
Rust	github	2021-04-07
Crystal	github	2021-03-27
Pric（セルフホスト）	github	2021-02-21
Kotlin	github	2021-01-14
Zig	github	2021-01-07
LibreOffice Basic	github	2020-12-14
Go	github	2020-09-25
PHP	github	2020-09-18
C♭	github	2020-09-13
C	github	2020-09-06
Java	github	2020-08-30
Dart	github	2020-08-22
Python	github	2020-08-19
TypeScript (Deno)	github	2020-08-15

.htaccess で Perl を有効にする

2021-03-03T22:12:17+09:00

Apache の設定を編集した方が早そうですが、 .htaccess で Perl を有効にしたい場合のメモです。

Options +ExecCGI
AddHandler cgi-script cgi
AddType application/x-httpd-cgi .cgi .pl

Apache の conf と代わり映えしないですが、一応メモしておきます。

参考

.htaccess の書き方（設定変更編） - Qiita

YAPC::Tokyo 2019の感想

2020-10-04T23:04:44+09:00

本記事は、 Qrunch からの移転記事です。

移転元: YAPC::Tokyo 2019の感想 - 雑木林

YAPC::Tokyo 2019に参加しました

2019/01/26の某日、YAPC::Tokyo 2019に参加しました。

私は1/28に修論提出締切であるにも関わらず、わざわざ東京に行って参加しました。
理由はただ1つ、学生支援として、学生チケットと交通費宿泊費が無料だったからです。
（正確には、交通費宿泊費は抽選だったのですが、見事当選しました）

そこで得た知見、並びに感想を書いておきます（無料になる条件でもあったりする）。

なお、発表内容などについては、皆さん書かれていらっしゃるので、ここでは詳しく述べません。
「yapc tokyo 感想」などで期間指定検索すればたくさん出てくると思います（期間指定しないと過去のYAPC::Tokyoの感想が出てきます）。

全体的な感想

カンファレンスでした。

勝手なイメージですが、私はどちらかというと、東京モーターショーのような、ブース多めのイベントを想像していました。
しかし、実際には講演（いわゆるプレゼン）が主軸のカンファレンスなんだな、という雰囲気でした。

もちろん、ブースがないわけではなく、幾つか出し物がありました。
余談ですが、DRECOMさんのブースでプランニングポーカーのカードを頂きました。
昨年、アジャイルな見積りと計画づくりを読んだばっかりなので、欲しいなぁと思っていたものが手に入って嬉しいです。
大学院を卒業しなければ使えるところも多かっただろうに......

しかもYAPC終盤で、修論内容に問題が発見されたため、急遽戻ることになってしまい、私の心理的矛先はYAPCから修論の修正方法に移ってしまいました。
それさえなければもっと楽しめただろうに......
結局最後の懇親会も途中で抜出す羽目になってしまったのは残念です。

なんかYAPCの感想ではなくなってしまったかもしれません。
でも、私が感じた通りです。

講演内容について

私が見てきた講演の感想をつらつら書いておきます。

YAPCスポンサー様とのランチ

いきなり講演とは違いますね......

学生支援として交通費宿泊費を無料にする条件の1つに、YAPCスポンサー様とのランチがありまして、そこに参加しました。

そこで、YAPCスポンサー様のプレゼンがありました。
いくつかの企業は、完全に就活向けのプレゼンをされていて、世の就活ってこんなところにまであるんだなぁと思いました。
既に就活を終えているからこそ出てきた余裕だったかもしれませんね。

1つ面白いなと思ったのは、こだまリサーチ株式会社さんです。
北海道に本社を構えており、従業員5名ほどで開発しているそうです。
事業内容は、大学の授業で利用する動画に翻訳字幕を付けるシステムの販売だそうで、既に北海道大学をはじめ、5大学と連携しているそうです。
YAPCのスポンサーをしているのは、学生に還元するためと話しており、また様々な大学に行けば、そこで美味しいものが食べられるので嬉しいと語っており、面白い人だなぁという印象を受けました。
また事業内容についても、自動翻訳だから機械学習なのかな、Perlで作ってるとしたら、機械学習ってどうやってやったんだろうか、など興味が出てきました。

Perl5の静的解析入門　機械と人間双方の歩み寄りによる平和編

こちら、mackeeさんの講演です。

研究内容の1つに構文解析があるため、構文解析および静的解析には興味があり、Perlの静的解析はどういう手法があるのかと気になっていました。

構文解析に使えるモジュールは、以下の通りです。

PPI
Compiler::Lexer
Perl::Lexer
PPR

PPIは、Pure Perl（Perlのみで実装しているモジュール）ですが、遅いという欠点があります。
Compiler::Lexerは、言語で実装していますが、ところどころ構文解析できないようです。
Perl::Lexerは、Perlの実行で利用する機能を利用しているそうです。
PPRは、Perlのコードの正規表現を生成してくれるそうです。
現在はPPRを使うのがいい、とのことでした。

構文解析は手段ですから、目的として何がしたいのかを考えると、既に実装済みのモジュールがいくつか存在します。
例えば、引数の型定義を全サブルーチンで判定しているかチェックしたいのであれば、Perl::CriticやPerl::Lintを使えばいいです。
他にも、目的のものがあるかどうか、CPANを探してみると見つかるかもしれません。

訂正: mackeeさんより、Perl::CriticやPerl::Lintに上記の仕組みは無いとのことでした。

また、どんな構文でも書けてしまうPerlですが、時には静的解析の妨げとなってしまいます。
例えば動的なサブルーチンの生成をしてしまうと、構文解析だけでは簡単にできません。
そのため、プログラマは構文解析を見据えたプログラムの記述が必要です。
これについて、私も同感です。
もっと静的解析者に優しいコードを書いてください。

レガシーPerlビルド〜現代に蘇るPerl[1..5].0とPerl6〜

こちら、八雲アナグラさんの講演です。

そもそも私はPerl5以外に興味が全くなかったうえに、そもそも現代で動かせるとは考えてもいなかったため、Perl1を動かそうと思った行動力には感銘を受けました。
同時に、バージョンが古いほうが動かしやすいという話には非常に興味を持ちました。
発表内容だけでなく、発表方法も面白く、聞かせる講演だなぁと思って聞いていました。

Lightning Talks

5分おきに発表者が変わり、5分で内容を語りつくすというものでした。
スピードが速く、如何にスムーズに語りつくせるかを見ていました。

npmという次世代CPANパッケージマネージャー

こちら、aerealさんのLTです。

発想が面白いし、5分の中でプログラムを実行して成功してみせるその精神と結果も、聞いていて楽しめました。
なるほど、npmはNode.jsだけのものだと勝手に思って敬遠していましたが、これは触ってみる価値がありそうです。

自走するプログラミング入門者の探し方

こちら、門松宏明 / note103さんのLTです。

自走するプログラミング入門者、という名前はすごく分かりやすく、確かに私もそのような時期があったなぁと考えさせられました。
モチベーションというものは、理解できるかどうかで大きくかわると思っているため、理解できるように教えていかないと伸ばすことは難しいのかなというのが個人的感想です。

Perl meets AWS Lambda

こちら、moznionさんのLTです。

無ければ作ればいい、という発想はよくありますが、実際に作るとなると話は別で、よく作られたなと思いました。
Lambdaに限らず、多くのプラットフォームでPerlは未対応だったりするため、こういう動きがもっと増えてほしいです。

そして話し方がうまいです。
あれだけ語れるような情熱を持ちたいものです。

Keynote: 松野徳大

こちら、松野徳大さんの講演です。

YAPCは楽しかったというお話と、これまでの振返りでした。

個人的に気になったのは、「How to become a hacker世代」という言葉でした。

皆さんご存知ですか？
多分ですが、私がプログラミングを行うきっかけとなり、またPerlを勉強しようと思ったきっかけのサイトがここだと思うのです。
今までいろいろな方に「なぜPerl？」と聞かれて、「ハッカーになるためにはPerlを勉強しろって書いてるサイトを見たから」と答えていたのですが、私もすっかり忘れてしまい、どこのサイトだったかとんと見当がつかず、次第に忘れていました。
タイトルを聞いて「もしや」と思ったのですが、調べてみたら見たことあるようなサイトでしたので、懐かしさを感じました。
ここまで有名なサイトであれば、タイトルを覚えておきたいですね。

もう1つ、YAPCに参加した旨をサイトやツイッターで情報発信してほしい、ということでした。

なるほど確かに、発表者にとっては話題に上げてもらえるのは嬉しいことですし、それによって次回のYAPCとつなげるきっかけにもなります。
なにより、知らない人がYAPC楽しそうだと思わせることで、参加者を増やし盛り上げるのは大事なことです。

この記事は、確かに学生支援の交通費宿泊費無料の条件のために書いているかもしれませんが、松野さんの言葉を聞いていたことを考えてみると、もしかしたら条件が無くても書いていたかもしれません。
それは神のみぞ知ることでしょう。

まとめ

学生最後に参加してみよう、と思って参加したものですが、楽しめた部分と、もう少し準備しておけばよかったなと反省する部分がありました。
次回、参加することがあれば、受動的な参加ではなく、能動的な参加をしたいと思います。
YAPC::Tokyo、お疲れさまでした。

YAPC::Tokyo 2019の感想 - Perl6、レガシーPerl、綱渡りバッチ、CPANとエンジニアの成長物語

2019-02-07T23:59:11+09:00

「YAPC::Tokyo 2019」に参加してきました。

YAPC::Tokyo 2019

最近はPerlを書けてないのですが、言語としての自由度の高さはとても好きで、久々にたくさんのPerl成分をもらった気がします。

そして何より楽しかったです。「ブログを書くまでがYAPC！」ということで、感想記事をつらつらと書きます。

イベント会場の写真

2019年冬のPerl

最初に聞いたのは、@charsbarさんの2019年冬のPerlです。主にPerl6のことが知りたかったので参加しました。

perl_2019_winter - Speaker Deck

Perl6は言語仕様のみが定義されているため、その処理系は別のプロジェクトとして色々あるのですが。処理系としてはRakudoを使うのが良さそうです。

https://rakudo.org/

RakudoにはRakudo.jsというJavaScriptがあって、なんと6Padを使うとブラウザ上でPerl6を実行できます。とりあえずPerl6を触ってみたいというだけであれば、ブラウザで実行してみるのが最もお手軽そうです。

https://perl6.github.io/6pad/

綱渡りバッチ脱出大作戦

午後イチで聞いたのが@shinpei0213さんの「綱渡りバッチ脱出大作戦」です。

綱渡りバッチ脱出大作戦 - Speaker Deck

感想を一言でいいますと、綱渡りのように動いてる危機的状況のバッチサーバーを、入社してから試用期間の間に解消してしまうのがすごすぎです。

・・・とは言え簡単に問題を解決することができたわけではなく、乱立する問題をひとつずつ整理していって、地道にこなせるレベルのタスクへと落とし込んでいく過程がとても勉強になりました。

フォントのライセンス問題の影響で、安易にサーバーを増設して冗長化できないなど、社内事情も加味して最適解を考えていく過程が共有されてます。かなり心に刺さる発表でして、こういう風に問題解決できたら優秀になれるだろうなー。

レガシーPerlビルド ~現代に蘇るPerl[1-2].0とPerl6~

続いては、八雲アナグラさん ( @AnaTofuZ ) によるレガシーPerlビルドです。

レガシーPerlビルド ~現代に蘇るPerl[1-2].0とPerl6~ - Speaker Deck

初代のPerl1.0が、今でもGitHubにありメンテナンスされていて動作するのも驚きですが。昔のPerlを現代に蘇らせようとするあくなく探究心が、ギークっぽくてむっちゃ良いです。

技術というのは、こうやって楽しむんだという好例と言いますか。私の技術書典向けの同人活動も、技術そのものを楽しみたいというノリでやっているのですが、すごく楽しかったのでPerl3.0〜5.0へと続編を期待したいです。

多くのCPAN Authorに育てられ、息をするようにCPANモジュールを書けるようになり、そして分かったこと

続いては、@songmuさんの「多くのCPAN Authorに育てられ、息をするようにCPANモジュールを書けるようになり、そして分かったこと」です。

多くのCPAN Authorに育てられ、息をするようにCPANモジュールを書けるようになり、そして分かったこと

今回のYAPC::Tokyoは「報恩謝徳」がテーマだったのですが、まさにテーマにずばりの内容でした。

技術系の勉強会に行くと、レベルの高い人が多すぎて「自分の技術力で大丈夫なのか？」と不安に駆られることも多いのですが。地道にプログラム・OSS・ライブラリを書き続けたり、ブログを使って発信していくことの大切さを教わった気がします。

「車輪の再発明を恐れない」は名言だと思いますし、努力と知見にあふれた感動のスライドですので、すごくオススメです。ベストトーク賞に選ばれるのも納得です。

あと、めるくんさんの感想がとても良いので、スライドと併せて見るのを推奨します。

プログラマ大航海時代、YAPC::Tokyo 2019に行って希望をもらってきた - Lambdaカクテル

LT & Keynote & Ending

最後はメインホールにてLTがあり、@tokuhiromさんによるキーノート、その後にエンディングとなりました。

@songmuさんがベストトーク賞に選ばれたときに感極まってましたが、そういう意味でも感動のエンディングで、参加して良かったです。

さいごに

最近はコードを書くモチベーションが少し下がっていたのですが。なんだかんだYAPCに参加したら、とても楽しかったです。

YAPCはもちろんですが、Perlには「◯◯.pm」というコミュニティ文化があって、Perlの良いところはコミュニティだと再認識しました。2014年のYAPC::Asia以来のYAPCでしたが、やっぱりYAPCは良いです！