活動記録: 2006年9月アーカイブ
ヤフオクに出してた品物が売れました。＾＾ 定価１８８０円の新品が１３１０円で。 まいどあり〜
売れると超楽しいですね、ヤフオクって。 この品物はタダで入手したので、発送料２１０円を原価として粗利１１００円です。
商品を売ってお金を稼ぐってのは、実に気持ちのいいモンですねー！
いろいろ勉強になりました。 とりあえず目標一個クリア。一歩前進。
さて次は何で儲けようか。
WEBページのFORM上で入力したデータを、mySQLのDBに格納するテストに成功！
パッケージとライブラリの使い方がだいぶ身についてきた。
今回初めて、
・cgi-lib.pl
・jcode.pl
を導入しました。
cgi-libは便利ですねー。
FORMデータを扱うのが一瞬でできました。
今まで一からコードを書いてた（コピペしてた）のがあほらしくなりました。
僕は「とほほのwww入門」でperlとcgiを覚えたので、ずっとあそこのサイトのコードを使いまわしてました。
wwwboardを改造してcgiを作ってました。
これは、あくまでperl/cgiの動作を見せるためのサンプルなので、本格的なWEBアプリには向いてなかったんですね。
とほほ。今気づきました。
コード書き直さなくっちゃ。
カレンダーを作りました。
用途は、見るだけです。（ショボイ）
これ単体ではショボイですが発展させれば、日記、予定表、ブログパーツなどに応用できます。
パッケージというのはモジュール（部品）と同じ意味で、 よく使うコードを毎回コピペするのではなく、一カ所においてそれをいろんな場所から参照して使うことです。
イメージ的にはCSSとかjavascriptの外部参照に近いです。
実世界でたとえると、オフィスで各自が机の中にしまっている文房具を没収して、部署共有の場所にまとめて保管するのと同じことです。 こうすればハサミもノリもホッチキスも、部署に一個ですみます。
実世界では、シャーペンや消しゴムは使用中は占有されるので一個だと足りないですが、コンピュータの世界ではひとつのモジュール（部品）を複数のプログラムが同時に利用できるので、シャーペンや消しゴムにあたる頻繁使用部品も一つで大丈夫なのです。
これによって、同じコードをコピペ使いまわす必要もなくなり、亜種の発生も防げます。（使い方の違う二つのシャーペンが混在すると作業能率が落ちる）
...という理解でほぼあってるはずですが、間違いがあったらご指摘くださいませ。M(_ _)M
ヤフオクに初めて出品しました。
「まずは１円でもいいから売上をあげる」
というのを７月の目標にしていたのですが、２ヶ月遅れで達成できそうです。
ムフフ。
会社からの給料ではなく、自分で売上を上げて稼ぐというのは、なかなか大変なものです。
（簡単な人には簡単なんでしょうけど）
株、投資信託、不動産投資、銀行預金の利息、などで１円稼ぐのは簡単です。
でもそれはあくまで財テクで稼いだ金であり、売上とは異なるものです。（営業外収益？）
何故なら顧客を獲得したわけではないからです。
顧客を獲得して売上をあげる。これこそが商売の基本かなと。
ヤフオクで物を売る過程で、写真の見せ方とかセールス文句の書き方とか、とても勉強になりました。
やっぱり実際自分の手でやってみるというのは大きいです。
これからも実体験を大切にしていきたいと思います。
PerlでDBIモジュールを使ってmySQLを操作できるようになりました！
ワーイワーイ。(^^)
これでやっと、
LAMPデビューです！！
パチパチ
( 注： LAMP ＝ Linux, Apache, mySQL, Perl/PHP )
長く苦しいい道のりだった。くくく・・・
超簡単なアプリを作ったので公開します。
前回と同じタイムスタンプです。
前回は裏の仕組みがPerl+CSVでしたが、今回はリッチにPerl+DBI+mySQLです。
大いなる第一歩です。
ああ感激。
ソースはこれ↓
========== dbi_timestamp.cgi ==============
#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
use DBI;
$user = '***';
$passwd = '***';
$dbh = DBI->connect('DBI:mysql:db:localhost', $user, $passwd);
$sth = $dbh->prepare("
INSERT INTO timestamp
VALUES(NULL);
");
$sth->execute;
$sth = $dbh->prepare("
SELECT * FROM timestamp ORDER BY timestamp DESC
");
$sth->execute;
while(@a = $sth->fetchrow_array){
print "$a[0]\n";
}
$sth->finish;
$dbh->disconnect;
print "DBI test is done!\n";
====================================
参考サイト
http://2php.jp/mysql/insert.html
http://www.rfs.jp/sb/sql/index.html
カルロスゴーン「ルネサンス」を読み終わる。 ５年前に読んだときは、一字一句すべて鵜呑みにしてお経のように心に刻んだものだったが、今回は少し割り引いて読むことができた。 やはりこの本が書かれた当時は日産の復活が大変なニュースだったことがわかる。 感想は後ほどアップします。
しかし眠れん。。。（T T） 近いうち病院いこ。
久々の定時出社。すがすがしい。
プログラマーの友人に電話する。 「Perlは金にならない」と言われて不安になる。
S社長からメールが来る。一件仕事を受注した。 起業はまだだけど、これは偉大な第一歩だ。
プログラムを作りました。
ネット版タイムスタンプです。
このページにアクセスすると、アクセスした日時が記録として残ります。
【用途】 個人の時間記録として使えます。
・起床時間、睡眠時間、勤務時間（始業・就業）の管理、通勤通学時間の測定、などなど。
・よく会話のネタになる"ドアtoドアで何時間？"を測定できます。
この質問、答えられないこと結構ありませんか？
cgiのソース(perl)はこちらです。
#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
# Set time
($sec, $min, $hour, $day, $mon, $year, $wdy, $yday, $isdst)
= localtime(time);
@youbi = ("日","月","火","水","木","金","土");
$year += 1900; $mon++;
#
$str = sprintf("%04d/%02d/%02d %s %02d:%02d:%02d\n",
$year,$mon,$day,$youbi[$wdy],$hour,$min,$sec);
open(OUT,">log.tmp");
print OUT $str;
close OUT ;
open(IN, "log.dat");
open(OUT, ">>log.tmp");
while(){ print OUT;}
close IN;
close OUT;
open(IN, "log.tmp");
open(OUT, ">log.dat");
while(){
print OUT;
print $_."\n";
}
close IN;
close OUT;
レンタルサーバ契約して、自分のドメイン取得しました。
ワーイワーイ ＾＾
意外と簡単だった
んがっ、しかし。。。
遅い！！
サーバレスポンスが遅すぎる！
うぐぅ。。。
これじゃcgiが使いものにならん。
ワンクリックして次の画面に変わるまで７〜８秒かかる。
こんなサービス誰も使わんわい！（怒）うーん何が原因やろ。
サービス開始までの道のりは険しい。。
