【Perl】初心者コーナーPart9
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。
01/12/28 23:21ID:SPLRvqQi1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ、良い回答は良い質問から。
一緒に勉強しましょう。
参考書籍はこちら【【Perl,CGI】参考書籍 第２版 】
http://pc.2ch.net/test/read.cgi/php/988809842/
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part5】
http://pc.2ch.net/test/read.cgi/php/1009331505/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
過去ログ、その他の役立ち情報は>>2-10を見よう。
0074
02/01/04 19:36ID:CJ4spD6Oメインデータは、データのカテゴリごとに分割する。
データ自体に一意のID振っておけば、それでデータの抽出が出来る。
そもそも、そんな巨大なデータをwhileとかで回しても、効率よくないだろうし。
007548
02/01/06 14:51ID:4VaeiTUGうをー！ ありがとうです！ ｴﾝｼﾞﾝかかってきた！ やるでー！！
>73 >74
ありがとー
DBに入れるのも考えましたが、ディスク資源も既に虫の息なので、ﾎﾝﾄ ﾂﾗｲです。
0076名無しさん＠お腹いっぱい。
02/01/07 23:02ID:???シーラカンス本（約\3,500）説明ﾜｶﾘﾔｽｲﾖ.
プログラミング一から勉強するよりよっぽど楽勝ですし。
0077名無しさん＠お腹いっぱい。
02/01/08 16:04ID:2bmV9luVファイルに記録する時などでファイルを
open (FILE,"+<$file");
で開いて変更するのと
open (FILE,"$file");
書き換え作業
open (FILE,">$file");
という方法だと後者だと良くないのでしょうか？
0078名無しさん＠お腹いっぱい。
02/01/08 16:06ID:???0079名無しさん＠お腹いっぱい。
02/01/08 16:11ID:???どういう考えでそういう結論に至ったのか問い詰めたい
0080名無しさん＠お腹いっぱい。
02/01/08 16:20ID:2bmV9luVいろいろスクリプト見てると前者の方が多いと感じまして
後者の方はいかんのかな？と思ったです。
特に問題は無いと考えて良いみたいですね。
他に美しくない、負荷がかかる、なんかの問題も
無いのでしたら、何故前者の方がよく使われてるのでしょうか？
0081名無しさん＠お腹いっぱい。
02/01/08 16:35ID:???処理中に落ちてデータが壊れる確率も大差ない気がする。
消えにくいようにするならこれかな？
open IN, "<$file" or die;
# ...
close IN;
open OUT ">$file.tmp" or die;
# ...
close OUT;
rename "$file.tmp" => "$file" or die;
0082名無しさん＠お腹いっぱい。
02/01/08 16:36ID:XZoY9u5U後者の方が壊れる確率高いよ。
0083名無しさん＠お腹いっぱい。
02/01/08 17:03ID:2bmV9luV減る可能性がある場合はtruncateは必須なんでしょうか？
0084名無しさん＠お腹いっぱい。
02/01/08 17:09ID:???まず自分で試して見れ。
0085名無しさん＠お腹いっぱい。
02/01/08 17:11ID:???ファイルサイズを揃えておきたい時なんかはそのまま書き出して
閉じたりするよ
必須と聞かれればNOになる
0086名無しさん＠お腹いっぱい。
02/01/08 17:28ID:???ごめんです
試したら思いっきり変になりました。
これってOSによって実装されてない場合あるんですよね？
あんま使いたくなかったなぁ。
レスどうもでした。
0087名無しさん＠お腹いっぱい。
02/01/08 17:45ID:2bmV9luV皆さんはチャットやらカウンターなんか作らない
かもしれないですが、
カウンターの場合は読み書き両用で1度だけopenするのに対して
チャットなんかだと読み込みのみでopenして
書きこみはまた後で書き込みのみでopenしてるのですが
この違いは何なのでしょうか？
0088名無しさん＠お腹いっぱい。
02/01/08 17:48ID:???0089デフォルトの名無しさん
02/01/08 18:06ID:???ただCGI(だよな??)は排他とかトランザクション取らなきゃならないので
色んな手法でデータの同一性を保証出来るようなコードを書く必要は有る
チャット位ならどうって事ないような気がするが
0090どなたか
02/01/09 12:29ID:6I7ENOMK例えば1から100の範囲で４つ乱数を生成して、それを一つの配列に入れたいんですが。
$max = 乱数の最大値
$num = 個数
@kekka = 得られた乱数を[0..($num-1)]で格納する配列
という風にしたいんですが、どうしてもうまくいきません。
単純に指定個数の乱数を作って配列に入れるならできるんですが、
重複を許さないためにifやwhileで今までの結果を参照させようと
するとうまいコードが思い浮かびません。
もしかしたら簡単な解決方法があるのかと思いここに書き込ませてもらいました。
0091デフォルトの名無しさん
02/01/09 13:06ID:???until ($n == $max) {
$r = rand(100);
push(@ary,$r) and $n++ if(!grep /$r/,@ary);
}
0092デフォルトの名無しさん
02/01/09 13:08ID:???until (my $n == $num) {
my $r = rand($max);
push(@kekka,$r) and $n++ if(!grep /$r/,@kekka);
}
0093名無しさん＠お腹いっぱい。
02/01/09 13:19ID:???my @kekka;
my $max = 100;
my $num = 4;
die('$max の値が $num より多いとダメだから注意な。') if $num > $max;
my %temp;
my $rnd;
my $n = $num;
!$temp{($rnd = int(rand $max) + 1)}++ and push(@kekka, $rnd) and --$n while $n;
009493
02/01/09 13:20ID:???009590
02/01/09 13:23ID:6I7ENOMKでも実行してみたらループしてる・・・うーん、どっか変数間違えたかな。
こんな感じでやってみたんですが
#ここから
$max="10";
$num="4";
until (my $n == $num) {
my $r = int(rand($max));
push(@kekka,$r) and $n++ if(!grep /$r/,@kekka);
};
print "@kekka";
#ここまで
これってgrepの結果が真だった場合は同じ$nでまたループしてるんですよね。
ということは、grepが真を返してない（？_？）
0096名無しさん＠お腹いっぱい。
02/01/09 13:25ID:lzfPILoX009790
02/01/09 13:26ID:???助かった〜〜〜
91さんも93さんも有り難うございます。
解読して考え方を参考にしますね。
009890
02/01/09 13:27ID:6I7ENOMKperl5だといらないそうです
0099名無しさん＠お腹いっぱい。
02/01/09 13:28ID:???らしき話をどこぞで見たような。
010090
02/01/09 13:31ID:???呼び出しているそうです。その場合はtimeとprocess IDを元にsrandしている
ことになるそうです。受け売り。
0101名無しさん＠お腹いっぱい。
02/01/09 13:54ID:lzfPILoXなるほど〜、ありがとうございます。
5.003以前だとsrandしないといけないって事ですね。
バージョン依存は難しいです、いろいろ。。。
0102名無しさん＠お腹いっぱい。
02/01/09 15:11ID:yTZZpKpqまったくうまい子といきません。
やりたいことは、名前入力 名前に対してのカウント数
これくらいです。
一応ソース載せます、めちゃくちゃだと思うので一から出直せとかきついこといってください。
read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
foreach $pair(split(/&/, $query)){
($name,$value)=split(/=/,$pair);
$name=$value;
}
OPEN(FILE, ">+./$name/count.dat);
$count=<FILE>;
print FILE ++$count;
close<FILE>;
OPEN(NAME, ">+./namedata.dat");
while ($check=<NAME>){
if ($check ne $query){
seek(NAME,0,2);
print NAME $query\n;}
}
####ｽﾐﾎﾏ
print"content-type: text/html\n\n";
print"<table border=\"1\">";
while($uname[$list]=<NAME>){
$data="./$uname[$list]/count.dat";
print"<tr><th>$uname[$list]</th><td>$data</td>\n";
}
print"content-type: text/html\n\n";
print"<table border=\"1\">";
foreach $key (sort keys %uname){
print"<tr><th>$key</th><td>
まだ途中です。
0103名無しさん＠お腹いっぱい。
02/01/09 15:29ID:???それだとフォームからのを ほとんど読み捨てない？
あと
OPEN(hoge,">+ filename");
だと関数名が違ううえに 開いた途端ファイルが空になりそう。
http://tohoho.wakusei.ne.jp/wwwperl.htm
0104名無しさん＠お腹いっぱい。
02/01/09 15:33ID:yTZZpKpqううむ、もっかいやり直して載せてみます。
頑張ります。ありがとー
0105名無しさん＠お腹いっぱい。
02/01/09 22:11ID:???何を参考にしたらそんなソースになったのか知りたい。
0106名無しさん＠お腹いっぱい。
02/01/09 22:46ID:CEjm/hO6<#!/usr/bin/perl
となってしまいます。windowsからアップしているのですが、
LFでアップしようがなんだろうが<がついてしまいます。
原因わかるかたいらっしゃったら教えてくださいー
0107名無しさん＠お腹いっぱい。
02/01/09 22:50ID:no3DVS2qどこに？
0108名無しさん＠お腹いっぱい。
02/01/10 11:13ID:6z++Gsnnopen(F, file) || die;
tie(%IDX, 'GDBM_FILE', file.gdbm);
$id = tell(F);
while(<F>) {
$name = $_;
#ｺｺ？
$IDX{$name} = $id;
$id = tell(F); #この行は
}
untie %IDX;
close F;
これはうまくいくのですが、「$id=tell(F);」を、「ｺｺ？」に入れる方が
正しい気がしてなりません。
しかし、そうやって作ったgdbmファイルの返す結果はｽﾞﾚｽﾞﾚです。
えらい勘違いしてるのかもしれませんが、よろしくお願いします。
0109名無しさん＠お腹いっぱい。
02/01/10 12:20ID:???0110名無しさん＠お腹いっぱい。
02/01/10 12:50ID:???まったくうまい子といきません。
ﾜﾗﾀ
0111名無しさん＠お腹いっぱい。
02/01/10 13:30ID:???鯖の問題では？
タグ埋め込もうとしてるとか
0112108
02/01/10 13:54ID:6z++Gsnn「ポインタは行頭にしか置かれない」と思い込んでました。ｱﾎｰ
前行の行末 = 次行の行頭 なんですね。
スッキリしました。ありがとうございました。
0113名無しさん＠お腹いっぱい。
02/01/11 13:45ID:sSwGXaK5これ使ってる人って居ます？
0114名無しさん＠お腹いっぱい。
02/01/11 15:34ID:uaH1srIUソース見てると出てくる
<input type=hidden name=time value=1010730193>
って何？ 時間みたいだということはわかるんだけど・・・
あと，perlで書かれた2ch書き込みプログラムのサンプルが
あったらきぼんぬ
0115名無しさん＠お腹いっぱい。
02/01/11 15:50ID:USEv/wv3time関数で取得した書き込み時間をhidden属性で渡してると思われ。
0116名無しさん＠お腹いっぱい。
02/01/11 15:55ID:???何の為に？ (笑
0117名無しさん＠お腹いっぱい。
02/01/11 15:57ID:???0118名無しさん＠お腹いっぱい。
02/01/11 16:01ID:???0119名無しさん＠お腹いっぱい。
02/01/11 16:08ID:???0120名無しさん＠お腹いっぱい。
02/01/11 16:15ID:???本当に困っています
教えて下さい
0121名無しさん＠お腹いっぱい。
02/01/11 16:26ID:USEv/wv3>>120 = >>114 なの？
>>114でゆってる「ｿｰｽ」ってブラウザ画面からとってきたやつ？
0122名無しさん＠お腹いっぱい。
02/01/11 16:35ID:???0123114
02/01/11 16:37ID:uaH1srIUあ，>>120じゃないです，けどThx．IEやネスケの「ページのソースを見る」
ってやつだとオモタ（IEもネスケも使ってないから知らん）．
生timeを10進数で書いただけなのね
…あ，もしかして，これをいじると連続投稿できたりするの？
もしかして（って，そこまで杜撰じゃないか）
0124名無しさん＠お腹いっぱい。
02/01/11 16:43ID:???HTMLにID埋めて判別出来なる訳ないじゃん
0125121
02/01/11 17:01ID:???ｿｰｽ見てない作者でもない >115で書いたことくらいしかわがんねっす。
0126名無しさん＠お腹いっぱい。
02/01/11 17:06ID:???こときぼんぬ
0127121
02/01/11 17:18ID:???0128名無しさん＠お腹いっぱい。
02/01/11 21:22ID:???0129名無しさん＠お腹いっぱい。
02/01/12 02:26ID:Ex/FkKTs電卓を使いましょう。
0130名無しさん＠お腹いっぱい。
02/01/12 03:30ID:???$ENV{'TZ'} = 'JST-9';
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$day = ('日','月','火','水','木','金','土')[$wday];
$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d",$year+1900,$mon+1,$mday,$day,$hour,$min,$sec);
}
とあって、時間表示で秒を表示させたくないとか年を表示させたくないとか、
色々変えたいのですが初心者すぎてどうしたらいいのかわかりません。
時間表示をどういう風にカスタマイズしたらいいのか、
解説してあるサイトを教えていただけませんか？
他の所も勉強すべきなんでしょうけど、急いでいるので
とりあえず時間表示の部分だけどうしたらいいのか知りたいのです。
検索しようにも漠然としててどうしたらいいかわからないし、よろしくお願いします。
0131
02/01/12 03:52ID:H5EXwuVV;### 時分秒・年月日・曜日を取得するなら以下で充分
($sec,$min,$hour,$mday,$mon,$year,$wday)= (localtime)[$[ .. $[+6];
;### 年および月は次のようにする
$year+= 1900; $mon++;
;### 時・分・秒・月・日は、ゼロサプレス無しにするなら次のように
;### する。(sprintf関数がオーバーヘッドは大きくてらっしゃるから)
if ( $sec < 10 ){ $sec= '0' . $sec; }
0132130
02/01/12 04:39ID:???ありがとうございます…
一生懸命理解しようとしたのですがよくわかりませんでした。
どこにどうやって記述したらいいのかが…
年表示は2002年なら02にするか非表示にしたいんです。曜日表示も消したいんですが…
例えば（02/01/12/04:38）か（01/12/04:38）のようにしたい。
途中経過を無視して答えだけクレクレ厨してるようで心苦しいのですが
どう書けばいいのか丸ごと教えてくださればうれしいです。
本当にすみません。
0133名無しさん＠お腹いっぱい。
02/01/12 04:43ID:???＞どう書けばいいのか丸ごと教えてくださればうれしいです。
ここはPerlのコーディングで困ってる人のスレです。
0134名無しさん＠お腹いっぱい。
02/01/12 04:51ID:???http://pc.2ch.net/test/read.cgi/php/988808396/
0135張り直し
02/01/12 04:52ID:???http://pc.2ch.net/test/read.cgi/php/988808396/
「こういうふうにスクリプトを改造したいけどやりかたわかんないよー」
という人がいましたらここで聞いてください。
ひょっとしたらアドバイス出来るかもしれません。
0137
02/01/12 06:11ID:h7K0q4m9;### 年表示フラグ
$DISP= 1; # (0:年非表示, 1:年表示)
;### 年月日・時分の取得
$get_time= &get_time;
;### 年月日・時分取得用サブルーチン
sub get_time{
my( $min, $hur, $day, $mon, $year )= (localtime)[$[+1 .. $[+5];
$year+= 1900; $mon++;
if ( $min < 10 ){ $min= '0' . $min; }
if ( $hur < 10 ){ $hur= '0' . $hur; }
if ( $day < 10 ){ $day= '0' . $day; }
if ( $mon < 10 ){ $mon= '0' . $mon; }
$year= $DISP ? substr($year, -2, 2).'/' : '';
"$year$mon/$day/$hur:$min";
}
0138
02/01/12 06:29ID:gr/TbQbq補足しておきますが、字下げのために全角スペースを使用していますので、
コピペする場合は半角スペースに書き替えてください。
0139名無しさん＠お腹いっぱい。
02/01/12 07:12ID:???ご丁寧にありがとうございます…
スペースを半角にしてそのままコピペしましたが、
でもそれでやると、[]となって一つも表示されません…
素直に改造スレへ逝って来た方がよさそうです…
0140
02/01/12 07:30ID:8mAO1za5これをやっても表示されないとなると困ったことですね。
念のため次の実行でワーニングが出るかどうか試してみては？
perl -wc xxx.pl
0141名無しさん＠お腹いっぱい。
02/01/12 08:31ID:???sub get_time{
$ENV{'TZ'} = 'JST-9';
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$date = sprintf("%02d/%02d %02d:%02d",$mon+1,$mday,$hour,$min);
}
0142名無しさん＠お腹いっぱい。
02/01/12 10:04ID:???やっとわかりました！
希望通りにできました。
色々と変える変更も好きなようにできました。
脱線話題なのにつきあってくださって教えてくださって本当に感謝します、
ありがとうございました。
0143名無しさん＠お腹いっぱい。
02/01/12 22:55ID:WkPCmc4xそれと、CGI作る際に覚えといたほうがいい言語って何ですか？perlは駄目？？
0144名無しさん＠お腹いっぱい。
02/01/12 23:24ID:???とほほとか。
CGIはPerlでもいいけどPHPの方が簡単だと噂
0145ム板の住人
02/01/13 03:44ID:XUMgdFRPちゃんと削除依頼も出していたみたいやから、えらいね。
144がいう。とほほはここ。
http://tohoho.wakusei.ne.jp/wwwperl.htm
PHPもいいけど、RubyができるならeRubyでもいいかも。
言語として簡単と言うより、PHPやeRubyはCGIを作るのが簡単。
CGIはPerlが一番資料があると思うけど、
配布されているPerlのCGIのソース見るとわかるように、
ほとんど暗号だから。
保守性やOOで組みたいなら、PythonやRubyを使った方がいいかもね。
0146初心者
02/01/13 04:52ID:DlteyoA5CGIを使いたいのですが
自分で色々やってみたんですがどうしてもできませんでした
やったことはActive PerlとJperlをInstallして
落としてきた掲示板CGIにそのパスを書いたんですが
FTPからそのCGIの属性変更をしようとしても変更できず
HTTP 500内部サーバエラーが出てできませんでした
どなたか詳しく教えていただけませんか？
0147名無しさん＠お腹いっぱい。
02/01/13 04:54ID:H4tslrXdテキストファイルやMIDIファイルを主に扱いたいのですが
JPEGファイルだけでなくいろいろな形式のファイルを
アップロードできる掲示板のスクリプトで
デファクトスタンダードっぽい有名なものとかあるのでしょうか？
イメージ掲示板にはどこに行ってもこれと同じのを使っているなぁという
有名なのがあるみたいですが
0148名無しさん＠お腹いっぱい。
02/01/13 04:54ID:34eWZDO9ネタだろ？
0149名無しさん＠お腹いっぱい。
02/01/13 04:56ID:???http://www.google.co.jp/search?hl=ja&q=%83A%83b%83v%83%8D%81%5B%83_+cgi%81@%83t%83%8A%81%5B&lr=
これでもくらえ。
0150名無しさん＠お腹いっぱい。
02/01/13 05:07ID:H4tslrXdおれも「アップローダー」＆「CGI」＆「フリー」&「配布」で
検索して同じように膨大な結果になったんですけど
無難なとこで、みんなが使っている有名なやつにしたいなぁなんて
ダメっすか？(^^;
0151名無しさん＠お腹いっぱい。
02/01/13 05:39ID:???0152初心者
02/01/13 06:14ID:DlteyoA5ここでこんな事を聞くのはお門違いなのでしょうか
0153名無しさん＠お腹いっぱい。
02/01/13 06:17ID:9ZeVW+fZいちいち反応しないでじっくり待ってみなよ。
0154名無しさん＠お腹いっぱい。
02/01/13 06:53ID:???属性とは何か。パーミッションとは何か。
調べれば自ずと答えが見つかる気がする。
あとはhttpdのヘルプでも読んでくれ。
要するにPerlの問題じゃないって事。
0155名無しさん＠お腹いっぱい。
02/01/13 07:14ID:rQlmrkvV0156名無しさん＠お腹いっぱい。
02/01/13 07:34ID:Wnlhf2ri掲示板にトリップ機能を組み込みたいんですが、誰かわかりますか？
0157名無しさん＠お腹いっぱい。
02/01/13 07:49ID:???みちのくんとこにある２ちゃんコピーの掲示板についてる。
0158名無しさん＠お腹いっぱい。
02/01/13 11:31ID:0YPd0etQ#!/usr/bin/perl
print "Content-type:text/html\n\n";
require "a.cgi";
print $tmp;
require "b.cgi";
print $tmp;
require "a.cgi";
print $tmp;
exit;
a.cgiには $tmp="a";
b.cgiには $tmp="b";
と書いてあります。
と書くと、結果はabaとしたいのですが、abbとなるんです。
3回目のrequireが1回目と同じために3回目の処理を勝手にスキップ
してるのではないかと推測してみたんですがあってますでしょうか。
別の案として、
require "a.cgi";
$tmpa=$tmp;
require "b.cgi";
$tmpb=$tmp;
print "$tmpa$tmpb$tmpa";
と考えたんですが、a.cgi b.cgiは本来40個くらい変数格納していて、
全て変数に取っとくのもどうかと思い最初の案を考えたのですが。
日本語が不鮮明だな…。まとめてみると、
「2度目のrequireを有効にすることができるか、できるならその方法」
「別の案の場合、サーバーに掛かる負担ってのは憂慮するほどのものであるか」
の二点が疑問です。
どなたかご教授頂ければ幸いです。
0159名無しさん＠お腹いっぱい。
02/01/13 11:49ID:???それは、requireの仕様。
# てか、requireの使い方を激しく勘違いしているような、、、
とりあえず、perldoc -f requireしてみること！
158の知りたいことが全て解説されている。
0160158
02/01/13 11:53ID:0YPd0etQrequireの使い方は人のCGIを見て使い方を自分の中で勝手に認識したので…。
perldoc -f requireやってみます。
というかどこで(?)やればいいのかも解らないのでとりあえず調べてきます。
それでは。
> というかどこで(?)やればいいのかも解らないので
コマンドラインから
0162名無しさん＠お腹いっぱい。
02/01/13 13:35ID:2oX90M6u505で動きません。
アスキーモードで転送したし、
Perlのパスは指定のものに変更したし、
パーミッションも755にしているのに動きません。
何故かしらー？？
どころか、テストのために同じ状態でＵＰした、
Hello World!クラスのcgiも動かないのです。
鯖が悪いのか？FTPソフト（FFFTP）が悪いのか？
お分かりの方おりましたらお教えください。
0163名無しさん＠お腹いっぱい。
02/01/13 13:48ID:???使いまくると見づらい？
例えば、$ENV{'QUERY_STRING'}を参照すればいいものをPOSIX::getenv("QUERY_STRING")とやるということ。
0164名無しさん＠お腹いっぱい。
02/01/13 15:45ID:???Perlのエラーログ見ました？
0165名無しさん＠お腹いっぱい。
02/01/13 15:53ID:iK+xIF0shttpdのログだろ？
0166名無しさん＠お腹いっぱい。
02/01/13 15:57ID:???0167名無しさん＠お腹いっぱい。
02/01/13 16:06ID:???横から煽るな。
0168名無しさん＠お腹いっぱい。
02/01/13 16:14ID:???ＣＧＩだけど、なんか質問ある？Part 5
http://pc.2ch.net/test/read.cgi/php/1009331505/
0169156
02/01/13 19:36ID:ZxK7891Wもしよろしければ、もう少し詳しいことを教えてください。
0170名無しさん＠お腹いっぱい。
02/01/13 20:05ID:???http://www.google.co.jp/search?q=%82%DD%82%BF%82%CC%82%AD%81@%8Cf%8E%A6%94%C2%81@cgi&hl=ja&lr=
0171156
02/01/13 21:05ID:ZxK7891W申し訳ない。わざわざ有難うございます。
0172名無しウィルス ◆UETvirus
02/01/13 21:26ID:hUoFkGoFております。Q2接続プログラムの解析、関係団体へのメール等、ランキングクリックに
よる宣伝業者へのアクセス数減少と人手はまだまだ必要です。
WEBプログラム板の皆さんの技術を貸していただけないでしょうか。
下記のスレをご覧の上で、ご協力戴ければ幸いです。
「■ 悪徳宣伝業者の画像や動画をばらまくスレ２ ■」
http://wow.bbspink.com/test/read.cgi/ascii/1010876229/
0173名無しさん＠お腹いっぱい。
02/01/14 15:38ID:xszmZ/SM子プロセスがいくつ生成されているか、
親プロセスが知るにはどうすれば良いのでしょうか？
具体的にはHTTPのGETをしたりするスクリプトで
子プロセスの数を(例えば3個までとかに)制限したい
ということなんですけど。
0174perl初心者
02/01/14 19:00ID:n0YvEQb/HC Editorというフリーのテキストエディエターで
perlを書いているんですが、保存時の漢字コードをEUCにすると
なぜか保存して、再び読み出したときに中身が文字化けしてます・・・
OSはWINDOWSです、よろしくお願いします。
■ このスレッドは過去ログ倉庫に格納されています