Perl コーディング初心者質問コーナー Part27

**nobodyさん** · 03/08/14 06:06

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
【スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

過去ログやお勧めサイトは >>2-10

**nobodyさん** · 03/08/14 06:07

**nobodyさん** · 03/08/14 06:07

[過去ログ] 2 of 2

Part16 http://pc.2ch.net/php/kako/1032/10320/1032070299.html
part17 http://pc.2ch.net/php/kako/1034/10345/1034583844.html
part18 http://pc.2ch.net/php/kako/1037/10377/1037797479.html
part19 http://pc.2ch.net/php/kako/1042/10422/1042260745.html
part20 http://pc2.2ch.net/php/kako/1044/10447/1044717887.html (タイトルに19と誤記)
part21 http://pc2.2ch.net/php/kako/1047/10479/1047980851.html
part22 http://pc2.2ch.net/php/kako/1050/10503/1050369328.html
part23 http://pc2.2ch.net/test/read.cgi/php/1053051519/
part24 http://pc2.2ch.net/test/read.cgi/php/1054992610/
part25 http://pc2.2ch.net/test/read.cgi/php/1056730690/

[ひまぢん氏のミラー]
Part1　http://www.angelfire.com/ak5/2ch-web-program/kako/957208980.html
Part2　http://www.angelfire.com/ak5/2ch-web-program/kako/971817087.html
Part3　http://www.angelfire.com/ak5/2ch-web-program/kako/979894521.html
Part4　http://www.angelfire.com/ak5/2ch-web-program/kako/984430156.html
Part5　http://www.angelfire.com/ak5/2ch-web-program/kako/988728069.html

**nobodyさん** · 03/08/14 06:08

[総合]
　・Perl Com: http://www.perl.com/pub/Open
　・CPAN.com: http://search.cpan.org/Open
　・ActivePerl: http://www.activestate.com/Open
　・CGI-ML:http://forest.ne.jp/cgi-ml/Open

[お薦め]
　・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htmOpen　★読んどけ
　・Perl Recipes: http://www.effectiveperl.com/recipes/Open
　・Randal's WebTechniques columns: http://www.stonehenge.com/merlyn/WebTechniques/Open
　・Perlの部屋: http://www.cc.rim.or.jp/~midorin/mad-p/perl/index.htmlOpen
　・Perl初心者の部屋：http://www.harukaze.net/~mishima/perl/Open
　・Perlリファレンス：http://www.big.or.jp/~mio/ga/pl/plref/pl_ref.htmOpen
　・Perlのページ：http://homepage1.nifty.com/nomenclator/perl/

**nobodyさん** · 03/08/14 06:08

[Document&Tutorial]
　・Home - Japanized Perl Resources Project: http://perldocjp.sourceforge.jp/
　・Perl News: http://www.news.perl.org/Open
　・Perl Monks: http://www.perlmonks.org/
　・use Perl; : http://use.perl.org/
　・Learn Perl - Perl Education: http://www.devdaily.com/perl/edu/index.shtml
　・Perldoc.com: http://www.perldoc.com/
　・Using Perl5 in Web: http://docs.rinet.ru/Using_Perl5_in_Web/
　・Rex Swain's Home Page: http://www.rexswain.com/
　・Robert's Perl Tutorial: http://www.netcat.co.uk/rob/perl/win32perltut.html
　・Perl Tuts: http://savage.net.au/Perl-tutorials.htmlOpen
　・Beginning Perl Tutorials: http://www.pageresource.com/cgirec/index2.htm
　・jcode.pl の私的な解説書: http://www.mikeneko.ne.jp/~lab/kcode/jcode.html
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/Open
　・The Perl Archive : http://www.perlarchive.com/Open
　・Perl6 & Parrot VM についての情報: http://dev.perl.org/perl6/Open
　・use Object; : http://perl.infoware.ne.jp/Open

**nobodyさん** · 03/08/14 06:08

[Document&Tutorial]
　・Home - Japanized Perl Resources Project: http://perldocjp.sourceforge.jp/
　・Perl News: http://www.news.perl.org/Open
　・Perl Monks: http://www.perlmonks.org/Open
　・use Perl; : http://use.perl.org/
　・Learn Perl - Perl Education: http://www.devdaily.com/perl/edu/index.shtml
　・Perldoc.com: http://www.perldoc.com/
　・Using Perl5 in Web: http://docs.rinet.ru/Using_Perl5_in_Web/Open
　・Rex Swain's Home Page: http://www.rexswain.com/Open
　・Robert's Perl Tutorial: http://www.netcat.co.uk/rob/perl/win32perltut.htmlOpen
　・Perl Tuts: http://savage.net.au/Perl-tutorials.htmlOpen
　・Beginning Perl Tutorials: http://www.pageresource.com/cgirec/index2.htmOpen
　・jcode.pl の私的な解説書: http://www.mikeneko.ne.jp/~lab/kcode/jcode.htmlOpen
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/Open
　・The Perl Archive : http://www.perlarchive.com/Open
　・Perl6 & Parrot VM についての情報: http://dev.perl.org/perl6/Open
　・use Object; : http://perl.infoware.ne.jp/Open

**nobodyさん** · 03/08/14 06:09

[Module]
　・Perl Module Reference: http://www.bekknet.ad.jp/~bero/docj/module_/ (404)
　・PPMPackages: http://www.activestate.com/PPMPackages/
　・河馬屋二千年堂's Page: http://member.nifty.ne.jp/hippo2000/index.htm

[Security]
　・安全なプログラミングのためのガイドライン：http://www.FreeBSD.org/ja/security/#spg
　・Perl security：http://www.perldoc.com/perl5.6/pod/perlsec.htmlOpen
　・Perl security和訳：http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsec.htmlOpen
　・CGI and Security http://www.ansi.co.jp/tech/cgi/security/Open
　・The Unofficial Web Hack FAQ：http://www.nmrc.org/faqs/www/
　・How to Write Secure Code：http://www.shmoo.com/securecode/
　・Safe CGI Programming ：http://www.improving.org/paulp/cgi-security/safe-cgi.txtOpen

[OS]
　・Linux日本語マニュアル：http://www.linux.or.jp/JM/Open
　・FreeBSD日本語マニュアル：http://www.jp.freebsd.org/man-jp/Open

**nobodyさん** · 03/08/14 06:11

前スレ

http://pc2.2ch.net/test/read.cgi/php/1059043704/l50

立てといたが、藻前ら、荒すんじゃねｰぞ

**nobodyさん** · 03/08/14 08:23

つーか、荒してるのひとりだけだし、こまめに削除依頼出せばいい

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/14 10:47

http://pc2.2ch.net/test/read.cgi/php/1012750353/243
>%aa=("hanako","12","tarou","20","ichirou","5");
>となっているとします。
>キーが名前で値が年齢なんですが、
>年齢でソートし表示させる場合、
>ichirou 5
>hanako 12
>tarou 20
>とするにはどうすればいいのですか？

http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlfaq4.html#How_do_I_sort_a_hash_optionally
クックブックレシピ5.9

演算子を間違わないよう注意。

**nobodyさん** · 03/08/14 11:02

あっと、演算子でしたか…。

演算子は数値なので、<=>を使用。

**nobodyさん** · 03/08/14 11:03

PHPのrawurlencode関数（RFC1738に基づきURLエンコードを行う）
http://php.planetmirror.com/manual/ja/printwn/function.rawurlencode.php
と同じことを、perlでやりたいのですが、
どのようにくめばよいのでしょうか？

**nobodyさん** · 03/08/14 11:13

s/([^0-9A-Za-z_ ])/'%'.unpack('H2',$1)/ge;
s/\s/+/g;

**nobodyさん** · 03/08/14 11:27

s/\s/+/g
は、
s/ /+/gでは無いので注意しましょう。この場合は問題は起きないけど。

**nobodyさん** · 03/08/14 11:29

今、深沢千尋氏の書いた『すぐ分かるPerl』を元に勉強しているのですが、
その中の、第五章『プログラムにデータを渡す　～引数～』という章で、

#! /usr/local/bin/perl

print "$ARGV[0]\n";
print "$ARGV[1]\n";
print "$ARGV[2]\n";
print "$ARGV[3]\n";
print "$ARGV[4]\n";

に"love"という引数を与えてみましょう。

と書いてあるのですが、どうやれば引数を与えられるのでしょうか。
OSはWindowsXP、エディタはTeraPadを使っています。
よろしくお願いします。<(_ _)>

**nobodyさん** · 03/08/14 12:05

>>16
@ARGV　は実行ファイルに対する引数。
ファイル名を aya.plとした場合、

aya.pl love

で動くでそ

13 · 03/08/14 12:09

>>14
ありがとうございます。
ところで、>>14 を見て逆に、
googleで「エンコード perl unpack」で検索していくつかのページを見たんですが、
s/ /+/g; とやってるところしか見あたりませんでした。

>>15の意図はどんなところにあるのでしょうか？

**nobodyさん** · 03/08/14 12:20

[0-9A-Za-z_ ] 以外は変換済みなので\sに該当するものは
空白しかないけど、本来の目的ではTAB等も+に変えたかった
ってことじゃねーの？あまり深い意味は無い

16 · 03/08/14 12:43

>>17
レスありがとうございます。
早速ファイル名を aya.cgi love にしてFFFTPを使ってトクトクに送り、

あなたのアクセスしたファイルは、
アクセスする権限が与えられていないか、
もしくはindex.html 又は index.htmが存在しません。

と表示されました。
お手数ですが、他に方法は無いでしょうか。よろしくお願いします。

補足
＊拡張子 .pl だとこのＣＧＩのダウンロードが始まり、駄目っぽいので、元通り拡張子.cgiで試してみました。

＊#! /usr/local/bin/perl と書きましたが、これは本の中にこう書いてあるだけで、実際には　#!/usr/bin/perl
　であり、Tok2.comに送ってやっとります。　説明不足スイマセン。

**nobodyさん** · 03/08/14 12:45

面倒くさいからこれでいいだろ
s/(\W)/'%' . unpack('H2', $1)/eg;

半角スペースは当然 %20 に変換される

**nobodyさん** · 03/08/14 12:59

>>20
共有サーバでそんなテストなんかするな！
自分のPCにperlとhttpd入れてやれ

それにやってること丸っきり的外れ

**nobodyさん** · 03/08/14 13:11

>>20
「すぐわかるPerl」なら
1.1Perlは入っているか？
をじっくり読んでみてください。

**nobodyさん** · 03/08/14 14:32

>>19
URLエンコードは本来不可逆だってこと？

>>20
トクトクから損害賠償請求が来ますよ？

**nobodyさん** · 03/08/14 15:13

>>20

つまり、おまえみたいな馬鹿は二度と来るなってこと。
すげー迷惑。人のことも考えろ、ハゲ！！

**nobodyさん** · 03/08/14 15:14

#!/usr/bin/perl

# CGIヘッダの出力
print "Content-type: text/html\n\n";

while($HP1 > 0) and ($HP2 > 0){
srand1;
srand2;
}

# Player1
$HP1 = 400 - $kougeki1;
$KIK1 = 60;
$PAN1 = 20;
$DF1 = 10;

# Player2
$HP2 = 300 - $kougeki2;
$KIK2 = 100;
$PAN2 = 40;
$DF2 = 0;

# Player1
$kougeki1 = srand;

# Player2
$kougeki2 = srand2;

**nobodyさん** · 03/08/14 15:14

srand;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN1'} - $defense->{'$DF2'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK1'} - $defense->{'$DF2'};
}

**nobodyさん** · 03/08/14 15:14

srand2;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN2'} - $defense->{'$DF1'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK2'} - $defense->{'$DF1'};
}

($damage < 0) and ($damage = 0);
$defense->{'HP1'} -= $damage;

($damage < 0) and ($damage = 0);
$defense->{'HP2'} -= $damage;

**nobodyさん** · 03/08/14 15:15

# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
<p>Player1：体力は$HP1です</p>
<p>Player2：体力は$HP2です</p>
<p>Player1は<big>$kougeki1</big>のダメージを与えた。</p>
<p>Player1は<big>$kougeki1</big>のダメージを受けて混乱した。
<p>Player1は<big>$kougeki1</big>のダメージで友達のトイレではみ出したクソをし始めた。
<p>Player2は<big>>$kougeki2</big>のダメージを与えた。</p>
<p>Player2は<big>>$kougeki2</big>のダメージを受けて裸踊りを始めた。
<p>Player2は<big>>$kougeki2</big>のダメージで友達の女にレイプし始めた。</p></p></body>\n";
print "</html>";

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/14 19:26

socket (SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
このように、socketで作ったSOCKハンドルのポインタ操作はでき
ないのでしょうか。
どこで操作しても、ポインタは「-1」となっております。

理解不足で申し訳ありませんが、宜しくお願いいたします。

**nobodyさん** · 03/08/14 20:03

>>32
ポインタ操作って何？

>2：それでこんな風にやってみたが･･･

ここを具体的に。

**nobodyさん** · 03/08/14 23:19

>>20
やってることは10章の内容です
もう少し本を読み進めてから取りかかってはどうでしょうか

**nobodyさん** · 03/08/14 23:19

>>32

操作をすることはできません。
Perlをやってる奴はおまえさんみたいなオタクが多い。
オタクはきもいから、気づかないんでしょうね。

**nobodyさん** · 03/08/15 00:16

>>20
perl = cgi ではない。
お前さんがまずしなければならんのは、自分のパソコンにperlをインストールして
コマンドラインさっきのコマンドが実行するかを確認することやね。

この文章読んでわからんようであれば、あらしと取られかねんからそのつもりで。

#あと、perlをどうやってインストールしたらいいですかなんてことは聞くなよ(w

**nobodyさん** · 03/08/15 01:51

**nobodyさん** · 03/08/15 02:22

Perlの
s./// と tr///
の違いがいまいちわからないのですが、どういう違いがあるのでしょうか・・・

**nobodyさん** · 03/08/15 02:25

sub get_select_form{
my ($name, $selected) = @_;
my ($key, $form);

$form .= '<select name="' . $name . '">' . "\n";
foreach $key (sort keys %{$name}) {
if($key eq $selected){
$form .= '<OPTION value="' . $key . '" selected>' . ${$name}{$key} . '</OPTION>' . "\n";
}
else{
$form .= '<OPTION value="' . $key . '">' . ${$name}{$key} . '</OPTION>' . "\n";
}
}
$form .= '</select>' . "\n";

return $form;
}

このようなselectボックスを生成するサブルーチンを作ったのですが、
sort keys %{$name}
のところで「～HASH ref while "strict refs"～」と怒られてしまいます。

no strict;は使いたくないので、何かよい解決策があれば教えてください。
すみませんが宜しくお願いいたします。

**nobodyさん** · 03/08/15 06:11

>>38
たとえば $_='ABCDECBA' あたりで
s/ABC/123/
と
tr/ABC/123/
を試してみれば分かります。

**nobodyさん** · 03/08/15 09:33

えーと、前にも一応お世話になった者で基本的な質問で悪いんですが、
配列に格納されているすべての文字列の先頭にある文字列を連結させたいんですが
下記のコードではうまくいきませんでした。
実際は頭に付ける文字列を変えて何回もこの処理を繰り返すのですが、
（サブルーチンにして、↓の例の$push_wordは引数として受け取る）
二回目からは、前回頭に付けた文字列と$push_wordを頭につけてしまいます。
簡単な応用技術ですがご教授願えたら幸いです。

【理想】
@bar = ("gg","dge","mpire","ncode","nglish")
を
@bar = ("Egg","Edge","Empire","Encode","English")
とするような処理（配列名barに意味はなし）

【こうしてみた】
（@barを定義した後、）
my $push_word = "E";
foreach (@bar){
　　　my $a = $push_word;
　　　$a .= $_;
　　　$_ = $a;
　　　　　　　　　　}
print "@bar";

**nobodyさん** · 03/08/15 10:09

2chみたいに、一度ポートチェックをする掲示板を作りたいのですが
if (connect (SOCK,sockaddr_in($target_port, $addr))) {

®ist;

}else{

&error();

}

みたいにしたのですが、テスト運用してみると
途中でｽｸﾘﾌﾟﾄごと落ちることがあり悩んでいます。
どのようにしたら、安全な処理ができますでしょうか?

**nobodyさん** · 03/08/15 10:10

®ist;
エスケープしてませんでした。
&regist; と書いたつもりです。

**nobodyさん** · 03/08/15 10:10

あれ？ &regist;です

**nobodyさん** · 03/08/15 10:20

>>41
my @bar = ("gg","dge","mpire","ncode","nglish");
my $push_word = "E";

print map $push_word.$_, @bar;

漏れも勉強中なので自信ありませんが
こんな感じでどうでしょうか？
結果はEggEdgeEmpireEncodeEnglish

**nobodyさん** · 03/08/15 11:32

>>39
引数がちょっと無茶じゃない？普通に考えて、
・selectの名前
・selectedにしたいもの
の他に、

・option要素のハッシュ
が必要でしょ。

例えば
<select name="chara">
<OPTION value="giko" selected>ギコ</OPTION>
<OPTION value="mona">モナー</OPTION>
</select>
を作るとして、その関数だと get_select_form("chara", "giko")を
呼ぶときに、グローバルの %chara にOPTIONの要素を入れておく
ってことになるけど、それって変じゃない？

引数リストを $name, $selected, $ref_values （順不同）みたいにすれば
いいと思うよ。

**nobodyさん** · 03/08/15 11:57

>>45
すばやい回答ｔｈｘ。
print map　～ってのってどういう意味？map関数ってとほほに載ってないんだけど…

あと、注文多くて悪いんだけど、Ｅを追加した後の@barが欲しいんだ。例で書いた最後の@barはおまけみたいなもん。ごめんな

**nobodyさん** · 03/08/15 12:18

>>47
@bar map{ 'E' . $_ } @bar;

mapはぐぐって調べるぐらいはするこった・・・

**nobodyさん** · 03/08/15 12:53

>>39
ソフト(シンボリック)リファレンスをやめて、リファレンスを使う。

>>41
foreach使うなら

foreach(@bar){
$_ = $push_word. $_;
}

mapは、リストを受けて、処理を行って、リストで返すパイプみたいなもの。
perldoc -f map

# >>48 '=' 抜けたね。

>>42
エラーかシグナルか、落ちる原因をはっきりさせてから対策を立てる。

**nobodyさん** · 03/08/15 13:19

>>49
おうっ、盲点でした。
今は見えてる点のほうが圧倒的にすくないけどなｗ

**nobodyさん** · 03/08/15 16:53

>>42
bbs.cgi 再開発ﾌﾟﾛｼﾞｪｸﾄ
http://qb.2ch.net/test/read.cgi/operate/1053067870/508 ぐらいから参照（ｗ

**nobodyさん** · 03/08/15 19:07

>>45

３行目に
open (IO,"+<$logfile");
７行目に
while (<IO>){
　if ($_ =~ /<>$ip/){
　　@y2=split(/<>/,$_);
　　if ($y2[6] ne $ip){
　　　push(@log,$_);
　　}else{
　　　$y2[0] = 'All Clear (^-^)v';　　#消去後の名前
　　　$y2[5] = 'All Clear (^-^)v';　　#消去後のメッセージ
　　　push(@log,"$y2[0]<>$y2[1]<>$y2[2]<>$y2[3]<>$y2[4]<>$y2[5]<>$y2[6]<>$y2[7]<>\n");
　　}
　}else{
　　push(@log,$_);
　}
}
１１行目に
truncate(IO,0);
seek(IO,0,0);
print IO @log;
close (IO);
&reload2;
}
を入れると直ります。

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/15 21:25

perlスクリプトを書いたのでそれをDLLファイルにしたいのですが。
あと、できればサブルーチンがそのままDLLの関数になるようにしたいのですが。
どういう風にすればよいのでしょうか。
環境はWinMEでActivePerlです。

**nobodyさん** · 03/08/15 21:49

>>61
できるの？初耳

**山崎渉** · 03/08/15 22:25

　　　 (⌒V⌒)
　　　│ ＾＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

**nobodyさん** · 03/08/15 23:28

>>49
そうですね。落ちる原因を考えて出直してきます(ｺﾅｸﾃｲｲｶ

**nobodyさん** · 03/08/16 04:33

お早うございます。
初めてこのスレ来ました
レベル低すぎ

じゃあサヨウナラ

**nobodyさん** · 03/08/16 04:40

my %hash = (
5 => 5,
10 => 10,
15 => 15,
30 => 30,
50 => 50
);

このようなデータを

foreach my $key (sort keys %hash) {
print $key;
}

このようにsortすると、

10
15
30
5
50

となりますよね。

この5が一番上にいくような効率のいい方法はないもの
でしょうか。

**nobodyさん** · 03/08/16 04:42

>>66
sort {$a<=>$b} keys %hash

KY · 03/08/16 04:59

>>66
sort {$a <=> $b}

**nobodyさん** · 03/08/16 05:02

>>66
sort {$a<=$b>=$KIK} keys %doragonash

の方がうまくいきますね。それよりもあなたの知性の低さは迷惑です。
早く首吊って死んでくれることを祈ってます。

**nobodyさん** · 03/08/16 05:03

>>67-68
こんな遅い時間に二人も答えてくれるなんて、ホントここは
いい人がいますね。

本当にどうもありがとう。

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/16 05:04

>>69
ごめんなさい。
だけど、親切に答えてくれて、本当にどうもありがとう。
感謝してます。

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/16 05:07

こんなかんたんな問題に答えラれなれないなんて、なんてクズなところでしょう。
本当、ここはくさった人間しかいませんね。とっとと死んでください！！

**nobodyさん** · 03/08/16 05:08

削除依頼を出しまくっているやつは荒らしか?
かちゅ使用者には迷惑だって言っているだろうが。

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/16 05:18

>>46,49
返事が遅れてしまい、すみません。
ハッシュのリファレンスを使うことにより、無事解決
いたしました。
本当に有難うございました。

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/16 07:26

>>77
削除依頼よりかコピペ荒らしで挙げれば規制対象になるのにねぇ。。。

**nobodyさん** · 03/08/16 08:41

SQL文のデバッグなどで、printとは別にどこかへ変数の内容などを出力する場合、
どのような方法が考えられるでしょう？

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/16 10:24

>>62
お答え、ありがとうございます。
できるとは最初から思ってはいませんでしたが。
C言語とかでDLL書くのめんどくさいのでperlでかけたらなぁって。
とりあえずまずはperlcc使えるように環境を整えようかと思っております。
なぜか僕の環境、Cプログラムは吐き出すんですがコンパイルしてくれなくて。
しかもそのプログラムをコンパイルしてみるがエラー続出。
どうなんだ、LarryWallよｗ
仕方がなく自分でエラー部分を書き直してるのですが。
なんとかまともなCプログラム、吐き出させられないですかね。
ちなみに環境はWinMeでActivePerl、CコンパイラはDev-C++(GCC系)とBCCです。
解決方法がありましたら、教えてください。

**nobodyさん** · 03/08/16 10:32

VC++を使う。

**nobodyさん** · 03/08/16 11:17

>>83そう思うなら、おまえがコピペ荒らしとして規制依頼しろよ。できねーくせにガタガタぬかすな

**nobodyさん** · 03/08/16 11:18

ＫＥＮＴのネットクルーザーで
検索部分を改良したい。
英語の半角、全角をともに検索するには
どうしたらいいのでしょうか？

**nobodyさん** · 03/08/16 11:22

>>89
【スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

**助けてください** · 03/08/16 12:07

1：自分はこう言う事がしたい。
http://server/program.cgi/hogeというのを、http://server/hogeで見れるようにしたい
2：それでこんな風にやってみたが･･･
.htaccessに「ErrorDocument 404 /program.cgi」と追加。
3：こんなエラーが出て上手く行かなかった。
エラーは出ないけど、404エラーなので、エラーログがたまっていく・・・

どなたか助けてくださいm(__)m

91 · 03/08/16 12:08

ErrorDocument 404 /nph-test.cgi
だと、ヘッダに404となってしまうので、
ファイル名をnph-program.cgiにして、「print 'HTTP/1.0 200 OK'."\r\n";」とヘッダに追加。
でも、エラーログが（ｒｙ

**nobodyさん** · 03/08/16 12:23

>>91
DirectoryIndex
スレ違いなので後は自分で調べな。

**nobodyさん** · 03/08/16 12:32

>> 93
DirectoryIndex DirectoryIndex nph-program.cgi
と記載してあります。
やっぱプログラム側の問題じゃないからここじゃ駄目ですね。。。

**nobodyさん** · 03/08/16 12:37

ｺﾋﾟﾍﾟ荒らしにﾏｼﾞﾚｽ。
残り少ない夏休みを2chでｺﾋﾟﾍﾟ荒らしするだけに費やす気みたいだけど、
入門本くらい一通り読んで初心者ﾚﾍﾞﾙに到達してから来てね。

**nobodyさん** · 03/08/16 12:44

>>86
perlをＣにﾄﾗﾝｽは完全に出来ませんし
できたとしても使い物にはなりません（実行ファイルは馬鹿でかい）
あきらめたほうがいい
XSをつかうかswigをつかうか
perlのソースコードを書き換えるかしてください

Win32系のモジュールで直接DLL関数に引数はわたせます

**nobodyさん** · 03/08/16 12:52

>>84
コメント扱いで出力。htmlなら内に埋め込む。batならremの後ろに書く。
自分でファイルをオープンして書き込み保存。
syslogに飛ばす。
変数デーモンを作成して、そこへの接続を全て記録。

>>91
そう言う用途にはapacheのモジュールのmod_writeを使うと便利。
が、確実にスレ違いなのでそれ以上言わない。

**nobodyさん** · 03/08/16 12:54

mod_writeじゃねーよ＞ｵﾚ
mod_rewriteね。

91 · 03/08/16 13:05

googleでmod_rewriteで探してきます。
Apacheの板orスレってあったっけ？（－－

**nobodyさん** · 03/08/16 13:11

>>99
この板にも自宅サーバ板にもUNIX板にも

91 · 03/08/16 13:49

>> 100
おお。..._〆(ﾟ▽ﾟ*)メモメモ
ありがとうございました
それではいってきます（ｗ

91 · 03/08/16 15:16

/htdocs/.htaccess: Invalid command 'RewriteEngine', perhaps mis-spelled or defined by a module not included in the server configuration
こんなエラーから進めない（；；

91 · 03/08/16 15:39

>>99
mod_rewriteが入っていない可能性が出てきたので他の方法ってありませんか？

**nobodyさん** · 03/08/16 15:54

>>103
すれ違い

84 · 03/08/16 15:54

>>97
>コメント扱いで出力。htmlなら内に埋め込む。batならremの後ろに書く。

……コロンブスの卵(^^;　そーか、SQL実行しないでこーすればいいのか（汗）
アドバイスありがとうございました。

あと、「syslogに飛ばす」っつーのは、具体的にどうすればいいのでしょうか？
厨で申し訳ありませんが、ヒントなど頂ければ幸いです。よろしくお願いします。

**nobodyさん** · 03/08/16 16:25

>>105
qx{/usr/bin/logger -s "Virus warning: uploader:[$host]:Detected $1 and deleted."};
みたいな。

**nobodyさん** · 03/08/16 17:11

>>105-106
標準モジュールに Sys::Syslog というものが…。

**nobodyさん** · 03/08/16 17:40

>>95

もう、動かないからあきらめた

**nobodyさん** · 03/08/16 17:41

このスクリプト、どうもみても初心者のじゃねーよ

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/16 18:09

質問スレが珍しく荒れてるな～と思ったら、全部　メール欄???　の仕業かい！ｗ

**nobodyさん** · 03/08/16 18:41

お。なるほど。メール欄であぼーんすればよかったのか

84 · 03/08/16 18:57

……syslog.phってどーやってつくればいいのでせう？＜厨なアタシ(T_T)

それはさておき、「Can't locate Date/Manip.pm in @INC～」なんてエラーが出てきました。
CPANで「Install1 Date」はしたのですが、他になにかしなければならないことがあるのでしょうか？
重ね重ねで申し訳ありませんが、よろしくお願いします。

**nobodyさん** · 03/08/16 21:02

>>117
一々作らんでも @INC に入ってない? UNIX系OS以外は知らんけど。
作るなら h2ph で。

見つからんって言われてるんだから、入れればいいじゃん。:-)
http://search.cpan.org/author/SBECK/DateManip-5.42a/

**nobodyさん** · 03/08/16 21:19

十進数の数字があり、それを出力する時16進数にしたいのですが、
どのように変換すれば良いのでしょうか？

すみません、かなり初歩的な質問ですがお願いします。

**nobodyさん** · 03/08/16 21:20

sprintf

**nobodyさん** · 03/08/16 21:33

%x

84 · 03/08/16 22:43

>>118
Date::Manipは入りました。……単純に「install Date::Manip」でOKなんですね。
厨でごめんなさい(T_T)

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/17 01:00

>>119
printf("%x", $a);
とか
$s = hex($a)
とか

**119** · 03/08/17 01:30

返信遅れてすみません。

アホな質問に答えてもらって、とってもありがとうございました。
m(__)m

**nobodyさん** · 03/08/17 01:59

ディレクトリ作成するときって
mkdir("mydir",0700);
のようにパーミッション指定できるが、
open(fp,">output.txt");
ってやって書き込むとパーミッションが自動的に644になります。
これを600にするにはどうしたらいいでしょう？？？

っつってもあとでchmodすればすむことなんだが、
open時に600にするようにできればしたい、

**nobodyさん** · 03/08/17 02:13

>>126 umask

**nobodyさん** · 03/08/17 02:29

>>126

いったんファイルを削除します。それからディレクトリで呼び出すを選ぶと
復元できるので、その設定でパーミッションを設定すると固定できます。

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/17 02:38

>>126
IO::Fileモジュール使うとパーミッションを指定しながらオープンできます。
(sysopen互換のO_XXX指定を使うとファイルロックしながらオープンできたり便利。)

**126** · 03/08/17 02:42

大変参考になったぞ。
おめーらに感謝。

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/17 05:55

POP3サーバと接続してメールを閲覧するプログラムを
書きたいのですが、これをsocketモジュールを使わない
で行うことは可能でしょうか。

初心者ですみませんが教えてください。

**nobodyさん** · 03/08/17 06:21

>>139

Net::POP3

**nobodyさん** · 03/08/17 06:22

化膿。

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/17 13:11

X.cgiの中の、一部の数字を取り出したいのですが。
X.cgiの中身はこんなです

1,データＡ,データＢ,データＣ,
2,データＡ,データＢ,データＣ,
3,データＡ,データＢ,データＣ,

この中の、最後のデータの数字「3」を変数に入れたいのです。

open(IN,"X.cgi") ;
while (<IN>) {
$num = split(/,/);
}
close(IN);
print $num;

これ全然違いますが、$numに「3」が入ってくるようにしたいんです。
よろしくおねがいします。

**nobodyさん** · 03/08/17 13:23

>>149
splitの使い方がまちがっとる
$num = split(/,/); のすぐ下に print $num; を入れてみ。
その後で、splitの説明を読むとグー

**nobodyさん** · 03/08/17 14:12

>>149
$num = split(/,/); の２つ下に print $num; を入れる。
それからwhile (<IN>) {　をwhile($IN1 > 0)｛
に変える。
その後で、スクリプトを３の入るようにすればＯＫ。
上はどっかの馬鹿だから無視しろ。

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/17 14:16

>>126
おまえの脳みその程度もよくわかりました。
もう、二度と来ないでくださいね。すっごいむかつく！！
くだらん質問する暇あったら自分で調べろ！死ね！！

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/17 14:37

>>151 は例の荒しているヴァカだろ？

**nobodyさん** · 03/08/17 15:07

>>160
そうみたいだな

**nobodyさん** · 03/08/17 15:22

レス削除で削除人からコピペで依頼してくれってあったから、
運用情報のほうへ回そう
荒らしとしてアク禁しますっていうことなんじゃないか？

**nobodyさん** · 03/08/17 15:43

>>160
なんでアレは削除依頼に入れてくれないんだろう。

**nobodyさん** · 03/08/17 17:34

#! /usr/local/bin/perl

while(<STDIN>) {
　　　　print;
}

のようなフィルター（そのまま出力するだけですが（；´Д｀））を作った後、
DOSの場合、どうやって実行するんですか？

すごい初歩的な質問でスイマセン

**nobodyさん** · 03/08/17 17:36

Perlでﾊﾞｲﾅﾘﾌｧｲﾙに保存したいんだけど、なにかあります？

**nobodyさん** · 03/08/17 18:11

>>164
perlにパスが通っており、
それがtest.plというファイルなら、
test.plのあるフォルダにcdコマンドで移動し、
perl test.pl
と打ってEnterを押す。

とか、普通に答えてみる。

コーディングの質問じゃねー。

**nobodyさん** · 03/08/17 18:16

>>165
binmode( FILE );
print FILE $buff;

**nobodyさん** · 03/08/17 18:23

>>166
出来ました。ありがとうございます。
というかスレ違いでしたか、スイマセン。今から気をつけます。

**nobodyさん** · 03/08/17 18:24

>>165
>Perlでﾊﾞｲﾅﾘﾌｧｲﾙに保存したいんだけど、なにか(いいバイナリファイル)あります？
画像ファイルがバイナリファイルだろうね。

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/08/17 18:44

アクセス解析のCGI作ったんですけど、
フレームを使っている性で全部リファラがindexになってしまいます。
使っている鯖はSSIは使えませんし、.htaccessも使えません。

どうすればリファラが取れるんですか？教えてください。御願いします。

すれ違いだったらすいません。

**nobodyさん** · 03/08/17 18:53

>171
CGIスレ向き。

**あぼーん** · NG

あぼーん

**139** · 03/08/17 19:29

>>140
説明不足ですみません。
要はモジュールを使わずにpop接続を行いたいのです。

**あぼーん** · NG

あぼーん

**149** · 03/08/17 19:40

>>151
ありがとうございました。
ちょっとうまくいかないんですが（ＴＴ）
なんか根本的に判ってないかもしれないので出直します。
splitの勉強を・・・

**nobodyさん** · 03/08/17 19:41

>>174
一旦モジュールを使って望みの動作をするスクリプトを組み、
コードを全てインライン展開する。

**nobodyさん** · 03/08/17 19:57

>>176
>>151は荒氏だから参考しるな！
病気がうつるぞ～。
splitの勉強汁～。

**nobodyさん** · 03/08/17 20:35

荒ｸﾝを解析してみたよ。
・17歳童貞
・高校生だが、成績が追いつかず、学校でも苛められて現在引き篭もり中。近々退学予定。
・自己管理が出来ず、体系は肥満気味。お風呂に入らないので臭い。
・家族構成は共働き両親２人とペットのハムスター20匹（名前付き）
・起きている間は、ほぼインターネットを利用している。
・最近KENT-WEBからASKAを借りてきて、初めてPerlを知った。
・日ごろから、書き込む度に叩かれている某掲示板には恨みを抱いているようだ。
・もう2ヶ月ほど家族意外と顔を合わせた事は無い。

**nobodyさん** · 03/08/17 20:42

>>174ソケット使ってやるしかないですナァ…。

**nobodyさん** · 03/08/17 20:53

>>174
http://x68000.startshop.co.jp/~68user/net/
ここのサンプルはSocketモジュールを使ってるけど、
「サンプルがperl5専用なワケ」を読めば、すぐperl4対応
（->モジュール不使用）にできるはず。

しかし、なんでモジュールを使わずに？

**nobodyさん** · 03/08/17 20:58

>>179
まぁまぁ、そう自己紹介しなさんな。

**nobodyさん** · 03/08/17 21:17

>>128
ネタはマジレスの前にしましょう。

**nobodyさん** · 03/08/17 23:06

#!/usr/local/bin/perl
require './cgi-lib.pl';

%form = &read_input('euc');
$name = $form{'name'};

print "Content-type: text/html\n\n";
print "<html><head><title>結果</title></head><body>\n";
print "<p>名前：$name</p>\n";
print "</body></html>\n";

↑のようなスクリプト作ってANHTTPDを起動し、
実行しようとしても「サーバーがみつかりません」が表示されます。
何がいけないんでしょうか？

**nobodyさん** · 03/08/17 23:06

IO::File の使い方教えてください
日本語で解説してある際とがぜんぜんないもんで。

use IO::File;
my $fh = new IO::File('log.dat','r');　#読み込み
my $fh = new IO::File('log.dat','w');　#書き込み
my $fh = new IO::File('log.dat','r+w');　#両方

などでオープンできるとこまではわかったんだが、
このファイルから全部読み込む場合にはどうしたらいい？

my @array = $fh->read;　　　←　こんな感じでよいのかい？

あと、書き込むときは

$fh->print('文字列');

で、可能みたいなんだが、英語が四面からわからん。

**nobodyさん** · 03/08/17 23:18

>>184
perlコーディングとは「全く」関係無いですね。そのエラーから「推測」すると、
あなたのクライアントからサーバーが見れていないようです

**nobodyさん** · 03/08/17 23:20

> で、可能みたいなんだが、英語が四面からわからん。

こんな事言う様じゃ解答する気になれないな。
これを機会に読めるように辞書片手に必死こいて読んで見たら？

解答者の中にはそうやってスキルとか知識身につけてる人もいるんだから

**nobodyさん** · 03/08/17 23:32

>>184
httpdの設定を確認汁。

**nobodyさん** · 03/08/17 23:51

>>186,>>188
回答ありがとうございます。
でもANHTTPDは「CGIを実行する」にチェックが入ってます・・・

**139** · 03/08/18 00:10

>>181
仕事でパッケージ化するかもしれないといわれたので、
完全オリジナルでなかったら何かと問題が出るかと思い、
質問させていただきました。
もともとは趣味で作ってたものなので。

標準モジュールは使っても問題ないのでしょうかねぇ、、、

**nobodyさん** · 03/08/18 00:34

>>189
どっちにしてもさっきのソースとは関係なし
ANHTTPDがちゃんと動くことを確認してから質問せよ

**nobodyさん** · 03/08/18 00:47

>>189
そもそもCGI以外はどうなのか。閲覧可能なのか。

**nobodyさん** · 03/08/18 01:29

>>189
板違いだ！ヴォケ！！二度と質問するな！クソ坊主！！

**nobodyさん** · 03/08/18 01:32

>>139
できねーっていってんだろ！馬鹿！！
おまえみたいなよく読まない奴は、うざいからさ。とっととどっか行ってくれない？
まじに迷惑なの、わかんない？？

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん