36才からの挑戦

　もう無職４年になるな〜面接も100社近く受けたけど、全部ダメだった。
もう自分で自営業しよ。ダメだったら氏の。と、言うことで何を始めようか
考えた。取り合えずサイト運営して広告収入を得ることを目標に頑張ります。

　perlダウンロードしたが、全くワカラン。。。プログラム経験０なのでキツイ
とにかくｶﾞﾝﾊﾞﾛ

2ゲット！

とんでもないＤＱＮおやじ現るだな
広告収入(藁

perlは本買って、トイレで読むくらいの心構えで読んで覚えれば
それなりには解ってくると思います。
オイラは掲示板cgiをどっかから拾ってきて、本を読みながら覚えました。

オンラインショップで通販もやると
いいかもね。できたらアドレスきぼんぬ。

>>1さん
頼もしいです！
36歳でも全然平気だということを後生にぜひ示して下さい。
伝説のスレに記念カキコ。

>>1
>プログラム経験０なので

それはキツイんではないかなぁ

>>6
マネ虎の経営志望者並みのレスだな(藁。
その気にさせて>>1を再起不能のDQN経営者にする気か？
誰かまともな経営ってもんを教えてやれよ
このままじゃ>>1かわいそすぎるぞ。

>>7
きついというか無謀（ｗ

だって perl ってそんな難しくないでしょ？
小学生でも使ってるって噂もあるけど

少額でも確実に現金が入る
仕事を選びましょう

サイト運営して広告収入を得る
ってのは最も非現実的な案だと思います

>>1

がんばってください

俺は２０で情報系専門卒なのに

プログラムで出来ず　卒業後の今　普通にPerlを独学で勉強してるが

それでもきついと思うぐらいだから

やっぱ俺には向かないのかな情報系　とくにプログラミングなんてマジで理解できない

>>1
警備くらいならなんとかなるよ。社員は無理だけど。
つうかそのくらいしか無いわな。

しかし、サイト運営で広告収入って・・・。
そんなもん商売になるのかよ？５年前ならともかく今時よう。

プログラムやってる人たちとかunix触ってる人にとっては
perlは簡単。(まぁperl for winもありますが)
そうでない人は覚えること多いですよ。

生計立てるだけの商売として成り立つのかなぁ・・・
具体的には何も案出てないし、オンラインショップってたって
それなりのセキュリティないとね。

少なくともperlが書けるという技術だけで飯は食えない
残念ですが。

でしょうねえ。

Ｐｅｒｌって覚えるとどんなの作れるの？

金銀パールプレゼント

perlやるならＡＳＰやれ
cgiの時代は終わる

ＡＳＰは言語じゃないが

あっ、ＷＥＢ系やるならってことで
perl/cgiのことね

　レス付いている。無謀と言うことですね。それは自分でもそう思います。
このスレは私のオナニースレと言うことで無視してください。レス付ける事は無いと思いますので。。。

　さて、Perlですが、全然わかりません。正規表現？連想配列？何言っているのか
判らないので無視。
HTMLも覚えないといけないのか。取り合えず<table><form><input>タグだけ覚えた。
後は無視。Topページ作った。どうやってcgi組み込めば良いんだ？
cgiのサンプル見付けてこよ〜

知った風な「手段」ばかりに気をとられるな
目的は何だ　生活が出来るだけのカネだろ
自分に出来るものから始めろ
今のままじゃ絶対に自滅するぞ

.shtmlにしる
つーか、自前のサーバー用意してるのん？

>>1
頑張れ！！俺も３０過ぎちゃったけど何か資格に挑戦するから。

３０すぎて資格もヘッタクレもねーだろ･･･

あるんだよ。
このままじゃ終われない

まあ、屁の足しにもならんと思うが・・・
やらざる得ないわな。

6年前に同じ様なこと考えて、ある程度成功したので
その金を元に業種替えして現在に至る者から言わせてもらえば
上でも誰か書いてるけど、圧倒的にタイミングが遅すぎる。
それでも、あえてやるなら関東近郊の地方都市でやればまだ希望持てるかも。
最後に、perlなんかよりも口八丁手八丁。これが大事。

>19

五代サンに質問です。
ASPってこれから伸びますかね？
数年前に、私もそう思って独学で少しやりましたが、ASP自体知名度全然なかった。
今でも、Javaは知っててもASPって何？なんて人多いから・・・。

でも、>>1さん、フリーサーバにCGIなんかを設置して広告収入得るつもりなら
Perlにした方がいいですよ。
ASPのちゃんと使えるフリーのサーバは、今まで一回しか見たこと無いですから。
（しかも抽選だった）
Perlなら無料の所も一杯あります。

少しずつ判ってきたぞ。今日のおさらい
$a=5;
$b=$a;
としても、$aに5が入っているんだ。最初悩だぞ〜
引き出しに、もの入れて他の引き出しに移すとイメージしていたのだが
コピーするようだ。これで、連想配列も理解できだぞ〜
名前の付いた引き出しに、ものを入れていくと言うイメージだ。少し利口になった。

後、フリーのgciダウンロードしてきて見てるが、デコードのところが良く判らないな〜
$ENVが環境変数と言うことに気が付くのに時間がかかった。

今日は疲れた寝よ。お休み

覚えるもんじゃなくて
必要なことやってるまに使えるようになってんだな。

すごいですね。サイト運営で広告収入なんて、超ナウくてバッチグーの
これからの仕事ですよ。

>>28
ＡＳＰは初心者でも比較的取得は容易だし、俺のとこにくる仕事もＡＳＰが多いから
>>1に選択肢の一つとしてＡＳＰを薦めてみた

確かに知名度は低い（ｗ
サーバーの負担はＡＳＰの方が少ない、というのがメリットだと思ってるけど
今後はどうなんだろう
中小企業ではシステム管理者の人手不足で手軽な自社システムを構築できる
ＡＳＰを使うケースが多いけどね
伸びるか伸びないかは今後のコンポーネント次第かな

ま、>>1さんは文面を見る限り、趣味の範囲でするみたいだから
フリーのperlでやればいいと思う

これって、ネタなんじゃないかな〜。
>>1は、Perl熟知してる様な気がする。

　今日も逝ってみよう
$a++は$a=$a+1だそうだ。$aを0〜9まで増加させると$aは0〜9まで合計
45になるらしい。だが、$a=0の時、0=0＋1となりおかしい。
　左辺の$aと右辺の$aは違うみたいだ。これは数列と考えるとしっくりくる。
$a(n+1)=$a(n)+1
とおくと、一般解：$a(n)=Nはとなり、合計はΣ$a(n)=N*(N+1)/2となる。
N=9を代入するとΣ$a(n)=45で上の合計と一致する。
すなわち左辺の$aは未来の値、右辺の$aは現在の値と言うことらしいが、
Perlではどうゆう風に判断しているのだろうか？不思議だ。

取り合えず最初からまとめ

【Perl の文法】

（�T）文の末尾には必ずセミコロン"；"をつけ、"；"までが１つの命令として扱われる。
　　　例）print "Hello World\n" ;

（�U）大文字、小文字は区別して扱われる。
　　　例）print "Hello World\n"; # ○
　　　　　　Print "Hello World\n"; # ×

（�V）コメントはシャープ"#"からその行の行末まで。

（�W）スクリプトはサブルーチンなど特別な処理でない限りそのスクリプトファイルの
　　　　先頭行から順次に実行されていきます。

（�X）文字列はダブルコーテーション（"）又はシングルコーテーション（'）で囲んで
　　　　表示する。（"）はその中に含まれる変数や（'）を展開。（'）はこれを展開しない。

　　　　　例）$a = 10 ;
　　　　　　　　print "$a" ; # １０と表示
　　　　　　　　print '$a' ; # $aと表示

>32

ありがと

【変数（1）】
　Perlでは型宣言しなくても良いそうだ。
変数には、スカラ変数、配列変数、ハッシュ(連想配列変数)の３種類がある。
先頭の記号で区別する。

　例）$ ：スカラ変数
　　　@ ：配列変数
　　　%：連想配列(ハッシュ)
　　　& ：サブルーチン

（�T）スカラー変数：数値、文字列値、リファレンス等の様々な値を１つだけ保持することができる。

　　　例）$a = 10; # 数値
　　　　　$b = "20" ; # 文字列
　　　　　$c = $a + $b ; # 数値と文字列を加算
　　　　　print $c ; # 表示→ ( 30 )

　数値と文字列の足し算が出来るとは不思議だ。

（�U）配列：配列とは複数のスカラ値の集合を表わし、"@"がつき、個々のスカラ値へアクセスするには "0" から始まる添字を指定する。
　　　この時の添字指定は "[ ]"を用い、個々の要素指定は$"で行う。

　　　例）@week = ('sun', 'mon', 'tue', 'wed', 'thu', 'fri', 'sat') ;
　　　　　print $week[0] ; #"sun"が表示される。
　　　　　print $week[1] ; #"mon"が表示される。

　　　すなわち
　　　@week=($week[0],$week[1],$week[2],$week[3],$week[4],$week[5],$week[6]);
　　　と言うこと。

【変数（２）】
（�V）ハッシュ(連想配列)：配列変数の添字が文字列となったもので添字と対応して保持される。
　　　"%" がつき、個々のスカラ値へアクセスするには変数名に添字を付け、この時の添字の
　　　指定は " { } " を用い、個々の要素指定は配列同様"$"で行う。

　　　　　例）%week = ('sun', '日曜', 'wed', '水曜', 'fri', '金曜') ;
　　　　　　　print $week{sun} ; # "日曜"が表示される。
　　　　　　　print $week{wen} ; # "水曜"が表示される。
　　　　　　　print $week{fri} ; # "金曜"が表示される。

　　　　　　名前の付いた引き出しにそれぞれの要素が格納されているイメージ。

（�W）型グロブ：型グロブの代入により、全ての変数、サブルーチン名等を別名で使用できる。

　　　例)$Long_name = "Hello World" ;
　　　　　@Long_name = (1,2,3,4) ;
　　　　　*short = *Long_name; # グロブの代入
　　　　　print $short; # Hello Worldと表示
　　　　　print $short[1] ; # 2 と表示

　　　　よく判ら無かった。
　　　　名前の付いた引き出しのあるタンスの名前をLong_nameからshortに変えると言うイメージなのかな？

【変数（３）】

（�X）特殊変数 「 $_ 」指定する変数を省略した時に用いられる特殊な変数だって。

　　　例) print ; # print $_ ; と同じ
　　　　　while(<STDIN>)# while( $_ = <STDIN> ) と同じ
　　　　　/^abcd/# $_ =~ /^abcd/ と同じ
　　　　　for ( 1..10 ) # $_ をカウンタ1〜10として使用

　　　　　@week = ('sun', 'mon', 'tue', 'wed', 'thu', 'fri', 'sat');
　　　　　foreach ( @week ){ # 配列全てに処理を行う
　　　　　　　　　　print ; # $_が使用 print $_ ; と同じ意味
　　　　　　　　　　print "\n"; # 改行の出力　}

　　　　　(出力）
　　　 　　sun
　　　　　・
　　　　　・
　　　　　sat

【変数（３）】

（�Y）エスケープシーケンスダブルクォートで囲まれた文字列は、バックスラッシュ
　　（￥）と変数による 置換を受ける。シングルクォートで囲まれた文字列はこの
　　置換を受けない（\' と\\を除く）。

　　　　例）表示 置換後の意味
　　　　　　\n 改行
　　　　　　\r 復帰
　　　　　　\f 改ページ
　　　　　　\t タブ
　　　　　　\b バックスペース
　　　　　　\a アラーム
　　　　　　\e エスケープ文字
　　　　　　\33 文字コード(８進数)
　　　　　　\x1b 文字コード(１６進数)
　　　　　　\" ダブルコーテーション自身

　　　　　　$a = "Hello" ;
print "$a World" ;# 表示→ ( Hello World )
　　　　　　print '$a World' ;# 表示→ ( $a World )

　　　　　　# エスケープシーケンスの展開
　　　　　　print "Hello \n World" ;# 表示→ ( Hello
　　　　　　　　World )
　　　　　　print 'Hello \n World" ；# 表示→ ( Hello \n World )

さあ、今日も逝ってみよー
あと、歳間違っていた。まだ３６になっていなかった。３５だった。
たいして変わらないが。

【配列への代入】

　例１）　@Array[1 ,2 ,3 ,4] = ( 10 ,20 ,30 ,40 ) ;

　　　　　先頭の要素は未定義になり2番目の要素から順に格納される。
　　　　※受取り側で代入される添字を指定している為配列の大きさは変わらない。

　例２）　@Array[0..1] = ( 10 ,20 ,30 ,40 ) ;

　　　　　先頭の要素は10、2番目の要素が20となり残りの値は無視される。
　　　※受取り側で代入される添字を指定している為配列の大きさは変わらない。

　例３）　@Array = ( ) ;

　　　　　空の配列を作成 ：配列の初期化

　例３）　$#Array = 2 ;

　　　　　配列の大きさを変更する(上記は0〜3の配列になります)。
　　　　この時指定した数値より大きい添字のデータは破棄されてしまう。

【参照】

次に示すサンプル配列を元に、配列を参照するやり方を見てみる。

　例１）　@week = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat' ) ;

　　　　　print $week[2] ;# 表示：'Tue'
　　　　　配列の３番目の要素を出力。

　例２）　 ( $s1 ,$s2 ,$s3 ) = @week ;
　　　　　$s1へ先頭の'Sun'を、$s2へ'Mon'を、$s3へ'Tue'と順に
　　　　　スカラ変数へ格納。

　例３）　( $s1 ,$s2 ,$s3 ) = @week[2..4] ;
　　　　　$s1へ先頭の'Tue'を、$s2へ'Wed'を、$s3へ'Thu'と配列の参照場所
　　　を指定してスカラ変数へ格納する事も出来る。このような使い方を
　　　※配列スライスと呼ぶそうだ。

　 例４）　print $#week ;
　　　　　$#を使用する事によって、その配列で指定できる最大の添字を参照
　　　　　する事が出来る。表示 → ６

　　例５）　print @week ；
　　　　　　配列の全ての要素を出力。表示 → SunMonTueWedThuFriSat

　　例６）　@week = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat' ) ;
　　　　　　$size = @week;
　　　　　　print $size

　　　　　解；表示→７

今日も頑張ろう

【ハッシュへの代入】

　例１）　%Hash = ( "one", 1 , "two", 2 ,"three", 3 ) ;＃キー値、値、
　　　　　キー値、値の順で代入される。
　　　　
　　　　　　キー値 one two three
　　　　　　　　　値 1 2 3

　例２）　%Hash = ( "one" => 1 , "two" => 2 , "three" => 3 );

　　　　　上のサンプルと結果は同等だが、キー値と値の関係を明確に記述する事がる。

　例３）　$Hash{five} = 5 ;＃キー値 = "five"値 = 5 と対応して作成される。

　　　　　%Hash = () ;＃空のハッシュを作成。初期化


【参照】

　ハッシュを参照するやり方。

　例１）　%Hash = ( "one" => 1 , "two" => 2 , "three" => 3 ) ;
　　　　　 print $Hash{two}；＃表示 → 2

　例２）　print %Hash ；

　　　　　キー値、関連付けられた値の全てを出力。ただしハッシュ全体を出力
　　　　　される場合その順番は保証されない。

　　　　　　　表示 → three3two2one1

【ハッシュ操作】
�T）ハッシュ操作関数

　　　keys ：キー値の配列を作成する
　　　values：値の配列の作成する
　　　each ：キー値、値の一組を配列として取得する
　　　exists ：キー値の存在を調べる
　　　delete ：ハッシュのキー値、値を削除する

　　例１）　keys
　　　　　　[通常の配列] = keys [ハッシュ名] ;

　　　　　名前のついたハッシュの全てのキーからなる通常の配列を返す。

　　例２）　values
　　　　　　[通常の配列] = values [ハッシュ名] ;

　　　　　名前のついたハッシュの全てのデータからなる通常の配列を返す。

　　例３）　each
　　　　　( <キー値> , <値> ) = each [ハッシュ名] ;

　　　　　ハッシュより新しいデータを取得し、キー値とデータからなる要素が２つの配列を返す。
　　　　　配列が全て読まれるとヌ ルが返る。この関数は実際にハッシュからデータを抜き出す
　　　　　事はしないで参照のみ。

　　例４）　exists
　　　　　　[ 真｜偽 ] = exists $ハッシュ名{キー値} ;

　　　　　対象のハッシュに指定したキー値が存在するか確認する。存在した場合は真を、存在
　　　　　しなければ偽を返す。ただしキー値が存在すれば真となるのでデータの有無までは
　　　　　確認しない。

　　例５）　delete
　　　　　　[ 削除されたデータ｜偽 ] = delete $ハッシュ名{キー値} ;

　　　　　引数で指定した値をハッシュよりキー値、データの全てを削除する。削除に成功すると
　　　　削除した値、失敗すると偽となる値を返す。

　�U）ハッシュ全ての要素に処理を行う

　　　例１）　foreachして全てのキー値を出力する
　　　　　　　　foreach　$変数 (　keys(　%ハッシュ名　)　) {
　　　　　　　　　処理
　　　　　　　　}

　　　　　先ずkeys(　%ハッシュ名　)でキー値の配列を作成し、後は毎回$変数へ関数から戻された
　　　　　配列の要素が先頭から順に代入される。全て参照し終わった時点でこのforeachブロック
　　　　　を終了する。

　　例２）　foreachして全てのキー値、データを出力する
　　　　　　　　foreach　$key (　keys(　%Hash　)　) {
　　　　　　　　　print "キー値 : $key\n";
　　　　　　　　　print "値 : $Hash{$key} \n "
　　　　　　　　}

　　　　　　取得したキー値からデータを参照する。

　　例２）whileして全てのキー値、データを出力する

　　　　　while ( ( $key , $value ) = each %Hash ){
　　　　　　　print "キー値 : $key\n";
　　　　　　　 print "値 : $value \n " ;　　
　　　　　　　　}

　　　　　each関数で毎回ハッシュにあるキー値とデータの組み合わせを１つずつ取得する。
　　　　　全部参照し終わった時点で関数よりヌルが返るので繰り返しを終了。

　�V）環境変数 「 %ENV 」

　　　Perlでは特別なハッシュ 《 %ENV 》 を用いシステムの環境変数を参照、設定する事が
　　　出来る。

　　　例）　システムに登録されているパスを表示する
　　　　　　print $ENV{PATH} ;

　　　（ 主要な環境変数 ）

　　　　　　名前 　　　　　　　　　　　　　内容
CONTENT_LENGTH 　　：標準入力に格納されたPOSTによる入力データのバイト数
GATEWAY_INTERFACE： Webサーバが実行しているCGIのバージョン(大抵1.1)
OS 　　　　　　　　　　　　　：Webサーバの使用しているOS
HTTP_ACCEPT　　　　　　： Webブラウザが扱えるContent-typeの一覧
HTTP_COOKIE　　　　　　： クッキー情報
HTTP_HOST　　　　　　　　： ドメイン名
HTTP_USER_AGENT　　　： CGIページを要求したWebブラウザとOSを特定できる情報
PATH　　　　　　　　　　　　： サーバのパス
QUERY_STRINGS　　　　　： GETによりWebクライアントから送られるデータ
REMOTE_ADDR　　　　　　： 訪問者のIPアドレス
REMOTE_HOST　　　　　　： 訪問者のホスト名(取得できない時はIPアドレス)
REQUEST_METHOD　　　　： データの受け渡し方法 GET か POST
SCRIPT_NAME　　　　　　　： CGIスクリプト名(URL)
SERVER_ADMIN　　　　　　： Webサーバの管理者に関する情報
SERVER_NAME CGI　　　　：を実行しているマシンのホスト名(取得できない時はIPアドレス)
SERVER_PROTCOL 　　　：Webサーバが実行しているHTTPのバージョン情報
SERVER_PORT 　　　　　　：Webサーバが使用しているTCP/IPのポート番号(大抵は80)
SERVER_SOFTWARE　　　： CGIを実行しているWebサーバ名

【算術演算子】

　�T）基本的に数値に対し行う演算子

　　　　$a + $b ・・・$aと$bを足す
　　　　$a - $b ・・・$aから$bを引く
　　　　$a * $b ・・・$aと$bをかける
　　　　$a / $b ・・・$aを$ｂで割る
　　　　$a % $b ・・・$aを$bで割った余り
　　　　$a ** $b ・・・$aを$b乗する
　　　　$a++ ・・・$aの値を1増やす（インクリメント）
　　　　$a-- ・・・$aの値を1減らす（デクリメント）

　　｛注｝ インクリメント、デクリメントでは演算子の位置により意味が異る。

　　　　　　例）$a = 10 ;
　　　　　　print $a++ ;# 表示( 10 )
　　　　　　$a = 10 ;
　　　　　　print ++$a ;# 表示( 11 )

　　　｛考察｝
　　　　>>34で考えたのは++$aの場合のようだ。
　　　すなわち、数列で考えると
　　　�@）$a++
　　　　　n=0のとき$a(1)=$a(0)
　　　　　n>=1のとき$a(n+1)=$a(n)+1

　　　�A）++$a
　　　　　$a(n+1)=$a(n)+1

　　となる。

　�U）代入演算子ある変数に値を代入する時に使用する。

　　　$a = $b・・・ $bを$aに代入する
　　　$a += $b・・・ $aと$bを足したものを$aへ代入
　　　$a -= $b・・・ $aから$bを引いたものを$aへ代入
　　　$a *= $b ・・・$aと$bをかけたものを$aへ代入
　　　$a /= $b ・・・$aを$ｂで割ったものを$aへ代入
　　　$a %= $b ・・・$aを$bで割った余りを$aへ代入
　　　$a **= $b ・・・$aを$b乗したものを$aへ代入
　　　$a .= $b ・・・$aと$bを連結したものを$aへ代入(文字列)

　�V）ビット演算子ビット単位での処理を行う演算子。

　　　　$a | $b ・・・$aと$bのOR
　　　　$a & $b ・・・$aと$bのAND
　　　　　　　~$a ・・・$aの否定（全てのビットの反転）
　　　　$a << 1 ・・・$$aを左に1ビットシフト　 (2倍)
　　　　$a >> 1 ・・・$aを左に1ビットシフト (1/2)

　　　　例）$a = 100 ;
　　　　　　print $a << 1 ;# 表示( 200 )
　　　　　　$a = 100 ;
　　　　　　print $a >> 2 ;# 表示( 50 )

　　　　不思議だ２進数って。

>>48
訂正
誤）＞$a << 1 ・・・$$aを左に1ビットシフト　 (2倍)
　　＞$a >> 1 ・・・$aを左に1ビットシフト (1/2)

正）$a << 1 ・・・$aを左に1ビットシフト　 (2倍)
　　$a >> 1 ・・・$aを右に1ビットシフト (1/2)

ついでに考察

10進数Nを2進数で表現すると

　N=a(n)*2^0+a(n-1)*2^1+　････　+a(1)*2^(n-1)+a(0)*2^n

となり、a(n)は1か0である。
２進数で表現すると a(n) a(n-1) ････ a(1) a(0)となり

　左に1ビットシフトすると ２進数は　0 a(n) a(n-1) ････ a(1) a(0)となる。
故に10進数Ｎは

　(N<<1)=0*2^0+a(n)*2^1+　････　+a(1)*2^(n-1)+a(0)*2^n=2*N

となり2倍になる。

　右に1ビットシフトすると ２進数は　a(n) a(n-1) ････ a(1) a(0) 0 となる。
故に10進数Ｎは

　(N>>1)=a(n)*2^-1+a(n-1)*2^0+　････　+a(0)*2^(n-1)+0*2^n=N/2

となり1/2倍になる。

と適当に考えたが良いのだろうか？

　�W）比較演算子

　　　例）if ( 5 < 10 )

　　　　　数値として比較すると → ( 真 )
　　　　　文字として比較すると → ( 偽 )

　　　例）if ( 1 == 1.0 )

　　　　　数値として比較すると → ( 真 )
　　　　　文字として比較すると → ( 偽 )

　　｛ Perlにおける真と偽｝

　　　「偽と評価されるもの」

　　　　0、長さ0の文字列、未定義（変数に代入も何もしていない状態）

　　　「真と評価されるもの」

　　　　上のもの意外全て

　　　　例）

　　　　　　if ( 0 ) # 偽 → 0は偽
　　　　　　if ( 1 ) # 真 → 0以外は真と評価
　　　　　　if ( 0.0 ) # 偽 → 数値として評価
　　　　　　if ( "0.0" ) # 真 → 文字列として評価
　　　　　　if ( "" ) # 偽 → 長さ0の文字列
　　　　　　if ( "a" ) # 真 → 文字、文字列は真

　�X）数値用比較演算子

　　　　$a == $b・・・ 等しい
　　　　$a != $b・・・ 等しくない
　　　　$a > $b・・・ $a が $b より大きい
　　　　$a >= $b・・・ $a が $b 以上
　　　　$a < $b・・・ $a が $b より小さい
　　　　$a <= $b・・・ $a が $b 以下

　�Y）文字用比較演算子

　　　$a eq $b ・・・等しい
　　　$a ne $b ・・・等しくない
　　　$a gt $b ・・・$a が $b より大きい
　　　$a ge $b ・・・$a が $b 以上
　　　$a lt $b ・・・$a が $b より小さい
　　　$a le $b ・・・$a が $b 以下

　�Z）論理演算子論理演算子は通常その式を評価し真であるか、偽であるかという値を返す、
　　　が、Perlでは真偽を返すのでなく最後に評価された値を返す。

　　　$a && $b・・・ 左辺が真なら右辺の値を、左辺が偽の時左辺の値を返す
　　　$a || $b・・・ 左辺が真ならその値を、左辺が偽の時右辺の値を返す
　　　　　!$a ・・・$aの否定、偽の時に真

　　例）print 1 - 1 && 2 + 2 ; # 左辺が偽なので左辺の値 "0"
　　　　print 1 + 1 && 2 - 2 ; # 左辺が真なので右辺の値 "0"
　　　　print 1 + 1 && 2 + 2 ; # 左辺が真なので右辺の値 "4"
　　　　print 1 - 1 | | 2 + 2 ; # 左辺が偽なので右辺の値 "4"
　　　　print 1 + 1 | | 2 - 2 ; # 左辺が真なので左辺の値 "2"
　　　　print 1 + 1 | | 2 + 2 ; # 左辺が真なので左辺の値 "2"
　　　　print !1　　　　　　　　 ; # 真なので偽の値 "未定義"
　　　　print !0　　　　　　　　 ; # 偽なので真の値 "1"
　　　　print !""　　　　　　　 ; # 偽なので真の値 "1"

　�[）条件演算子条件演算子とは条件の真か偽によって代入する値を変更する事が出来る。

　　「 条件演算子を使用しない場合」
　　　if ( 条件式 ) {
　　　代入変数 = 真 ;
　　　　} else {
　　　代入変数 = 偽 ;
　　　　}

　　「 条件演算子使用 」

　　　< 代入変数 > = < 条件式 > ? < 真 > : < 偽 >

　【ファイル操作】

ファイルを使用するには先立ってファイルを open 文を用いオープンする必要がる。
open ではファイルハンドル、使用するファイル、操作方法を指定する。何らかの理由で
オープンに失敗した場合は、偽となる値を返す。

　�T）ファイルを開く
　　　open ( FILEHANDLE , "ファイル名" ) ;

　　　「 ファイルハンドル 」

　　　　ファイルハンドルとはオープンしたファイルを表わす変数でプレフィクスは付けない。
　　　通常は大文字で指定する習慣になっている。（ 絶対ではない ）出力、読込みの時に open
　　　で取得したファイルハンドルを指定してファイルへの操作を行う。

　　　　例）構文 意味
　　　　　　　open ( FILEHANDLE , " < filename " ) ; 読込み用
　　　　　　　open ( FILEHANDLE , " > filename " ) ; 書込み用 （上書き）
　　　　　　　open ( FILEHANDLE , " >> filename " ) ; 書込み用 （追加）
　　　　　　　open ( FILEHANDLE , " +> filename " ) ; 読み書き用
　　　　　　　open ( FILEHANDLE , " +< filename " ) ; 読み書き用

　�U）ファイルを閉じる

　　　　オープンしたファイルは close を用い開放する必要がある。通常ファイルへの入出力は
　　　即時に行われるのでは無く入出力用バッファに貯められ一定量になった段階か close が
　　　行われた時に出力さる。

　　　　　close ( FILEHANDLE ) ;

　�V） 一行の読込み

　　　　 $line = <FILEHANDLE> ;

　　　　　FILEHANDLEに対応づけられたファイルの先頭から１行ずつデータを読み込んで行く。
　　　　デフォルトでは１行の区切りとして改行文字が用いられる。

　�W） リストコンテキストによる一括読込み

　　　 @array = <FILEHANDLE> ;

　　　　リストコンテキストでデータを受け取るとFILEHANDLEに対応づけられたファイルの
　　　内容を一括して配列へ代入する事が出来き、１行目が $array[0]に格納される。

　�X） read 関数による読込み

　　　　read ( FILEHANDLE , スカラ変数 , 読み出すバイト長 ) ;

　　　　例） read(FILEHANDLE,$data,64);

　　　　　　　ファイルの先頭から 64Byteのデータを取得する。
　　　　　　このread によるデータの読込みは CGI でデータの受け渡し方法が POST の時データ
　　　　　　を受け取る際に、標準入力から送信されたバイト数分データを読み込むのに使用する。

　�Y）ファイルへの書込み

　　　 print FILEHANDLE 出力データ ;

　　　　ファイルへの出力は通常の print , printf の引数に open で取得したファイルハンドル
　　　を指定し、それ以外は通常の print文と変りない。

　　　　例） syswriteを使用する出力

　　　　　　 syswrite [ FILEHANDLE ] , [出力データ] , [出力バイト長];

　　　　　　　システムコール read(2) を用いて、指定した ファイルハンドルから、変数へ、指定バイト
　　　　　分のデータ出力込みを試む。printと異なりデータのバッファリングを行わず実行時すぐに
　　　　　データを出力する。

　　　　例）whileとの併用

　　　　　　while ( $line = <FILEHANDLE> ){
　　　　　　　　　　処理
　　　　　　　　　　}
　　　　　　この例ではスカラ変数《$line》へファイルの内容が先頭から順に一行ずつ読み込まれていき、
　　　　　全て読み出すとこの繰り返しを終了する。

　　　　　　省略形

　　　　　　while (<FILEHANDLE> ){
　　　　　　　　　　処理
　　　　　　　　　　}
　　　　　　　この例は上の例と同等の処理だが、代入されるスカラ変数として $_ が用いられる。

　　　　例）foreachとの併用

　　　　　　@Array = <FILEHANDLE> ;
　　　　　foreach $tmp ( @Array ) {
　　　　　　　　　　処理
　　　　　　　　　　}
　　　　　　　これも上の例と同等の処理だが、配列へファイルの内容を一括して代入してその配列
　　　　　　にforeachを使用する。

　　　　例）オープン時のエラートラップ

　　　　　　　open ( FILEHANDLE , "< filename ") || die "ファイルを開けません :$!\n";

　　　　　　論理積演算子（|| 又は or）で結合する事により、open が成功すれば真として右側の命令
　　　　　は実行されない、失敗し偽となる値が戻った時に右側の命令が実行される。

　　　　　die関数

　　　　　引数の値を STDERR に出力して、現在の $! (エラー番号) で終了する。

　�Z）ファイル検査演算子
　　　記号 　意味
　　　-r　　読み込み可能であれば
　　　-w 　書き込み可能であれば
　　　-x 　実行可能であれば
　　　-o 　自分のものであれば
　　　-R 　実uid/gidで読み込み可能であれば
　　　-W 　実uid/gidで書き込み可能であれば
　　　-X 　実uid/gidで実行可能であれば
　　　-O 　実uidのものであれば
　　　-e 　ファイルが存在すれば
　　　-z 　ファイルサイズが0であれば
　　　-s 　サイズが0でなければ
　　　-f 　通常ファイルであれば
　　　-d 　ディレクトリであれば
　　　-l 　シンボリックリンクであれば
　　　-p　 名前付きパイプであれば
　　　-S　 ソケットであれば
　　　-b　 ブロック型スペシャルファイルであれば
　　　-c　 キャラクタ型スペシャルファイルであれば
　　　-u 　setuidビットが立っていれば
　　　-g 　setgifビットが立っていれば
　　　-k 　stickyビットが立っていれば
　　　-t 　ファイルハンドルが tty としてオープンされていれば
　　　-T 　ファイルがテキストファイルであれば
　　　-B 　ファイルがバイナリファイルであれば
　　　-M 　perl起動時における、ファイルの更新時刻からの日数
　　　-A 　perl起動時における、ファイルの参照時刻からの日数
　　　-C 　perl起動時における、ファイルの作成時刻からの日数

　　　例）
　　　　　if ( -e "sample.txt" ) {
　　　　　　　print "sample.txt は存在します。" ;
　　　　　　} else {
　　　　　　　print "sample.txt 存在しません。" ;
　　　　　　}

　�[）その他のファイル操作関数
　　　　tell 　　現在のファイルポインタ取得
　　　　seek 　ファイルポインタ設定
　　　　eof 　　ファイル終端確認
　　　　stat 　　ファイルの情報取得
　　　　unlink　ファイルの削除
　　　　rename ファイルの名称変更



　　　例）tell
　　　　　< ファイルポインタ > = tell FILEHANDLE ;

　　　　引数で与えられたファイルハンドルの現在のファイルポインタの位置を返す。
　　　　※ファイルポインタ → 現在の書込み、読込み位置

　　　例）seek
　　　　　seek < FILEHANDLE > , < オフセット値 > , < 起点 > ;

　　　　対象のファイルハンドルにファイルポインタを設定します。成功の時は真、失敗すれば偽
　　　　を返す。第３引数に起点(下記参照)第２引数にオフセット値を設定する。

　　　　　　　　　　起点
　　　　　　　1 ファイルの先頭
　　　　　　　2 現在のファイルポインタ
　　　　　　　3 ファイルの末尾

　　　例）eof
　　　　　< 真 | 偽 > = eof FILEHANDLE ;

　　　　　指定されたファイルハンドルの最終行か、ファイルハンドルがオープンされていなければ
　　　　　真を返す。

　　　例）stat
　　　　　< 配列変数 > = stat [ FILEHANDLE | ファイル名 ] ;

　　　　　ファイルハンドル又はフルパスで指定したファイルの情報を１３要素の配列として返す。
　　　　失敗した時はヌルリストが返る。 ※要素は下記参照 ( Windows 環境では無い情報も在る）


　　　添字 　　　取得される内容
　　　　0 ファイルシステムのデバイス情報
　　　　1 Iノード番号
　　　　2 ファイルモード(パーミッション等）
　　　　3 対象ファイルのリンク数
　　　　4 対象ファイルの所有書のユーザID
　　　　5 対象ファイルのｸﾞﾙｰﾌﾟのｸﾞﾙｰﾌﾟID
　　　　6 デバイス識別子
　　　　7 ファイルサイズ(バイト数）
　　　　8 最終アクセス時間
　　　　9 最終変更時間
　　　10 最終 I ノード変更時間
　　　11 最適ブロックサイズ
　　　12 割当てられているブロック数

　　　例）unlink
　　　　　< 削除したファイル数 > = unlink ファイル名1 ファイル名2　… ;

　　　　指定したファイルを削除する。引数に削除するファイルを指定し、戻り値は削除した
　　　　ファイルの数が返る。

　　　例）rename
　　　　　< 真 | 偽 > = rename < 現在のファイル名 > , < 変更後のファイル名 > ;

　　　　ファイル名を変更する。第一引数に現在のファイル名、第二引数に変更するファイル名を
　　　　指定する。成功すれば真、失敗すれば偽が返る。

【サブルーチン】

�T）宣言 & 呼び出し方宣言

「宣言」

サブルーチンの定義は次のように行う。
sub サブルーチン名 {
処理
}

「呼び出し」

プログラマによって呼び出す事によって始めて実行さる。
サブルーチンにはプレフィクス "&" を付る。

�U） プレフィクスを用いた呼出し

&サブルーチン名 ; # 引数を与えない呼び出し
&サブルーチン名 ( 引数リスト ) ; # 引数を与える呼び出し
do &サブルーチン名 ; # 引数を与えない呼び出し
do &サブルーチン名 ( 引数リスト ) ; # 引数を与える呼び出し

例）sub syori_A {
print "A" ;# サブルーチンの定義（この時点では実行されない）
}

sub syori_B {
print "B" ;# サブルーチンの定義（この時点では実行さない）
}

&syori_A ;# プレフィクス省略可能
&syori_B ;#　　　　　〃
do &syori_B ;
do &syori_A ;

表示　→　(　ABBA　)

�V）値の戻し、引数の受け取り結果の戻し

�@）return
return" 命令により引数に指定された値ををサブルーチンの結果として呼び出し側に
知らせることが出来きる。"return" 命令は実行された時点で呼び出し側に制御が戻る。

例）print &sub_A ;
&sub_A｛ return "Hello World\n" ;}

出力→Hello World

�A）returnを用いない場合
サブルーチン内で "return" 命令を実行しなければサブルーチンの最後まで処理を実行し、
最後に評価された値をサブルーチンの戻り値として戻す。

例）if ( &sub_A ) {print "数値が含まれています\n" ;
} else {print "数値は含まれていません\n" ;}

sub sub_A {$x = "Hello World!!" ;
x =~ /[0-9]/ ? 1 : 0 ;}

上の例では関数の戻り値を if 分の判定条件として使用している、サブルーチン内では
"return" 命令は使用していないので最後に実行された正規表現による結果が返される。
※条件演算子による評価を行わなくても同じ結果となる。

�B）引数の受け取り
サブルーチンへ引数を指定しサブルーチンの処理を変更することが出来る。
指定した引数は特殊変数 "@_" へ格納される。

例）「呼び出し側」
&Sub_A ( "Hello" , "World" , "!!" ) ;

Hello World !!
$_[0] $_[1] $_[2]
@
「 受け取り例　」
sub Sub_A { ( $a , $b , $c ) = @_ ;　# 特殊変数からの引取り}

【正規表現】

　�T） =~ と !~ の意味・・・・・　=~がマッチした場合。 !~ がマッチしなかった場合。
　�U）文字列にマッチさせる。
　　　. または .?　を使う。 . は任意の1文字を表す。 .?　は直前に書かれた文字が０個又は１個であることを表す。
　　　アルファベットにマッチさせる場合、[a-zA-Z]又は\wを使う。
　�V）数字にマッチさせる。
　　　[0-9]又は\dを使う。
　�W）数字意外にマッチさせる。
　　　[^0-9]又は\Dを使う。
　�X）文字列以外マッチさせる。
　　　[^a-zA-Z]又は\W、[ ] [^　] を使う
　�Y）改行にマッチさせる。・・・・・・・　\n、 \r\n
　�Z）スペース、タブにマッチさせる・・・・・・\s、 \t
　�[）文字列の先頭にマッチさせる
　　　/^ /　を使う
　�[）文字列の末尾にマッチさせる
　　　/ $/ を使う
　�\）複数のパターンをｲﾁﾄﾞに書く
　　　|　でつなげて書く
　�]）大文字、小文字の区別をせずにマッチさせる。
　　　/ /i
　�]�T）大文字、小文字の区別をせずに全文一致を確認する。
　　　　　/^文字列$/i
　�]�U）マッチした文字列を得る
　　　　　( )
　�]�V）マッチした文字列を他の文字列に変換する
　　　　　s/ / /

　<<目次>>

　【Perl の文法】　>>35

　【変数】
　　　　　その１　>>37
　　　　　その２　>>38
　　　　　その３　>>39
　　　　　その４　>>40

　【配列】
　　　　【配列への代入】　>>41
　　　　【参照】　>>42
　　　　【ハッシュへの代入】　【参照】 >>43
　　　　【ハッシュ操作】　>>44-46

　【算術演算子】
　　　　�T）基本的に数値に対し行う演算子 >>47
　　　　�U）代入演算子ある変数に値を代入する時に使用する。 >>48
　　　　�V）ビット演算子ビット単位での処理を行う演算子。 >>48
　　　　�W）比較演算子　>>50
　　　　�X）数値用比較演算子、�Y）文字用比較演算子　>>51
　　　　�Z）、�[）　>>52

　【ファイル操作】
　　　　�T）ファイルを開く、�U）ファイルを閉じる、�V） 一行の読込み　>>53
　　　　�W） リストコンテキストによる一括読込み　>>54
　　　　�Y）ファイルへの書込み　>>55-56
　　　　�Z）ファイル検査演算子 >>57
　　　　�[）その他のファイル操作関数　>>58-59

　【サブルーチン】
　　　　�T）宣言 & 呼び出し方宣言、�U） プレフィクスを用いた呼出し　 >>60
　　　　�V）値の戻し、引数の受け取り結果の戻し　>>61

　【正規表現】 >>61

今日から実践編！
頑張ろう。取り合えずデコード処理きまり文句みたい。何も考えず使おう！

sub decode {
　　　　　　　local($buffer,@pairs,$name,$value);
　　　　　　　if ($ENV{'REQUEST_METHOD'} eq "POST") {
　　　　　　　　　　　　　　read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
　　　　　　　　　} else { $buffer = $ENV{'QUERY_STRING'}; }

　　　　　　　@pairs = split(/&/,$buffer);
　　　　　　　　　foreach (@pairs) {
　　　　　　　　　　　　　　($name, $value) = split(/=/);
　　　　　　　　　　　　　　$value =~ tr/+/ /;
　　　　　　　　　　　　　　$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

　　　　　　　　　　　　　　# S-JISコード変換
　　　　　　　　　　　　　　&jcode'convert(*value, "sjis", "", "z");

　　　　　　　　　　　　　　# タグ処理
　　　　　　　　　　　　　　$value =~ s/&/&/g;
　　　　　　　　　　　　　　$value =~ s/</</g;
　　　　　　　　　　　　　　$value =~ s/>/>/g;

　　　　　　　　　　　　　　$in{$name} = $value;
　　　　　　　　　　　　　}

}

　デコード処理使って簡単なプログラム作ってみました。
名前とメールをテキストボックスに入力したデータを出力するだけです。

$script='./test.cgi';
require './jcode.pl';

&decode;　　#>>64
$uname = $in{'uname'};
$mailadd = $in{'mailadd'};
&jcode::convert(*uname,'euc');

print "Content-type: text/html\n\n";
print <<"EOM";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="japanese">
<head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=EUC_JP">
<title>GCI test</title></head>
<body bgcolor="#ffffff" text="#333333" link="#111177" vlink="#115577">

<h1>フォームテスト</h1><br><br>
<form method="post" action="$script">
名　　　　　前：<input type=text name="uname" size="20" value="$uname"><br>
メールアドレス：<input type=text name="mailadd" size="20" value="$mailadd"><br>
<input type=submit value="送信"><input type=reset value="リセット">
</form>
<br><br>名　前：$uname<br>メール：$mailadd<br>
</body>
</html>
EOM
exit;

　
ついでに、昨日買って来た本にＧＣＩモジュールの事が載っていたので、それを用いたプログラム
を作ってみました。>>65と同じプログラムです。

$script='./test.cgi';

use CGI qw(:standard);
require './test/jcode.pl';

$uname = param('uname');
$mailadd = param('mailadd');
&jcode::convert(*uname,'euc');

print header( -type=>'text/html', -charset => 'EUC_JP');
print start_html(-lang => 'japanese',-title => 'GCI test',-bgcolor => '#ffffff',
-text => '#333333',-link => '#111177',-vlink => '#115577');
print h1("フォームテスト"),br,br,"\n",
start_form(-method => 'post',-action => $script),
"名　　　　　　前：",
textfield(-name => 'uname',-size => '20', -value => "$uname"),br,
"メールアドレス：",
textfield(-name => 'mailadd',-size => '20', -value => "$mailadd"),br,
submit(-value => '送信'),reset(-value =>'リセット'),
end_form;
print br,br,"名　前：$uname",br,"メール：$mailadd",br;
print end_html;
exit;

　ＧＣＩモジュール使った方がスッキリしているようです。タグ無いのでプログラムっぽくて個人的には
気にいっています。

>>66
ＧＣＩモジュール？

なんだかんだでやってるじゃん。

>>67 訂正　GCI→CGIです。すいません。

　今日は、干支の表現を考えてみる。
干支は12年周期なので、周期関数を考えようかと思ったが、
たとえば、13年目は　13=12+1と表現できるので、12で割ったときの余り
を考えるだけでいい。
よって、下記のようになる。（1945年のとき酉）

　@etoStr=('酉','戌','亥','子','丑','寅','卯','辰','巳','午','未','さる');

　　　　　foreach(1945..2002){
　　　　　　　　　　　　　　　　　　　$yer = $_- 1945;
　　　　　　　　　　　　　　　　　　　$etoN=$etoStr[$yer%12];
　　　　　print "$etoStr[$yer%12] \n";
}
　ここで、さる年を申とすると、エラー出てしまう。申意外なら問題ないが
良く判らないが、文字化け等関係あるのだろか？

１さん、１００社も面接受けたなんてすごいですね。たいした精神力だ。
それだけ精神力あるならまだまだ世の中歩いて行けるんじゃないの？

ちなみにアルバイトの面接も受からなかったんですか？（失礼）

サイト運営するだけならperlよりphpでないですか。
覚えやすいし。

広告収入得るだけだったら、別に覚えなくてもどっかからCGI借りてくればいいんじゃないの。

確かに。けど、商用利用だとうるさいところもありますしね。
自分で作れるならそれに越したことは無いと思いますけども。

ついでにverilogHDLも教えてあげる。

おはよ、さー今日もがんばります。

>>70
　>ちなみにアルバイトの面接も受からなかったんですか？
アルバイトも全てダメでした。最盛期は毎日面接、毎日不合格通知でした。

>>71
　PHPはSQLの本買ったときに、付録で付いてきたのですが、Perlと似てますね。
取り合えず今はPerl一本に絞ってます。

さて、Perlですが、Lockfile関係勉強中です。Lockfileがうまく動いているか、どうやって
確認すれば良いのだろうか？考え中です。
　後、サーバーマシン作ろうと思って今、情報収集中です。自作出来るのだろうか・・・
不安だ。

今、不況でアルバイトの求人にさえ応募者が殺到するからなあ。

やばい・・・３６の人に負けた・・・
２０の価値って・・・

いまだにデコードの部分を勉強してる俺って・・・

>>69

はい、どうやら申は文字化けが原因みたいです
シフトJISコードでは申は　905c　となって
コードの２バイト目が　5c　になりますので
PerlではASCIIコードの「\」と重複してしまいますので
文字化けが起きたのです

申の後ろにもう１つ手打ちで　\　マークを入れると文字化けを回避できるかも知らない
俺もまだ勉強してる段階なので自信ないです　試してみてください

>>75
今倉庫でピッキングのバイトしてるんですが、40代50代のお父さん達がどんどん入
ってきますよ（繁忙期を迎えるので増員中）。10kgのものを持てれば問題無し。会
話不要。時給1000円です。

受ける会社を間違えているのでは？

http://school.2ch.net/test/read.cgi/senmon/1016617697/741-742
http://school.2ch.net/test/read.cgi/senmon/1016617697/799
http://school.2ch.net/test/read.cgi/senmon/1016617697/801
http://school.2ch.net/test/read.cgi/senmon/1016617697/808-812

専門学校板で昨日と今日でやった部分です
役に立てるかどうかわからないけど　とりあえず直リン

>>1
ひのえうま学年？？
俺も失業して、この７月でマル４年。
でも、リーマン時代の小金で今は極楽生活。

まじで、短期のバイトとか４０、５０代の人が増えてきてるぞ！

>>32
五代くん、やっぱ歳だね。ASPなんて今からやってどーするの？
IISのセキュリティの甘さ知ってるでしょ？

プログラム板逝け。うざい。

>>77>>78>>80
　日々之さん、有り難う。「申」を「申￥」にしたら、うまくいきました。感激です。
S-JISとASCIIコードの違いに問題があるのですね。そう言えばまえ「表示」が「悔ｦ」に文字化け
していました。そう言う理由だったんですね。これから漢字を扱うとき気を付けます。

>>79
　＞受ける会社を間違えているのでは？
そうかもしれませ。バイトは遺跡の発掘とか、アライグマの捕獲とか受けていましたから、
最後に清掃員落ちたときショックでした。

>>81
　＞ひのえうま学年？？
そうです。丙午です。受験・就職は非常に楽でした。でも、今は地獄？ですけど・・

>>84
　ごめんなさい。ム版いってもウザがられるので。無視してください。
目立たない様にしますので。

　それでは、本題に入ろう。昨日から悩んでいる事です。
mySQLを使って、データベース名test、テーブル名info、フィールド名nameとすると
name = 'bingo'のデータを数え、1以上だったら、 bingoにマッチするデータを全て吐き出す。
と言うプログラム作ったが、うまく動かない。nameフィールドにはbingoの他にbingo01、bingo11
とか一杯作ってあるのだが、bingoしか表示されない。あと、likeを~~にするとsintaxエラーに
なってしまう。どうしてだろう・・・きょうも悩も。

use DBI;
$db = DBI->connect("DBI:mysql:test")|| die "CONNECT ERROR $DBI::ERRSTR";
$st = $db->prepare("SELECT count(name) from info where name = 'bingo'");
$st->execute;
@res = $st->fetchrow;print"$res[0] \n";
　　if($res[0]){
　　　　　　　　　　$st = $db->prepare("SELECT name from info where name like 'bingo'");
　　　　　　　　　　$st->execute;
　　　　　　　　　　　　　$i=0;
　　　　　　　　　　　　while(@res = $st->fetchrow) {
　　　　　　　　　　　　　　　　　　　　　　print"$res[$i] :";
　　　　　　　　　　　　　　　　　　　　　　print"$res\n";
　　　　　　　　　　　　　　　　　　　　　　$i++;}
　　　　　　　　　}
$st->finish;
$db->disconnect;

頑張る

>>86

name like 'bingo%'な罠
name like 'bingo'じゃname = 'bingo'と変わらない罠

大丈夫、業務でそんな風に使わないから。。。って言われるじぇ
オレも悩みに悩んだのが、顧客にとってまったく意味の無い機能だった時は、
どれだけ、、あれだったか。

まずＳＱＬ単体でデータを抽出できるかを確認。それからプログラムに
実装する。そっからじゃないと無駄な時間をすごす。すぐにデスマーチに
なるぞ。

テーブルの中身をリストに出すから、こいうのはTips化して汎用になってるので
要は、いかにSQLのとこか・・。顧客の要望にこたえれるようにするこった。
あとは、パフォーマンスな。

>>87
　頑張ります。
>>88
　レス戴けるとは、思ってもいませんでした。感謝感激です。さっそっくやってみます。
有り難う御座いました。
>>89
　そうですか。自分の考えとして、新規にログインした時、ログイン名が重複してないか等調べて
重複していたら、未登録のログイン名を示すプログラムを作ろうと思ってたのですが、なかなか
うまくいきません。

では、いろいろ有り難う。

　やったー今日からフレッツだ。ISDNだけど。
朝からネットで情報集めてPCパーツ注文しまくった。いままで掛かった。疲れたな〜

　　　　　「発注内容」
CPU　　　：Athlon XP 2000+　　　　　　\17,280
ﾏｻﾞｰ　　　：GA-7DXR+　　　　　　　　　\10,880
ﾒﾓﾘｰ　　　：PC2100 512M×2　　　　　\21,960
HD　　　　：Seagate 380021A(80G)　 \12,280
ﾋﾞﾃﾞｵｶｰﾄﾞ：SiS315 64M　　　　　　　　　\6,970
CD　　　　：LTR-4213S　　　　　　　　　\6,870
FD　　　　：D359M3　　　　　　　　　　　　\1,980
LAN　　　：3com 100base×2　　　　　\7,940
ｹｰｽ　　　：WL-103-silent　　　　　　　\11,500
FAN　　　：PAL8045　　　　　　　　　　　\6,600
CRT　　　：FlexScan L365-BK　　　　　\50,500
ﾙｰﾀ　　　：OPT50　　　　　　　　　　　　\20,800
　　　　　　　　　　　　　　　　　合計　　\175,560
　果たして、動くのだろうか？
頑張ろう！

今日、CRT来た。明るくて目が痛い。
さて、しさしぶりに更新しよう。

>>86訂正$res[$i]でなく$res[0]でないとダメだった。

　use DBI;
　$db = DBI->connect("DBI:mysql:test")|| die "CONNECT ERROR $DBI::ERRSTR";
　$st = $db->prepare("SELECT count(name) from info where name = 'bingo'");
　$st->execute;
　　@res = $st->fetchrow;
　　　　if($res[0]){
　　　　　　　　　　　$st = $db->prepare("SELECT name from info where name like 'bingo%'");
　　　　　　　　　　　$st->execute;
　　　　　　　　　　　　$i=0;
　　　　　　　　　　　　　while(@res = $st->fetchrow_array｛
　　　　　　　　　　　　　　　　　　　　　　$res[0]=~ /([0-9]+)/;
　　　　　　　　　　　　　　　　　　　　　　　if($1){
　　　　　　　　　　　　　　　　　　　　　　　　　　　　keys %exclude =1;
　　　　　　　　　　　　　　　　　　　　　　　　　　　　$exclude[$i]=$1;
　　　　　　　　　　　　　　　　　　　　　　　　　　　　$i++;
　　　　　　　　　　　　　　　　　　　　　　　　　　　}
　　　　　　　　　　　　　}
　　　　　　　　　　　@num = grep { !$exclude{$_} } 1 .. 99;
　　　　　　　　　　　　foreach(0..2){
　　　　　　　　　　　　　　　　print "bingg$num[$_]";
　　　　　　　　　　　　}
　}
　　$st->finish;
　　$db->disconnect;

　これは、データベースtestのフィールドnameに、bingo1,bingo3,bingo10とかあった場合、それらを
含まないものを、三つ出力する。例bingo2,bingo 4,bingo5

今日はワイヤレスキーボード＆マウス届いた。慣れてないせいか、使い心地いまいち
CRTと書いていたがLDの間違いだった。

どこかに、載っていたスクリプト利用して、全角英数字を半角に変換するスクリプト作った？
パクッた。例）ｂｉｎｇｏ１１→bingo11に変換

　　　$_ = 'ｂｉｎｇｏ１１';
　　　my @zenkaku = qw(
　　　　　　　　　　　　　０ １ ２ ３ ４ ５ ６ ７ ８ ９
　　　　　　　　　　　　　Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ
　　　　　　　　　　　　　Ｎ Ｏ Ｐ Ｑ Ｒ Ｓ Ｔ Ｕ Ｖ Ｗ Ｘ Ｙ Ｚ
　　　　　　　　　　　　　ａ ｂ ｃ ｄ ｅ ｆ ｇ ｈ ｉ ｊ ｋ ｌ ｍ
　　　　　　　　　　　　　ｎ ｏ ｐ ｑ ｒ ｓ ｔ ｕ ｖ ｗ ｘ ｙ ｚ);
　　　　　　　my @hankaku = (0..9,'A'..'Z','a'..'z');
　　　　　　　my %table;
　　　　@table{@zenkaku} = @hankaku;
　　　　s/(\x82[\x4F-\x9A])/$table{$1}/g;
　　　　print;

というより、
３６からプログラマー目指すのは、もう遅いのでは。

>>94
根拠は？

結構頑張っているね。

>>94
禿同
つか、雇ってくれる所ないでしょ？
煽りじゃなくてマジでさ

>>97
未経験コネなし38才でPGなった娘知ってるよ
数打てばある！
まぁ、大変そうだけどね

３０過ぎたら目指すのは「聖人」のみ

年齢は関係無いと思うよ。
要は情熱でしょ。

俺も50歳でコンピューター学園ＨＡＬから契約社員でＰＧになった
人しってるがな。>>1よ。ＨＡＬに逝け。ドキュソでもとりあえず就職
内率は100％らしいぞ。まとも求人なら未経験は何歳まで可とか書いてる
まー、そこがまともかどうかは、俺は知る由もないがな

＞就職内定率100％

専門学校系でよくある
「とにかく何しようが就職ってコトにして数字上げる
　異業種だろうがバイトだろうがとにかく就職扱い」

じゃねーの

サイトの広告で食うなら
コンテンツの充実が先のようなきがする
WEBを見る人間は技術を見たいのではなく
情報がみたいんだが

おしさしぶりです。

　結構レスついてますね。基本的に私は、プログラマーになるつもりはありません。
まえ、サイトを作ってもらおうと思って業者に相談したんですが、全然相手にしてくれませんでした。
クリエティブな仕事で料金が非常かかると言われました。そこで、そんなにお金がかかるなら自分で
作ろうと思いまして、Perlを勉強しています。

>>103
　言われる通りだと思います。コンテンツは考えてあるんですが、それを実現するためにPerlを勉強してる
訳で・・・もっとも、万人に受け入れられるか分かりませんが。

　さて、本題ですが、HDがクラッシュしてしまい、今まで作っていたプログラムが全てパーになってしまいました。
やる気がガックリ無くなってしまい鬱です。
PC自作の方は、パーツがほぼ揃ったので、来週中には、組み立てれそう。
うまく動けばいいな。

　Win2k再インストールした時にパーティションきっておいたので、そこに
Linuxも入れた。雑誌の付録で付いていてRedHat 7.3インストールした。
ノートのP2　200MHzのマシーンではインストールに時間かかる。
　最初ログイン画面でたけど、ログイン名分からなくて再インストール
あとで、雑誌見たらrootでいいって書いてあった。馬鹿なことしてしまった。
また、２時間近く掛かる。鬱
ガンバろ！

おはよ
　昨日は、ﾘﾅｯｸｽインストール完了して、立ち上げたが、DOS画面みたいなので
マウスの設定してくださいと出て、適当に設定して、rootでログインした。
ウィンドウみたいのが立ち上がって、いざ、あそぼと思ったが、マウスが変
ポインターが旨く動かない。クリックしようとすると変なところに飛んで行って
しまう。あと、USBマウスがうごかない。マウスの設定方法しらべてこうよう

　ActivePerl再インストールした。設定方法忘れてあたふたしています。
また、いろいろとダウンロードしてこよう

　マウスの再設定方法分からないので、しばらくLinux止め。今すぐ必要でないので
ActivePerl、mysql設定完了！やっと動くようになった。あとは、またテーブルつくり直しだー
ついでに今までメモ帳使っていたが、xyzzyとか言うエディターがいいらしいので、DLした。
common Lispでカスタマイズできるらしい、大昔人口知能の講義受けたとき、Lisp？でプログラム
組むと言っていたような気がする。教科書が英文だったのでチンプンカンプンだった。
　自作PCの方はFANとCDが着てないので組み立てれない、今週中にきてほしいな〜

なんか、最近広く浅く手をつけているな。とにかくガンバロ！

>>1
一日どれくらい勉強してるの？

１さん、失礼な事聞くかも知れませんが、４年間も無職で生活費のほうはどうしているん
ですか？
親と同居ですか？

何か圧倒されるスレだな(^^;いい意味でも悪い意味でも。
プログラムを覚えてまでやろうとしているサイトとはどういう内容なんだろう？
広告収入ったってアダルトでという訳でもなさそうだし。
（アダルトだって今はきつそうだけど）

こんちは
>>108
　最初は何も分からなかったので、起きている間、全てPerlの勉強していました。
今も、起きている間は全て、勉強というか、情報収集とプログラムをしています。
>>109
生活費は退職金と貯金、株、競馬で賄っていましたが、最近底につきつつあります。
>>110
最初アダルトサイトも考えたのですが、ネタが無いのと、ネタの安定供給が不可能なため
止めました。いいアイデアが有るんですけどね〜、それ実現するためにはコストが掛かる
のと上記の理由で企画書段階で止まっています。
　将来お金がたまったら？実現しようと思っています。もっとも、その頃になるとアイデア自体
古臭くなってしまうかもしれませんが。

そうですか。

＞100 ：満２２歳 ：02/07/13 03:36 ID:h9bJYokG
　　　　　　年齢は関係無いと思うよ。
　　　　　　要は情熱でしょ。

こう言えるのも若いうち。そのうちわかるよ。

いや、技術を習得するのに年齢は関係ないよ。
ただ30過ぎた人間に仕事で求められるのは技術だけじゃないという事でしょ。

スキルも厳しいので、軽作業の自給１０００円程度のアルバイト
で食いつないで行くしかない

自分より年上で無職の人がこんなに頑張っていたのかと、感激しました。
私は最近、将来に失望し精神的に不安定で色々な事が嫌になっていましたがこのスレを読んで
とても勇気づけられました。まだ頑張れるような気がしてきました。
ありがとうございます！

俺もＷＥＢ系の事を勉強しててそのうちpealもやるんだけど、
このスレ見て勇気づけられたよ！
１さん頑張って！
もう少しこまめにレスしてね。

perl のスペルが違うのは大丈夫なんでしょうね（ｗ

>>118
すいません。間違えました。

ひさしぶりに更新です。皆さん、レスつけてくれて有難う。

>>115
　働けるだけ、幸福ですよ。
夢を持ちましょう！そして、実現するための計画たてましょ！そして実行しましょう。
失敗してもいいじゃないですか、と、偉そうなこと、いってみたり。

実際、自分もこのぐらい行動的に行きたいと思いますが、なかなか、後ろ向きの人生
歩んできたのでうまくいきません。まー成るようになる。で、お互いがんばりましょう！

>>116
　いやー、誉められちゃった。少しと言うか、かなり恥ずかしいです。
自分もサラリーマンだった時、根っからのダメ人間なので、人と同じ事するのに、倍以上の時間掛かるわ
頭の回転も、要領も悪いので、毎日上司に怒鳴られていました。自分の心の中では、そんなはず無い！
自分は才能もあり、優秀なんだ！と叫んでいましたが、毎日毎日いやみったらしく、ちくちくやられると
自分の誇りも何も無くなったように感じて、死のうと思いました。実際、首吊りしたのですが、あまりの苦しさに
止めてしまいました。死ぬこもと満足にできないダメ人間です。
　死ぬぐらいなら、会社辞めてすっきりしよ。と、思っていたら、会社の方から止めてっくれって言われリストラ
されました。やめたときは、無茶苦茶うれしかったです。しばらくボーとして、再就職探そうと思っていたのですが
前の会社のことがトラウマになってしまい、家から出られなくなってしまいました。単なる引きこもりですけど（ｗ

えーと、ちょっと長くなりすぎですね。簡単に言うと、やな事は無理してしない！好きの事しかしない！が一番です。
そう旨くいかないのが世の中ですけどもね。くだらない事書きすぎたので、このへんで、また、何かあったらレスちょうだい

>>117
　学生さんですか？頑張りましょう。Pealと言わす、Rubyとか.NETとかPHPとか、いろんな言語かじっておけば
あとで、役に立つかも？私は詳しくないので適当なこと言っています。（ｗ

私も、40ぐらいになったら、もう一回大学いこうかなーと、甘い考えをもっています。
会社辞めたとき、大学行こうと、考えていたのですが、前述の通りです。

また、話が変になって来た。

＞もう少しこまめにレスしてね。
無理です。ダメ人間なので。（ｗ

わーひでーな。読みにくい

さて、本題です。やっとPerlのプログラミング復旧しました。
計画からかなり送れています。今月中には完成予定が、来月一杯掛かりそう。
甘く見ていました。お尻に火が付いています。
　今までネットで調べていたのですが、初歩的なことが知らなすぎるので
本屋に行って、本格的なPerlの本買って来ました。オライリーは高けーー２冊で１万近く掛かった。
サー頑張ろ！

自作PCですが、パーツほぼ来たので、組み立てました。すんなり動いてしまって、面白くないな〜
と、思っていたら、画面が800×600にしか成らない。ビデオカードがおかしいのかな？
とっととLinux入れて、サーバーとして立ち上げようと思ったが、まだ少し掛かりそう。それより、Linux
マスターできるのかな〜こっちの方が時間が掛かる予感。

まーこんなとこですか、また、調べに行こう！寝れない

きょうも更新だ

昨日書いた事今読むと、恥ずかしいな

さて、画面の件ですが、ドライバーｲﾝｽﾄしたら、あっさり解決。良かった。
今lan接続して遊んでいます。
ついでにLinuxもインストールした。ビデオカードを認識しないからX-Windowが立ち上がらない
ﾘﾅｯｸｽのドライバー内らしい、リサーチしてパーツ選んだつもりだが、漏れていた。

もう眠くて頭働かない。さすがに２日徹夜はキツイナ〜年を感じる。

では、この辺で、ねよ

なんだか最近、自作PCいじっていて、プログラムの方おろそかになっているな
ま、今週はこんな感じで終わるだろう。今日残りのパーツきてこれで全て組み込まれた事になった。

WINはほぼ完璧に立ち上がりました。次はLinuxの立ち上げだーー
ビデオカードはx86Configいじればイイらしい。取り合えず、X立ち上げとUSB関係使えるようにしよ

やっLinuxも立ち上がった。画面の設定ハイカラーの16bitにしたらすんなりX立ち上がった。
あとは、Linuxのお勉強だ。これで、Apach+mod_Perl+PostgreSQL(or MySQL)使える環境が整った。良かった。まだ、使い方も知らんが（ｗ

Winの方は順調なほうだ。まだ、２，３の不具合あるが

不具合１）USB対応IBMワイヤレスキーボード＆マウスを使おうとしたが、マウスは動くが、キーボードが動かなかったが、
　　　　　　　レシーバのチャンネルいじっていたら、動いた。しかし、英字キーになってしまった。取説には、WIN２Kの
　　　　　　　標準ドライバーで動くとかいてあったが、日本語キーでは認識してくれない。HID標準ｷﾎﾞｰﾄﾞに成るだけ。
　　　　　　　　やけくそで、WIN標準の松下USB日本語キーボードのドライバー入れたら解決した。ﾊﾞﾝｻﾞｰｲ

不具合２）BIOS設定が上述のキーボードで設定できない。uncontrolableだ。
　　　　　　PS/2キボーを接続してBIOSのIntegrated Preipherals のUSB Legacy SupportをEnabledに変えたら
　　　　　　ワイヤレスでもBIOS設定できるようになった。
　　　　　　
　　　　　　ｷﾎﾞｰﾄﾞ関係はこれで全て解決した。快適な環境に成った。

不具合３）たまに、WINの立ち上げからデスクトップ画面になる時、真っ黒のままフリーズする。
　　　　　　原因はノートパソとLAN接続してるのだか、ノート側のNICとの相性かな〜と思っているが、今のところ不明。
　　　　　　自作PCのNIC取り外せば立ち上がるし、電源切って暫くしたらすんなり立ち上がる。どうなってるんだろうかな

不具合４）PC立ち上げ時、IDE Scanした後、no arrays defined....とでる。よくわからんが、そのあとOS立ち上がるから
　　　　　　今のところ、よしとしよう。おいおい解決していこう。


不具合５）3DMark2001SEと言うベンチマークのソフトを動かすと、開始１秒ぐらいでハングする。
　　　　　　とりあえず、３Dは使う予定ないし、このソフトだけバグルのかもしれないので放置。

こんなところか、さて、また色々調べよ
　　　　　　

不具合４）解決した。
BIOSのIntegrated PeripheralでOnboard Promise FunctionをDisableにすればいいみたい。
オンボードのRAIDをOFFにしたらよい様だ。

　ついでにRAIDのことも勉強した。RAIDはRAID０とRAID１があるようだ
RAID０はデータを、接続してるHDの個数で割り振り、書き込み、読み込みを行うそうだ。
たとえば、HDを２個接続して、RAIDを組み１Gのデータを転送すると、２個のHDに500M
づつ保存されるので速度が２倍になる。
　接続するHDが多いほど速度がますみたい。
少し疑問に思ったのが、複数のHDでRAIDを組むと１つのHDとみなされるのかな？

RAID１は複製を取りながら書き込み・読み込みをするみたい。バックアップのためなのか
よくわからなかった。

不具合３はノートのLANカードとの相性みたいだ。このまま放置しよ。

今日からLINUXサバーの立ち上げも平行して行っています。
寝る時間がもったいない。
では、また

＞人と同じ事するのに、倍以上の時間掛かるわ
＞頭の回転も、要領も悪いので、毎日上司に怒鳴られていました。

俺も似たようなものだよ。
数多くの職場で働いたけど、行く先々でひどい目にあった。
完全に人間不信になった。事実世の中ろくな人間いないと思うよ。

去年会社を辞めてもうすぐ８ヶ月経とうとしている。
まだ職が決まらない。

http://isweb42.infoseek.co.jp/computer/dance999/horse/index.html

おもしろいなこのｽﾚ

>>挑戦者３６歳さん
頑張ってください
漏れはＳＩやWeb業界中心で生きてきた者ですが
始めるのがおせえとか知ったかぶってるやつもいますが
まだまだこの業界もの凄い大ヒットで儲けまくることも可能ですよ（赤ん坊だし）
大昔からあるアイデア達の中でも実現されてるのもあれば
されてない（まだ出来ない）ものも大量にある

１は凄い。２４ｈＴＶの偽善ランナーより凄い。
がんがってください。

36歳かよ。オレもちけーよ。頑張るよ。1年半だよ、もういーよ。

んだよっ。

広告収入で生活。。。
一通り頑張ってやった後は就職活動しようね。。。

おれもPerl始めました。
まだソースはこれ位しか書けません。（このソースは完成品ではありません）
http://www36.tok2.com/home/soft98/minibbs.html

１３３ですがソースは見るだけにしてＣＧＩとして実行しないで下さいね。
まだ初心者が作ったものだし責任はもてませんから。

挑戦者３６歳とオフしてみたい、どちらにお住まいですか？

漏れは３１歳ですが、応援しています、頑張ってくだされ

>>126
タイタニックさん、こんちは、毎回レスあんがとう

＞事実世の中ろくな人間いないと思うよ。
そんなこと無いですよ〜いい人もいれば悪い人もいる。という所ではないですか
昔、親に嫌いな人ほど好きだと思って接すれ、そうすれば仲良くなれる。と、
言われましたが、なかなか実行できずに今日にいたります。
　確かにそんな風に前向な考えもっていたら、もっと違う人生だっただろうなーと、
最近思っています。

　こんなだめ人間に言われると腹が立つかもしれませんが、もっと前向きに
行きましょう！私も、いま無理して後ろ向きから前向きに変わろうとしています。
横になりかけです。（ｗ

再就職決まらなくて、精神的・金銭的にもつらいと思いますが、ここが踏ん張り時と考え
がんばりましょう！

月並みな事しかいえなくてごめんなさい。

>>127
管理人さんも、嫌がってるのになぜするかな〜

ま、それはさておいて、競馬関係のHPか〜自分も１年ぐらい前、競馬のデーターベースまがいな
もの作ってました。エクセルで加工して14年分のデータベース作るのに３ヶ月かかったな〜
全部エクセルの関数で手作だったから大変だった。エクセルのワークシートに１年分ぐらいしか
入らないし、立ち上げるのに１時間ぐらいかかったな〜

　スピード指数気に食わなかったので、自分で母集団作って、統計論的競馬予想？を作った
簡単に言えば偏差値で評価しますという、たいした事無いものだったけど、マン馬券とか結構
当たって楽しかったな〜

今度、今の仕事美味くいったら、どっかのフリー鯖にでもデーターベース公開しよっかな

>>129
あんがとう、あんまり誉めないで、恥ずかしいから、自分としては２４ｈランナーのほうがすごいと、思います。

>>130
一緒に頑張りましょ！


>>132
いやです。

＞一通り頑張ってやった後は就職活動しようね。。。
一通りとか言う中途半端はやです。トコトンやります。それで失敗してもいいんです。
今まで中途半端な事ばっかりやっていたので、もう嫌気が差しているので・・・・
まともな人から見れば、いい年して何してるのかなと、思われると、思いますが
自分は自分だからいいんです。と、カッコ付けて言って見ました。


>>133-134
あんがとう、掲示板か何かのソース？じっくり見てないのですが、じっくり見ても私には分からないかも知れませんが（ｗ
初心者なもので・・・

あと、このプログラム、ファイルOPENした、後に排他処理もっていっても大丈夫なのですか？
ファイルに書き込みしている間に、異常終了した場合どうなるんでしょうね？

私は排他処理のこと分からなく、少し調べたのですが、ほとんど理解できませんでした。
排他処理は最後の最後で考えようと思って、今、ペンディングです。


>>135
それは秘密です。なーんて、北の僻地です。

>>136
あんがとう、一緒に頑張りましょう！

>>128
レス飛ばしてました。ごめんなさい。

そうそう、そのとーりと言いたいけど、アイデア一発で大もうけする人はほんの一握り
なのでしょうね〜

自分は大儲けしようとは考えていません。て、言うか出来ませーん、数あるサイトの中で
醤油とソースぐらいの違いでいいかな〜と、今は考えています。そこで、感覚つかんで
次のフェーズに行こうかと思っています。甘い考えかも知れませんが・・今は暗中模索状態で
立ち上げることで手いっぱいです。

さて、本題ですが昨日からLinuxサーバの立ち上げ準備しています。Linuxはあとでいいかなと思ったのですが、
時間がかかりそうなので、先に立ち上げることにしました。それと、頭がそちらに向いてしまったので、ほかの事
考えれなくなりました。私の悪い癖です。

　まず、最初になにをしたら良いかも分からんので、取り合えず、WINとのlan構築をしてみようと思いました。
とりあえず、サイトで検索してしらべた。

　　rootでログインして、kterm起動させて# lsmod コマンドと打つと、組み込まれているドライブﾓジューﾙ
が現れて、3com lanカードのドライブモジュール　3c9xがでた。
これで、lanカードが自動認識されている事が分かった。パチパチ

次、どうやってwinと繋げば良いんだ。分からん、調べてこよ

あたいも37歳になってはじめてプログラム（Perl）の勉強をはじめますた。
中小・零細企業の簡単なwebシステムの構築を受注を目指してます。

とりあえず、昨日win98で自宅サーバ立てました。
linuxも覚えたいのですが、今のところはPerlとTCP/IPでいっぱいいっぱいです。
>>1さん　お互いぼちぼちがんばりましょう。

>>140
こんちは、すごいですね。お互いがんばりましょう。

　さて、本題ですが、LAN接続よくわからないの止めて、インターネット接続をしました。
ISDNからネットにつなぐ場合、RP3とKpppがあるらしい。
俺は、RP3はよくわからんので、Kｐｐｐにした。

メインメニューからKDEメニュー→インターネット→Kpppを選択
Kpppの設定画面立ち上がったら、setupボタンを押して↓の様に設定した。
あとは、このサイトを参考にした。。
ttp://www.jp.redhat.com/manual/Doc71/RHDOCS/rhl-gsg-ja-7.1/s1-ppp-kppp.html

追記・変更
1 [ダイアル]タブのAutentication項目を PAP/CHAP
2 Deviceタブで上から順に/dev/ttyS0、CRTSCTS,CR,115250
　　Modem Deviceは/dev/ttyS0がCOM1
/dev/ttyS0がCOM2というようになってるそうです。
4 ModemCommandsでDialString欄をATDに変更
一番下のVolume off/low/high欄全てを空欄に変更

これで問題なく接続できました。
ちなみに、うちのTAはNECのAterm IW60DUS+RS10です。
子機のRS10からワイヤレスでつなげています。

こう書くと簡単につないだ様に見えますが、２日かかりました。

インターネットにもつなげる環境ですが、ファイやウォールが無いので今はつないでません

いま、セキュリティ関係勉強しているところです。では、このへんで

age

age

おいらも北の僻地
ガンガレ

あげ

挑戦者３６歳さん着実に進んでいるようですね。
かっこいいと思います。これからも頑張って下さい。

久しぶり、更新だ

>>142
１１７さん、こんちは
お勉強の方は進んでますか？

>>143
こんちは

>>144
ドッキ、もしかしてご近所だったりして
近くに引きこもり状態の変なやついる。と、言う噂があればたぶん私です。

>>145
ﾀｲﾀﾆｯｸさん、こんちは
どうですか？うまく行ってますか？
焦らず、あわてずマターリ行きましょ

>>146
ばよいぬさん、こんちは
どうですか？その後？
元気そうで何よりです。

＞着実に進んでいるようですね。
はっきり言って、全く進んでいませーん（涙

>>147
こんちは

さて、本題です。

前回から１１日たちましたが、まったーく進展なしです。
なにをしていたかと、思われると思いますが、泥沼にはまっています。
今も、抜け出せていません。Linuxなんてきだいだー

Linux Squareの”ゼロから始めるLinuxセキュリティ”
ttp://www.atmarkit.co.jp/flinux/rensai/security01/security01a.html
を、参考にして、やっていたのですが、Redhat7.3と実感違うのと
出てくる単語が意味不明・・APM？NFS？？RPC???

てっかんじで、またそれを調べて行くと、分らないことだらけだし
一日中調べまくっていると、PC壊したくなります。

PCノートに入れたLinuxはLanカード認識しないし・・Coregaのバカヤロー
Redhat７．３は自動認識するって言ってたじゃない

こんーな感じで、１０日以上たってしまいますた。
ノートがもう２冊もできましたが、進展０です。もっと要領よくやらなくては、
無駄が多すぎる・・・・

さーガンバロ、Linuxと戦ってきます。では

応援の意味で
age

おーい　その後どうなったんでぃ

ノートLinuって結構難しすぃー

そうだ、どうなってんでぃ？

俺36歳で前職辞めて
もう５年無職だよ（ｗ

age

>>1
で？それからどぅなん？

age

１は３６歳の今からパソコンを勉強して
何しようとしてるの？

個人サイト作って商売をやろうとしているのなら
勉強するよりも楽天に出せばいいじゃないの？
あそこ１サイト月５万円で出せるよ（２年前の値段で、今はわからない）

>>1

あきらめたのか・・・・。
しょーがねーなぁ。もう。

age

GANBARE!

>>154
　４０超えたら、世の中変わったでしょう？

仕事がタクシー、警備、新聞配達しかないYO!
トホホ

再就職活動も30代までですよね。
というか、もっとシビアには３５まで。
３０にも壁はあったけどさ。

>>158
1さん、あんなこという日々之 ◆s/jLFX1のことなんざ気にしないで！
仕事・技量うんぬんよりも３６歳までに積み上げてきた人生の方が大きいんだって。

age

っていうか、いまどきネット通販なんて
日経新聞とか読んでないでしょ？

頑張れ！おいらも頑張る。おいらもーすぐ2年だぁ。
応援age

>>166
その人生の積み上げが、就職活動では逆に不利になる
この不条理

>>166

俺は煽ってるわけではないよ
かけた時間とパフォーマンスなどいろいろ総合的に考えたら
楽天でしょう、アクセス率も高いし

個人でサーバ立ち上げて（あるいはレンタル）ソースでＨＰ組んだり
あれこれ、やっぱり能率悪いよ、勉強も大変だし

趣味としてパソコン勉強ならいいけど
ネットで物売って稼ごうと思ったら、やっぱりＩＴ知識よりもビジネス手段の問題だろ

age

今時MASMでx86系アセンブラを始めた俺に明日はあるのか？・・・

>>175

趣味ならいいじゃない？
ただ技術職なら、やっぱ３０過ぎで０からの挑戦は・・・
無理不可能とは言わないが、さすがに厳しいだろ

だからさぁ・・・勉強してそれを仕事にするなんて
もう考えるの辞めようぜ、それよりも今までしてきたこと
多少でも積み重ねとして残っているもの
それを磨くしかないだろ
能力の新規開拓なんて・・・時間の余裕ないじゃないのかな？

>>176
　実に正しい。
　IT系の仕事なら、高齢者でも０から再出発できるというのは
ITバブル時代のまぼろし。
　３０過ぎたら自分のキャリアや過去の経験を生かすしか他に
手段は無いことを知れ。

>>175
　で、現在はCプログラマ？

>>172
＞やっぱりＩＴ知識よりもビジネス手段の問題だろ

それはネットで物売りだけでなく
PCを使う分には至極当然のことだと思われ

>>175
能力の新規開拓に時間の余裕がないと思うならあなたに明日はないね

179にちょっと訂正

PCをつかって何かをするにはIT知識より
その何かをするための知識が必要って意味

漠然としていて悪いけど

俺は、前会社でAccessを使っててVBA等も熟知してるが
再就職に役立つでしょうか？
３４歳　前会社勤続年数１１年

>>181
マジレスすると厳しいと思うよ。
だけど地方では、VBだけ知っていればPGで雇ってくれるところもあるから、
根気よく捜すしかないかも…

ただ年齢が34歳か…　VBAが使えることに加えて、こんなフロントエンドも
作ったことがある!!　って部分を強調して、再就職にチャレンジしなよ。

がんがれ!!

>>182
ありがとう
新しいの勉強する年じゃないのでAccessまたはVBの方向でがんがります。
VBは、Ver.6.0をやた経験あります。

挑戦者３６歳

　　　　必　　死　　だ　　な　（藁

>>183
　年齢的にPGよりSEとか管理職だよね。
　RDBの知識はあるんですか？
　良くわからないんですけど、データベースの技術を生かすほうが
差別化できるような気がするんですが。
というのはVBは高卒から専門卒まであるいはCやJavaからの流れでも
いくらでも人はいるんですが、データベースやシステムが出来る
ということだと人材は少ないような気がするんですよ。
　でも３４だと職歴が問われるかな？

　すいません、なんの参考にもならなくて。がんばってください。

下のＵＲＬにアクセスしても俺の儲けにはならないけど。
ま、情報ってことで。

◆◆◆ビジネスパートナー募集◆◆◆

�@リンクスタッフだから参加無料
�A効率的参加システムにより高還元
�B安心なサポートスタッフ

の文句につられた。
２時間宣伝ぺたぺた貼りつけて、一日４０００円くらいかな。
登録料無料で、登録後参加できる。
あんま、儲けらんないけど、興味のある人だけどうぞ。

http://www.adultshoping.net/linkstaffgate.cgi?id=001807

これは1のため>>186

>>185
>>　良くわからないんですけど、データベースの技術を生かすほうが
>>　差別化できるような気がするんですが。

たしかにそう。
でもRDBMSについて、少なくともOracleやSQLServer、PostgreSQLあたりの
設計＆保守経験がないとDB屋として食べていくのは難しい。

# 当然ネットワークの知識があるのも当たり前。

VBあたりが使えるPGも多いから、34歳という年齢を含めて考えたら、
さらに求職活動は大変だと思う。

ただ、地方で中小のIT関連企業となると、意外にまともなPGがいない
ところも多い。

開業医や学校などを相手に、自社ソフトを売っているような企業なら
ACCESS+VBAで事足りるアプリも多く、こういったところなら就職できる
可能性もあると思う。

無い物ねだりをしても仕方ないので、持ち駒を最大限に売り込むことを
考えながら>>181にはがんがってほしいよ。

あ、>>175だけどあくまで趣味での話です。
以前C覚えるんだったらポインタを理解するためにもアセンブラを習得すれば
容易に理解出来るって話聞いて・・・んで「はじめて読む8086」なんて本
買ってきてまずはDOS6.2の拡張機能セットでDEBUGコマンドとSYMDEBコマンドを
使ってマシン語レベルでの操作覚えてそれからMASMへ・・で結局一度挫折。
別個に半導体メーカー出版のインストラクションセット集を手に入れて
ハンドアセンブルしないとこりゃ理解出来ないと思った。

あれからん年。再びPC-98が目を覚ます。DOSの黒い画面と486・・・

>>189
折れも「はじめて読む８０８６」ってやつで工房の頃アセンブラ勉強したよ
そのあとQuickCとかでC覚えたけどポインタはすんなり理解できたよ。
MASMまでやる必要ないんじゃない？　Cやってもインラインアセンブラ
くらいしか使わんだろうし、それとアセンブラやるなら「はじめて読む４８６」
を読んでMMXやSSEもやっておくと吉かもよ（MMXやSSEはCマガジン９月号に
特集で載ってるYo）

それにしても今はCを解説してる親切なサイトもあるし、判らないことはGoogleで
一発検索すればいいし、フリーのOS、コンパイラはゴロゴロ転がってるし、プログ
ラミング系の雑誌にも付録でついてるし、ほんとプログラミング始めるにはいい時
代だよ、折れが工房の頃はPCも馬鹿高かったしコンパイラもタダじゃなかった
、HDもスゲー高かったし・・・環境揃えるだけでも一苦労・・・生まれるのが
早すぎたなコリャ（鬱

age

今日面接に行くはずが、風邪の為ダウン。
薬を飲んで必死に２chしてます。

100社受けて全部駄目って

俺は30歳の時に、それまでのコンピュータスキルを土産に大手企業に転職した。
年収も上がって、社会的信用も上がった。
自分なりには成功だったと思う。36歳になって新しい事を始めるのって厳しいよね？
俺は転職直前までSEと工程・工数・品質管理をやってた。

>>190
懐かしいですね。マシン語。
BASICインタプリタがROM提供されているPC全盛の頃の話ですよね。
記録媒体もカセットテープで。
と、スレ違いになりそうなのでここまでで。

人生の勝者が、ダメを見下げるスレに変わりました。

勝者の力を合わせて、ダメを駆逐しましょう！

あがきにも限度があります。

やはり・・・・・
自殺自殺自殺♪
自殺をするーと♪

恨み恨み恨み♪
恨みがのこーるよ♪

さぁ、みんなで自殺をしてー♪
この世を恨みでー満たそうよ♪

アー♪んjdskjf語彙ふぃshgfpiwfjいおｊfgjufiujfieou 3$%#645

どうした３６歳、死んだのか？

age

>>198
レス内容の厳しさに耐えかねて、逝ってしまわれたと思われます。

結局日本って国はどうして失敗を許さないのかねぇ

大体、36歳からPG始めようなんて無理な話なんだよ。
背水の陣なのか、只の思いつきなのか．．．いずれにしても良い結果は望めない罠。

失敗って、全てあきらめた時失敗なわけで、あきらめない限りそれは蓄積でしかない。脱ダメ宣言！

>>203
言ってる事は非常に解る。同意。
でもね、36歳からってーのが遅すぎんのよ。ネタっぽい。
ちなみに俺は正にシステム屋。

>>204
なにが遅すぎんだよ、おめぇの頭の回転か? ん?

これだから日本社会(日本人)は好きになれない、自分が日本人であること
が恥しいよ全く。

　 ∧＿∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　・∀・）　＜　まぁまぁ、お茶でも飲んでマタ〜リしる
　（つ旦と）　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　 と＿）＿）

>>206漏れは日本を恥じるﾔｼが恥ずかしい。

>>205
もっと勉強して、文章読解力つけまちょうね。（ｗ

はっきり言って、30過ぎてから全く新しい分野に入るってのは無茶なんだよ。
よっぽどの気力と運がないとのし上がれないぞ。
大学に入る時に学部アラブのとは訳がちがうんだからさー。
>>205は中卒っぽいから、ますます解らなくなってあおりの書き込み入れそうだけど。（ｗ

悪い。打ってる途中で笑い出してしまった。打ち間違え。

学部アラブ＝×
学部選ぶ＝○

定期的にこういったスレ立つの見て安心する俺

挑戦者３６歳、もうあきちゃったか。。。
ｶﾞﾝｶﾞﾚ、ﾀﾞﾒ入間

>>211安心してるﾔｼ横目に安心してガンバル漏れ。

国家など所詮幻想さ、その幻想が独り歩きしてるだけなのさ。

>>209
只の煽りだよ。

あんたの言ってることは事実なのかもしれんが
折れはその閉鎖的な所がどうにも気にくわなくてな。
それだけだ。

それともうひとつ、折れは体育会系的な縦社会が嫌いだ
一時期とある開発会社にいた時もそんな感じだったんだが
正直反吐がでそうだったよ、おめぇら会社を学校かなにか
と勘違いしてるんじゃねーかって…

　　　　　　　　　　　　　　＿--　( ヽ、
　　　　　　　　　　　　／　　＿＿＼ ＼)ノ/ﾘ
　　　　　　　　　　／　　　 <＿＿　＼　＼／ノ
　　　　　　　　　/　　　／<＿＿　＼　＼　ﾍ /⌒/　　あなたさぁ．．．
　　　　　　　　 /　　〆　　└--、ヽ、＼　-　＼　|
　　　　　　 　 ／ ﾚ＼　=ミ=、__/丶　　-　　　　　〉なんてゆうか．．．
　　　　　　　/ ﾝ/　　（- =、 >　<( ＼　　　　　　 |
　　　　　　　し/　 ﾐ 　 'ｰ--ヘ/　＼ﾐiヽ　　　　　{ 　言葉に説得力がないんだよね。
　　　　　　 ﾘ/ 　 /　 　 ン　/("ﾐ 、 、ﾍ　　　　　 > 、
　　　　　　　| 　　　／<.o　ｲ 　'ｰ ヾ /　>、　　∠／ヽﾍ　苦労したことのない人間が言う．．．
　　　　 ,.-／| 　　-=、_/　"|　　　_∠／　 ＼(⌒)　　 ﾉ　＼
　　 ／ |　＼ヽ 　　ヽ,-＼}　　 ∠ノ 　　　　　ヾ、　／　　　 ＼そう、「ウソ臭さ」
￣<　　 !　　`＼　　　　　　／＿＿＿　　　　＼／ ＼(
＿ ＼ 　 !　　　 > ー-- イ　 ＼_　　　￣￣＼_＼　　(　みたいなものを感じてしまうんですよ。
!　￣￣　ヽ　／{　　)＼　|　　　∠　　　　　　 ノ）ヽ、
　　　　　　 ＼　/⌒＼　〉　　￣　/　　　　　　 /　>＼
　　　　　　 　 ＼　い　/　　　　 /　　　　　　 /／ノ
　　　　　　　　　 ＼　/　　　　 /　　　　　　 / ／￣
堀之内九一郎（54歳）
株式会社生活創庫　代表取締役社長／年商50億

age

>>217
やっぱり堀ノ内社長のファンですか？

>>217
経営者がなぜ、あそこまで威張り腐っているのか
見ていて胸糞悪くなる番組だ。

1ﾀﾝ、がんがれ！
俺はパソコンは２ちゃん見るだけの道具だけど勉強して頑張ってる人を見ると
自分も頑張んなくちゃなあって思う。
だからといって何するわけでもないんだけど･･･。

ネットを使って商売するって考えたこともないけど、儲かるの？
エロビデオとか？

>>1
広告収入とか、純粋にネットだけの収入では食っていけないよ。
ネットで何か商売するんなら別だけど。
原資も居るしねぇ。まずは何が出来て、効果を予測してから動いてみたら？
結局時間を無駄に使って、無職のまんまになっちゃうよ。

定期age

それより>>1のDQNおやぢのその後はどうしたんだ？

>>223

俺も気になる

>>222
同意。
俺もネットで稼ごうと思ったけど、かなりきついね。
自分である程度、コンピュータ動かせるので、
いろいろ自分でやって金はそんなにかからなかったが、、
貴重な時間をムダにしてしまった。

きのうの夜、テレ朝だったかな、若い起業家の特集やってた。
やっぱり、リサイクル業界のようにゴミを資産に変えるような発想が
ないと駄目なんだろうなあ。んで俺も思い付きで熱帯魚のディスカス
をブリーディングして専門店なんか開けたらいいなあ、なんて考えて
みた。仕事は楽しいんだろうけど、一匹も売れない日を想像すると鬱
になった。

>>226
おれも見た。
「押し買い」ってすごい発想だなって思った。
一応解説すると、家庭に押しかけて商品を売るのが押し売り。
「押し買い」は、家庭を訪問していらないものを買い取っていく。

確かに家の中にいらないものあるし、引越しのとき以外
売りに行くってことはないから、あの商売はいいなって思った。
おれにはあそこまで行動力ないけど。

　　　 ∧∧
　　　(=ﾟωﾟ)ノ　ぃょぅ
　〜（　　x）
　　　U U

>>226

あれに騙されてはいけません
俺も昨日見てたが、そこに出てきたガキども
皆裕福な家庭で一流大だ

つまりこういうことだ、我々が仮に起業しようとしたら
まず資金がない、資金貯めるのに最低でも１０年２０年単位かかる
んで溜まったごろには世の中どう変わってるかもわからないので
結局はもう歳だからと、冒険を恐れて、起業を諦める

彼らは大学生の身でありながら、既に数千万ぐらいのお金は皆持ってる
持ってるといっても親のお金だがね、だけどそれが彼らの強み
生まれた家が良かっただけでこれだけの強み、何十年と言う時間を節約できる
さらに裕福な家庭生まれなので、小さいごろから質のいい学習環境を与えられ
当然高学歴、学歴マンセーではないが、学歴がないと銀行やエンジェルから
融資を受けることはできない

高卒・専門卒　に　融資する人は居ないのだから
信用されないから
高学歴大卒＝社会的信用、学歴＝名刺代わり

信用と資金を持つ彼らだからこそ　２０前半にして起業できる

我々がどうあがこうと、彼らとは最初から同じ土俵に立ってない
戦えない
だから深く考えるな、貴族の子と平民の子の差と思えばいい
これは仕方のない現実なんだ
身分制度は未だに生きてますよ

>>229
特に理系と被る情報系専門卒は中卒以下だよね。
それに在日を加えるともう、ルンペン以下。

在日＋情報系専門学校＝職無し≒生き恥

裕福な家庭に生まれなくても、国立は金がかからない（ｗ
馬鹿の言い訳。馬鹿が日本工学院などという
得体の知れない何も成らない全入の金ずる学校に入る

↑くだらん能書きは不要。
俺は>>1のDQNおやぢの近況が知りたい。
オナニーみたいな論説なぞ見たくないわ。

226>>
折れもみたよ、押し買いはいいとしてあの社長にはムカついたよ。
「お姉ちゃん、これ貰っていい？」
↑なんだこの無礼なモノの言いようは！？これが客に対する態度か！！
「お客様、こちらも御不要でしたら宜しければ無償で譲って頂けない
でしょうか？」
くらい言え！！パトロンにはペコペコ頭下げるクセによ、この社長人格に
問題ありと見た。あ〜腹立つ、この腹立たしさはスーパーテレビのDQN社長
以来だな。

age

>>234
いわゆる企業社会の中では相応の礼儀や言葉づかいが必要だが、
街中や家庭など生活圏の中で堅苦しい言葉を使うと
逆に胡散臭く思われて、信頼されないことがある。

だから、一般家庭を商売相手とするには
ああいう親しみをもった接しかたっていうのがいいと思うんだが。

>>234
それで生活が成り立ってるんなら、良いんぢゃないの？
憤慨している無職の方がｶﾅｽｲ

>>236
確かにそれも一理あるな・・・
あくまで折れ個人の内面の問題だが、あんな馴れ馴れしい奴は
信用できないね、客に対する誠意が全く感じられない、葱背負った
鴨程度に客を見下してるねあれは。

代わりに誰かやったらどうですか？

挑戦者○○歳とか名乗って。

３６歳の場合は「挑戦者３６歳２号」とか。

やるときはあんまり他人(スレを読む人)を気にシナイ方がいいですよ。

続かなければ本末転倒。

途切れ途切れでも、納得いく結果が出なくても、
続けることだけを意識していけばなんとかなるかと。

何故か年上とは気楽に付き合えるのに、
年下と成ると変な気が回ってぎこち無く成る人います?
なんかえばるとか出来ないんですよねぇ。

自分の１年前を思いだしてやっておけば良かったと思うことがあるのなら、
１年後のために今から何かしてみてはどうでしょうか。

自分の１０年前を思いだしてやっておけば良かったと思うことがあるのなら、
１０年後のために今から何かしてみてはどうでしょうか。

>>242

人間の心には方向性があるようです。

みんな再就職できそう？

>>挑戦者３６歳

もし帰ってきたら

「帰ってきた挑戦者３６歳」に改名 ｷﾎﾞﾝﾇ

ちょっと長いか。。。

「成功者３６歳」いぼんぬ

http://kanaharap.tripod.co.jp/deai.html
　　　　
http://k-server.org/kabu423/h.html
　

おーい！挑戦者36歳〜！結果はどうなった〜？
多分失敗しているから、俺はその報告を聞いて安心して眠りたい。
ダンボーラになって、ＰＣなぞ手放している可能性があるが。

age

首吊って死んだんだろ。

オヤジ見てたらレス頂戴

おひさしぶりです。

更新2ヶ月ぶりですか、もうDAT落ちしてると思っていました。
ながーいお盆でした。

>>249
いえいえまだ生きています。PCもノート含めて４台作ってしまいました。
回線も光になって、あと公開するだけです。

Linuxサーバーも、だましだまし動かしています。公開するだけなら、できるんですが
プログラムの方が、まだ満足行ってないので、いま改良中です。

と、言う状況なので、いま非常に忙しいです。また暇有ったらおじゃまします。
では、また

最後に、私は36才では無いですよ〜。上の方に書いておいたのですが、歳数え間違っていました。
35才です。どっちでもいいのですけどもね

うわ！
オヤジ出てきた！
てっきり氏んだのかと･･･
良かった良かった。
密かに応援してるのでがんがってくれたまえ

本当にネットビジネスを始めるのか？
マジで技術なんて要らないって
楽天にお金でも払って出した方が
実は安上がりするよ

>>255
だ　か　ら　オ　マ　エ　が　何　言　っ　て　も　説　得　力　な　い　ん　だ　っ　て　ば　！

>>256

うっせボケ！
仮にもWeb専攻なんだよ
専門卒だけどね

age

転職暦５回もうだめぽ

ごばくスマソ

漏れ31才。ここの皆は無職だけどメンヘルじゃないからうらやましい。
漏れも働きたいけど、対人恐怖だから続かない。

あげ

>>261
　隠れメンヘルというのもありかも？

ＡＧＥ

age

人生、疲れたね

生きにくい世の中だよね。

みんな、革命する？

>>266
無職にはそんな気力残ってないと思う。

ほしゅあげ

おぉLinuxで鯖立ち上げるとこまでいったのか
スゲェ

perlに飽きたらC言語で超高速webアプリ挑戦キボンヌ

age

挑戦者さんはlinux板にいってしまったのかな。
ときどき駄目板に経過報告というか励みになるような進展を
伝えて欲しいとおもったりするのですが・・

100以上もﾀﾞﾒ・・・・
選ばないならあるのでは

age

その後どうなったか書きこんでくれよ〜

だね

ageてみよう

気になるからＡＧＥ

>>1
早く書きこめage!!

>>253がんばってください

うーん
またえらい時間経過してますね。２ヶ月ぶりですね。
ここしばらく、Wiｎ立ち上げていなかったので、Linuxの世界にどっぷりでした。
Linuxにかちゅ〜見たいのないので（navi2chはありますが・・・）２ｃｈもひさしぶるです。

さて、本題ですが、非公開で公開？できました。
いま、知人連中にパス教えて見てもらってます。なかなか厳しい意見が多くてへこんでいます。
まー一ヶ月ぐらい試運転してCGIとうまともに動いているかテスト＆手直し繰り返して
いよいよ一般公開する予定です。うまくいくんだろうか？

と、いうわけで少し余裕が出てきたので、これから少し書き込みできそうです。

では、早速いままで、やっていたことを書いて逝きますか

まず、うちの自宅サーバー構成から

　　PCルーター
　　　　｜　　　　　　DMZ
　　ﾌｧｲﾔｰｳｫｰﾙ　−−−−　Webサーバ
　　　　｜
　　内部ネットワーク

こんな感じです。

最初にPCルーター構築編から

市販のルータでも、よかったのですが、Aopenのベアボーンが9千円ていどで、手に入ったので
遊びがてらにPCルータ作ってしまいました。OPT50があまっています。

　丁度買ってきた雑誌にFreeBSDが付いていたのと、あるHPでFreeBSDで作る１FDルータ
の記事があったのでインストールしてみました。結果はカーネルコンパイルでエラーが出て
なんのこっちゃ分からなくなって、すぐに断念しました。1日で諦め
ただ、eeというエディターが使いやすかった。

それでLinuxでやることに決定！floppyfwで構築しようかと思ったのですが、これも
NICのモジュールの入れ方がよく分からなかったので、２時間程度触ってやめました。

で、結局RedHatに落ち着きました。

PCルータの構成書くの忘れてました
CPU：mobile Athlon 4 900M
ﾒﾓﾘ-：PC133　125M
HD：外付けで使っていたHD20Gを分解して利用
マザー：マイクロATX（VGA,NIC内蔵）
その他：NICをもう一個取り付け

【RedHat Linux7.3インストール編】
　CDからブートして、カスタムでインストール
パッケージはソフトウエア-開発のみ選択。700M弱

　インストール後、立ち上がったらCDからXinetd,
opennssh,kernel-sorce（再構築する場合）、ｐｐｐ関係インストール

rp-pppoeはCDに入ってるものでは、動かないので↓からDLしてインストールしました。
http://www.roaringpenguin.com/pppoe/

NICのモジュールとかrp-pppoe関係を組み込むためカーネル再構築
cd /usr/src/linux-2.4
# make mrproper
# make menuconfig
ここで、カーネルに組み込むモージュールきめる。or要らないモジュール取る
# make dep;make clean
# make bzImage
　cd arch/i386/boot
　cp bzImage /boot/vmlinuz-2.4.18-*****
　cd /usr/src/linux-2.4
　cp System.map /boot/System.map-2.4,18-******
# make modules
# make modules_install
あとブートローダ設定すればOKでした。

でも、カーネルkernel-2.4.18-18.7.xにUPするとコンパイルエラー出て再構築できません
なんかｇｃｃもupgradするとおかしくなると、言う話もちらほら

では、今日はこの辺で。

>>284
おお！久々のカキコ！！
自分も近いうちにLinux入れるので参考になります。
頑張ってください！

すごいなあ・・・

がんばれー！
俺もリナックスルーターに挑戦!

age!!

コンチハ
今日はカーネルモードrp-pppoeのやり方書いときます
カーネルモードrp-pppoeにすると通信速度が1.5〜3倍程度までUPでき
CPU使用率も低減できるらしいです。

うちの環境では、カーネルモードにする前、フレッツスクエアで86Mぐらい出ていたので
速度よりもCPU使用率低減のために入れているって感じです。NICにカニ入っているもので・・・

では早速導入方法にいきます

【カーネルモードrp-pppoeの構築】

（１）カーネル再構築

rp-pppoeがインストールされていたら、/usr/doc/rp-pppoe-*.*/KERNEL-MODE-PPPOE
にインストール方法が書いてありますので、ここでは簡単にいきます。

まず↓の様にしてカーネル再構築するみたいです。
CONFIG_PPP=m or CONFIG_PPP=y
CONFIG_PPP_ASYNC=m or CONFIG_PPP_ASYNC=y
CONFIG_PPP_SYNC_TTY=m or CONFIG_PPP_SYNC_TTY=y
CONFIG_PPP_DEFLATE=m or CONFIG_PPP_DEFLATE=y
CONFIG_PPP_BSDCOMP=m or CONFIG_PPP_BSDCOMP=y
CONFIG_PPPOE=m or CONFIG_PPPOE=y
CONFIG_N_HDLC=m or CONFIG_N_HDLC=y
CONFIG_UNIX98_PTYS=y

とりあえず、#cd /usr/src/linux-2.4に移動
#make menuconfig　で上の設定するんですが、どこを設定するか分からん買った。
Network device supportのppp項目の該当個所をｙ押して＊にしときました。
でも、CONFIG_N_HDLC、CONFIG_UNIX98_PTYSの項目がどこだか分からんかった。

ほかに要らないモジュールISDNとかサウンドの項目をはずして、NICは必要な物のみ
選択して、menuconfigを終了しました

後、分からなかった項目（CONFIG_N_HDLC、CONFIG_UNIX98_PTYS）は
# vi .config とタイプし格項目をｙにしてセーブ

次に
# vi Makefileとタイプし4行めにEXTRAVERSION=に適当に名前付ける。
　　再構築後のカーネルの名前
#make dep;make bzImage
#make modules
ここで>>284にも書きましたが、kernel-2.4.18-18.7.xではエラーでて止まります。
export LANG=C　にすると、Redhat8の場合いいらしいのですが、7.3の場合はだめでした。

make modulesする毎にエラーで止まる個所が違うので、何回かmakeしてると、なぜか完了してしまいました。
こんなので問題ないのかと思いつつ、使ってます。なんかよく分かりません

#make module_install;make install

ブートローダー設定してrebootで再構築したカーネル試す。

（２）rp-pppoe.soの作成
　
　再構築したカーネルが問題なければ、一旦終了して、ノーマルカーネル（再構築する前の）で立ち上げる
adsl-startなどしてネットにつなげる。

KERNEL-MODE-PPPOEに書いてあるとおり、ppp2.4をダウンロード
#cvs -d :pserver:[email protected]:/cvsroot login
　　パスワード聞かれるので、cvsとタイプ
#cd /home/****/src ←DLする場所設定、私の場合はこんな感じにしました。
#cvs -z5 -d :pserver:[email protected]:/cvsroot co ppp

これで/home/****/src/pppにダウンロードできてるはずです。

次にrp-pppoeのソースDLする。
>>283のURLからrp-pppoe-3.5-1.src.rpmをDLしてくる。

# rpm -qa | grep ppp*　とかやってインストールされているpppとrp-pppoeを調べて削除
# rpm -e ppp****
# rpm -e rp-ppp***

これしとかないと、うまくrp-pppoe.so動きませんでした。もっとエレガントな方法在ると思うのですが
今の私のスキルではこれが、限界です。

ppp2.4のインストール
#./config;make;make install

rp-pppoeのインストール
　rp-pppoe-3.5-1.i386.rpmをインストールしようとすると、依存性の欠如でppp2.3.7が必要ですと言われて
インストールできない。

そこでrp-pppoe-3.5-1.src.rpmでソースから再コンパイルする。
#rpm -Uvh rp-pppoe-3.5-1.src.rpm
次にパッチを当てる
#rpm -bp /usr/src/redhat/SPECS/rp-pppoe.spec
#cd /usr/src/redhat/BUILD/rp-pppoe-3.5/src　に移動
# ./configure --enable-plugin=/home/****/src/ppp ←ppp2.4をdlした場所
#make;make install

これでインストール完了。/etc/ppp/plugins/にrp-pppoe.soが出来ていることを確認する。

rp-pppoeを削除した際にpppoe.confがpppoe.conf.rpmsaveに置き換わっているので、pppoe.confにリネーム
pppoe.confの#LINUX_PLUGIN=をLINUX_PLUGIN=/etc/ppp/plugins/rp-pppoe.soにするか
/etc/ppp/optinsにplugin rp-pppoe.soを加える。このどちらかをする。

（３）そのた

/etc/modules.confに
alias char-major-108 ppp_generic
alias tty-ldisc-3 ppp_async
alias tty-ldisc-13 n_hdlc
alias tty-ldisc-14 ppp_synctty
alias net-pf-24 pppoe
を加える。

再構築したカーネルを立ち上げて
#adsl-start
#cat /var/log/message　で
pppd[1015]: Plugin /etc/ppp/plugins/rp-pppoe.so loaded.
pppd[1015]: RP-PPPoE plugin version 3.5 compiled against pppd 2.4.2b1
こんな風になっていたらokだと思う、多分

だいたいこんな感じです。
それでは、このへんで。

>>289-294
乙です。
あなたの書きこみを見てやる気を出す人もいると思うので頑張ってください。

それはない。

近じか「プロジェクトX」で特集される
無職者が集まるスレはここですか。

☆☆☆ラブレター郵便局☆☆☆　　   iモード・J-PHONE専用
会員数：男女併せて30万人（2002年12月現在）
男女比：7対3   各メディアで紹介されている信頼度抜群の出会い系サイトです。
他サイトとは比較にならない良心的な低価格設定も人気の秘密です。
 http://www.lo-po.com/?1627

学部新卒でこれぐらい出来たら、就職も引く手あまたなんでしょうけどね。。。

300

こんちは、今日はPCルータのNetfilter書いときます。

#!/bin/sh
EXTIF=ppp0
INTIF=eth1　　　　　　　＃FW側IF
FWADDR="192.168.0.1"　＃FWアドレス

/sbin/modprobe ipt_LOG

#バケットの転送停止
echo 0 > /proc/sys/net/ipv4/ip_forward

#SYN Flood 攻撃を防ぐためSYN Cookiesを有効にする
echo 1 > /proc/sys/net/ipv4/tcp_syncookies

#Broadcast pingに応答しないようにする
echo 1 > /proc/sys/net/ipv4/icmp_ignore_bogus_error_responses

#Source Routed バケットを拒否
for i in /proc/sys/net/ipv4/conf/*/accept_source_route;do
echo 0 >$i
done

#ICPM　Redirect バケットを拒否
for i in /proc/sys/net/ipv4/conf/*/accept_redirects;do
echo 0 >$i
done

#ポリシーの初期化
/sbin/iptables -F
/sbin/iptables -F -t nat
/sbin/iptables -X

#基本ポリシー設定：外へは自由、外からは禁止
/sbin/iptables -P INPUT DROP
/sbin/iptables -P FORWARD DROP

##内部からは自由
/sbin/iptables -A INPUT -i lo -j ACCEPT
/sbin/iptables -A INPUT -i $INTIF -j ACCEPT
/sbin/iptables -A FORWARD -i $INTIF -j ACCEPT

##ログの設定１：ワーニング
/sbin/iptables -N log_drop
/sbin/iptables -A log_drop -p udp --dport 137:139 -j DROP
/sbin/iptables -A log_drop -p tcp --dport 137:139 -j DROP
/sbin/iptables -A log_drop -j LOG --log-prefix "iptables warning:" --log-level warning -m limit
/sbin/iptables -A log_drop -j DROP

##ログの設定２：syn-flood 検出
/sbin/iptables -N syn-flood
/sbin/iptables -A syn-flood -m limit --limit 1/s -j RETURN
/sbin/iptables -A syn-flood -m state --state NEW,ESTABLISHED,RELATED -j RETURN
/sbin/iptables -A syn-flood -j LOG --log-prefix "iptables syn-flood:"
/sbin/iptables -A syn-flood -j DROP

##ログの設定３：ping of death 検出
/sbin/iptables -N ping-death
/sbin/iptables -A ping-death -m limit --limit 1/s -j RETURN
/sbin/iptables -A ping-death -j LOG --log-prefix "iptables ping-death:"
/sbin/iptables -A ping-death -j DROP

##ログの設定４：ポートスキャン検出
/sbin/iptables -N port-scan
/sbin/iptables -A port-scan -m limit --limit 1/s -j RETURN
/sbin/iptables -A port-scan -j LOG --log-prefix "iptables port-scan:"
/sbin/iptables -A port-scan -j DROP

##ログの設定５：IP 偽造検出
/sbin/iptables -N spoofing
/sbin/iptables -A spoofing -j LOG --log-prefix "iptables spoofing:"
/sbin/iptables -A spoofing -j DROP

## ppp-in チェイン
## WAN input
/sbin/iptables -N ppp-in
/sbin/iptables -A ppp-in -p tcp --syn -j syn-flood
/sbin/iptables -A ppp-in -p icmp --icmp-type echo-request -j ping-death
/sbin/iptables -A ppp-in -p tcp --tcp-flags SYN,ACK,FIN,RST RST -j port-scan
/sbin/iptables -A ppp-in -s 10.0.0.0/8 -j spoofing
/sbin/iptables -A ppp-in -s 127.0.0.0/8 -j spoofing
/sbin/iptables -A ppp-in -s 172.16.0.0/12 -j spoofing
/sbin/iptables -A ppp-in -s 192.168.0.0/16 -j spoofing

##公開サーバ向けパケット
/sbin/iptables -A ppp-in -p tcp --dport 25 -j ACCEPT -d $FWADDR -m state --state NEW,ESTABLISHED　#smtp
/sbin/iptables -A ppp-in -p udp --dport 53 -j ACCEPT -d $FWADDR -m state --state NEW,ESTABLISHED　#DNS
/sbin/iptables -A ppp-in -p tcp --dport 80 -j ACCEPT -d $FWADDR -m state --state NEW,ESTABLISHED　#Web

##ESTABLISHED と ping
/sbin/iptables -A ppp-in -m state --state ESTABLISHED,RELATED -j ACCEPT
/sbin/iptables -A ppp-in -p icmp --icmp-type echo-request -j ACCEPT
/sbin/iptables -A ppp-in -j DROP

## ppp-out チェイン
/sbin/iptables -N ppp-out
/sbin/iptables -A ppp-out -d 10.0.0.0/8 -j DROP
/sbin/iptables -A ppp-out -d 127.0.0.0/8 -j DROP
/sbin/iptables -A ppp-out -d 172.16.0.0/12 -j DROP
/sbin/iptables -A ppp-out -d 192.168.0.0/16 -j DROP

## Windows パケット禁止
/sbin/iptables -A ppp-out -p udp --dport 137:139 -j DROP
/sbin/iptables -A ppp-out -p tcp --dport 137:139 -j DROP
/sbin/iptables -A ppp-out -p udp --dport 445 -j DROP
/sbin/iptables -A ppp-out -p tcp --dport 445 -j DROP

##チェイン完成

/sbin/iptables -A INPUT -i $EXTIF -j ppp-in
/sbin/iptables -A FORWARD -i $EXTIF -j ppp-in
/sbin/iptables -A FORWARD -o $EXTIF -j ppp-out
/sbin/iptables -A OUTPUT -o $EXTIF -j ppp-out

#MASQUERADE
/sbin/iptables -t nat -A POSTROUTING -o $EXTIF -j MASQUERADE
/sbin/iptables -t nat -A PREROUTING -i ppp0 -d xxx.yyy.zzz.1 -j $EXTIF --to $FWADDR
/sbin/iptables -t nat -A PREROUTING -i ppp0 -d xxx.yyy.zzz.2 -j $EXTIF --to $FWADDR
/sbin/iptables -t nat -A PREROUTING -i ppp0 -d xxx.yyy.zzz.3 -j $EXTIF --to $FWADDR

#バケットの転送開始
echo 1 > /proc/sys/net/ipv4/ip_forward

だいたい、こんな感じです。
あとは、tripwire入れています。
http://www.jp.redhat.com/manual/Doc73/RH-DOCS/rhl-rg-ja/ch-tripwire.html

では、このへんで

あげれぃ

３６歳からの挑戦？・・・
どうかこれに挑戦してください。
http://members.tripod.co.jp/kishimangogo/so-ho1.htm
在宅だからってなめんなよ。
真剣に人生を変えたいと思ってる人は
年収１０００万は稼げるぞ。
これに対しての批判があがると思うけど、
自分の目で確かめたやつしかわかんねぇぞ。
ちなみにだましはありません。真剣です。

１さん。がんばれよ！

またプログラムやりたくなってきたからウィンニュでダウンしよ。
数学ダメでプログラムできるんだよね？

あげまんじゅう

ってか　本当に３６無職で　プログラミングやって　どうするの？
もう年齢からしてＰＧ　ＳＥ　は　無理だし

>1
おっさんすげーぞ！
一つの事を淡々とやれる事も立派な才能だ！
俺もあんたみたいな集中力が欲しいズラよ。

おっさんて言う程歳違わないだろ。
10年なんてあっとゆう間、、、

>10年なんてあっとゆう間、、、





（わかってるからこそおっさんってかいたんだよぅ...）

iptables ですか。

0 から初めて半年でこれだけ出来るようになるってことは、
元々頭がいいんでしょうね。

なんで 100 社も断られたのか不思議。
そのときの能力で見られたんですかね。

なにはともあれガンガッテくだされ。

ｈａｇｅ

スレタイ見てたけしの挑戦状と読み違えた

・・・・・・・・・・・・



俺にこれを理解しろっていうのか！！！！

Perlかじったことならあるぞ、学校で。
あんなので稼げんのかよ？一通りできないと
だめなんじゃないの？UNIXとかC言語とか。

　

オフ板でプログラマー系のオフやるから来てください
http://life2.2ch.net/test/read.cgi/offevent/1041691769/

（＾＾）