同じく落ちてたので転記。たまに知りたいときがあるんですな、なぜか。 #!/usr/bin/perl use CGI; $cgi = new CGI; $enc = $cgi->escape($ARGV[0]); #$enc = $cgi->escape("あ"); print "$enc\n";逆向きの方が使うかも。 #!/usr/bin/perl use CGI; $cgi = ne…

ふとディレクトリをみたら落ちてたので転記。漢字コードチェックツールがないときとかの代用。 #!/usr/bin/perl use Jcode; while (<>) { $code = getcode(\$_); print "$code: $_"; }

しかし、ずいぶん昔、学生の時代に作ったプログラムで取ったデータはひどい。このころIDを認証して取らないで、手で入力させていたために、全角文字やら順番違いとかがそのままに。うう、目で調整するのはいやんぬ。Perlスクリプトで処理するか。ついでにDB…

1年生向け情報基礎演習Iというやつで。http://www.cs.is.saga-u.ac.jp/lecture/infobasis/おおむね去年の資料の再利用でごまかす。アンケートをCGIで、と思ってPerlで書いてみましたが、mode_perlなせいか挙動不審。オフラインだとうまくいくので、パーミッ…

こないだ、ちょこちょこっと書いたコードをこっちにメモしておこう。 #!/usr/bin/perl use DBI;$dbname = "test"; $dbh = DBI->connect("dbi:Pg:dbname=$dbname", "", "");$sql1 = qq/create table test (id varchar(16), name varchar(16))/; $sql2 = qq/in…

「辞書単語登録プログラミング」 面白一発芸 編 …正直とんでもないですね。すげー。ぱっと何に使えるか思いつきませんが(ごめんなさい、ごめんなさい)。UMLとかかけると嬉しいかも。「クラスAはクラスBを継承している。クラスAはメソッドaMethodを持つ。クラ…