Perl Harbor - 3

Part2
http://zaki.dip.jp/x/test/read.cgi/entrance/1023901045
Part1
http://zaki.dip.jp/x/test/read.cgi/entrance/1020181087

よしよし

一瞬「ハリーポッター」かと思った俺は逝ってよしですか？
そうですか。

もうわかんねねねねねえんえねねんえねねねんえねねｂｎｈｅｂｂｉｂｉｕｂｉｕｗｂｊｖｊｒｖｋｊ

>>4
ようやくかえってきたか
まだつづいてるぞ。

　　　　　　　　　　Perlスレﾜｯｼｮｲ!!
　　　　　　　＼＼　 復活ﾜｯｼｮｲ!! ／／
　　　+　　　+　＼＼　勉強ﾜｯｼｮｰｲ!!／+
　　　　　　　　　　　　　　　　　　　　　　　　　　　　+
.　　　　　+　　 ／■＼　　／■＼　 ／■＼　　+
　　　　　　　　（　´∀｀∩（´∀｀∩）（　´∀｀）
　　　+　　（(　（つ　　　ノ（つ　　丿（つ　　つ　)）　　+
　　　　　　　　 ヽ　 （　ノ　（　ヽノ　　）　）　）
　　　　　　　　　（＿）し'　し（＿）　（＿）＿）

　今日買ってきた本。
　2400円ナリ。
　付録CD-ROM付き。
　表紙に一週間でマスターする、って書いてあるよ。
　もしも一週間でマスター出来なかったら、
　この本の著者は責任を取ってくれ。。。
　るわけがないのでガンバル。(ぇぃぇぃぉ)

　ん。
　とりあえず、本のうんぬんを読んでみたり、
　ソフトをインストールしたりしました。
　OSがWin Meなのでバッチファイルを作る、とのことです。
　今から作りますです。。。

　自分をｹﾁｮﾝｹﾁｮﾝにしばきたい。　そんな気分。

　本の手順で作業しているのに、何かをミスして
　構文のチェック→スクリプトの実行、が出来ません。

　何がいけないんだろう。。。　(−＿−)
　もう一度初めからやってみるテスト。

　ふう、やっとできますた。　。・゜゜(´□｀ )゜゜・。
　とりあえず本の『月曜日』のところまで出来ました。。。

　こんな覚えの悪いペースでいいのかな。。。
　先が思いやられる。　そんな風味。

でもWindowsの環境でPerlの面白さを知るのって難しそうだなー。
Apacheでも入れてCGIスクリプト組んでみるとかすると、面白くなって
くるような気もするけど。

とにかくこういうのって「面白いと思うかどうか」が一番大事だと思うので。

どっか無料鯖かりて設置するのが一番らくだと思うんだが。

　ふぬぬぬ。。。　もう４時半です。
　２ちゃんねるしながら３時間半ちかく電話してますた。
　こんなじゃ勉強にならないよ　ｳﾜｧｧｧﾝ　ヽ(｀Д´)ノ
　渇を入れて励みたい。　そんな気分。

　>>11
　こんばんは。

　今は激しくチンプンカンプンだけれど、
　細々、黙々とした作業は好きです。　(ﾟーﾟ)
　きっとその内shixyabonnは、「Perlﾏﾝｾｰ」とかほざいちゃう、
　そんな予感。

　>>12
　自作CGIとかオッケだったの、インフォシークウェブだった気がする。
　今からアカウントをｹﾞﾄｩしてくるですよ。　(ﾟーﾟ)

　火曜日の今日は、変数について、みたい。
　今日もガンバル!!　(ﾟーﾟ)ｖ　ﾋﾟｰｽ

>>13
こんばんは。もう朝だけど。
コテハン用意した方がいいかな。11です。

個人的にはPerlに留まらず、プログラミングそのものの楽しさにもたくさん触れて欲しいです。
プログラミングという作業は、嫌々やると拷問のようなきつい作業ですが、
一度味をしめると、こんな楽しいモノはないよ。

黙々とした作業が好きというのはすごく分かる気がする。俺もそうだから。

Perl自体の面白さを挙げると、まずは文字列処理に抜きん出てる部分。例えば、
このスレ全文を

perl -ne 'next unless /^\d/;print'

という1行スクリプトに掛けるだけで、レス一覧が作れる。

1 名前：名無しさん？ 投稿日：02/06/19 22:19 ID:???
2 名前：ざき ◆a/globe2 投稿日：02/06/19 22:19 ID:???
3 名前：名無しさん？ 投稿日：02/06/19 22:20 ID:???
4 名前：Bodiesbeat1242kHz ◆cLqIFidk 投稿日：02/06/19 22:20 ID:???
　：
(略)

こんな感じで。もうちょいやると、このスレ全文を

perl -ne 'next unless /^\d/;/名前：(.*) 投稿日/;$a{$1}++;END{print join("\n", sort keys %a);print "\n"}'

↑のスクリプトにかけると、

Bodiesbeat1242kHz ◆cLqIFidk
shixyabonn ◆mP3Qm8nE
ざき ◆a/globe2
名無しさん？

こんな感じでコテハン一覧がアルファベット順で簡単に得られる。
俺はPerlのこういう有用な出力が簡単に得られる所が気に入ってる。

まーこういうのを面白いと思うかどうかも人によるんだけどね。
(面白いと思わない人がPerlに向かないとかそういう話ではなくね)

　　　　

　あの、寝坊です。
　もう、こう、目覚ましを見て、
　��(ﾟДﾟノ)ノ ｽﾞｶﾞｰﾝ!!
　　　　　　　　　　　　��(ﾟДﾟノ)ノ ｽﾞｶﾞｰﾝ!!
　　　　　　　　　　　　　　　　　　　　　　　��(ﾟДﾟノ)ノ ｽﾞｶﾞｰﾝ!!
　そんな感じ。

　７時くらいまではMS-DOSプロントと、にらめっこしてた記憶あるぽ。。。
　でもそれ以降は記憶ないぽ。。
　机で寝たから首いたいぽ。　(´･ω･`)　ｼｮﾎﾞｰﾝ　首ｺｷｺｷ。。。

　ざきさん、
　インフォシークでアカウントｹﾞﾄｩしたよ。 (ﾟーﾟ)
　でも、
　『登録が完了するまでに２日〜１週間程度かかる場合がございますのでご了承ください。』
　って書いてありました。
　早く無料スペースお借りしたいです。

　--------------------------------------------------------------------

　>>14さん、すごい。　(ﾟーﾟ)
　かっちょいいなぁ。。。
　きっと、プロのプログラマーさんなんだね!!

　>>14さんが書いてくれたスクリプトでわかったのは、
　\
　print
　()
　""
　''
　;
　だけでした。。。　恥ずかしい。(笑)

　\はルートディレクトリ
　printは関数
　()は引数を囲むやつ
　""、''は文字列を挟むやつ
　;は文字の最後
　#は#の右側に書いた文字は見えなくなる

　まで覚えました。

　でもまだ火曜日のページが１７ページも残ってるよ　ｳﾜｧｧｧﾝ　。・゜゜(´□｀ )゜゜・。
　今日帰ってきたら、水曜日のページと合わせて猛勉強する!!
　ふんがー!!

　燃えてきた。　そんな感じ。

インフォシークにしたのか。
xreaとかが手っ取り早いんだがな。

次if。

　

保守がはいってたのでヤルきアップ。

if

ifとはもし。
もしもしおくさん。これいかがですか。

もし**だったら??する。
これは現実世界でもよくあること。

　if -------------------------

if(条件式){ 実行文 }

もし<条件式>ならば<実行式>する

実行文は複数でも可能。

条件も**が@@で==が++であったら
のように複数の条件にすることも可能。

条件式だけを例をあげて解説してみる。

・変数Xが5のとき。
　$X == 5
　　== は 等しい である。
・変数Kがうんこのとき
　$K eq 'うんこ'
　　eq はｲｺｰﾙの略かと思われる
　　==は数字として同じかを比べるのに対し
　　これは文字として同じかを調べる。
　　つまり $Lが'5'であっても5であったとしても
　　$L eq '5'はなりたつし$L == 5もなりたつ。
　　これは前に書いたPerlの文字か数字化を自動判断してくれる
　　機能によるものである。
・変数Hがちんこがないとき
　$H ne 'ちんこ'
　　ﾉｯﾄｲｺｰﾙの略かと。
　　ｲｺｰﾙの反対として使われる。

名前間違えた。鬱
続きは今度。

ﾊﾊ、糞ｽﾚ

ざき ◆ZZZZKPZE の発言 :
ﾌｰﾝ　糞スレには保守なんてはいらないよ　ﾌﾟﾌﾟﾌﾟ

　火曜日のページを一通り終えました。

　引き続き水曜日のページに突入。
　データ入力。
　条件分岐。
　ループ。

　ということで今日もがんばるですよ。　(ﾟーﾟ)

　>>23
　(´･ω･`)　ｼｮﾎﾞｰﾝ
　がんばります。

　ふー。
　ベランダに出てタバコ吸って、一息入れたい。　そんな気分。

　でもタバコ吸えないよ!!　むせるってばよ!!　ｳﾜｧｧｧﾝ　ヽ(｀Д´)ノ
　タバコ覚える前にPerl覚える。

　がんばる。
　次はSTEP2の条件分岐から。
　エイエイオー。

　今日のラスト。
　STEP3のループ。

　for
　foreach
　while
　until

　叩き込む。
　でも３歩あるくと忘れちゃう。　そんな感じ。

　。。。(−＿−)

untilってあったな。わすれてた。

PerlO17Q : #Z｣XeSgAx
Perl2Gfk : #ｾ}0rqZif
q/PerllI : #8NfSｻUg|
h/PerlVs : #LｾL/rIq,
PerluQTs : #-｢Ar2on-
PerlIPZg : #NcaHjFG5
PerlevEg : #na_Nd｢R)
Perlg5xA : #v`odTYｾG
PerlQKkg : #ZJ$'}0zl
Perl1BVM : #[MN[v_aj
PerljpxI : #Op2,R!5n
Perll.TQ : #Ykdiyl@@
PerlNA.g : #]70G-\Jk
Perl8iRs : #s｢S8|uLM
Perl6tF6 : #sugxｼijR
Perl9wqY : #D4q~D(*$
PerlE6UM : #55_2/嫉)
Perl7ing : #_6PfI｢dE
PerlFTaQ : #7W[XFX.b
PerlGW52 : #8Xcc｣l2^
PerlBxVU : #[%LG'q$p
PerltWc2 : #qMju9ｦ_9
PerlNAcw : #MOAzｼ[.t

PerlKc5Q : #Vｼfwc]0M
Perl.xOw : #N$5JQF1|
PerlJTkA : #H.Fo:Kｻi
Perlblm6 : #[D+zbI?w
PerlIjtQ : #Lv{zuq!c
PerlU33M : #ｦ|))*eDw
PerlTIsk : #~|T!]'.3
Perl9sb6 : #hｦ1.TJYo
PerlbnB2 : #E(M|aAgb
PerlCQws : #UIdy1dhr
Perl4b/U : #EAe\$ｾl`
PerlAmeU : #Ln+yIvvC
PerlR3ZY : #{]8rW｣l0
PerlZG5I : #+CAMｼKRh
PerlLnk2 : #xh1u^W-8
Perlnbw2 : #%ｾn3*r-｢
PerlFv4Y : #pkb:YeY$
PerleBcQ : #f滋hAｼt_
Perlqejc : #G]x%?｢T2
PerlI8zs : #l]$jkyｻM
PerlHm3g : #uE$R294=
PerlFd/Y : #@cｼ?S+!*
PerlceZM : #FMqC{Aｼs
PerlKUNM : #/uzCMN.T
PerlVTRA : #%pBGe[]+
PerlCfII : #Lw@$・!]
PerlcHao : #C3sM~0BO
Perlyw.w : #c[LA*O\s
Perllf/k : #[-|j}FR=
PerlITMg : #3nvn=Pｾ,
PerlR6Zs : #}EE]Yy]r
PerlTHA. : #jｼ\SgC8=
Perl5gRc : #Ufｾ]uv//
PerlR1Jc : #T?P{\BxP
PerleiVc : #,s`G~lF{
PerlVCKc : #wo.uYR=}
Perl3QSQ : #`M)d5^WL
Perlv9SY : #/4wTRalH
Perlo7qw : #.oJRW(.%
PerlHUOA : #$ZIf5Akk
Perlk.ws : #p!srG@M(
PerlB.4I : #dqkIxSm%
PerlvYlo : #:|u'g!5R
PerlYP/w : #D(X($C.ｦ

・変数Zが7より小さいとき
　$Z < 7
　　変数同士での比較などももちろんできる。
・変数Zが64以下のとき
　$Z <= 64
　　=の場合も含めるというかんじで。
・変数Zが15より大きいとき
　$Z > 15
・変数Zが31以上のとき
　$Z >= 31

また等しくないときなどは
否定をあらわす!を用いる。

if(! $X == 5){
print "5以外";
}

if($X != 5){
print "5以外";
}

上の2つは同じ意味である。

if ( ! $X eq 'ああ' )　　$Xがああではない　つまりneとおなじ。
if ( ! $X ne 'ああ' )　　$Xがああである　つまりeqとおなじ。
if ( ! $X == 5 )　　$Xが5でない !=とおなじ。
if ( ! $X != 5 )　　$Xが5でない。
if ( ! $X < 5 )　　$Xが5より小さくない　つまり>=と同じであり、以上ということになる。
if ( ! $X <= 5 )　　$Xが5以下ではない　つまり>と同じであり、より大きいということになる。
if ( ! $X > 5 )　　$Xが5より大きくない　つまり<=と同じであり、以上ということになる。
if ( ! $X >= 5 )　　$Xが5以上ではない　つまり<と同じであり、より小さいということになる。

また
　＊＊であってなおかつ＊＊である
　＊＊であるか＊＊である
のようなものもできる。

・and && -- なおかつ
　andと&&は意味は同じだが優先順位がandの法が高いので
　andを使用したほうがいいそうだ。
　　$X == 5 and $Y == 6
　　　$Xが5でなおかつ$Yが6。
　　$J eq 'ああ' and $U ne 'ぷ'
　　　$Jがああでなおかつ$Uがぷでない。
・or || -- または
　orのほうがｲｲ。理由は上と一緒。
　　$Y < 5 or $Y >= 10
　　　$Yが５より小さいか10以上か。

なんすか？これ？

呪文？

なんかデルファイっぽい

追記

if($X)　$Xが空欄もしくは0ではない

>>33
> 　andと&&は意味は同じだが優先順位がandの法が高いので
and、orは、優先順位が「低い」です。とっても。

以下、初心者の方は読み飛ばしてください。

and/orを推奨するなら、「!」は「not」を推奨したほうが良い
気がする。and/or/notはセットで導入された演算子。
and/orを「使った方がいい」ってのも気になる。。。

>>37
> if($X)　$Xが空欄もしくは0ではない

正確には、$Xが、空欄、もしくは"0"もしくは、undefでない。
"00"や"+0"、" 0"なんかは0だけども偽
undefinedな変数は空欄と混同されるが、実は空欄ですらない。

重箱コーナーピッキングでスマン。

>>36
まあ、どっちも歴史を辿ってけばPascalの名が出てくるし。

>>38
低いだったか。
＞正確には、$Xが、空欄、もしくは"0"もしくは、undefでない。
＞"00"や"+0"、" 0"なんかは0だけども偽
＞undefinedな変数は空欄と混同されるが、実は空欄ですらない。
初心者用に書いてるつもりだから
そこはへんはあいまいでおねがいします。

　さっき二時半くらいに帰ってきた。
　ｺﾞｼｺﾞｼ。。。　(⊃＿−)　眠いぽ。
　遊び疲れた。

　でも今日もがんばるよ。　(ﾟーﾟ)　ぉぅぃぇ。

　ってPerlのトリップがｲﾊﾟｰｲ!!
　すごい、どれもこれもかっこいい。

　木曜日のページに入ってから、
　脳内CPUの処理速度が遅くなってきました。
　「ｾﾝｾｲｯ　わかりません　ｳﾜｧｧｧﾝ　ヽ(｀Д´)ノ」
　っていう脳内ダイアログが頻繁に出ます。

　ふぬぬぬ。。。
　どうしてこう頭悪いんだろう。。。　(−＿−)
　禿げしく鬱。

　今日までの中で面白かったのは、
　「print "ビープ音をならします。\n\a";」
これ。
　意味もなく、７回も８回も実行して音鳴らしてた。(笑)
　お馬鹿すぎるよ。　ﾎﾟﾜｧﾝ　(´∀｀*)

　あと、
　$sec = $ARGV[0];
　print "$ARGV[0] 秒タイマー\n";

　until ($sec == 0) {
　 print $sec--, "\n";
　sleep(1);
　}

　print "\a";
　print "$ARGV[0] 秒経ちました。\n";
　これ。
　なんかカウントダウンが始まって面白かった。
　これも意味もなく何回も実行したのは内緒。　ﾎﾟﾜｧﾝ　(´∀｀*)

　木曜日はSTEPが２つ。

　パターンマッチング。
　正規表現。

　今パターンマッチでつまづいてます。　(´･ω･`)　ｼｮﾎﾞｰﾝ
　ふぬぬぬ。。。
　
　とりあえずお腹減った。(ぇ
　昨日ウィダーインゼリー飲んだきり。
　コンビニ逝って空腹埋めてからはりきるよ。　はりきっちゃうよ。　(ﾟーﾟ)

　脳内メモリ足りなくなりました。
　お昼１２時までがんばろうと思ったけど。。。

　ｺﾞｼｺﾞｼ。。。　(⊃＿−)　寝る。　ｵﾔｽﾐﾅｻｲ。

　そして結局、遊びに逝ってしまったわけですが。

　さっき帰った。

朝帰り

　ん。。。
　やっちゃった。　(´･ω･`)　ｼｮﾎﾞｰﾝ
　昨日勉強しないじゃいますた。
　なんかスランプ気味だったです。。。

　とか言い訳してみるテスト。

　いい、今日がんばるから。　ん。
　自分に鞭打って励む。
　今日は寄り道しないでまっすぐ家に帰ってくる!!
　そして勉強する!!

　ん、気合入った!!　ガンバル!!　(ﾟーﾟ)ｂ　ｸﾞｯ

　>>45
　ううん。　始発待ってた。(笑)

　

　帰ってきたよ!!　(ﾟーﾟ)

　勉強する!!

　　　　

　ん。
　今日はサボってきた。

　。。。(ﾟ∀ﾟ)　


　そんなことはどうでも良くてPerl。

　えっとね、とりあえず本の一通りはクリアしました。
　足りない頭でよくがんばった。　感動した。

　ん〜。。。　なんか、最後の方は覚えたっていうより、
　本を見ながらやった、
　っていう感じで意味が良くわかってなかったり。(どーん)
　かなり禿げしく復習が必要。
　そんな感じ。

　それで未だインフォシークからスペースお借りできない風味。
　もう少し日にちがかかるのかな？　(´･ω･`)？

　あと前の>>14さんの書き込みの、
　「プログラミングそのものの楽しさにもたくさん触れて欲しいです。」が、
　すごく印象的だったので今日か明日、
　初心者向けのプログラミングの本を買ってこようと思います。

　とりあえず今日は復習。
　それぞれの意味をきちんと覚えたい。

　今メールチェックしてみたら、
　インフォシークから登録完了メールがきてた!　(ﾟーﾟ)　ﾔﾀｰ!

しょうじきあそこのポップアップうざい

くそ！2重カキコが五月蝿いぞ

　

でｼｸﾃｨはなんか作ってみれ。

　

　ｳﾜｧｧｧﾝ　ε=ε=ε=ε=ε=ε= (ノ´□｀)ノ
　よかった、あったよー。

　昨日のドタバタで、このスレ無くなっちゃったかと思った。


　>>55
　はい!　(ﾟーﾟ)　わかりますた。

　えっとね、、、
　ん!
　掲示板か、カウンタに朝鮮!
　掲示板は難しそうだから、最初はカウンターにしたいと思います。

　ワクワクしてきた!
　そんな夜。

　　　　

　今、お借りしたスペースをいじってた。　(ﾟーﾟ)

　今日買うもの。
　「パソコンプログラミング入門以前」１６００円。

　。。。でも、
　付録にCD-ROMみたいな教材が付いてないよ。　(´･ω･`)　ｼｮﾎﾞｰﾝ
　立ち読みしてもっといいのがあったら、そっちにする。

　広告見てるのだけど、
　「PHPでWebアプリケーションを作ろう」っていうのもある。
　PHP?　(´･ω･`)　ﾝ?
　何が作れるんだろう??

　とりあえず自分はカウンタ、カウンタ。
　がんばる!

カウンターは凝らなかったら激しく簡単な気がする。
でも画像連結しなくちゃならないなぁ。
CGIにアクセスするだけなら
ファイルから値読み出して+1してそれをprintして
それをファイルに保存すればいいのだけど。
ｐrintのとこが少々むずかしくなるね。

ほかいろいろ機能つけていったらカウンターでもおもしろいんだけどな。

　。。。(−＿−)

　本、探したけれど無かった。

　取り寄せしてもらおうと思って、
　店員さんに声かけたのはいいのだけれど、タイトル激忘れ。

　shixyabonn：「あの、プログラミング。。。プログラミング。。。えっと、
　　　　　　　　なんだっけ。。。あの、表紙にヒヨコがいる本なんです。」

　店員：「(ﾟДﾟ) ﾎﾟｶｰﾝ。。。」



　ｳﾜｧｧｧﾝ　ヽ(｀Д´)ノ

　↑
　間違って送信。
　続き。

　また一週間シリーズ買ってきたよ!　(ﾟーﾟ)

　一週間でマスターするCGI for Windowsっていう本。
　カウンター占いページとか掲示板の作り方も載ってる。
　10日で覚えるPerl(うろ覚え)っていう本と、どっちにするか迷った。
　ラッキー7で一週間のほうにした!　(ﾟーﾟ)　(意味不明。)

　今から数字のアイコンと、
　お気に入りのところの16ピクセルのアイコンを作りたいと思います。
　IconForgeっていうソフトをDLしたのだけれど、
　ツールの使い方が良くわからないよ。。。　(´･ω･`)　ｼｮﾎﾞｰﾝ。。。

　ピーンチ!!(謎)

　ｳﾜｧｧｧﾝ　。・゜゜(´□｀ )゜゜・。

　むずかし。　(´･ω･`)　ｼｮﾎﾞｰﾝ

どうした

　>>65
　勝手にいじられまくり。
　フォルダごと削除されてたり、Perlエディタとかも無くなっちゃった。
　ふぬぬぬ。。。

　ブルーだったけれど、
　今日、映画スチュワートリトルやるよ!　(ﾟーﾟ)　白ねずみの!
　それ見て元気を出す。
　元気が出たらAPACHEをインストールして本腰を入れたいです。

　ふぬぬぬ。。。
　本見ながらがんばってるけれど、
　一気に専門用語のオンパレードで、ずーっと(´･ω･`)な顔してる。

　そんな夜。

　フワフワまんせー。
　可愛かったけれど、声がイマイチ。
　２は小鳥のマーガロっていうのが出るよ。　(ﾟーﾟ)
　やヴぁい。　可愛すぎ。

　ん、見終わったので、再びガンバル！

ふみゅ

　く。。。
　ラウンジ３時間もぶらついちゃったよ。
　時間もったいない!! ｳﾜｧｧｧﾝ　ヽ(｀Д´)ノ

矢印のところの空白の行って意味があるの？
本を読み返しても、4行目と7行目には触れてないです。
見落としたのかな。。。　(´･ω･`)

1: $price_A = 200; # 商品のAの値段
2: $price_B = 300; # 商品のBの値段
3: $tax = 1.05; # 消費税(5％)
4:　　　　　　　　　　　　　　　　　　　　　　　←ここ。
5: # 合計金額の計算
6: $sum = ($price_A + $price_B) * $tax;
7:　　　　　　　　　　　　　　　　　　　　　　　←ここ。
8: # 結果の出力
9: print "合計金額 =", $sum, "円\n";

お久しぶり。ちゃんと見てるよ。
>>70

空白の行(改行だけの行)は全くなにもしません。
読みやすくするために空けてあるだけ。

改行や空白文字(スペース)は、色んな所に入れる
ことが出来ます。逆に、場合によっては省く事もできます。

>>70の場合、
$price_A=200;$price_B=300;$tax=1.05;$sum=($price_A+$price_B)*$tax;print"合計金額 =",$sum,"円\n";

という風に、改行、空白をぜーんぶ削っても動くし、

$price_A
=
200

;


$price_B =



300
;

(以下略)

みたいに、空白や改行を入れすぎても、やっぱりちゃんと動きます。動作は全く同じです。

文章の句読点や段落分けと同じで、読みやすいのが一番なので、
自分が読みやすい改行や空白の入れ方で良いと思います。

　11さん、お久しぶりです。おはようございます。　(ﾟーﾟ)

　空白も改行も、たくさん入れても動くとのこと。
　9行じゃなく、横一列はさっぱりしていて見やすいです。
　教えてくれてありがとうございます。

　Apacheが起動してくれない。
　困る。　(´･ω･`)

　もう一度設定を見直してみるです。。。
　っていうか眠い。　ｺﾞｼｺﾞｼ。。。　(⊃＿−)
　あとちょっとガンバル。

　ｺﾞｼｺﾞｼ。。。　(⊃＿−)

　できたよ!　できました。　(ﾟーﾟ)
　http://127.0.0.1/cgi1.cgi
　でCGIプログラム NO.1, テスト成功 !って文字が出ました。

　帰ってきたらすぐ眠って、夜中起きて続きやります。
　逝って来ます。

　

そんなローカルのアドはられても困ります
まったくもぉ！ｗ

１行がみやすいとは、、、、

俺なんかこうするとおもうな。
tab使えないし最初の半角スペースは無効化されるので
すまんが全角スペースをつかわせてもらう。
================================================
## 商品のAの値段
　$price_A = 200;
## 商品のBの値段
　$price_B = 300;
## 消費税(5％)
　$tax = 1.05;

## 合計金額の計算
　$sum = ($price_A + $price_B) * $tax;

## 結果の出力
　print "合計金額=$sum円\n";
================================================
たぶん注釈なんて１つもつけないんだろうけど。

　普通にいっぱい寝た。　1時くらいに起きました。
　おはようございます。　(ﾟーﾟ)

　>>ざきさん
　ローカルアドレスごめんなさいです。(笑)

　ずっとパソコン上でしか実行したことなかったけれど、
　このまま順調に進めば今日インフォシークのサーバにデビュー!!

　。。。かもしれない　。。。(ﾟ∀ﾟ)

　うん、1行見やすい。
　でもまだまだうちは#のコメント無しのスクリプトを見ても、パニクるっぽ。
　ただ注釈が1つも無しに、1行にスラっと書き込めたらｶｺｲｲって思った。
　ざきさんが書いてくれたスクリプトを見て、いろんな書き方があるんだって勉強になりました。　(ﾟーﾟ)
　ありがとうございます。

　　Telnetソフトの接続が出来なくて、やけっぱち風味になってた。
　それでインフォシークのサーバーの仕様に関する情報をきちんと読み返したら、
　「TELNET接続、不可」って書いてあった。

　40分くらいトライしてたよ。。。　(−＿−)　鬱。


　本には.htaccessファイルが載っているけれど、
　インフォシークの情報ページには載ってないからいらないっぽ。

　今からパーミッションの設定をします。

１行は正直ｶｺﾖｸﾅｲ

　ふぬぬぬ。。。
　唸るよ。　唸っちゃうよ。
　何がいけないんだろう。。。

　なんかいやっても404 Not Foundが出る。。。　(−＿−)

　ｳﾜｧｧｧﾝ　ヽ(｀Д´)ノ

　>>79
　��(´□｀ノ)ノ　ｽﾞｶﾞｰﾝ!!

　深夜映画。　(´∀｀ ) Ahahaha





　。。。いけない、いけない。　(−＿−)

　ん。。。　(´･ω･`)
　URLに間違いは無いのだけれど。

　やっぱり.htaccessっていうファイルが必要なのかな。
　でもそのファイルに何を書くのかなんてiswebに載ってないよ。
　ふぬぬぬ。。。
　とりあえずファイル作ってみるです。。。

　家出る時間までに絶対成功させる!　(ﾟーﾟ)

>>79
同意。
>>80
せめてセミコロン（；）が出たら改行するのが一般的。
そのときは見やすいと思っても、後から見直すと訳がわからなくなるよ。

あと、複数行に分けるメリットは他にもあって、

$ABCDEFGH =~ s/aaa/bbb/g;$ABCDEFGH =~ s/ccc/ddd/g;$ABCEFGH =~ s/eee/fff/g;$ABCDEFGH =~ s/ggg/hhh/g;

こうなってると、タイプミスが分かりにくい。一箇所ABCDEFGじゃない部分があるんだが、
エラーが出るまで多分気付かない。

$ABCDEFGH =~ s/aaa/bbb/g;
$ABCDEFGH =~ s/ccc/ddd/g;
$ABCEFGH =~ s/eee/fff/g;
$ABCDEFGH =~ s/ggg/hhh/g;

こうなってると、一見して間違いに気付く事ができる。

> 　ただ注釈が1つも無しに、1行にスラっと書き込めたらｶｺｲｲって思った。

あーなるほどね。こういう訳か。

One-Linerって言って、２度と使いまわしや修正しないような短いスクリプトは、一行に
ずらっと注釈なしで書いたりすることはあるけど、普通のスクリプトを書く時は、後々
修正したり、別の用途に使いまわしたり、他の人に渡したりすることを考えて、なるべ
くコメントや適切な改行は入れて見易さを心得た方が良いよ。

特に大きいスクリプトの場合、スクリプトの見た目の美しさは、開発効率にかなり違い
が出る。

俺が>>14でOne-Linerに書いちゃったのが良くなかったかな。

あとでみたとき改造できないよ。
ほんと。汚いのは。

自分のでも何かいてるかわかんないもん。

　こんばんは、朝てんぱってて書き込めなかったけれど、
　本物のサーバマシンで実行できたよ!
　本にはユーザーネームの後にチルダつけるって書いてあったのだけれど、
　なかなか表示されなくて、頭から布団被ってフテ寝しようかと思った。
　でもなにげに~をはずしてみたら一発でアクセスできた。(笑)
　「CGIプログラム NO.1, テスト成功 ! 」
　っていう文字だけれど、きちんとブラウザに表示されました。
　(http://isweb44.infoseek.co.jp/computer/mo_sea/cgi-bin/cgi1.cgi)
　嬉しかった。　(ﾟーﾟ)　おにぎりﾜｯｼｮｲな気分だった。　Perlまんせー。

　>>11さん
　>14でOne-Linerに書いちゃったのが〜
　それは違うですよ!　なんかこう、ｶｺｲｸ見えてしまってました。(笑)
　改行して並べると、Dがないのに一発で気づきました。
　;で改行すること。
　コメントを入れて見易さを心得ること。
　1行で注釈なしで書く書き方はOne-Linerということ。
　頭に入れました。　ありがとうございます。　(ﾟーﾟ)

　>>ざきさん
　あとで見たときに、きちんと改造できるようにきちんと改行するようにします。
　今日は占いのCGIです。　(ﾟーﾟ)
　データ入力のないプログラム、だそうです。
　順調にいけば、明日は念願のカウンター。

　今日もはりきっちゃうよ!

　占い。。。っていうかおみくじだった。
　勘違い風味。

　プログラムは書けたけど、まだサーバマシンでのチェックはしていません。
　大吉とか中吉とか画像製作開始。

　。。。。。(−＿−)

　「;」たった一つ書き忘れたために、
　1時間以上うんうん唸ってますた。
　やっとさっき書き忘れに気づいたよ。

　そんな自分に困る。

　今からサーバマシンにファイルを送ります。
　の前に少し仮眠。

　できたよ! (ﾟーﾟ)　できました。

　占いおみくじ。
　http://isweb44.infoseek.co.jp/computer/mo_sea/cgi-bin/uranai/uranai.cgi

　そろそろ朝ごはん食べて逝って来ます。
　今日の夜はカウンター。

表示するたびに運勢が違うのはいかがなものかとｗ

年・月・日・IPなどをつかって
同じ日で同じIPなら同じ結果をだす
とかにすればおもしろいかな。

もしくは最初アクセスしたときに
ランダムに運勢きめてクッキー発行して(期限はその日だけにする）
で２回目のアクセスだったら（クッキーがあったら）
クッキーから結果を読み出して出力　とか。

いろいろ方法はあるね。

>>89
簡単にエラー箇所さがせるＣＧＩとかあるよ。
何行目にどんなエラーがあるかがかいてあるから
結構便利。

　ふぬぬ。　もう朝。
　うちパソ1台しかないから困る。
　先に使われてて、ほとんど占領されて時々しか使えなかったよ。　(´･ω･`)　ｼｮﾎﾞｰﾝ
　なので今からカウンタやります。

　>>91
　年、月、日、IP、もしくはクッキーで、
　その日はずっと同じ結果っていうこともできるんだね!
　うん、そういうの作ってみたい。　(ﾟーﾟ)
　でもうちのスキルじゃ、何をどう書けばいいのかまだまだ全然わからない。　恥ずかしー。
　とりあえず最終日の掲示板のステップが終わったら、
　もっとたくさん載っている本を買って勉強したいと思います。

　＞簡単にエラー箇所さがせるＣＧＩとか〜
　!! (ﾟーﾟ)
　ｸﾞｸﾞﾙで検索してみる!!

　ふぁ〜、ん〜。
　今日ズル休みしようかな。。。

本ばっかしかうよりそこら辺のＣＧＩひろってきて見て勉強するのがいいと思うが

　>>93
　はい、わかりますた。
　そこら辺の一回ひろって見てみるよ!　(ﾟーﾟ)



　今日はズル休み決行。　ぉ〜ぃぇ。　

そこら辺乗っていっても
最初はただの掲示板でもいい。
実際にいろんな人がつくったものがみれる。
いろんな人の書式も見れるし。
そして簡単な掲示板にもすっごい鷹揚があるかもしれない。

チェックするのは一応おれもってるが、、

　カウンタはエラーがいっぱい出て、未だ完成してないです。。。　(−＿−)

　逝ってしまいたい。　そんな気分。

エラーチェックＣＧＩ設置したのか？

わからなければここにソース張るのも手だと思うが。
嫌じゃなかったらな。
そういうスレだとおもうし。

　>>ざきさん
　はい。　(ﾟーﾟ)
　掲示板、たくさん見て勉強します。

　検索サイトでCGI、掲示板、で検索をしたら
　2apesっていうサイトにたどり着きました。
　そしてDLしてみました。
　でもとりあえず、最初カウンター。。。
　。。。クリアしたい。　(´･ω･`)


　ぶっちゃけ昨日、午後から遊び逝ってますた。(ぁ)
　その分、今日はがんばります。　ん。

　>>97
　ん、レスあったの気づきませんでした。

　エラーチェックCGIはまだ設置してないです。
　カウンターの前にこっちを優先かも。

　100。

　>>97
　＞そういうスレだとおもうし。
　うちは出来ないとか、出来たとか、鬱だとか、意味不明な書き込みばかり。
　これからは気を付けます。

　教えて君と煽られても、ｷﾆｼﾅｲ!!で質問するのでよろしくおながいします。

　自力でがんばってたけれど、
　もうダメぽ。

　実は未だにローカルサーバーでのテストの段階で凹んでます。。。
　ファイル名はcounter.cgi。

　#!C:\Perl\bin\perl

　# 読み書きモードでファイルオープン
　# オープンできないときは強制終了
　open(COUNT, "+<countdata") || die "File 'countdata' Open Error.";

　# ファイルをロックする
　flock(COUNT,2);

　# ファイルから一行読み込む
　$counter = <COUNT>;

　# カウントアップ
　$counter_new = $counter + 1;

　# ファイルポインタを先頭に戻す
　seek(COUNT, 0, 0);

　# ファイルに出力=書き込み
　print COUNT "$counter_new\n";

　# ファイルクローズ
　close(COUNT);

　# ファイルロックを解除する
　flock(COUNT,8);

　# ----- 出力はここから -----
　print "Content-type: text/html\n\n";

　print << "END_OF_HTML";

　<HTML>
　<BODY>
　<CENTER>
　<FONT size="4"><B>
　Welcome.<BR>
　You are<FONT color="red"> $counter_new </FONT>visitor.
　</B></FONT>
　</CENTER>
　</BODY>
　</HTML>

　END_OF_HTML

　動いてくれません。　く。。。

　カウンタ用の画像を作ったやつ、無意味っぽ。

　もう少しがんばってみる。
　Ahahaha (´∀｀) Ahahaha

　壊れてきた。

seekとかflockとか俺の読んでた本にのってなかったら
俺いまでもつかわない。
dieもつかわないし+<もつかわないな。

$count++;
で
print CONT $count;
でいいんじゃないか？
もう一個変数つくる意味がわからんが。

Win版ってflock実装されてたっけな？

flockの行を2行とも削ってみて。それで動くなら、flockの未実装が原因。
それでも動かない場合、flockもseekも削ってみて、それで動けばseekの未実装。

ちょっとやってみて。

　>>105、106
　レス、ありがとうございます。

　さっき、やっと出来ました。　ｳﾜｧｧｧﾝ　。・゜゜(´□｀ )゜゜・。
　http://isweb44.infoseek.co.jp/computer/mo_sea/cgi-bin/counter/frame.html

　動いてくれなかった原因は、ご指摘どおりflock。　flockめぇ。(何)
　ローカルサーバでは、他人が、ロックがかかっているファイルにアクセスする、
　といったことはないので鍵をかける必要がないと、記述してありました。。。

　ちゃんと読もうね、自分。

　ｳﾜｧｧｧｧｧﾝ　ヽ(｀Д´)ノ

　flock(COUNT,2);とflock(COUNT,8);に、#を付けてコメント風味。
　そしてテスト、無事終了。。。

　なんだかなぁ。。。　自分。
　ちょっとしたミスばかり。
　すごい時間がかかっちゃったよ。　(´･ω･`)　ｼｮﾎﾞｰﾝ

　次は掲示板かと思ったら、アンケートのCGIみたい。
　データ入力のあるプログラム。
　ふぬぬぬ。。。　難しそうだぽ。

　でも、
　やってやるさ！　(ﾟーﾟ)　やってやるとも!　シャキーンっとな!

　挫けへんでぇ。