トップページ⇒php
1001コメント343KB

【Perl】初心者コーナー Part13

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん02/05/30 13:06ID:R2kt1mTx
いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。

1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

CGIの質問は【CGIだけど、なんか質問ある？ part 6】
http://pc.2ch.net/test/read.cgi/php/1019561283/
参考書籍の話題は【【Perl,CGI】参考書籍 第２版】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4】
http://pc.2ch.net/test/read.cgi/php/1012839651/

過去ログ、その他の役立ち情報は>>2-10あたりを見よう。
0202nobodyさん02/06/08 19:18ID:Z1wnMQCd
if (($sec eq "1")or($sec eq "2")or($sec eq "3")){

上の"1" "2" "3"を一つの()内にまとめる書き方ありますか？
0203nobodyさん02/06/08 19:44ID:???
>>202
簡単な方法は、無い。
1,2,3...が多い場合は、ハッシュを使えば若干パフォーマンスは上がるかもね。

use constant true => 1;
%tbl = (
1 => true,
2 => true,
3 => true,
);

if($tbl{$x}){ ... }
020419602/06/08 19:51ID:???
>>201
有り難うございます。早速やってみたところ
カタカナとひらがなを相互に変換してしまいます。
カタカナはひらがなへ、ひらがなはそのままにしたいのですが…

&jcode'sjis2euc(*ss);
&jcode'tr(*ss, "\xa5\xa1-\xa5\xf3", "\xa4\xa1-\xa4\xf3");
&jcode'euc2sjis(*ss);
0205nobodyさん02/06/08 22:37ID:???
月に２回定刻に起こる条件をifで表したいのですが
第２土曜７時、みたいな感じで・・・
0206 02/06/08 23:21ID:???
$sec =~ m/^[123]$/
0207nobodyさん02/06/08 23:23ID:???
>>205
…月１回じゃん
0208nobodyさん02/06/09 00:27ID:???
なんであーんあーん逝ってるんですか？
悶えてるんですか？
ﾊｧﾊｧ・・・・
020915102/06/09 00:47ID:???
遅くなりました。

>>152
>>155
>>157
>>158
ありがとうございました。
0210nobodyさん02/06/09 00:57ID:???
モジュールなどは使用しないで、ファイルをアップロード出来るフォームを作りたくて、
サンプルなどを見て研究していたのですが、仕組みがよくわかりません。
ファイルを指定する→送信ボタンを押す→指定したフォルダにファイルが保存される
という一番シンプルなソースコードを、どなたか示していただけませんでしょうか。
0211nobodyさん02/06/09 01:11ID:???
>210
ttp://tohoho.wakusei.ne.jp/lng/199808/98080055.htm
これが参考になるかな？
0212Darkness Tester02/06/09 10:17ID:???
質問なんですが、CGIの置き方自体が判らないのです
DL・解凍したのはいいのですが、どうすればいいのでしょうか？
0213nobodyさん02/06/09 10:43ID:???
コマンド上から"a.exe start"と入力すると
"3 + 5 は？"などと返し、
続いて"8"を入力すると"正解"と返すa.exeがあるとします。
このa.exeをPerlスクリプトから
実行するにはどのようにするのでしょうか？
0214nobodyさん02/06/09 11:21ID:???
>>213
use IPC::Open2
0215nobodyさん02/06/09 11:28ID:???
>212
配布元サイトで聞く。
大体は配布場所に書いてあるだろう。
少なくともこのスレで聞くのは間違い。
0216nobodyさん02/06/09 21:05ID:TDG2uPpc
>>212
板違い。初心者板池
0217nobodyさん02/06/10 17:07ID:???
始めの一歩と思いカウンターを作って見たんですが、おかしな所が２箇所程あります。

１.ロック処理
　 カウントファイルを参照できない場合ロックしたまま解除しない。
２."$count_file"を、うまく参照しない。
例）$count_file = "./count.dat";　　OK
$count_file = "dat/count.dat";　NG

###################################################
sub count {
#-日時
&form_decord;
#-ホスト
&get_HostAgent;
#-バックアップ用のファイルを開く
open(IN,"$count_file") || &error("カウントファイルエラー");
$ac_data = <IN>;
close(IN);
($ac_count,$ac_ip,$ac_today,$ac_yes,$ac_day) = split(/\t/, $ac_data);

#今日/昨日のアクセス数の設定
if ($mday ne $ac_day) {
$ac_yes = $ac_today;
$ac_today = 0;
}
#-ロック開始
&lock1;
0218nobodyさん02/06/10 17:08ID:???
続き

#-２重カウント許可
if ($bak_ip){
$ac_count = $ac_count + 1;
$ac_today = $ac_today + 1;
}
#-不許可（IPアドレスで判断）
elsif ($ac_ip ne $Addr) {
$ac_count = $ac_count + 1;
$ac_today = $ac_today + 1;
}

#-ファイルに書き込む
open(IN,">$count_file") || &error("カウントファイルに書き込むことができません。");
print IN "$ac_count\t$Addr\t$ac_today\t$ac_yes\t$mday";
close(IN);
#-ロック解除
&lock2;
}

どこがおかしいでしょうか？？
0219nobodyさん02/06/10 17:42ID:???
>217-218
ロックに問題があるのに、その部分のサブルーチンは出さないわけ？
0220nobodyさん02/06/10 18:02ID:???
まず、これがオカシイな…
【リテラル】で指定しよう

$count_file = './count.dat';　　OK
$count_file = 'dat/count.dat';　OK
0221nobodyさん02/06/10 18:39ID:???
>>217-218

＞#-日時
＞&form_decord;
カウンタにデコードはいりませんよね・・？（しかもdecodeのつづりがまちがってる）
おそらくBBSかどっかからのコピペでしょうか。

自作の前にまずはKENTさんのソースをよく読みましょう（Perl神ですので）
http://www.kent-web.com/count/index.html
0222nobodyさん02/06/10 18:45ID:???
>219-220

$count_file = './count.dat';　
これが原因でした。参照できない場合でもerror後ロック解除できました。
アリガトウございます
0223nobodyさん02/06/10 18:58ID:???
>>221
勉強してきます
0224pear ◆FRUIT8pk 02/06/10 22:05ID:???
今までファイルロックなんてしなくてもファイル壊れたことないんですけど、
壊れることってどれくらいあるんですか？
0225nobodyさん02/06/10 22:30ID:???
>224
運次第。
あと、人気次第。
要するに「同時アクセスが発生するか否か」の問題だから、運が悪ければ
たった二人の来客でもファイルが壊れるし、運がよければ数兆のアクセスが
あっても壊れない。
しかし、アクセスが多ければ確率的にその事故は起こりやすくなる。

ついでに言うと、コーディングの話じゃないからスレ違い。
022615102/06/11 03:57ID:zdO5gL3p

>>155さんや>>158さんが新しい問題をくださいまして、またどうしても分からな
くなったので質問です。
今回は『return』についてです。

$year = "2000";
$month = "2";
@MONTHS = qw/0 31 28 31 30 31 30 31 31 30 31 30 31/;
$MONTHS[$month] = &feb($year, $month);
print "$MONTHS[$month]\n";

sub feb {
my ($year, $month) = @_;
if ($month == "2" and &rule($year, $month)) { return 29; }
else { $MONTHS[$month]; }
}

sub rule {
my $year = shift;
return (($year%4) == "0" || ($year%100) != "0" and ($year%400) == "0");
}


サブルーチンからのreturn返り値はどこに戻るのでしょうか。
とりあえず出力するために$MONTHS[$month]に代入することにしましたが、もっ
とシンプルな方法はあるんですか？つまり3行目に示したように代入する先を
$MONTHS[$month]と指定しなくてもよい$_のような特殊変数があるとか…。
また、>>155さんは以下のようにreturnを三つも使っておられますが、この文だ
と結局閏年であってもそうではなくても返り値は0、すなわちこの処理の場合は
常に『偽』が返ると思うのですが、間違ってますか？

sub leap_year {
my( $year, $month ) = @_;
if( $month == 2 && $year % 4 == 0 ) {
if( $year % 100 == 0 ) { return $year % 400 == 0;}
return 1;
}
return 0;
}
0227nobodyさん02/06/11 05:28ID:???
>>226
> 常に『偽』が返ると思うのですが、間違ってますか？

return $year % 400 == 0; は、まぁ置いといても、
return 1; を無視するのはなぜ？
0228nobodyさん02/06/11 05:48ID:???
なんで、文字列比較に == 比較演算子使ってるの？
0229nobodyさん02/06/11 06:10ID:???
>>226
>return返り値はどこに
&feb($year, $month); と &rule($year, $month)のトコ
>シンプルな方法
print feb($year, $month);
>returnを三つも
returnで返した時点でサブルーチンはオシマイ
0230pear ◆FRUIT8pk 02/06/11 07:13ID:???
＞225
丁寧にどうもありがとうございます。。
スレ違い。。確かにそうですね、今後気をつけます。。
0231nobodyさん02/06/11 09:29ID:???
>>151
間違ってます。
前に書かれたけど、月の値は意味がないからそれさえ省けば
ちゃんと閏年を返すよ。

## まず月を抜かして・・・
sub leap_year
{
if( $year % 4 == 0 ) {
if( $year % 100 == 0 ) {
return $year % 400 == 0;
}
return 1;
}
return 0;
}

foreach my $year ( qw/ 1900 1940 1980 1995 2000 2002 2004 / ) {
print "$year = ";
print leap_year($year) ? "leap year\n" : "NOT leap year\n";
}
0232nobodyさん02/06/11 09:30ID:???
あー、くそ。
>>151じゃなくて>>226だった
0233nobodyさん02/06/12 07:36ID:???
$ENV{'REMOTE_ADDR'}　＝　$env{'remote_addr'}　としても使えますか？
0234nobodyさん02/06/12 07:55ID:???
>>233
使えません。
0235nobodyさん02/06/12 09:13ID:???
>>234
試してみれば一発だろうに…
0236 02/06/12 11:39ID:R7g7sR2X
jperl5+IIS5.0+SSLな環境でファイルを
アップロードさせたいのですが、
6KBぐらいの小さいファイルだとアップ
できるのですがそれ以上大きいのだと
アップロードできず、IEだと「ファイルが
見つかりません」のエラーになります。

＃ ちなみにSSLでなくても120KBまでしか
＃ だめなようです。

同じような問題にあたった方いらっしゃいますか？
0237nobodyさん02/06/12 16:38ID:NJerhR65
perlについて質問です。

月の最後の日が簡単に分かる関数がありますでしょうか？
ありましたら教えて頂きないでしょうか？
また、ない場合は、一番サーバーに負荷を掛けずに（軽い）同じ動作を
させるにはどうすればよいか教えて頂けないでしょうか？

自分なりにも考えてみました。
for ( $i = $mday ; ; $i++ ) {
( $k_sec , $k_min , $k_hour , $k_mday , $k_mon , $k_year , $k_day ) = localtime( time + $i * 24 * 3600 );
if ( $k_mon != $mon ){
last;
}
}
023823702/06/12 16:40ID:NJerhR65
追加です。

うるう年は、考えることとします。
そうでなければ、３１日の月と３０日の月、２８日の月と３つに分けてしまえば
簡単にできてしまいます。

よろしくお願いします。
0239nobodyさん02/06/12 16:41ID:???
>237
まず、うるう年をどうするか。
はっきり言って、配列にでも月ごとの日数を入れるのが一番軽い。
@monthday = (0,31,28,31,30,31,30,31,31,30,31,30,31);
これにうるう年の処理を加えるだけ。
わざわざスクリプトに計算させる必要性はあるのか？
宿題とか？
0240nobodyさん02/06/12 16:42ID:???
>238
じゃあ、うるう年をどう考えるのか。
今年の２月の日数で求めるのか。
去年の２月の日数を求めるのか。
指定した年の２月の日数を見るのか。
024123702/06/12 16:43ID:NJerhR65
>>239
どうもです。
その月の最後の日（日数）を知ることができる関数が知りたかったです。
それがあれば、一番簡単ですから・・・。
でも、ないようですので、 >>239の方法が一番よいようですね。
024223702/06/12 16:45ID:NJerhR65
>>240
「今」の月の日数を知りたいです。

あと、用途は、プログラムを組んでいて、月の最後の日の２３時〜２４時だけは
違う画面を表示させるというものです。
0243nobodyさん02/06/12 16:49ID:???
@monthday = (0,31,28,31,30,31,30,31,31,30,31,30,31);
$day = $monthday[$mon];
if($mon == 2 && $year % 4 == 0 && ($year % 100 != 0 || $year % 400 == 0)){
  $day = 29;
}
print qq($year $mon/$day<br>\n);

関数はないからこれが一番簡単かな？

しかし、>242のいうのならもっと簡単。
( $k_sec , $k_min , $k_hour , $k_mday , $k_mon , $k_year , $k_day ) = localtime(time);
@localtime = localtime(time+3600);
if($localtime[4] != $k_mon){
  print qq(違う画面);
}

月の最後の１時間を判定するだけなら、これで十分じゃない？
024423702/06/12 17:09ID:NJerhR65
>>243
どうもありがとうございました。
0245　02/06/13 00:15ID:N23nK9SF
あるメールマガジン発行CGIをダウンロードして設置してみました。
ところが、デフォルトの登録ユーザーファイルが、usr.datという名前になっていて、そのファイルを決め打ちでアクセスすると、登録している人のemailアドレスが見れてしまうのです。
外部から見れないようにしたいのですが、そのCGIの説明書では、パーミッションは666にしろ、と書いてあります。
660ではだめなのでしょうか。
それか、ファイル名をaoeriuyba8.datとか、暗号のような名前にすればいいかもしれませんが、探検君とかで見つかりそうな気がします。
0246nobodyさん02/06/13 00:25ID:???
>245
拡張子を.cgiにしとけ。
0247nobodyさん02/06/13 00:29ID:???
いや、そもそも Perl の話題じゃないんだYO!

とりあえず設置鯖の仕様(.htaccess可?)を確認しろや
続きは適切なスレでやれ
024815102/06/13 04:13ID:???
151です。
ヒントを下さった>>227
『exit』と同じようなものと教えてくれた>>229
例を示してくださった>>231

returnの機能のついでに、評価式の作りかた、それによる分岐のさせかたまで勉
強できました。

後は閏年の数字の関係です…。
400が絡むということは必ず100で割り切れるということだから…
うーん。
この辺は自分で解決します。

ありがとうございました。
0249nobodyさん02/06/13 10:39ID:???
質問です。
一時ファイル(./tmp/*.tmp)を全削除するのに、
opendir(DIR, "./tmp/");
while ($filename = readdir(DIR)) {
　if ($filename =~ /\.tmp$/) {
　　unlink("./tmp/$filename");
　}
}
としてみたが、同じ事を Taintモード下で実現する方法ってありますか？
0250nobodyさん02/06/13 10:58ID:???
詳しくしらないのだが$filenameを正規表現でキャプチャすれば
いいんじゃないの？

if( $filename =~ /^([^.]+\.tmp)$/ ) {
unlink( "./tmp/$1" );
}
025124902/06/13 11:36ID:???
>>250
ありがとうございます！勉強になりました。
0252nobodyさん02/06/13 23:27ID:gf2d6vJq
$s =~ s/[^\.-z]/\./go;

と

$s =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;

って、どういうことをしているんですか？
教えてください。
0253 ◆hRKFl5jU 02/06/13 23:32ID:gf2d6vJq
あ
0254レス02/06/14 00:21ID:nWmgmUzW
すみません。cgiMLの方で質問していたのですが。
よく分からないのでここでも質問させてください。
掲示板のレス機能のアルゴリズムについて考えていました。
レスをスレに追加して、そのスレをトップに持っていく処理です。
最適な方法やスマートな方法がありましたら教えてください。

・以下、現在考えているアルゴリズムです。
#ターゲット親記事番号
$targetnum = 1;
#テスト用書き込みレス記事 [記事通し番号,レス件数]
$value = "9,0\n";

my @lines = <DATA>;
#レスを書き込み後スレッドをトップに持っていく
$linecnt = 0;
foreach(@lines)
{
($num,$resnum) = split( /\,/, $_ );
if ( $targetnum == $num ){
@sure = splice( @lines, $cnt+1, $resnum ); $resnum++;
unshift( @sure, "$num,$resnum\n" ); push( @sure, $value );
unshift( @newlog, @sure );
$linecnt = $linecnt+@sure;
}else{
push(@newlog,$_); $linecnt++;
}
}
print @newlog;
__DATA__
3,2
6,0
8,0
1,2
4,0
7,0
2,1
5,0
0255レス02/06/14 00:22ID:nWmgmUzW
ごめんなさい、長すぎました。
0256nobodyさん02/06/14 06:21ID:???
>>254
すべてのレスを１次元配列@linesに入れてガリガリ処理すると
面倒だし、スクリプトも読みにくいと思う。
レスの配列＝スレッド、スレッドの配列＝掲示板全体
というデータ構造に直すといいんじゃないか。ちょっと書いてみた。

use strict;
my $targetnum = 1;
my $value = "9,0\n";

# ログを読む
my @threadarray;
my %index_of;
while (my $line = <DATA>) {
　　my ($num, $resnum) = split(/,/, $line);
　　$index_of{$num} = scalar(@threadarray);
　　my $thread = [$line];
　　push(@$thread, scalar(<DATA>)) while (--$resnum >= 0);
　　push(@threadarray, $thread);
}

#目的のスレッドを切り出し、レスを追加し、配列の先頭に移動
my $thread = splice(@threadarray, $index_of{$targetnum}, 1);
push(@$thread, $value);
my $resnum = (split(/,/, $thread->[0]))[1] + 1;
$thread->[0] = "$targetnum,$resnum\n";
unshift(@threadarray, $thread);

# 出力
foreach my $thread (@threadarray) {
　　print "-----\n";
　　foreach my $res (@$thread) {
　　　　print $res;
　　}
}
025725402/06/14 07:35ID:nWmgmUzW
>>256
さっそくありがとうございます。
ソースまで示してくれて感謝。
早速、トレースして理解してみます。

ところで、ログを変更してもいいとしてもこの方法がいいと思いますか？
掲示板には全然手をつけていないので、今ならログ変更はいくらでもOKです。
0258nobodyさん02/06/14 08:44ID:???
>>257
そのログ形式(>>255)だと、「レスのない親記事」と「レス」は
どっちも$resnumが0になるような気がするが
どうやって区別すんの？
0259レス02/06/14 09:31ID:AMkrWmqx
>>258
おっ指摘してくれてありがとう。
確かに、区別できないですね。

じゃあ resnamは、親記事自体の番号も含めてってことでおねがいします。
0260nobodyさん02/06/15 00:42ID:???
>>257
とりあえずその方法で突き進んで、問題あったら変更すればいいんでないの。
そのためにはログフォーマットに依存するコードは極力書かないようにしる。
行をsplitする生のコードをそこら中にちりばめたりすると、後で泣くこと必至。
0261nobodyさん02/06/15 01:14ID:4GLBjH4I
↓にある「レス付き画像掲示板 imgboard」
ttp://www.big.or.jp/~talk/t-club/soft/mini_r6/index.cgi
をTripodに設置したいんですが、Tripodのcgi規定に
「なお、画像は、セキュリティー上の理由から、cgi-bin以下におくと表示されませんので、
必ずTripod内のcgi-bin以外におくようにしてください。」
とあって、画像保存用ディレクトリimg-boxをcgiと同じ場所に置くことができません。
↓参考のページ
ttp://www.ba.wakwak.com/~chikura/050mypaso14gazoukeijiban.html
も見たんですがうまくいきません。
どうか解決法を教えてください。
0262nobodyさん02/06/15 01:28ID:???
>261
設置場所のディレクトリ構造は？
026326102/06/15 01:39ID:4GLBjH4I
>>262
ttp://www.ba.wakwak.com/~chikura/050mypaso14gazoukeijiban.html
を参考にして、

（url）http://cgi.tripod.co.jp/ユーザー名/cgi-bin/imgboard.cgi
cgi-binフォルダの中は
imgboard.cgi,file.dat,fileback.dat,icon.dat,jcode_sj.pl,imgsize.pl,index.html
の7つのファイルが入ってて、
cgi-binフォルダと同階層にpublic_htmlフォルダを置いて、
その中に画像保存用ディレクトリimg-boxを置いてます。
0264nobodyさん02/06/15 01:52ID:???
>263
なるほど、、、。
まず、cgi-bin 以下には CGI および データファイルを置くようにしてみてください。
それ以外は、public_html にすべていれるという形態になるのが普通です。
026526102/06/15 01:58ID:4GLBjH4I
>>264
cgi-binフォルダの中にはimgboard.cgi,file.dat,fileback.dat,icon.dat、
public_htmlフォルダの中にはjcode_sj.pl,imgsize.pl,index.htmlおよび画像保存用ディレクトリimg-boxフォルダを
置くというかたちになるんですか？

0266２６４02/06/15 02:02ID:???
たった今、落として確認してみたら、この index.html ってのは
ディレクトリインデックスの隠し用だったようなので すべて cgi-bin
の中で問題ないようです。
026726102/06/15 02:11ID:4GLBjH4I
どうやらTripodがくせもので、
>>264
「なお、画像は、セキュリティー上の理由から、cgi-bin以下におくと表示されませんので、
必ずTripod内のcgi-bin以外におくようにしてください。」
ということで、画像保存用ディレクトリimg-boxをcgiと同じ場所に置かず、
投稿画像の格納ディレクトリ($img_dir = './img-box'; # デフォルト位置)を変更しなきゃならないようなんで、
($img_dir = '/public_html/img-box'; # デフォルト位置)に変更したんですがうまくいきません。
cgiは機能してるんですが、画像がアップロードできません。
img-boxフォルダの中をのぞいても何も入ってませんでした。
0268２６４02/06/15 02:20ID:???
ざっとスクリプトに目を通してみましたが、たったこれだけの掲示板で
６３００ ステップもあったのでゲンナリしました。

まず、画像の表示は単純に imgタグに直接画像パスを書く方法を採っている
ので HTML と CGI の置き場所が別になっているタイプのサーバではこのまま
では動きません。
026926102/06/15 02:25ID:4GLBjH4I
>>264
Tripodはcgiを使う場合のURLが
http://cgi.tripod.co.jp/ユーザー名/cgi-bin/imgboard.cgi
普通のhtmlは
http://members.tripod.co.jp/ユーザー名/
だからHTMLとCGIの置き場所が別になっている訳ですね。
別のサーバー探すしかないか…。
0270２６４02/06/15 02:26ID:???
おそらく １６７行目を以下に書き替えればいけると思います。

$img_dir = '/ユーザ名/public_html/img-box';
027126102/06/15 02:43ID:4GLBjH4I
>>264
だめでした（爆）。サーバー側の問題？
配布されたcgiに「場所の指定方法は通常は相対パスで指定して下さい」とあったので、
ユーザー名は必要ないのかな？
027226102/06/15 02:45ID:4GLBjH4I
>>264
絶対パスで正解でした。スマソ。

＜以下配布されたcgiより＞
あなたのプロバイダが、cgiとデータファイルを同じ場所に置くことが出来ない
特殊なプロバイダ(hi-ho等）で、cgiと同じディレクトリやcgi直下に保存
用ディレクトリを作れない場合、絶対パスによる指定が必要となる場合があります。
この場合、５行ほど前にある$img_dirを絶対パス*指定に書換えて下さい。
0273nobodyさん02/06/15 02:48ID:mydlqxE+
GD.pmなどのモジュールをインストールするっていうのは、そのサーバの管理者じゃなきゃできないんでしょうか？
それともディレクトリにアップロードするだけでいいの？
0274２６４02/06/15 02:55ID:???
そしたらダメもとで以下を試してみては？

おそらく imgタグで .. がNGになる可能性あり。
$img_dir = '../public_html/img-box';

または

ソース内で img-box の存在チェックをしているのでWWWサーバのマウントポイント
からの相対パスを使えないのでダメもとでサーバのディレクトリ構造を推測して以下
のように書けばOKかも。
$img_dir = '/home/ユーザ名/public_html/img-box';
0275２６４02/06/15 03:02ID:???
>273
モジュールって使ったことないけど以下を書いてもダメ？

BEGIN{ unshift(@INC, '.'); };
027626102/06/15 03:07ID:4GLBjH4I
>>264
ダメでした…。
HTMLとCGIの置き場所が同じサーバー探します。
夜遅くまでご親切に、こんな初心者にお付き合いいただきありがとうございました。
すごく勉強になりました。
0277nobodyさん02/06/15 03:34ID:???
>>273
*.pmだけで完結してるモジュールは、275の方法でいけるんすけどね。
GD.pmの場合はバイナリコードを作らなきゃあかんかったり、
サーバにないかもしれないライブラリ（libjpeg.soとかlibpng.soとか）を
いろいろ必要とするから、モジュールだけアップロードしても99％駄目。
0278レス02/06/15 07:31ID:/CDsyhKP
>>260
うんありがとう。
そうですね、splitを多発すると変更がめんどくさいので出来るだけ少なく作ります。
ログの変更を簡単に出来るように考えてつくろう。
また、質問することがあるかもしれません、その時はよろしくおねがいします。
0279nobodyさん02/06/16 08:10ID:z5KHLw2y
掲示板ぽいものを作ってるんですが、
にちゃんねるみたいに「Shift_jis使ってちょ」ってやりたいんです
で、何も考えずにjcode.plのgetcodeを使ったら、
「(´･ω･`)ｼｮﾎﾞｰﾝ」をeucと認識してしまいました・・・(´･ω･`)ｼｮﾎﾞｰﾝ

半角カナが混じってても、きちんとShift_jisと認識してやるにはどうすればいいでしょうか？
Shift_jisかどうかが分かればいいです。
EUCで書かれた「汐涙維」をShift_jisと誤認識してもいいです。
# '汐涙維'(EUC) eq 'ｼｮﾎﾞｰﾝ'(SJIS)
よろしくおながいします
0280nobodyさん02/06/16 08:59ID:???
>>279
おれはjcode.plのgetcode関数をちょっと書き換えて
Shift_JISの文字数カウントに半角カナも含めてるよ。

$sjis += length($1) while /(($re_sjis_c)+)/go; #オリジナルのjcode.pl
↓
$sjis += length($1) while /(($re_sjis_c|$re_sjis_kana)+)/go; #修正版

EUC-JPをはねずに通す確率がめたくそ増えるけど気にしない。
あえてShift_JISを使う代償だと思ってあきらめてる。
0281nobodyさん02/06/16 10:16ID:z5KHLw2y
>>280
なるほど、これはいいですね。
助かりました。
どうもアリガトウ
0282nobodyさん02/06/16 22:36ID:Us0jeEkd
#!/usr/local/bin/perl
print "Content-type:text/html\n\n";

$xx = "abc";
$yy = "def";

if ( あ eq あ ) {
print $xx
} else {
print &yy
}

このようにしても$xxは表示されないのですが、
あ　と　あ　を比べる方法ってありますか？
0283nobodyさん02/06/16 22:42ID:???
>>282
ネタですか？
0284nobodyさん02/06/16 22:43ID:Us0jeEkd
いや、マジやねん
0285nobodyさん02/06/16 22:51ID:???
>>284
#!/usr/local/bin/perl
print "Content-type:text/html\n\n";

$xx = "abc";
$yy = "def";

if ( 'あ' eq 'あ' ) {
print $xx;
} else {
print $yy;
}

abc って出ましたが。
0286nobodyさん02/06/16 23:01ID:Us0jeEkd
>>285
あぁ〜文字列はシングルクォーテーションで囲ったらｲｲんですね？？
ありがとうございます！
でも　あ　を　a　に変えると囲まなくてもいけるみたいですがなぜでしょう？？
aも文字列のはず、、、、
0287nobodyさん02/06/16 23:31ID:z5KHLw2y
>>284
''か""で囲まないと文字列じゃないぞ・・・
0288nobodyさん02/06/17 00:35ID:9jM4ZJCT
http://www.mbay.net/~mpeppler/Sybperl/sybperl.html#sybase::dblib

この
NO_MORE_RESULTS
って、どうしてクォーテーションがいらないのでしょう？

0289nobodyさん02/06/17 01:01ID:rACyARGq
>>288
開けない
0290hoge02/06/17 04:03ID:aKd0pgn8
sub MOE { "sakura" }
print MOE, "\n";
0291nobodyさん02/06/17 05:46ID:???
>>286
ぐーぐるさんに聞いて見れば？キーワードはbarewordとperl。
ていうかおれもPerlのbarewordの扱いについてはよくわからｎ。
0292nobodyさん02/06/17 08:51ID:???
Perlは「自分の知らない識別子」をクォートされていると解釈するんだよ。

$foo = bar;
$baz = bar::bax;
print $foo, $bar;

だが"sub bar;"やsubsなどで前方宣言されているとこれらはサブルーチンと見なされる。
use strict 'subs'を使うとこのような裸のワードに対して致命的エラーを発生させられるよ。
0293nobodyさん02/06/17 09:06ID:???
>>292 にもう少し足すとuse strictしててもハッシュキーと=>は特別：

use strict;
my %hash = ( foo => 'bar', baz => 'gad' );
print $hash{ foo }, "\n";
$hash{ baz } = 'boo';

ハッシュキーは基本的に[a-z0-9_]を使ってる限りクオートする
必要はない。また => を使うと、左側のbarewordは自動的に
文字列に変換される。
0294nobodyさん02/06/17 10:21ID:???
Perl6では>>292的なベアワードの自動クォートは撤廃されるもよう。
（ただし>>293はPerl6でもオーケーっぽい）
ラリーヲールの黙示録２を見よ。
http://dev.perl.org/perl6/apocalypse/2#bareword%20policy

#どこかに黙示録の和訳ってねーですか？あったら教えてください。おながいします。
0295nobodyさん02/06/17 13:21ID:???
Perl6で撤廃か。まぁ妥当だね。
0296nobodyさん02/06/17 21:33ID:8ZfnaOKh
簡単なスクリプトでテストしてみても読み書き両用でファイルが開けません。なぜでしょう？
Windows上では使えないのでしょうか？

　　　　　　　　↓
open(FILE, "+>$file");

環境はWin2000+Apache1.3.24です。
0297nobodyさん02/06/17 21:38ID:???
>296
なにが上手くいかないの？
同じ環境できちんと動くけど。
まさか保存されてるファイルが読み出せないとかじゃないよね？
だって最初に初期化してから書き読みモードで開いているんだから。
読み書きモードじゃなくて。
開けないって言ってるから、openが失敗してるんだよね？
ファイルの作成もできないんだよね？
そうだよね？
0298nobodyさん02/06/17 21:46ID:???
>>297
いぢめすぎ（ｗ
029929602/06/17 21:49ID:8ZfnaOKh
たとえばこんな感じにしてもファイルは作成されるのに空のファイルなんです・・。
A
A　　予想ではAが縦にならぶはずだと思うんですけど・・
A

open(IN, "+>$file");
@data = <IN>;
$data = "A\n";
unshift(@data, "$data");
print IN @data;
close(IN);
0300a02/06/17 22:28ID:???
ある某ゲーム(バトルロワイアル）を自分のホムペに乗せたいのですが．．．
初心者なので何をしてよいのかまったくわかりません。
教えてください。お願いします
0301nobodyさん02/06/17 22:37ID:???
ゲーム厨房消えろお願いするな乗せるな氏ね。
■ このスレッドは過去ログ倉庫に格納されています