CGIだけど、なんか質問ある？

**名無しさん** · NG

print "くだらねぇー質問はココから始めろ！";

**(ﾟДﾟ)ﾊｧ?** · NG

ムダスレ立てんなボゲェ。

**名無しさん** · NG

黙って実行されてろ。

**名無しさん** · NG

500 とかいうなよ

**名無しさん** · NG

たまには、日本語話せよ。

**名無しさん** · NG

１の頭の中は４０４だな。

**名無しさん** · NG

ない

**名無しさん** · NG

初心者の素朴な疑問ですが、cgiに大量のデータが送られてきた
として、これをcgi側でサイズチェックして大きすぎると判断したら
破棄してエラーメッセージを送り返すとします。
このときcgi側で読みこまなかったデータはそのままサヨナラして
くれるのでせうか？　サーバのメモリのどっかに溜まったまま・・・
なんてことは絶対ナイジェリアですか？

**名無しさん** · NG

送りたいんだけどだろ？＞8

**8>9** · NG

いきなりgets（Cの場合ね）で読みこんだりするとヤバそうなんで、
環境変数でサイズをチェックした方がいいと思うんですが
これ、何メガバイトも送られてきたらどうすればいいんでしょう？
というのが質問の主旨でありんす。

**名無しさん** · NG

それはデータ管理の範疇でCGIとは関係ねーだろ >>8

**TDR** · NG

SSIの は*.cgiスクリプトだと
どう書くんでしょうか？

**名無阿弥陀仏** · NG

>>8
標準出力を使って「そのＣＧＩ」に送られたデータなので
そのＣＧＩのプロセス自体を終わらせれば破棄されてるはずです
じゃないと困る。

>>12
質問の意味がよくわからないのですが。
http://xxxx/yyyy/????/****.cgi みたいなことかね？
SSI を実行した場所 http://xxxx/yyyy の後に付ければいいはず。

**TDR** · NG

ちょっと判りにくかったでしょうか。
CGIでSSIの 機能を
使うという事です。
判る人だけレスください。

**名無しさん** · NG

>>14
つまり、 部分に実行結果
を埋め込みたいってこと？
・ASPを使う。
・PHPを使う。
・PerlからHTML::Embperlを使う。
・PerlからHTMLファイルをopenで普通に開いて、埋め込みたい部分
　を置換する
・ネットで調べる

**名無しさん** · NG

フレームを使うはどうよ？

**名無阿弥陀仏** · NG

一応、言っておくと  をCGI側で print してもSSIそのものは構造上使えないからね。
１５はそれに近いことをやろうとしてるのだけど、
CGI で実行させるなら
`` といか exec とかいう「CGIが」プログラムを実行させる命令を別に書かないといけない。

**【質問】** · NG

アクセスカウンターで画像の表示が終わってから、
数字がスロットのようにぺロンって変わるcgi下さいな！

**名無しさん** · NG

あげません >>16

つーか、それは「質問」とは言わない。

**名無しさん** · NG

＞１
お前、細かい構文にうるさすぎるんだよ！
ソースの流れから汲み取って判断できないのか？

500ばっかり出しやがって人間様をなめるな！！！

**名無しさん** · NG

＞２０
確かに、俺もそう思う。

**名無しさん** · NG

インタプリタからして壊れていると見た。

**名無しさん** · NG

>20
まったくその通り！
;が抜けたくらいでエラーにすんなっ
行間を読め！

それにな、エラーを出す時はきちんと
「何処何処がエラーです」って教えろよ。
たまにいい加減なことをいうから探すのが大変だろ？

**名無しさん** · NG

標準出力吐き出し系の掲示板作ってんだけど、
書きこんだあとに、そのページ表示してもブラウザのキャッシュ
がきいて書き込みが反映されてないような状態になります。
リロードすればもちろん見れるんだけど・・・

なんかヘッダとかで「キャッシュ使うなよゴルァ!!」みたくする方法はないですか？
できれば、javascriptとかみたいに環境に依存するような方法以外で・・・
I-MODEでも有効ならなお良しなんだけど

**適当君** · NG

<META HTTP-EQUIV="REFRESH" CONTENT="1;URL=http://

**初心者** · NG

あのー、HTMLだけでホームページ作るときってファイル一杯作って
リンクでつなぎますよね? CGIの場合もそういう風に処理の単位で
別ファイルにしてリンクでつないでいった方がいいんでしょうか?
それとも変数の値で全然違う振舞いをするようにしておいて、
ソースファイルは一つにしておいたほうがいいのでしょうか?
後者の方が重いのは分りますが、ファイルが一杯になるのはちと
面倒くさいんで...

**名無しさん** · NG

>>24
串はずせ。

**>26** · NG

好みで作ってよし！

**名無阿弥陀仏** · NG

>>24
<META NAME="Cache-Control" CONTENT="nocache">
<META NAME="Pragma" CONTENT="nocache">

でいけると思う。ＣＧＩを直接参照しているなら

Cache-Control: nocache
Pragma: nocache

を Content-Type ヘッダに追加してもいい。

**厚着deミロード** · NG

＞29　Pragmaって　なんでしょうか？

**名無阿弥陀仏** · NG

タイムリーなハンドルだなおい（ｗ
Pragma も Cache-Control もやってることは同じだから気にしなくていいよ。
とりあえず両方設定しとけばどっちかが有効になるっつうことで。

**FW:【紹介】** · NG

アクセスカウンターで画像の表示が終わってから、
数字がスロットのようにぺロンって変わる
フリーのcgi紹介して頂けませんでしょうかぁ

24 · NG

>25
それは適当すぎます（＾＾；）
>27
串なんかつかってないです
>29,31
ありがとほ、早速試して見まふ。
PragmaはC言語の#pragmaと同じような感じかな？
CGI直接参照標準出力オラオラ型CGIなんで直接ヘッダを吐いてみます。

**名無しさん** · NG

>33
でもそのヘッダ吐くとオフラインで見れなかったと思うから
その辺、気に止めておいてくれ。

**名無阿弥陀仏** · NG

>>32
あっちじゃ誰も答えてなかったな。
アニメーションカウンタはCGIではなくGIFアニメでやってると思うぞ。
０から１とか、３から４とか、９から０などに変わる動画のアニメGIFとかがあるんだろう。
まあCGI内部でもカウントアップ時に変動する数値は動画を使って
変動してない数値は静止画を使うっていう工夫はいるだろうけど。
ＪＡＶＡでやってる場合もあるだろうがそっちは知らん。

**26>28** · NG

うーん。好みですか。じゃ、一つのシステムは一つのファイル
で作っときます。
PWSだとファイルのパスが何故かcgi-binからの相対パスで
書かないといけないのでファイルを分けるとディレクトリの構造が
代わった時に面倒くさいときが多々ありそうなので。

**32＠アメリカのビスは..** · NG

>>35さん　ありがとうございます～！！
　　ソース見るとCGIポイんです<IMG SRC="http...>
　　CGIでアニメGIF使えたんですね。

**日本強いね** · NG

Pragma: no-cache
HTTP/1.0で「キャッシュ使うな」指定するためのヘッダ
Cache-Control: no-cache
HTTP/1.1で「キャッシュ使うな」指定するためのヘッダ
* サーバ（及び中に介在させるプロクシ等）がすべてHTTP/1.1を理解できるならば、Pragmaはいらない。

Pragmaではno-cacheしか指定できないが、
Cache-Controlではキャッシュに関して色々な指定が出来る。
詳しくはRFC2616。

20 · NG

で、CGIからの返答は無しか。

ちょっと都合が悪くなったからといってダミーの403返すなよな。

**CGI** · NG

401 Authorization Required

**名無阿弥陀仏** · NG

>39
いや、そもそも来る気も無いとみたぞ。

**名無しさん** · NG

やる気の無いヤツが立てたスレは盛り上がらない、という良い見本。

**名無阿弥** · NG

38>> あ、誤字ってたか。
そうそう no-cahe でした。さんくす。
24 の人そのように直してください。修正希望あげ。

**名無しさん** · NG

ファイルの中身を連想配列に入れたいんですが、なんかこう
もっとエレガントな方法ありませんか？perlに慣れてないんで
こんなヘボスクリプトしか書けませんでした。

　if (!open (FILE,$filename)) { &error(3); }
　foreach $tmp (<FILE>) {
　　chop ($tmp);
　　@a = split(/\t/,$tmp);
　　$TBcategory{@a[0]}=@a[1];
　}
　close (FILE);

**名無しさん** · NG

>37
これじゃないの。クルクルカウンター。

http://www2.biglobe.ne.jp/~nir/npc/

**CGI** · NG

if (!open (FILE,$filename)) { &error(3); }
s/^([^\t]+)\t([^\n]*)/ $TBcategory{$1}=$2; /e while <FILE>;
close (FILE);

**名無しさん** · NG

>>29
ちょっと待て、誰も突っ込んでないが、name属性じゃなくてhttp-equiv属性だろ？！
もちろん、CGIならばhttp-equiv形式のmeta要素は一切必要ないが。

44 · NG

(￣□￣;)
すっ、すげぇ…

正規表現使うとここまで省略できるんですか。
まっことありがとうございましたっ！>>46さん

**japu** · NG

%TBcategory = map { chomp; split /\t/ } <FILE>;
の方が良いかもしれません。
タブが複数個入る場合を考えて、split /\t/, $_, 2 とするのは良い考えです。

**【多謝】** · NG

>>45様~
ぉ！！！ありがとうでした～　早速、使ってみます。。。

**CGI** · NG

メモリの消費量を考えるとmapは使いたくない。

**名無しさん** · NG

キャッシュの...
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
　　　　　　　　　　　　　　　　　　　　　　...これで、いいの？

**名無阿弥** · NG

>>47
う。多分それが正しいんだね。ありがとう。
違いがよくわかってないのでどう違うのか教えてください。
ＨＴＴＰヘッダとして使われるものはこっちってことでいいのかな？

>>44
ｊａｐｕさんが言ってますが 46 なら\t が複数あっても改行まで２個めの\tも含めてすべて受け取れるけど
44 だと２個めの \t 以降は切り捨てられる違いがある。使い分けができます。
44 も同じ結果にするなら split/\t/, $tmp, 2) にすればいいのかな。

>>46
[^\n] はピリオドにしたほうが多分効率いいね。

>>52
で、いいと思います。あと Pragma も同様にね。

**CGI** · NG

>[^\n] はピリオドにしたほうが多分効率いいね。
それでchomp相当処理はどこでやるつもり？

**CGI** · NG

やり直し。
&error(3) unless (open (FILE,$filename));
undef %TBcategory;
while (<FILE>) { $TBcategory{$1}=$2 if /^([^\t]+)\t([^\n]*)/; }
close FILE;

**新入り** · NG

すみません、いきなり質問で申し訳ないのですが、
環境変数、HTTP_REFERER ってどんな場合に環境変数に
代入されるのですか？
代入される場合と、されない場合があるのですが。。。

**名無阿弥** · NG

>>54
ピリオドが「改行文字以外」にマッチなので [^\n] と同じ結果のはずです。
なので問題ないかと。
あと open(FILE, $filename) || error(3); なら見栄えもスッキリしますよ。

>>56
＜Ａ＞タグなどでリンク（ここでは「最新レス１００」など）を移動すると
その直前のＵＲＬが入っています。
ＵＲＬを直接ブラウザに打ち込んで飛んだ場合は入らない（はず）。
たまに、ブラウザがバグって別ウィンドウのＵＲＬが入ってることもあるみたいです。
[unknown origin] が入ってることもあるけどこれは直打ちってことかな？

**japu** · NG

man perlre:
. Match any character (except newline)
    :
To facilitate multi-line substitutions, the "." character
never matches a newline unless you use the /s modifier,

try this:
$_ = "sakura\tmoe\n";
@hoe = /^([^\t]+)\t([^\n]*)/;
print "[@hoe]\n;

**名無阿弥** · NG

あ、 & が抜けてた。さげ。

**japu** · NG

個人的には、
open FILE, $filename or error(3);

**名無阿弥** · NG

あ、なるほど。ｊａｐｕさんどうも。それと勘違い君で皆さん申し訳ない。
勉強になりました。

**適当君** · NG

>>56
　ブラウザの"戻る"がアクティブでない時が変数の中身はカラ。
　...「新しいウィンドウでリンクを開く」とか

**名無阿弥** · NG

あれ？早とちりかな。
ピリオドでも [^\n] でも同じなのかな…。わからなくなってきた。

\s 使わなければ "." は \n にマッチしないということかな？
すいませんけど識者の方教えてくださいませ。

**ぺこちゃん** · NG

こんばんわ。
GETでサーバーに送れるデータは254文字までと
書いてある本と書いてない本が有るんです。
私がテスト(IIS4)してみたら、300文字でも送れた
んですが、どうしてでしょうか?UNIXだとだめなん
ですか?

**便乗さん** · NG

ココは「なし」ですよね？

**＞６４** · NG

その本が古いだけじゃない？
今は数千文字でも大丈夫。

**新入り** · NG

>>57さん >>62さん
いきなりの失礼な質問に答えて下さり有難う御座いました。
こちらで再現している状態と一緒なので、そういう仕組みに
なっているようですね。勉強になりました。本当に有難う御座いました。

**名無しさん** · NG

プロバイダとかレンタルのCGI鯖ってPERLのモジュールの
入り具合はどんな感じですか？
Perl本体だけとか？

**名無しさん** · NG

>Perl本体だけとか？
標準で入ってるモジュールはあるだろ（笑）

**clear** · NG

Ｎｉｆｔｙだとuse Strictさえエラーになる。
モジュール消すにしてもプラグマぐらい使えるようにしといて欲しい。

**名無しさん** · NG

use Strictって書いてエラーっていうのもおもろいな(藁

**名無しさん** · NG

まあね。他の奴の相場は？

**名無しさん** · NG

あら、しまったリロードしてなかった。
72 > 69 ね。

**名無しさん** · NG

cc gcc　sh　httpd

**等幅フォントって...** · NG

OS共通の等幅のスペルって、どないでしょうか？
Copyright(C) 2000
XXX.All rights reserved.

**名無しさん** · NG

>>75
web制作管理板
http://mentai.2ch.net/hp/index2.html

**名無しさん** · NG

ＣＧＩの負荷って、どうやって測るのですか？
また移転先探さなきゃ・・

**名無しさん** · NG

ロードアベレージかな >>77

44 · NG

先日はありがとう御座いました。
あれで作られた連想配列、key を与えればちゃんと取り出せるのですが
順番がぐじゃぐじゃになっているのはどういう事なんでしょうか？

順番に取り出したい場合はデータにuniqueなIDつけて、カウンタをkey
にして取り出すしか無いんでしょうか？

$flag = 0;
foreach $tmp (%TBmens_collar) {
　if ($flag == 1) {
　　print "$tmp\n";
　　$flag=0;
　} else {
　　$flag++;
　}
}

**名無しさん** · NG

掲示板のメッセージ欄でURLをしてもリンクされません。
ハイパーリンクジャンプするには、どうすればよいのでしょうか？
初心者ですがよろしくお願いします。

**名無しさん** · NG

>>79
入門書でも読んでハッシュについて勉強しろ。

NG

# 自動リンク
$in{'msg'} =~ s/($http_URL_regex)/<a href="$1" target="_blank">$1<\/a>/ig;

８０ · NG

＞８２さま
ありがとうございました。早速コピー＆ペーストしてみたのですが、
残念ながらうまく、表示されませんでした。
やはり私では難しいすぎたのかもしれません。
でもいずれ使える時のために８２さんのレスをテキスト保存しました。
お気遣いすみませんでした。

**＞83** · NG

$http_URL_regexってやつちゃんと設定してる？？

80 · NG

>>83
http://tako.2ch.net/test/read.cgi?bbs=perl&key=970569445&ls=50

**名無しさん** · NG

CGIの中でsysytem文は使っちゃだめなんですか？

print "Content-type: text/html\n\n";
system "cat ./header.txt";
system "./sidebar.pl";
&mainroutine;

こんな感じで。
ちなみに sidebar.pl は SSI としては正常に動いています。

**名無しさん** · NG

>86
使用自体に問題はないけど、printの出力はバッファリングされてるので、
systemと混ぜると出力データの順序がばらばらになってしまいます。
最初に $|=1 を実行して、printのバッファリングを停止すれば、
オーケーでしょう(動作効率は多少落ちる)。

８０ · NG

＞８４様
すみません。やはりダメでした。
OTDの掲示板なので、無理があったのかもしれません。
ありがとうございました。

**>80** · NG

無理があるのはあなたの頭でございます。
わからないくせにCGIいじろうなんて考えるのやめとけ。

**>87** · NG

サーバーがApacheのバヤイ、$|=1;をやっとかないと
ロックアウトしてまうということを「CGIのための実践入門Perl」で
読んだ。system関数つかわなくてもApacheでは$|=1;でバッファフラッシュ
はデフォつーことで理解しとけばオゲーですか？

**名無しさん** · NG

>90
なにそれ聞いたことないよう。もうちょい詳しく引用きぼん。

86 · NG

$|=1; というのを初めて聞きました。
結論から言うと上手くいきましたが何を意味するのかちょっと理解できていません。
結果オーライ的思考からいくとこれでいいのですがちょっと釈然としないものが・・
web出力の基本は標準出力であり、system文が絡むとなぜバッファリングの順が狂うのやら。
ともかく有難うございました。

86 · NG

あ！今、理解できた気がします。
検索結果が膨大になるときでも、実行中に結果を順次表示しないのかが
これでわかりました。perlの中で出力を溜めちゃうんですね。
逆に$|=1; をトップに入れておけば途中経過がリアルタイムで
観察出来るって事でしょう。＜ほぼ独り言

ついでになんですが、phpでバッファリングを止める方法ってありますか？

**（ﾟдﾟ）** · NG

馬鹿ばっか。

**動かない///なんで？** · NG

print "Content-type: text/html\n\n";
print "<html><head><title>REMOTE_ADDR</title></head><BODY>\n">

while ( ($a,$b) = each %ENV) {
print "$a=$b \n";
}
print "</body></html>\n";

**名無しさん** · NG

>95
二行目の最後を見れば幸せになれるぞ

**95＠動きました** · NG

あっほんとだ！さんきゅ～　; ネ　

**名無しさん** · NG

海外サーバーにおいた掲示板とかの日時が現地時間になってしまうのを
日本時間に直すにはどのようなスクリプトを書き足せばいいのでしょうか..

**名無しさん** · NG

>98
$ENV{'TZ'}='JST-9';
これだけ追加。

98 · NG

>>99さん

ありがとうございます！
できましたー！

**RiVer** · NG

だれかs///gを使って、標準語を関西弁に変換するようにしてください

ほれ · NG

s/こんにちは/こにゃにゃちわー/g

**名無しさん** · NG

s/バカ氏ね/アホちゃうかぁ/g

**名無しさん** · NG

s/マック/マクド/g

**教えて君** · NG

CGIで生成されるページに

みたいな感じでSSIを組み込みたいのですが、
どうしたら良いのでしょうか？

板違いでしたらすみません

**名無しさん** · NG

CGI叩いた時点で制御がhttpdから離れてるから無理なのでは？

**コピぺ君** · NG

>105 >>15 >>17 辺りかな？

**なぜ？** · NG

いままで動いていたkentさんの掲示板を
あたらしいサーバーに移したら動かなくなりました
パーミッションや転送モードは間違えていません
telnetでエラーメッセージを見ると
jcode.plの途中の行でひっかかっているようなのですが
/\216([\241-\337])(\216([\336\337]))?/: unmatched () in regexp at ./jcode.pl lin
このようなエラーがでてしまいます
どうすればいいのでしょうか？
ちなみに新しいサーバーはperlでなくjperlが使われているみたいです

**なぜ？** · NG

↑エラーメッセージ最後の部分は　line643　です

**名無しさん** · NG

移転先が英語版perlだったのと見た >>108

**<BR>** · NG

実行すると…が入ってしまいます。
検索しても見当たらないのですが…

**名無しさん** · NG

あんた誰? >>111
108の続き?　もう訳わからん。

**111@<BR>** · NG

It's new です

**名無しさん** · NG

FORMで引数をとってそれをリンクの一部に組み込みたいんですが
どうやればいいでしょうか。それだけ出来ればいいのですが…。

**なぜ？** · NG

>>110
いえ　たぶん移転先がjperlなんです、、、
どなたか>>108の原因わかりませんでしょうか？

あ　１１１は自分とは関係ないです

**名無しさん** · NG

>115=108
"-b"オプションが使えるjperlなら、先頭のパス指定で
#!/usr/bin/perl -b
と書くと英語版perlと互換モードになるから試してみよう

**なぜ？** · NG

>>116さん
できました！　ありがとうございました
やはりjperlがいけなかったみたいです。。。
-bをつけたら掲示板が使えるようになりました
大感謝です。

**名無しさん** · NG

>114
($name,$link) = split(/=/,$org);

print <<"EOF";
<a href="$link">xxx</a>
EOF

適当。

**755?** · NG

【質問】
***.cgiファイルをダウンロードされない方法はないでしょうか？
　ﾒhttp://www.xx.***.cgiを「名前を付けて保存」とかで...

**名無しさん** · NG

↑板違いだろ

1 · NG

チャット入室お知らせメールの方法。
おしえて。

**121** · NG

さっさと教えろやこら。

**名無しさん** · NG

やっぱりあほだ

**名無しさん** · NG

ちょっと思いつきなんだけど、
sendmailのvacation.msgをCGIで書き換えるようにして、
アクティブな自動返答システムを作れないかなぁ？だめ？

**名無しさん** · NG

【質問】
ファイル名がindex.htmlでも実行できるでしょうか？

**名無しさん** · NG

＞125
？？
CGIスクリプトのファイル名がindex.htmlだとダメですよ。
ディレクトリリストの参照が気になるなら同じ階層にダミーのindex.htmlを置くかしましょう。

**125** · NG

＞126　どーもです。ここは../index2.htmlですよね？？
　どうやってるんでしょうか？

**名無しさん** · NG

125は掲示板のフォームも全て拡張子.cgiでないといけないと思っているドキュン。

**>>125=127** · NG

.htaccess 置いてCGIしか置けないディレクトリにしてしまえ

ここはCGIが吐き出したindex2.htmlを表示してるだけだ。
index.htmlはフレームになってるだろ？

**129** · NG

ちなみに、ここは
<FORM METHOD=POST ACTION="../test/bbs.cgi">
を見ればわかるとおり、cgiはindex2.htmlじゃないからね

**125=127** · NG

so-ka。
＞128 125は掲示板のフォームも全て拡張子.cgiでないといけないと思っているドキュン
atari!

**名無しさん** · NG

掲示板で、二重投稿を防ぎたいのですが、
投稿された内容を別のファイルに記録して照合して…という方法しか思いつきません。
他にスマートな方法はありますか？

**名無しさん** · NG

>>132
ログファイル本体の内容を参照するのでは駄目なの？

**132** · NG

あ、一行だけ読み込めばいいのか。
鬱だ、逝ってきます…

sa · NG

掲示板の投稿後のページを変更したい。

どこを改造すればいいんですか？

**名無しさん** · NG

>>135
どういう掲示板なのか説明しないと伝わらないってばさ。
掲示板なんて山ほどあんだから…それを踏まえた上で改造板逝ってみればどうかね。

若葉 · NG

>136 改造板ってドコ？

**136** · NG

CGI 改造工房ってスレッド。次から関係ありそうなスレッドは自分で探してね。
http://tako.2ch.net/test/read.cgi?bbs=perl&key=958370869&ls=50

**名無しageさん** · NG

一回のファイルオープンで入力と出力を行うことは可能でしょうか？
以下のようにしても入力処理だけしかされません。
３行目と４行目をコメントにした場合は、出力処理がちゃんとされます。

入力処理と出力処理の間に何らかの処理を挟めばできるのでしょうか？
それともこうゆうやり方は無理でしょうか？
C言語ではこうゆうやり方が出来たように思ったのですが。

1>$file="hoge.dat";
2>open(FILE,"+<$file") || &error("$!");
3>@dat=<FILE>;
4>print(@dat);
5>print FILE "OK?\n";
6>close(FILE);

**名無し** · NG

append mode になってない。

**名無し(140)** · NG

いや。。。動くぞ。
fileの決に付けたすんだろ？

**名無しさん** · NG

seekもファイルポインタも知らんのにCがどうのとか言うなよ。

**名無しさん** · NG

ファイルの文字コードをCGIより変換する方法ありますか？
　文字列をエンコードするのは
&jcode::convert(\$line, "euc");
　とかですよね。
　んじゃなくって、ファイル丸ごと。
nantoka.txt
とかあったらこれを丸ごと、変換する方法です。

**名無しさん** · NG

open(FH,"nantoka.txt");
$line = <FH>;
close(FH);
&jcode::convert(\$line, "euc");

**名無しさん** · NG

$/ = undef;

が抜けてるぞ。

**135** · NG

>136 板じゃなくスレだろ！！氏ね

**名無しさん** · NG

nkf でフィルタかまして取得てのはどうだ

**名無しさん** · NG

ＳＳＩとＣＧＩを利用して、
ファイルの作成日が例えば１週間以内ならば"NEW"、
最終更新日が２日以内なら"UPDATED"とか表示することは可能ですか？
メニュー画面（index.shtmlなど）で。

**名無しさん** · NG

>148
時間で比較する。

**名無しさん** · NG

可能だがお前には教えてやらない

**名無しさん** · NG

>148
可能。

**名無しさん** · NG

可能 >148

**名無しさん** · NG

局ｳ(榕

**名無しさん** · NG

↑なんだこいつ？
顔真っ赤にして連続書き込みか？
お前みたいなperlすらも分からん包茎野郎は
こなくていいんだよ。（諭すように）

**名無しさん** · NG

それじゃ諭せないでしょ。

**名無しさん** · NG

>154
まあ、落ち着け。スレッド違うぞ。
上げてるし。

**上がったンでついでに…** · NG

2000年の表示って↓これだけじゃダメあるね？
$year += 1900;

**名無しさん** · NG

OK。

つーか "19$year" なんてやっている奴がなぜいたのか謎だ…。

78 · NG

19100年ってとこがあるの？

**157** · NG

>158ちゃん　マジおせーて！
>159　$year入れると100年って表示しちゃう年!!

**japu** · NG

マニュアルも見ずにプログラム組んでいるじゃないの?

**japu** · NG

マニュアルに載ってます:
Also, $year is the
number of years since 1900, that is, $year is 123
in year 2023, and not simply the last two digits
of the year.

**143** · NG

144さんありがとうございます。
でも何度やってもうまくいきません。
そこで作っているプログラムからはずしてこの部分だけで、
#!/usr/local/bin/perl

require 'jcode.pl';

open(FH,"nantoka.txt");
$line = <FH>;
close(FH);
&jcode::convert(\$line, "euc");

exit;

とやっても変換できません。。。なにがおかしんでしょうか？

**157** · NG

>japuさん　どーもです、英語から勉強し直します

**名無しさん** · NG

**名無しさん** · NG

$line = <FH>;
じゃなくて
@line = <FH>;
じゃないのか？

**名無しさん** · NG

>163
145に144の訂正がありましたよ。openの前あたりに1行追加。
$/ = undef;

**167** · NG

あ、グローバルな$/を書き換えると他の部分に支障が
でるかもしれないので、ブロックに入れて保護するほうがいいか。
{ local($/) = undef;
open(FH,"nantoka.txt");
$line = <FH>;
close(FH);
}

NG

open(FH,"nantoka.txt") \n";

**143＝163** · NG

　みなさんありがとうございます。
　いろいろ試してみたんですが、まだ出来ません・・・・。
　jcode.plは最新のものにしたし、ローカルでもサーバー上でも試しても
どちらとも出来ないし、、なにがおかしいんでしょうか？
　実行の仕方でしょうかね？ローカルでは、MS-DOSプロンプト、
サーバーではtelnet使ってやってるんですが、、、。
　なにかここが出来てないんじゃないの？とかいうアドバイスありましたら
お願いします。
　

**名無しさん** · NG

>170
163のスクリプトだけ見ると、読み込んで、convertして、
そのあとファイルに書き戻してないけど・・・。

**170** · NG

>>171
それではこのままでは変換した文字はどこに行ってしまうんですか？

**名無しさん** · NG

>>172
暗黒メモリ空間
てゆーかアナタ・・・・・・大丈夫？

**170** · NG

ちょっとやばいかも・・・汗。
ファイルに書き戻す方法教えてください。。

**名無しさん** · NG

>>174
ファイルを書き込みモードでopenして、変換した $line を
出力するだけでよいです。
方法がわからなければ、いい機会なのでちょっと勉強してみて。
（こういうのは答を書いちゃうほうがいいのかな・・・）

**ありがとう！** · NG

143＝163=170=174です。
できました！みなさんありがとうございます！！
いちおうEUCに変換できるんですけど、
詳しい方から見ればおかしい所だらけだと思います。
直したほうがいいところがありましたらお願いします。

#!/usr/local/bin/perl

require 'jcode.pl';

$/ = undef;
open(FH,"nantoka.txt");
$line = <FH>;
close(FH);
open(CF, ">a.txt");
&jcode::convert(\$line, "euc");
print CF "$line";
close(CF);

exit;

**ありがとう！** · NG

すいません、下のが正しいです。
上のはファイル名一個間違えています。

#!/usr/local/bin/perl

require 'jcode.pl';

$/ = undef;
open(FH,"nantoka.txt");
$line = <FH>;
close(FH);
open(CF, ">nantoka.txt");
&jcode::convert(\$line, "euc");
print CF "$line";
close(CF);

exit;

**名無しさん** · NG

ぉ　さすが ..ﾒﾓﾒﾓ

**名無しさん** · NG

任意の日本語の文字列を縦表示させたいんですが、
どうすればいいでしょうか？

あぼーん
↓
あ ぼ ー ん

このように変換したいのです。

**＞179** · NG

ヒント：正規表現

**japu** · NG

#! /usr/local/bin/perl -w

$_ = "パンプルピンプルパムポップン";

s{\G([\x00-\x7f] | # ASCII or JIS X0201 Roman
\x8e[\xa0-\xdf] | # JIS X 0201 Katakana
\x8f[\xa1-\xfe]{2} | # JIS X 0212
[\xa1-\xfe]{2}) # JIS X 0208
}{$1 }gx;
print "$_\n";

__END__

**ぎこるび** · NG

ちょっと対抗

#!/usr/bin/env ruby
require 'jcode'
$KCODE = 'SJIS'
str = "じゃすとあなざーるびーはっかー";
str.each_char{|w| print "#{w} "}

**nanasii** · NG

ではふつつかながら(Unicodeはじめて)変歌。もとい返歌。

perl -MJcode -Mutf8 -npe '$_=Jcode->new($_)->utf8; s/(.)/$1 \n/g;' doc/Printing-HOWTO.sjs |lv

jperl とか fold.plつかえばもうちょっとストレートフォワードかな。
\b はasciiと日本語キャラの境界にマッチするようだ。つかえるかも。
utf8 はちかいうちに必要なくなるらしい。

**名無しさん** · NG

splitで区切る文字に / を使いたい場合はどうしたらいいです？

**japu** · NG

@moe = split /\//, $hanyan;
@moe = split m[/], $hanyan;

**名無しさん** · NG

ところでPerlで大規模なプログラムとか組むとして
何行くらいから大規模と言うものなんでしょう?

**名無しさん** · NG

300行以上

**名無しさん** · NG

混乱しだしたら大規模。

**いちろう** · NG

つくるのに、一日以上かかったら、大規模。

**名無しさん** · NG

書き方にもよるけど、2000行以上ぐらいかな？

**与える男** · NG

"123.45" ^ "234.56" が、"317.13" になってくれません。

| や & は書いてある通り "020.44" と "337.57" になるんですけど…。
ラクダ本だとビット演算子のところでまとめて説明してあるんですが、
xorだけ挙動が違うんでしょうか？

**ロックしたい人** · NG

ここで質問してもいいんでしょうか。
今度新しくレンタルサーバー借りたんですけど、symlinkもopenも
使えないと、はっきりサポートメールで確認しました。
ロックというと
symlink>open>なし
だと漠然と思ってたんですけど、なしでも大丈夫なもんでしょうか。

**名無しさん** · NG

>>192
文字列に対するビット演算子は「桁ごとの数値」じゃなくて、
「桁ごとの文字コード」で演算するから"317.13"にはならない。
結果は "\x03\x01\x07\x00\x01\x03" になる。

**いちろう** · NG

頭を使えばね、>192

**名無しさん** · NG

rename

**193** · NG

うぎょ。193は、>>191の間違いっす。。。

**弐ch編くん** · NG

index.htmに☆☆☆.cgiをフレーム表示してるのですが、
win-Netscapeだと表示されない様なんですが…
何が足りないのでしょうか？
<HTML>
<TITLE>☆☆☆</TITLE>
<FRAMESET>
<FRAME SRC="./☆☆☆.cgi">
</FRAMESET>
</HTML>

**初心者** · NG

perl -cw ○○.cgi とやるとｓｙｎｔａｘ　ｏｋとなるのですが
ｃｇｉが動きません。
もう、どこがまちがってるのか検討つきません…。

**名無しさん** · NG

>198
print "content-type: text/html\n\n";
とか入ってる？

**???** · NG