【Perl 】初心者コーナーPart8
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。
01/10/24 14:11ID:???1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ、良い回答は良い質問から。
一緒に勉強しましょう。
参考書籍はこちら【【Perl,CGI】参考書籍 第２版 】
http://ebi.2ch.net/test/read.cgi/php/988809842/l50
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part４】
http://ebi.2ch.net/test/read.cgi/php/1000804655/l50
過去ログ、その他の役立ち情報は>>2-10を見よう。
0607名無しさん＠お腹いっぱい。
01/12/06 23:42ID:???htmlでmethodはpostです。
それで渡す値を色々試したいのでurlに?hoge=引数の形で
試すのですがうまく渡りません。
単にurlに引数を渡す場合でもhtmlのmethodをgetに変えなきゃいけないんでしょうか。
0608名無しさん＠お腹いっぱい。
01/12/06 23:50ID:???0609名無しさん＠お腹いっぱい。
01/12/07 01:34ID:???"\0"をセパレートとしてるけど、これって値事態に
"\0"があったら意味ないよね？
それとも\0ってなにか特殊なの？
0610609
01/12/07 01:37ID:???0611名無しさん＠お腹いっぱい。
01/12/07 01:42ID:We0Nr7brｐｅｒｌで処理をすべて１ファイルで記述して
１００ＫＢくらいになったＣＧＩは
やっぱり重いですか。
分割したほうがいいですか？
0612名無しさん＠お腹いっぱい。
01/12/07 02:09ID:???分割したって同じじゃない？
0613名無しさん＠お腹いっぱい。
01/12/07 02:13ID:???>初心者ということで教えてください。
これを書いてしまったことにより無視されるに50円。
0614名無しさん＠お腹いっぱい。
01/12/07 02:13ID:???&で切っても&が有ったら意味ない、=で切っても=が有ったら意味ない
普通は&や=より\0使ったリクエストのが少ないだろ
>610
１００ＫＢくらいのＣＧＩを書ける頃には分かるから気にすんなｗ
0615名無しさん＠お腹いっぱい。
01/12/07 02:24ID:???>①if(100 <= $total < 200)
>SQL文は①のやり方でいけたんですけれど。
いけないって。DBは何？
SQLなら WHERE $total <= 100 AND $total < 200 って書かないとエラーになるYO!
0616名無しさん＠お腹いっぱい。
01/12/07 02:26ID:???WHERE $total >= 100 AND $total < 200
0617名無しさん＠お腹いっぱい。
01/12/07 08:27ID:???c
abc
となるなら、端末の設定も問題ないと思います。
また、vi上で^Hと表示され、^とHから成る(カーソルが2カラム分動く)のなら、
その文字はBackSpace(Ascii Code: 0x8)です。
>>596のみのスクリプトを端末ではなくリダイレクトでファイル出力し、その
結果をviで見たら、
a^Hb^Hc
abc
となりますか？ od -cxの出力結果でも確認できます。
もし、^Hや\bが正しく出力されているのであれば、問題はスクリプトの別の部
分にあると疑ったほうがよいでしょう。
ちなみに WinNT + ActivePerl v5.6.1で、>>572のコードの先頭に
$line = "a\bb\bc";
を追加した結果をファイルに落として覗くと、
以下の通り期待した結果となります:
さばb^Hcさば
さばcさば
いわしcいわし
0618名無しさん＠お腹いっぱい。
01/12/07 10:57ID:yYR0Ii3K0619名無しさん＠お腹いっぱい。
01/12/07 12:08ID:???0620名無しさん＠お腹いっぱい。
01/12/07 12:17ID:???0621名無しさん＠お腹いっぱい。
01/12/07 12:19ID:???0622619
01/12/07 14:43ID:???0623611
01/12/07 15:44ID:???例えば
Ｐｅｒｌで書いた掲示板プログラムをみると
管理用．ｃｇｉとｂｂｓ．ｃｇｉというように
分けてあるものと、
管理用も、ｂｂｓ用も１ファイルで全て記述してある
ものを見かけるので、
実行速度とか関係あるのか、どちらが良いのでしょう？
．ｃｇｉは毎回毎回ロードされるのですか？
>>613
>初心者ということで教えてください。
私のような初心者が質問していいスレッドだと
思ったのですよ。無視しないで教えてくれ～。
0624名無しさん＠お腹いっぱい。
01/12/07 15:56ID:???って言う書式を教えてください
0625名無しさん＠お腹いっぱい。
01/12/07 16:05ID:???if (ディレクトリが存在しない) {
ディレクトリをつくれ！
}
0626名無しさん＠お腹いっぱい。
01/12/07 16:09ID:???[[解決]]
0627名無しさん＠お腹いっぱい。
01/12/07 18:24ID:???$tensu{'田中'} = 100;
$tensu{'鈴木'} = 90;
$tensu{'佐藤'} = 100;
といったデータをsortした場合、田中と佐藤のどっちが先に来るかというのは
法則があるのでしょうか？
いつも同じ結果になるので法則があるのだとは思うのですが、その法則とは
どのような法則になっているのでしょうか？
もしご存知の方がいたら教えていただけると助かります。
よろしくお願いします。
0628名無しさん＠お腹いっぱい。
01/12/07 18:33ID:???0629名無しさん＠お腹いっぱい。
01/12/07 18:43ID:???0630名無しさん＠お腹いっぱい。
01/12/07 18:44ID:???定義した順という事は上の例で言えば田中、鈴木、佐藤の順という事ですか？
print "Content-type: text/plain\n\n";
$tensu{'田中'} = 100;
$tensu{'鈴木'} = 100;
$tensu{'佐藤'} = 100;
$tensu{'山本'} = 100;
$tensu{'木村'} = 100;
foreach(sort{$tensu{$a} <=> $tensu{$b}} keys %tensu){
print $_."\n";
}
↑この例で試した場合、
↓のような順で表示されたのですが・・・。
木村
鈴木
山本
佐藤
田中
0631名無しさん＠お腹いっぱい。
01/12/07 19:17ID:???スルーされる(筈)だからソートは行われない
print "$_\n" for sort{$a cmp $b}qw(cat rabit dog monkey mona);
日本語をソートしたいならJperlを使おう
0632名無しさん＠お腹いっぱい。
01/12/07 19:34ID:???いえ、数字ソートした場合の同値の並び順の法則を聞きたいのですが・・・。
0633名無しさん＠お腹いっぱい。 ：
01/12/07 19:55ID:???print "$_\n" for sort{$a <=> $b}qw(鈴木 山本 田中 木村);
鈴木
山本
田中
木村
で、何でおかしな並べ替えが行われてるかと言うとkeysを通すからですが
この時keysが返す値の並びは***不定***なので
何から出てくるかは完全に***予測出来ません***
0634名無しさん＠お腹いっぱい。
01/12/07 19:59ID:???これが気に入らないならハッシュ法を調べて、値を返す前にソートする様に
keysを改造して下さい :-)
0635名無しさん＠お腹いっぱい。
01/12/07 20:17ID:???つまりハッシュテーブル内での記録状態に依存されるという事ですね。
こちら側からはその記録状態を把握できないから法則性を見出す事は出来ないと。
その返答で十分です。
ありがとうございました。
0636JAPU@はにゃ～ん ◆JAPUTeX.
01/12/07 20:59ID:???tie %moemoe, "Tie::IxHash";
すれば keys %moemoe で "定義した" 順番に返ってくるにょ。
http://search.cpan.org/search?dist=Tie-IxHash
0637名無しさん＠お腹いっぱい。
01/12/07 21:00ID:???たいして変わらん。
まず読みやすく書け。
管理がしやすくなるなら分割しろ。
初心者だから～という考えは捨てろ。
0638名無しさん＠お腹いっぱい。
01/12/07 21:07ID:???0639名無しさん＠お腹いっぱい。
01/12/07 23:53ID:???0640名無しさん＠お腹いっぱい。
01/12/07 23:59ID:XnpIIJ1Q0641名無しさん＠お腹いっぱい。
01/12/08 00:09ID:???0642名無しさん＠お腹いっぱい。
01/12/08 00:10ID:???使えるの？
0643名無しさん＠お腹いっぱい。
01/12/08 00:16ID:???ちゃんと英語読め
0644名無しさん＠お腹いっぱい。
01/12/08 00:18ID:???それはシステムの要求項目だ、特に無しって事だから気にすんな
nextに進んでmsiかzipを落せ
0645名無しさん＠お腹いっぱい。
01/12/08 00:23ID:9GPXgj8m0646名無しさん＠お腹いっぱい。
01/12/08 05:13ID:LmrHjtAGsub func (\%);
{
my %hash = ( key => 'VALUE' );
func(%hash);# <--(先頭に & 記号無しの呼び出し)
}
sub func (\%) {
my $ref = shift;
print $ref->{key}, "\n";# VALUE
}
誰か、サブルーチンを呼ぶ時に &func(%hash); と
した途端、期待通り動かなくなる理由をオシエレ。
一週間悩んだ挙句、このスレの 100-200 あたりを読んで
解決はしたけど、やっぱ理解しないと気持ち悪いのヨ。
0647名無しさん＠お腹いっぱい。
01/12/08 05:40ID:D6XloJOW出来てるから、つまり仕様。ってことじゃダメ？
0648646
01/12/08 05:53ID:LmrHjtAGあ、非常によくわかりましたです。
今までは、将来の組み込み関数やファイルハンドルと
重ならないように、全てのサブルーチンにつけてましたが
先頭で宣言しとけば、もし重なった時にはエラーが(多分)
出ますものね。ありがとうございました。
ちなみに文体は変わりましたが本物の 646 です。わらい。
0649名無しさん＠お腹いっぱい。
01/12/08 06:24ID:???専用のモジュールもあるんですね。
ありがとうございます。
0650名無しさん＠お腹いっぱい。
01/12/08 09:44ID:txIFSrN6本当に初心者なんです。
FFFTPでCGIを転送するときのしくみ
でいい参考資料ありませんか？(汗)
ﾛｸﾞありすぎて探したのですが
わかりません。。
0651名無しさん＠お腹いっぱい。
01/12/08 09:52ID:???質問の意味が全然わかりません。
とりあえずもうちょっと勉強した方がいいような気はする。
http://tohoho.wakusei.ne.jp/www.htm
0652名無しさん＠お腹いっぱい。
01/12/08 09:57ID:???RFC959
0653650
01/12/08 10:40ID:c8d0pxqG日本語も勉強した方がいいみたいです、私。
CGIのアップロードの仕方がわかんないんですが。
0654名無しさん＠お腹いっぱい。
01/12/08 11:02ID:???http://www.google.com/search?num=100&hl=ja&q=FFFTP+CGI+%83A%83b%83v%83%8D%81%5B%83h&lr=
お好きなページをどうぞ。
0655572
01/12/08 14:46ID:4/I3dmD1ありがとうございます。
全て解決しました。
結論は・・・私がバグっていたからです。
while($line =~ m/.[\b]) {$line =~ s/.[\b]//;}
を行う位置を誤っていて、
自分でバックスペースをスペースへ変換してから
件の処理を行う様になっておりました。
という訳で、今後も精進致します。
0656名無しさん＠お腹いっぱい。
01/12/08 21:49ID:???foreach(%HASH{keys %HASH}){ $_をいじる }
だと何も変わらないので
foreach(keys %HASH){$HASH{$_}= … }
ってコピーしてやってるんだけど，普通の配列を
foreach(@ARRAY){ … }
とやるみたいに直接中身を書き換える方法は無いの？
0657名無しさん＠お腹いっぱい。
01/12/08 22:02ID:???keyわからなくなるけどforeach (values %hash)とか
0658名無しさん＠お腹いっぱい。
01/12/08 22:22ID:???0659ほらよ
01/12/08 23:13ID:???eachやvaluesはダメよ
0660名無しさん＠お腹いっぱい。
01/12/08 23:23ID:???0661名無しさん＠お腹いっぱい。
01/12/08 23:29ID:???>>foreach(%HASH{keys %HASH}){ $_をいじる }
何をやりたいのか分からないです :-)
>>foreach(keys %HASH){$HASH{$_}= … }
コピーしてるとは? 一時配列を作りたくないって事?
だったら for(($key,$value)=each %HASH){if($key eq 'hoge')$HASH{$key}='...';}
なら一組のリストしか出来ないけど
>659
なんでリファレンス？
0662これの事かい？
01/12/08 23:37ID:???>the returned list is just a copy. You need to use a hash slice for
>that, since it's lvaluable in a way that values() is not.
>
> for (values %hash) { s/foo/bar/g } # FAILS!
> for (@hash{keys %hash}) { s/foo/bar/g } # ok
0663名無しさん＠お腹いっぱい。
01/12/09 02:52ID:CTSZ1Ad/見たんですが、
name1, email1, title1, comment1, …
name2, email2, title2, comment2,
name3, email3, title3, comment3,
…
という感じで、一度に複数投稿できるようなスクリプトを作りたいんです。
（掲示板じゃないんですが、例として）
それで、同ページの「多重ハッシュを動的に作成。」ってあたりをどう
書いたらいいんでしょうか。
%hatugen = (
res1 => { name => "name1の値",
email=> "email1の値",
title => "title1の値",
comment => "comment1の値",
},
res2 => { name => "name2の値",
email=> "email2の値",
title => "title2の値",
comment => "comment2の値",
);
と全部書いてやるるしか自分には出来なくて…。
0664こんな感じかにゃお
01/12/09 04:09ID:???for (<DATA>){
for(split(/,/,$_)){
($key,$value)=split(/:/,$_);
${hash{$i}}{$key}=$value;
}
$i++;
}
for $num (keys %hash){
print "\%{\$hash{$num}} are ... \n";
while (($key,$value) = each %{$hash{$num}}){
print "$key ----> ${$hash{$num}}{$key} \n";
}
}
__DATA__
name:name1,mail:email1
name:name2,mail:email2
name:name3,mail:email3
未テスト
0665名無しさん＠お腹いっぱい。
01/12/09 04:09ID:pYGvWQvhそれによって違うんだけど・・・
あとね、この場合普通はハッシュのハッシュは使わない。
配列の配列の方が無難。つまり、
＠hatsugen = (
[ "name1", "email1", "title1", "comment1" ],
[ "name2", "email2", "title2", "comment2" ],
. . .
)
って感じ。理由はメモリの節約。
で、
use constant NAME => 0;
use constant EMAIL => 1;
use constant TITLE => 2;
use constant COMMENT => 3;
ってやっておけば、
$hatsugen[0][EMAIL]で最初の発言のメールを取得できるでしょ。
enum モジュール使えばなお可。
http://search.cpan.org/search?dist=enum
#enum標準にしてくれないかな・・・
0666こんな感じかにゃお
01/12/09 04:10ID:???0667名無しさん＠お腹いっぱい。
01/12/09 04:52ID:???>665
＞上のカンマ区切りのやつはフォームから入力するんかい？それともファイル？
フォームです。
>664 >665さんの回答を自分で試してみてから、
またレスします。 （適当に直せる自信ないけど…）
0668こんな感じかにゃお
01/12/09 05:12ID:???つか俺も知らなかったけどListofListで列挙型使えるのｲｲ（・∀・）ね
あとシンボリックリンク恐怖症じゃなければ、単純に枝番ふった連装配列
ってのも有りかな・・・
0669名無しさん＠Ｅｍａｃｓ
01/12/09 11:56ID:???ある画像(GIF,JPEG,PNG 等)の
幅と高さを取得できるようなスクリプツはできますか ?
0670名無しさん＠お腹いっぱい。
01/12/09 12:31ID:???Image::Size
まだ、使ったことないけど、たしかこれで。
0671名無しさん＠Ｅｍａｃｓ
01/12/09 13:08ID:???サンクスコ!!
0672名無しさん＠お腹いっぱい。
01/12/09 18:43ID:???0673名無しさん＠お腹いっぱい。
01/12/09 19:43ID:???0674670
01/12/09 19:55ID:???0675名無しさん＠お腹いっぱい。
01/12/10 15:59ID:???0676名無しさん＠お腹いっぱい。
01/12/10 22:00ID:???if(条件Ａ){処理Ａ;}
elsif(条件Ｂ){処理Ｂ;}
と書く場合、
「もし条件Ａでなければ処理Ａをしなさい、あるいはもし条件Ｂでなければ処理Ｂをしなさい」は
unless(条件Ａ){処理Ａ;}
elsif(条件Ｂ){処理Ｂ;}
でよいのでしょうか？
現在、elsifを使うべきかわからない状態です
0677名無しさん＠お腹いっぱい。
01/12/10 22:05ID:???>elsif(条件Ｂ){処理Ｂ;}
これ出来たっけ？(未確認)
否定文並べるか肯定文ならべるかはケース倍ケースdeath
if(条件Ａ){処理Ａ;}
elsif(条件Ｂ){処理Ｂ;}
は
if(条件Ａ){処理Ａ;}
if(!条件Ａ 且つ 条件Ｂ){処理Ｂ;}
の略、省略したいから使うだけで悩む事じゃないでふ～～
0678名無しさん＠お腹いっぱい。
01/12/10 22:20ID:???試してみたら一発じゃん・・・。
俺は出来た。
0679名無しさん＠お腹いっぱい。
01/12/11 01:30ID:???0680名無しさん＠お腹いっぱい。
01/12/11 01:58ID:???elseの意味を調べてくれ
0681名無しさん＠お腹いっぱい
01/12/11 14:09ID:???記入された内容をＣＳＶファイルに追加書き込みしているのですが、
複数行入力を許しているテキストフィールドの内容を書き込む際、
改行コードが邪魔になってしまいます。
書き込む際に改行コードを強制削除したいのですが、
うまく消えてくれません。
$other=~ s/\n/<br>/g;
と他の文字列に置換してみたところ、
改行タグの後ろに結局改行コードが残ってしまいました。
（$otherには入力内容が入ってます。）
サーバはＮＴで、perlのバージョンは５です。
何か良い方法はないでしょうか？
0683名無しさん＠お腹いっぱい
01/12/11 15:08ID:???ありがとう。
きれいなデータになりました。
ちなみに
\r?
にはどういう意味があるのですか？
0685名無しさん＠お腹いっぱい
01/12/11 15:27ID:???了解しました。
世の中のPerlの本はUNIX前提になっているものが多いんですね。
次はLINUX＋PHP＋Postgresqlを勉強する予定なので、
またまた文字コードに悩まされそう。
0686名無しさん＠お腹いっぱい。
01/12/11 15:45ID:???それと文字数を数えるのってどうやるの？
aだと1、aaaだと3を返すやりかた。
0687名無しさん＠お腹いっぱい。
01/12/11 16:01ID:???http://pc.2ch.net/test/read.cgi/php/1000804655/854-855
奇遇だな。
ちょうど同じような質問を見かけたところだ。
0688名無しさん＠お腹いっぱい。
01/12/11 16:34ID:???abcでも3を返したいの。そこのリンクは1が帰ってくるでしょ。
0689名無しさん＠お腹いっぱい。
01/12/11 16:41ID:???0690688
01/12/11 17:03ID:???0691名無しさん＠お腹いっぱい。
01/12/11 17:20ID:P2qcRNJ8<script language="javascript">
<!--
function javascript { ～ }
// --> </script>
<form name="form1" onsubmit="return javascript()" action="">
<input type="text" name="abc"><input type="submit" name="button1" value="CHECK!">
</form><form name="form2" action="$scriptname">
<input type="submit" name="button2" value="XXXXX">
</form>
HTML
わけあってこうしなければならなくなった。
ようするに、form1で、入力された文字列を、javascriptで処理し、その処理結果を、perlで処理したい、という事。
もしかすると、HTML以前の問題かも。
心の広い方、教えてください。
0692名無しさん＠お腹いっぱい。
01/12/11 17:22ID:???マルチポストウザイ。
0693名無しさん＠お腹いっぱい。
01/12/11 17:26ID:P2qcRNJ80694名無しさん＠お腹いっぱい。
01/12/11 19:28ID:???放置するか回答するの二者択一でお願いしまちゅ
0695名無しさん＠お腹いっぱい。
01/12/11 19:28ID:???0696名無しさん＠お腹いっぱい。
01/12/11 23:31ID:???マルチ野郎の思う壺じゃないか。
0697名無しさん＠お腹いっぱい。
01/12/12 00:04ID:1mlMOGo3$addr = $ENV{"REMOTE_ADDR"};
$host = gethostbyaddr (pack ("C4", split (/\./, $addr)), 2);
この処理で、gethostbyaddr以下が良く分かりません。
$addrに格納されたIPアドレスの『.』を取り去った四つの数字をバイナリ化(?)
したものを・・・？
最後の2が何を表すのか、また他に使える数字にはどんな
ものがあるのか知りたいです。
それとgethostbyaddr関数ってpackとペアに使わなくちゃいけないものなんですか？
0698名無しさん＠お腹いっぱい。
01/12/12 00:33ID:???http://www.linux.or.jp/JM/html/LDP_man-pages/man3/gethostbyaddr.3.html
＞最後の2が何を表すのか、また他に使える数字にはどんな
定数AF_INETを指します、他に使えるすうじは有りません
＞packとペア
勿論、自分でオクテット毎に255^n*xしてもらっても結構です
0699JAPU@ハーマイオニー萌え ◆JAPUTeX.
01/12/12 01:47ID:???use Socket;
$x = gethostbyaddr(inet_aton("61.194.226.203"), AF_INET);
が吉。(inet_aton 使わないで、自分でpackしてもよいけど。)
AF_INET は環境によって異なる定数なので、数字で与えるのは移植性を低下さ
せます。(多分) 何でこんな面倒なことをしているかというと、ソケットって
のはIPv4に限らず、様々なプロトコルを使えるように出来ているからなんです。
アドレスファミリとしては、これ以外にも AF_INET6 などがあります。(環境
によっては無いけど。)
use Socket;
use Socket6;
$x = gethostbyaddr(inet_pton(AF_INET6, "3ffe:501:4819:2000:280:adff:fe71:81fc"), AF_INET6);
print "$x\n";
=> apple.kame.net と表示される。
# Socket6 は標準モジュールではありません。
0700名無しさん＠お腹いっぱい。
01/12/12 16:10ID:Mrx6ZMte>>699
ここで質問しておきながら自分でも色々なサイトを捜してみて、なんとなくうす
ぼんやりと分かってきました。
あとは自分で色々試すだけ。
ありがとうございました。
0701名無しさん＠お腹いっぱい。
01/12/12 18:31ID:BvKUxJBsURI,MIME-Base64,HTML-Parser,libnet,MD5をインストールし，
make testでokが出たのですが，libwww-perlのmake testで
エラーが出ます．./TEST -vすると以下の通り
， ./TEST -v live/validator.t
live/validator......No such field 'uploaded_file' at live/validator.t line 31
1..2
dubious
live/validator.tを見ると，
my $uri = "http://validator.w3.org/file-upload.html";
のフォームに書き込んでチェックをしている？ みたいなんですが，
w3cの同ページが変更されて，みんなエラーが出ているんでしょうか？
0702名無しさん＠お腹いっぱい。
01/12/12 20:46ID:KPDzNandままになっちゃってます
フィルタプログラムではなく、ファイルを直接書き換えたいのですが
どうしたら良いのでしょう???
0703名無しさん＠お腹いっぱい。
01/12/12 21:06ID:???0704JAPU@ハーマイオニー萌え ◆JAPUTeX.
01/12/13 01:12ID:???うちは All tests successful. だけどなぁ。
libwww-perl-5.62 + Perl 5.005_03 on FreeBSD
>>702
perl -i -npe 's/href="(.+?\.htm)"/href="$1l"/g' *.html
とか? 文章中に href="puni.html" とかあったらそれまで置換しちゃうけど、
その辺は手作業で何とかして下さい。-i.bak とすれば .bak の拡張子がつい
たバックアップファイルがつくられます。
0705名無しさん
01/12/13 02:14ID:???なんかTerm::CapのTputs('dl'...)でやるみたいなんですが、どうやっても
うまくいきません。
print 'aiueo.'
と出力して、出力されたaiueoを削除する方法を誰か御存じないでしょうか。
0706JAPU@ハーマイオニー萌え ◆JAPUTeX.
01/12/13 03:02ID:???けど、単に文字が消えるだけでカーソルがそのままなので困っているのなら
print $terminal->Tputs("dl", 1, undef);
print $terminal->Tputs("cr", 1, undef);
という感じ?
man termcap:
delete_line dl delete line (P*)
carriage_return cr carriage return (P*)
■ このスレッドは過去ログ倉庫に格納されています