MTソース解読に必要なページhttp://www.sixapart.jp/movabletype/manual/object_reference/

WebサーバであるApacheについての説明、 CGIの仕組み、使用するモジュールについて 詳しく書かれている本。 今後もお世話になる本の1つです。 「PerlでCGIを作りたい」と思っている方にはお勧め。 学習の流れとしては、「〜を作ってみましょう」的な初心者向…

1. データベース・テーブルの作成 ① データベース作成 mysql> create database BillBoard character set "utf8" ② テーブル作成 作成したデータベース内に、テーブルを作成する。 入力されたデータを管理するテーブルの作成 mysql> create table bbs_data ->…

Linux+Apache+MySQL+Perlで掲示板サイトを 構築していきます。 やる事(とりあえず) 1. データベース・テーブルの作成 2. データベース操作関数の作成 3. データの追加に関する画面とCGIの作成 4. データの表示に関する画面とCGIの作成 5. ログインに関する画…

ん〜、Javascriptについて参考になるサイトを探すか。

オブジェクト指向が、変過ぎないか？の件

4章の問題に引っかかる。

podwebserver を使ってみる１．インストール cpan install Pod::Webserver２．コマンドライン podwebserver３．Brawse http://localhost:8020以上の順番で、podwebserverを立ち上げると、 自身のPCに入っているPerlのモジュールのDocumentが ブラウザで読め…

16、17章は、週末にでもうpします。 ということで、ひとまず「初めてのPerl」終了です。 学習開始が、7月9日だったと思うから、約3ヶ月。 よくやったよ、自分。

あとでうpする。

あとでうpする。

15.1 indexを使って部分文字列を探す。 #!/usr/bin/perluse warnings; use strict;# 文字列"Howdy world!"からwが初めて出てくる位置を検索 my $shuff="Howdy world!"; my $where1=index($shuff,"w"); print "$where1\n";# 文字列"Howdy world!"から２回目の…

練習問題13.9.1 rmコマンドと同じ働きをするプログラムを書け。 このプログラムは、コマンドラインに指定したファイルを削除する #!/usr/bin/perluse warnings; use strict;foreach (@ARGV){ unlink $_ or warn "Can't delete $_ \n"; } 練習問題13.9.2 mvコ…

13.1 ファイルを削除する unlink を用いて指定ファイルを削除する #!/usr/bin/perluse warnings; use strict;foreach(){ unlink $_ or warn "Can't delete $_ : $!\n"; } 13.2 ファイルの名前を変更する rename を用いてファイルの名前を変更する #! /usr/bi…

練習問題1.6.1 まずユーザからディレクトリ名を入力してもらい、そのディレクトリに移動する。 もし、ユーザが入力した行に空白文字だけしか含まれていなければ、デフォルトに 移動します。デフォルトの動作として、そのユーザのホームディレクトリに移動し…

練習問題 11.7.3 コマンドラインからファイル名のリストを受け取って、 そのうち最も古いファイルの名前とその古さを日数単位で表示する プログラムを書く #! /usr/bin/perluse warnings; use strict;sub cmp_file{ die "There is not a file\n" unless @_; …

練習問題 11.7.2 コマンドラインからファイル名のリストを受け取って、その１つ１つについて、 読み出し可能か、書き込み可能か、実行可能か、存在しないかを表示するプログラムを 書く。 #! /usr/bin/perluse strict; use warnings;sub check_file{ foreach…

練習問題 11.7.1 ユーザから入力ファイル名、出力ファイル名、サブルーチン、置き換え文字列を 入力してもらうようなプログラマを書いてください。 （これらは、コマンドラインから取得するのではなく、対話式に入力してもらうこと） #! /usr/bin/perl -wuse…

練習問題 10.10 1から100までの間から選んだ秘密の数を、ユーザに当ててもらうプログラム。 数字が当たった時、exit、quit、空白の場合は、プログラムを終了させる。 入力した数字が大きければ、'To higt'と表示してやりなおし。 入力した数字が小さければ、…

10.8.1 last演算子 #! /usr/bin/perluse warnings; use strict;for(){ if(/__END__/){ last; }elsif(/fred/){ print; } } 10.8.2 next演算子 #! /usr/bin/perluse warnings;while(<>){ foreach(split){ # split /\s+/, $_ な意味 $total++; next if /\W/; $v…

練習問題 9.9.1 $whatに入っているものが3回連続して現れるものにマッチするようなパタンを書く。 #! /usr/bin/perluse warnings; use strict;my $what = "fred|barney";while(<>){ chomp; if(/($what){3}/){ print "matched : $& \n"; } } 練習問題 9.9.2 p…

なんか，多く書きすぎた。 解説は省いておく。9.1 m//を使ってマッチを行う 9.2 オプション修飾子 9.2.1 大文字と小文字を区別せずにマッチする /i : 大文字と小文字を区別しないで、パタンマッチを行う。 #! /usr/bin/perluse warnings; use strict;print "…

練習問題 8.6.1 7章で作成したテストプログラムを用いて、ワードfredまたはwilmaがあり、 次に何個かの空白文字があり、その後ろにワードflintstoneがあるような 行だけにマッチするパタンを作成する。 #! /usr/bin/perluse warnings; use strict;while(<>){…

8.1 文字クラス 文字クラス 一対のブラケット（[]）の間に文字を並べたもの。 サンプルプログラム#! /usr/bin/perluse warnings; use strict;$_ = "The HAL-9000 requires authorizaion to continue";if(/HAL-[0-9]+/){ print "The string mentions some mod…

7.4.3 テストプログラムを使って、任意個の逆スラッシュの後ろに、 任意個のアスタリスクが続くような部分を持った、すべての 文字列にマッチするパタンを作成してテストしてください。 テスト文字列 \\** fred barney \\\*** *wilma\ テストプログラム #! /…

7.4 練習問題 7.4.1 テストプログラムを使って、fredを含むようなすべての文字列にマッチする パタンを作成してテストする。 テスト文字列 Match matchafter BeforeMatch beforematchafter #! /usr/bin/perluse warnings; use strict;while(<>){ chomp; if(/…

7.2.3 パタンをグループにまとめる＊を直前の文字列に用いる、 #! /usr/bin/perl -wuse strict;my @text_list = qw/ hogehoge foofoofooo baabaabaabaa /;foreach (@text_list){ if(/(hoge)*/){ print "$_ matched. \n"; } } 7.2.4 選択肢 （ ｜ ）：｜の右…

(.)を使ってみる。 #! /usr/bin/perl -wuse strict;my @list = qw/ybba dadda doo/;foreach (@list){ if(/a.d/){ print "$_ matched ! \n"; } } 三つの文字列「ybba」「dadda」「doo」のうち、「a.d」とマッチするのは？【マッチ条件】 一文字目がaで、次に…

7.2 単純なパタン #! /usr/bin/perl -wuse strict;$_ = "yabba dabba doo";if(/abba/){ print "It matched ! \n"; } 7.2.1 メタキャラクタについて . : 改行文字を除いた、あらゆる文字１個にマッチ。 * : 直前の文字に0個以上マッチ。 + : 直前の文字に1個…

練習問題１： catのような振る舞いをするプログラムを書いてください。ただし、出力を逆順に行うこと。 #! /usr/bin/perl -wuse strict;print reverse <>; 練習問題２： 文字列のリストを1行に1個ずつ別々に読み込んで、その文字列を20文字幅のカラムに右寄…