ＣＧＩだけど、なんか質問ある？Part 5

**名無しさん＠お腹いっぱい。** · 01/12/26 10:51

■過去ログ
　Part 3 http://pc.2ch.net/test/read.cgi/php/988727833/l50
　Part 4 http://pc.2ch.net/test/read.cgi/php/1000804655/l50

その他参考になるスレッドを >>2 に纏めたので、十分に調べた上で質問して下さい。

**名無しさん＠お腹いっぱい。** · 02/01/03 08:43

早く教えてください！！！

**名無しさん＠お腹いっぱい。** · 02/01/03 08:47

早くしてください！！！！！

**名無しさん＠お腹いっぱい。** · 02/01/03 09:08

>>128
何を？

**名無しさん＠お腹いっぱい。** · 02/01/03 09:10

>>126
そのブックマークスクリプトを起動する際に
パスワード認証するようにして、
Refererを知って見に来た外部の人間には
見られないようにすればいいと思われ。

**名無しさん＠お腹いっぱい。** · 02/01/03 09:24

>>130
でも、それだと"登録してる"って事実は漏曳しちゃうわけですよね。
うーん....

**名無しさんに接続中…** · 02/01/03 10:21

>>123
自分で作るしかないようなきがするが
特にGIFの生成に関するのでフリーでというのは虫がよすぎる。
GIFの生成わりと簡単なのでネットで調べるとヨシ。

**名無しさん＠お腹いっぱい。** · 02/01/03 14:16

>>123
JPGの縮小画像じゃだめなん？

**名無しさん＠お腹いっぱい。** · 02/01/03 19:08

cgiをSSIで呼び出すときにクエリー文字以降のコマンドを実行したいのですが
どうすればよいのでしょうか?

具体的にはimgboard.cgiの2ページ目、3ページ目…を
2.shtml、3.shtml…として呼び出したいです。

1ページ目はimgboard.shtmlに

と書いて正常に表示されます。

2ページ目は2.shtmlに

としてみましたがエラーが出てしまいます。

**名無しさん＠お腹いっぱい。** · 02/01/03 19:52

>>134
2.shtml,3.shtml…それぞれに

と書き、
imgboard.cgiの中で環境変数DOCUMENT_URIを調べて、
呼び出し元を判別すればよい。

**名無しさん＠お腹いっぱい。** · 02/01/03 21:42

フォームからの受け取り値が多くて、
未記入は漏れなく許さない形にすると、if文の荒しになります。

if( $hage eq "" ){
print "Content-type: text/html\n\n";
print "<html><head><title>未記入です。</title></head>\n";
print "<body>\n";
print "未記入です。\n";
print "</body></html>\n";
}
if( $aage eq "" ){
print "Content-type: text/html\n\n";
print "<html><head><title>未記入です。</title></head>\n";
print "<body>\n";
print "未記入です。\n";
print "</body></html>\n";
}
...

と延々書いていくしかないんですか。非効率的な気がします。

**名無しさん＠お腹いっぱい。** · 02/01/03 21:48

あと、とりあえずそれでもいいんですが、
この場合未記入でもその後の処理は続いちゃいますよね？
if内処理の中に__END__を入れればいいの？

**名無しさん＠お腹いっぱい。** · 02/01/03 21:49

if($hage eq "" || $aage eq "" ){
print "Content-type: text/html\n\n";
print "<html><head><title>未記入です。</title></head>\n";
print "<body>\n";
print "未記入です。\n";
print "</body></html>\n";
exit;
}

**名無しさん＠お腹いっぱい。** · 02/01/03 21:54

>>138
thx

**名無しさん＠お腹いっぱい。** · 02/01/03 21:59

&error("hageが未記入です") if $hage eq "";
&error("aageが未記入です") if $aage eq "";

sub error {
my $msg = shift;
print <<"_EOE_";
Content-type: text/html

<html><head><title>未記入です。</title></head>
<body>
$msg
</body></html>
_EOE_
exit;
}

**名無しさん＠お腹いっぱい。** · 02/01/03 22:04

>>136

require 'cgi-lib.pl';
&ReadParse;
foreach (values %in){
if(!$_){エラー処理;exit;}
}

**名無しさん＠お腹いっぱい。** · 02/01/04 03:53

>>131
redirect.cgiとかそういうのを作って、redirect.cgi?url=http://foo/bar/
として呼び出すと
<meta http-equiv="refresh" content="0;url=http://foo/bar/">
というHTMLを吐くようにする。
んで、ブックマークスクリプトで表示するリストではredirect.cgiを使うよう
にすればOK。

**名無しさん＠お腹いっぱい。** · 02/01/04 07:04

ありがとう。

下のような感じなのかな
www.users.yun.co.jp/~moriq/lang/cgi/tips.html

適当に改ページの処理らしき所に突っ込んでみたけど動作せず。
# ページを決める
$total_page=@PAGE_START;

if($FORM{'page'} > 0){
if($FORM{'page'} > $total_page){
$disp_page = $total_page;
}else{
$disp_page = $FORM{'page'};
}
}else{
$disp_page = 1;
}
$next_page = $disp_page + 1;
$pre_page = $disp_page - 1;

if ( $ENV{'DOCUMENT_URI'} ) {
$page_name = $ENV{'DOCUMENT_URI'};
}
else {
$page_name = $ENV{'PATH_INFO'};
}
if($pre_page > 0){

&output_kiji_html;

大本のCGI
www.big.or.jp/~talk/t-club/soft/mini_r6/imgboard122r6.zip

**名無しさん＠お腹いっぱい。** · 02/01/04 12:38

メールアドレスの形式を判定して
.comや.netや.orgや.to以外のドメインを弾く場合につかう
正規表現って？

.*@.*\.

この先がわかりません。

**デフォルトの名無しさん** · 02/01/04 12:50

http://www.din.or.jp/~ohzaki/perl.htm#Mail
>>144
ここよく読んで拝借しなされ

**名無しさん＠お腹いっぱい。** · 02/01/04 12:54

>>145
そんなに難しいもんなの？

if ( ! $mail eq .*@.\.[com,net,org] ){
ふせー
}

とか出来ないの？！萎えるなあ。。

**名無しさん＠お腹いっぱい。** · 02/01/04 12:58

難しいと思うならよく読めよ
簡単と思うなら自分で考えろ、お前は自分で自分を簡単な事も考えられない
馬鹿だと言いたいのか？
実は正規表現知らんだけちゃうんかと

**名無しさん＠お腹いっぱい。** · 02/01/04 13:05

結局、perlってダサイのか

**これでいいのかな？なんだ簡単じゃん。** · 02/01/04 13:09

$mail_regex =
q{(?:[^(\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\\} .
q{\[\]\000-\037\x80-\xff])|"[^\\\\\x80-\xff\n\015"]*(?:\\\\[^\x80-\xff][} .
q{^\\\\\x80-\xff\n\015"]*)*")(?:\.(?:[^(\040)<>@,;:".\\\\\[\]\000-\037\x} .
q{80-\xff]+(?![^(\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff])|"[^\\\\\x80-} .
q{\xff\n\015"]*(?:\\\\[^\x80-\xff][^\\\\\x80-\xff\n\015"]*)*"))*@(?:[^(} .
q{\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\\\[\]\0} .
q{00-\037\x80-\xff])|\[(?:[^\\\\\x80-\xff\n\015\[\]]|\\\\[^\x80-\xff])*} .
q{\])(?:\.(?:[^(\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,} .
q{;:".\\\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\\\x80-\xff\n\015\[\]]|\\\\[} .
q{^\x80-\xff])*\]))*};

if ($email !~ /^$mail_regex$/o) {
print "不正なメールアドレスです\n";
}

**名無しさん＠お腹いっぱい。** · 02/01/04 13:11

>>148
うんダサいね、少なくとも君の半分位はダサい

02/01/04 13:28

アンケートフォームを使っているのですが、直接CGIのアドレスを入力して
CGIを呼び出すと空白の結果が送られてきて困っています。
直接CGIを呼び出したときにエラーのHTMLを表示させるにはどう追加記述すればいいでしょうか。

**>>151** · 02/01/04 13:32

if( $ENV{'REQUEST_METHOD'} eq "" ){

print "エラってる1\n";

}

**>>151** · 02/01/04 13:34

if( $ENV{'REQUEST_METHOD'} eq "" ){

print "エラってる\n";
exit;

}

#これをスクリプトの上に置く

**デフォルトの名無しさん** · 02/01/04 13:36

荒れてるなぁ・・・・
>>149　まぁそんな感じで
>>151
環境変数を適当にチェックするか、フィールドをif($IN{hoge} eq ''){error;
みたいに検査すれば良い、、、、
が！、そんな認識でsendmailをopenしてるなら厨房の餌食にされる可能性が
凄く高いから根本的に本でも読むことをお勧めする

**デフォルトの名無しさん** · 02/01/04 13:37

>>149　それは違う　ｗ

02/01/04 13:42

>>152
スクリプトの一番上に追加したらいいのですか？
それでもまだ駄目なようですが。

**名無しさん＠お腹いっぱい。** · 02/01/04 13:46

そんな腐ったフォーム使うなよ　（´д｀；）
別のにしろ

02/01/04 13:47

>>157
なかなか良いのが無くて困っていたんです(;´Д`)

**名無しさん＠お腹いっぱい。** · 02/01/04 14:01

if ( ! ($ENV{'REQUEST_METHOD'} eq "POST") ){

print "Content-type: text/html\n\n";
print "<html><body>エラー</body></html>\n";

exit;

}

02/01/04 14:11

>>159
うまくいったようです。有り難う御座います。
あと送ってきたのホストを完全に取得する方法分かりますか？
今だったら、*.ocn.ne.jpのようにかなり曖昧なものなんです。

**名無しさん＠お腹いっぱい。** · 02/01/04 14:21

use POSIX 'strftime';
print strftime "%Y%m%d\n", localtime;
こうやると年月日が出ると思うんですが、
この数字に7を足すことってできます？

ほかの方法があればその方法もご教授頂けるとありが㌧なんですが。

**名無しさん＠お腹いっぱい。** · 02/01/04 14:50

>>160
一概に言えない、改造したいなら改造スレへ

>>161
このスレッドも立てたの？　（呆
http://pc.2ch.net/test/read.cgi/php/1010092390/l50

自分で考えられないなら諦めなさい
1970年からインクリメントしてコンペアすれば良いけど
無茶苦茶負荷掛かるだろうね

**名無しさん＠お腹いっぱい。** · 02/01/04 14:54

ありがとうございます!!
スレッドは立てていないですけど助かってません!!
ほんと感謝してます♪

**名無しさん＠お腹いっぱい。** · 02/01/04 15:39

>>151
これだろ
www2q.biglobe.ne.jp/~terra/cgi/webhandler.htm

前にサポート掲示板に同じようなこと書き込んだら
「cgiには直接アクセスするような用途は想定していませんとか言いやがった。

こりゃ駄目だと思って自分で改造したけどね。

**名無しさん＠お腹いっぱい。** · 02/01/04 16:02

>>163　お前は何をしてるんだ?　笑
>>162も言ってるが、最もプリミティブなやり方ならフィールドを
分割した後ツェラーの公式で通算秒に直してやればいい
CPAN漁れば絶対有りそうだが、自分で書いても手間は掛からんだろ
ここは人が少ないんだから、次からはじっくり待つ方が良いぞ

**名無しさん＠お腹いっぱい。** · 02/01/04 16:48

KENTのPetitBoardに新記事のマークを付けるにはどうしたらようのでしょうか？？？

**名無しさん＠お腹いっぱい。** · 02/01/04 16:51

↑何でマルチすんだよ糞ガキ消えろ

**名無しさん＠お腹いっぱい。** · 02/01/04 16:56

うるせぇ俺は20歳だ。そんだけ気になっとんだ。

**名無しさん＠お腹いっぱい。** · 02/01/04 16:57

そんな事より即効で文句言うてめぇの方がガキだ。

**名無しさん＠お腹いっぱい。** · 02/01/04 17:39

じゃ教えるから消えてくれ
PETITのログには投稿日時が入ってるが変に整形されてしまっている。
だからログに細工して <>1000000000の様なデータを追記して
書き出し時に比較するか、
元から入ってる、日本語表記の時刻から1970年からの秒数を割り出して
比較すればいい

**名無しさん＠お腹いっぱい。** · 02/01/04 18:22

フォームを使って英数字や記号以外の物は弾きたいんですが、
(日本語やら記号やら全角は弾きたい)どう書くんでしょう。

$date =~ /[a-zA-Z]/

をifで使うと英数字がとりあえず入ってればよくなりますよね。
とにかく「全角物は排除」したいんですが。。。

**名無しさん＠お腹いっぱい。** · 02/01/04 18:24

修正

(日本語やら記号やら全角は弾きたい)
↓
(日本語やら全角記号やら全角は弾きたい)

**名無しさん＠お腹いっぱい。** · 02/01/04 18:27

$date!~/[^\w\dその他の記号]/

**名無しさん＠お腹いっぱい。** · 02/01/04 18:29

>>173
すいません、むちゃくちゃ簡単な花氏でした。。
特殊文字を忘れてた。

**名無しさん＠お腹いっぱい。** · 02/01/04 18:30

あ、間違えた（笑)

**名無しさん＠お腹いっぱい。** · 02/01/04 18:39

$name =~ /[\Wその他の記号]/

でいいと思われ

**名無しさん＠お腹いっぱい。** · 02/01/04 18:40

あ、よくなかった

#date =~ /[^\wその他記号]/

だな

**名無しさん＠お腹いっぱい。** · 02/01/04 18:42

# -> $

あほ · 02/01/05 19:53

sub html {

print <<EOE;
Content-type: text/html

<html lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=euc-jp">
</head>
<body>
あほ
</body>
</html>

EOE

return();

}

あほ · 02/01/05 19:55

↑htmlを関数を作っておいて楽にしたいんだけど、
{}の中にタブを入れるとエラーになる。。。

print <<
ってタブいれらんないの？

あほ · 02/01/05 19:55

いれらんねーとソースが見にくいんだよー

**名無しさん＠お腹いっぱい。** · 02/01/05 20:07

EOEの前にタブを入れたのかな？
ヒアドキュメントの最後の文字（この場合EOE）の前には入れられないよ。

あほ · 02/01/05 20:13

>>182
どうもありがとうです。

**名無しさん＠お腹いっぱい。** · 02/01/06 00:52

kentwebのアクセス解析をつかっています。
これのＯＳ判別にWinXPがないんですが、
簡単に追加とかってできますか？

Web制作の初心者スレッドでこちらに誘導されました。

よろしくおねがします。

◆8WZMxnc2 · 02/01/06 00:55

ちょっと調べてくるから待ってろ。

**名無しさん＠お腹いっぱい。** · 02/01/06 00:56

>>185
えらーい！

◆8WZMxnc2 · 02/01/06 01:05

<Lesson1>
まずreport.cgiから以下の一行を探す。
elsif ($agent2 =~ /Wind?o?w?s? ?NT ?5/i) { $os = 'Win2000'; }
<Lesson2>
そしてこれをコピペで書き変える。
この行はWin2000の上にXPが無いと、XPも2000で
ヒットしてしまうから注意してくれ。
elsif ($agent2 =~ /Wind?o?w?s? ?NT ?5.1/i) { $os = 'WinXP'; }
elsif ($agent2 =~ /Wind?o?w?s? ?NT ?5/i) { $os = 'Win2000'; }

**184** · 02/01/06 01:28

◆8WZMxnc2さん、ありがとうございます。
さっそく、そのように直してみました。
WinXPの人がくるのを楽しみにしときます。

ありがとうございました。

**名無しさん＠お腹いっぱい。** · 02/01/06 02:01

/Wind?o?w?s? ?5/ なんで /Win(dows)? ?5/
としないのか小一時間(以下略

>>187
5.1じゃなくて 5\.1 だっぺよぉ。

**名無しさん＠お腹いっぱい。** · 02/01/06 14:01

セミコロン　；　ってどういう基準でどこにつけるの？？

なんか本には基本すぎるせいか書いてない・・・鬱だ・・・

**名無しさん＠お腹いっぱい。** · 02/01/06 14:04

基準?
; を書きたい所でLの右隣のkeyを押せばいいんだよ

**名無しさん＠お腹いっぱい。** · 02/01/06 14:15

いや、文末に必ずつけなきゃいけないの？？
命令の終わりにつけるとか？

**名無しさん＠お腹いっぱい。** · 02/01/06 14:17

つーか言語何よ？
取り合えず文の終りに付けとけ
ついでにその本捨ててまともな本買え

**名無しさん＠お腹いっぱい。** · 02/01/06 14:36

>>190
rubyには特に;は必要ありません。
だから本にも書いてないのでしょう。

**名無しさん＠お腹いっぱい。** · 02/01/06 14:51

>>194
MS-DOSバッチファイルでは;は必要ありません。
だから本にも書いていないのでしょう。

**190** · 02/01/06 14:54

>193 194 195
すいませんperlです、InlineCの中にInlineAssemblerで書いています
それでは　是非回答願います

**名無しさん＠お腹いっぱい。** · 02/01/06 15:01

http://tohoho.wakusei.ne.jp/
ここでPerlのところを読むといいよ。
下手な本よりよっぽどマシ。

**名無しさん＠お腹いっぱい。** · 02/01/06 18:53

えーとプレゼントキャンペーンの集計を1週間に1回やってます。
だんだんデータが重くなり、Excelにコピペするのもかなり大変。
で、1週間毎のデータになるよう、ある時間できって、前の週の
データを全部削除してお尻（後ろのカラム）のデータの並びが
時々おかしくなってるんで、それを直してると4時間はかかり
ます。普通はどんなやり方をやってるんでしょ？VBA?Perlで
スクリプト？なんかいいスクリプトの場所キボーン。

**名無しさん＠お腹いっぱい。** · 02/01/06 19:13

>>198
まず、落ち着いて日本語を書こう。
Perlなら楽だよ。

**198** · 02/01/06 22:09

アンケートのデータを顧客データを1週間に1回集計。
ブラウザ上に表示されたものをコピペでエクセルに貼付ける。
（しかし、2000件を超えたあたりからCtrl+Aでブラウザ上の
テキストを全て選択すると砂時計が回ったままになる、）
この時前の週のデータは全て削除し、今週のデータだけにします。
あと、しかるべきカラムにないデータを移動。
これが1万件ぐらいあると、スクロールして全部見るだけで、とても
時間がかかる、どうしよう？というのが質問の主旨です。

**名無しさん＠お腹いっぱい。** · 02/01/06 23:05

>>200
書き込む前に読み返してる？伝わりにくいったらありゃしない。
で、質問が漠然とし過ぎてる。
顧客からどういうデータを取って、どういう集計をして
最終的にどういうデータを得たいのかをはっきりさせて、
今はどうしてるのかを書かないと誰も答えられないよ。

並びがおかしくならないまともな集計スクリプト書いて、
エクセルファイルで出力したら？としか言えない感じ。

**名無しさん＠お腹いっぱい。** · 02/01/06 23:32

＞＞２００
＞ブラウザ上に表示されたものをコピペでエクセルに貼付ける。
＞（しかし、2000件を超えたあたりからCtrl+Aでブラウザ上の
＞テキストを全て選択すると砂時計が回ったままになる、）

ＩＥだったら、「名前を付けて保存」っていうのがあるはず。
テキスト形式で一度それを保存して、そいつをＥｘｃｅｌで開くように
したら？

つーかＣＧＩの問題ですかこれ？

**名無しさん＠お腹いっぱい。** · 02/01/07 00:13

初めからcsvかxsl吐けば良いかと
IEか固まるのは多分CGIではどうしようも無ぃ

**名無しさん＠お腹いっぱい。** · 02/01/07 00:42

集計機能付きアンケートフォームみたいなスクリプトって
ひどく一般的な気がするんです。
あちこちにあると思います。それこそ。
ただ、それつかってどういうことがやりたいのかとか、
どういう集計をしないといけないので手作業してて、４時間もかかるのか
とか、いろいろ具体的に書けば書くほど、アドバイスをもらいやすくなるんでしょうね。

こういう集計とかって、Perlの得意分野なので、内容次第では、
ここですごいアドバイスがもらえると思いますよ(笑)

**名無しさん＠お腹いっぱい。** · 02/01/07 06:55

画像のみをアップロードできるＣＧＩを探しています。
みんなが投稿できるようなタイプのものです。
そういったＣＧＩを提供しているところご存知ありませんか？

**名無しさん＠お腹いっぱい。** · 02/01/07 10:22

>>205
ttp://www2.inforyoma.or.jp/~tokaji/cgitech/upload.htm

**名無しさん＠お腹いっぱい。** · 02/01/07 20:43

2chみたいなスレッドフロート式掲示板作ってるんですが、
同じリモートホストからスレ立て制限する方法ってありますか？

**マジレスしていいのか？** · 02/01/07 20:52

>207
スレ立て時にリモホを記録して、一定回数以上のリモホを弾く。

**207** · 02/01/07 21:06

>>208
ありがとうございます。
あとは自力でなんとかしてみます。

**名無しさん＠お腹いっぱい。** · 02/01/08 00:49

添付ファイルを送るプログラムで参考になる物（サイト）ありますか？

**210** · 02/01/08 00:55

あ、ローカルファイルの参照ではなくサーバー上とか
CGIと同じディレクトリにあるファイルを送りたいのです。

**名無しさん＠お腹いっぱい。** · 02/01/08 01:59

CGI.pm

**名無しさん＠お腹いっぱい。** · 02/01/08 02:00

>>210
とりあえず、これでも読んどけ。
ttp://www.hypermail.org/rfcs/rfc2112.html

**名無しさん＠お腹いっぱい。** · 02/01/08 02:11

>>213
その手のRFCの日本語訳しているページってどこでしたっけ？

**名無しさん＠お腹いっぱい。** · 02/01/08 04:55

>>142
その方法でも、redirect.cgi が Referer として渡されちゃいますよね。
redirect.cgi がもっと広範囲で使われてるならいいんですが、
そのブックマーク用スクリプトからしか呼ばれないのなら
結局同じような気がします。
(redirect.cgi から来た → ブックマークされとる)

**名無しさん＠お腹いっぱい。** · 02/01/08 07:03

>>215 本当に試してみたの？

**名無しさん＠お腹いっぱい。** · 02/01/08 07:24

>>216
あひっ、試したら Referer 渡されてませんでした。
試しもしないで偉そうなこといってごめんなさーい。
ありがとうでした。

**名無しさん＠お腹いっぱい。** · 02/01/08 07:30

phpとかperlからメール送るとき、
errry-to やreply-to って、つけるべきなんでしょうか？
Fromだけで十分ではないんでしょうか？

**名無しさん＠ＮＥｍａｃｓ** · 02/01/08 07:42

s/errry-to/Errors-To/ として答えます。

Errors-To: は非標準フィールドなので、つけても無意味です。内部的にこの
フィールドを利用してエラーメール返送する MTA がありますが、それを期待
するべきではありません。(これは UUCP 時代の名残です。)

Reply-To: は、返信先を指定したいような事情があるときにつけます。MTA は
通常これを参照しません。これを参照するMTAは腐っています。

必要であれば、エンベロープ送信者も指定します。エラーメールはこのアドレ
スに返送されます。(sendmail の -f オプション)

MTA = Mail (Message) Transfer Agent

# From: とエンベロープ送信者、To:, Cc: とエンベロープ受信者は別物です。念のため。

**名無しさん＠お腹いっぱい。** · 02/01/09 00:15

文字（日本語）のデコードにjcode.plをつかってるんだが、
半角のみ（ｺﾞﾙｧとか）でデコードすると、文字化けして転送されてしまいます。
コードは'sjis'で設定してるんですが、ほかに何か割るいとこがあるんですか？
おまえら押しえてください。

**名無しさん＠お腹いっぱい。** · 02/01/09 00:30

元コード種の自動判別に失敗してるので手動で指定する。

**名無しさん＠ＮＥｍａｃｓ** · 02/01/09 01:34

そもそも「半角」を使うのがダメ。
(「半角」が混じると、EUC-JP と Shift_JIS の判定が困難になる。)

# ここで、「半角」= JISX0201 Kana

よみ · 02/01/09 10:32

超初歩的な質問で申し訳ないんですが
あるファイル(10行のファイル）をOpen読み込んでたとえば5行目とかを消すもしくは置き換えるのにはどうしたらよろしいでしょうか？
お教えください

**名無しさん＠お腹いっぱい。** · 02/01/09 11:26

>>223
Perlかな?　一番簡単な方法、たぶん。

# ファイル(hoge.txt)を開いて配列に突っ込みます
open FH,"+< hoge.txt" or die $!;
@lines = <FH>;

# 5行目をあぼ～んする場合です
splice @lines,4,1;

# 5行目を置き換える場合です
$lines[4] =~ s/NO/YES/;

# 書き戻します
truncate FH,0; seek FH,0,0;
print FH @lines; close FH;
exit;

**名無しさん＠お腹いっぱい。** · 02/01/09 12:11

>>223
DB_FileのDB_RECNOを使う

use DB_File;
use Fcntl qw(:flock);

my $db = tie @lines, DB_File => 'hoge.txt', O_RDWR | O_CREAT, 0666, $DB_RECNO or die $!;

# ロックする場合
open DBF, '+<&=' . $db->fd or die $!;
flock DBF, LOCK_EX or die $!;
undef $db;

# 5行目をあぼ～ん　(spliceは実装されてない？)
delete $lines[4];

# 5行目を置き換える
$lines[4] =~ s/NO/YES/;

untie @lines;

よみ · 02/01/09 12:32

>>224,225
親切にありがとうございました。
しかし我ながら223のようなわかりにくい文章書いてるな。
あーはずかし！

よみ · 02/01/09 13:01

>>225
しつもんです。
lines[4] =~ s/NO/YES/; だと、5行目のNOのところだけYesに置きかわるんじゃないですか？