続・lsコマンドをPerlで - Perl日記 この時の後回し課題。 Perlで実行時にパラメータを引数として扱うための標準モジュールは2つあり、Getopt::StdとGetopt::Longがある。 「Perlクイックリファレンス」を見たら、次のように書かれていた。 $result = GetOpt…

Cookie設定をPerlで - Perl日記 前回の続き。 Cookieに複数の値を設定するためには、「Set-Cookie文」をその都度出力するしかないらしい。(意外と力づくというか原始的な印象だ) というわけで、そのサブルーチンを書いてみる。 ただし1ドメインにつき20個以…

PerlでCGIを作った時のCookie設定方法を調べてみた。 とりあえず複数ではなく、単体の値をセットする方法。 1.自力 まず、基本。べた書き。 sub set_cookie { my ($name, $value, $attr) = @_; # URLエンコード $value =~ s/(\W)/sprintf('%%%02X', unpack('…

lsコマンドをPerlで - Perl日記 前回の「ls」コマンドをもう一度やってみた。 画面幅の取得は「Term::ReadKey」を使えばいいみたい。 でもPerl5.8.5では入ってなかったので、一応eval()。 「Getopt::Std」もまた今度。 #!/usr/bin/perl -T # ls.pl # "ls"コ…

「ls」コマンドをPerlで実装してみた。 端末の画面幅の取得の仕方がわからなかった。 なのでとりあえずファイル名出力列は4行固定。 汚染チェックもいるのか不明。 #!/usr/bin/perl -T # ls.pl # "ls"コマンドをPerlで実装 use strict; use warnings; use Li…