CGI講座

ロスアンジェルスより犬グッズ情報がより簡単に手に入るウェブサイトがオープンです。

マウアウではイベント情報、犬とのライフスタイルやショッピングができ るサイト。

犬 を大事にするオーナーさん達のインタビューでは、アメリカのオーナーと犬の暮らしを知るチャンス！

日本の犬ファンにお届けする犬グッズの選び抜かれた商品は頻繁にアップデートされるそうなのでチェックを忘れずに。

バリ島でハンドメイドアクセサリーをお土産にいただきました。

シルバーのリングのヘッドに天然石のターコイズが優雅に埋め込まれています。

身に着けて外出すると、必ず「どこで購入したのか」と聞かれます。

つけると前向きな力をくれるから不思議です。バリの雄大な自然の中からやってきたからでしょうか。

ショッピングが大好き、とくにブランド物に目がないの。
わたしのおきにいりのアクセサリーブランドは
デンマーク産の、ジョージジェンセン。
日本でもかなり注目されているよね。
おしゃれに敏感の人ならひとつはもっているのでは？

持っているジョージジェンセンのアクセの
なかでもとくにお気に入りなので
オ ニキスのピアス。
製造中止になったものなので
お値打ち物なんだ。

ジョージジェンセンのサイトで素敵な
アクセサ リーがみつかるかも。

まずはカウンタを作ってみましょう。

#!/usr/local/bin/perl
print “Content-type: text/plain”, “\n\n”;

#書き込むファイル名　cgiにすることで直で読めない
$c_file= “./count.cgi”;

open(FILE,”<$c_file”);
$number = <FILE>;
close(FILE);

open(FILE,”>$c_file”);
$number++;
print FILE $number;
close(FILE);
print $number;
exit;

これで出来上がりです。