現在、弊社サービスの拡充の為に
モバイルサービスを作成しています。
業者に依頼すれば、
30万前後でできてしまう内容なんですが
自分のスキル上昇＆経験値を高めるため
できるところまでやってみよう！！という事で
空いた時間や休みを見つけては、セコセコやっております。
ホームページ程度なら
レンタルサーバーさえ契約しちゃえば
簡単につくれるのですが、
空メールシステムを利用して、得た値をhidden属性の
GET渡しにして入力の手間を省き
ユーザーの端末に依存しないようなデコードプログラムを
自作し、得たデータをCSVでprintする。そして1つのサイトで
3キャリア対応させるプログラムも装備する。
というようなサイトを作るため
perlの基礎から勉強しています。
一通りの基礎を学んだら
無料で配布されているCGIプログラムを
書き換えて設置する予定です・・。
やり始めた時は
#!/usr/bin/perl
foreach my $key ($in->param) {
my @list = $in->param($key);
$in{$key} = join('/',@list);
}
my $type = $in{'type'};
if ($type eq '') { $type = 'default';}
if (!$PgdMailFormConfig::type_available{$type}) { die("このフォームは現在利用できません。");}
my $mode = $in{'mode'};
delete $in{'mode'};
if ($mode eq 'check') {
&check_and_send;
} elsif ($mode eq 'send') {
&check_and_send;
} else {
&form;
}
exit;
ってなんのこっちゃ
って
感じでしたが
今ではなんとなーくですが
コードが読めるまでになりました
やればやるほど
１，２ヶ月の知識では作れないっ！
って事にきずかされる毎日ですが
これを機に、本格的に取り組もうと
思います。
※断言してもいいですが
半年後には忘れてます( ´艸｀)