Perlコーディング初心者質問スレ Part 51
レス数が900を超えています。1000を超えると表示できなくなるよ。
0001nobodyさん
2006/07/27(木) 17:04:23ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0809nobodyさん
2006/09/01(金) 18:44:03ID:???0810794
2006/09/01(金) 20:03:39ID:???皆様方のお力で、無事解決致しました・・・ orz
本当にありがとうございました・・・。 orz
0811nobodyさん
2006/09/02(土) 22:53:43ID:???ページを表示させるさいに
デフォルトのチェックボックスはチェックした状態にしておき、
チェックボックスのチェックを外してsubmitするとチェックオフ。
またチェックしなおしてsubmitでチェックした状態に戻る。
というプログラムを作りたいのですが
print "<input type=\"checkbox\" name=\"test\" value=\"checked\" checked />";
と書いてしまうとチェックを外してsubmitしてもまたチェックされた状態で表示されてしまうし
print "<input type=\"checkbox\" name=\"test\" value=\"checked\" $test />";
こういうふうに書くと最初に表示したときにチェックがされてない常態になってしまいます。
どういった処理の仕方をすればうまくいくのでしょうか。
0812nobodyさん
2006/09/02(土) 22:59:18ID:???<input type="submit" name="submit" value="submit" />
として、name=submit の値がなく、test がなかったらチェック、submit の値があったら ノーチェック、でいいんじゃない？
0813nobodyさん
2006/09/02(土) 23:10:37ID:???どのような意味でしょうか。
検索してはみたのですが
「成功か失敗を返す、繰り返し使うべきでない」
のような説明でよく分かりませんでした。
0814811
2006/09/02(土) 23:26:42ID:???おお！出来ました！どうもありがとう。
というか<input type="submit">にもnameつけることが出来たんですね。
htmlの勉強からやり直してきます。
0815nobodyさん
2006/09/02(土) 23:37:41ID:???0816nobodyさん
2006/09/03(日) 00:09:56ID:???ゼロ幅表明自体が分からないという事？
ゼロ幅表明の、単語境界(¥b)とか、直前のマッチ位置(¥G)とかは、
マッチングはするけど、¥w, ¥d とかと違って文字幅が無い。
マッチングが成功しても、注目している文字の位置は変わらない。
繰り返し使うなっていうのは、
位置を変えずにいくらでもマッチできるから(/¥b¥b¥b¥b¥b/)
オートマトンの注目位置が動かなくて非効率って事だと思う。
説明あまり良くないかも知れないけど、多分そんな感じ。
0818nobodyさん
2006/09/03(日) 06:31:32ID:???半角空白をはじめとする空白文字 (Perl の正規表現で言うところの /\s/ にマッチする各文字) はデフォルトでは正規表現のメタキャラクタではありません。
パターン中にそのまま書けばそのままそのものとして解釈されます。
というかこの程度は既に自力で解決してそうね。
0820nobodyさん
2006/09/03(日) 14:12:46ID:???厨な俺だと日本語かどうかを判別する方法って、
if($hogehoge !~ /\W+/) { エラーメッセージ表示のサブルーチンへ }
しか思いつかない。
もう少ししっかり日本語を判別できる方法ってある？
0821nobodyさん
2006/09/03(日) 14:20:55ID:???0822nobodyさん
2006/09/03(日) 16:08:59ID:???うまく動かない（予期しない動作に）状態になってしまいました。
そこで、デバッグしようと思うのですが、
ロギングするようなライブラリはないでしょうか。
printfデバッグを助けてくれるようなものでよいのですが。
0823nobodyさん
2006/09/03(日) 16:16:07ID:UFgEMuAohttp://d.hatena.ne.jp/rainydaidoh/20060702
0824nobodyさん
2006/09/03(日) 16:19:06ID:UFgEMuAoでも、日本語の情報すくねーヽ(`Д´)ノ ウワァァン！！
http://search.cpan.org/~mschilli/Log-Log4perl/
0825nobodyさん
2006/09/03(日) 17:05:04ID:???0827nobodyさん
2006/09/03(日) 23:40:40ID:FWwio3vAperlにて中規模サイトを構築しようとしているのですが、オブジェクト指向で
作りたいと思っています。
その時にクラス（パッケージ）間で共通して使いたい変数をどう扱えばいいのか
が分かりません。
イメージとしては
use vars qw( '$dbh' , '$conf' );
のような感じで、パッケージのどこからでも参照できる方法があれば教えて下さい。
やはり名前空間を越える事は出来ないのでしょうか
0828nobodyさん
2006/09/03(日) 23:50:49ID:???0830nobodyさん
2006/09/04(月) 00:10:36ID:???これはないなｗｗｗ
0831nobodyさん
2006/09/04(月) 00:13:49ID:???Perlはほんの少しの小細工でOOPを実装してるから、入るだけなら逆に易しいと思うよ。
ハッシュリファレンスくらい理解してる必要があるけど。
0832nobodyさん
2006/09/04(月) 00:18:45ID:kGmJ+csQパッケージのどこからでも参照できる方法
0833nobodyさん
2006/09/04(月) 00:31:17ID:???「$パッケージ::hoge」 とかじゃだめなの？
0834nobodyさん
2006/09/04(月) 00:41:37ID:???$ cat Foo.pm
#!/usr/bin/env perl
use Exporter ;
use vars qw( $foo $bar @ISA @EXPORT );
@ISA = qw( Exporter );
@EXPORT = qw ( $foo $bar );
$foo = $bar = 1 ;
1;
$ cat var.pl
#!/usr/bin/env perl
use Foo ; # ライブラリパスは通せよ
print $foo . $bar . "\n" ;
という風な感じでアクセス変更可能。
同一ファイル内だったら use varsもしくは our したうえで
$Foo::foo にアクセスする事ができるはず。
0836nobodyさん
2006/09/04(月) 00:52:53ID:???$ cat Foo.pm
package Foo;
use Exporter ;
use vars qw( $foo $bar @ISA @EXPORT );
@ISA = qw( Exporter );
@EXPORT = qw ( $foo $bar );
$foo = $bar = 1 ;
1;
0837nobodyさん
2006/09/04(月) 00:53:14ID:???完全修飾名でアクセスさせるのが良い作法っぽい気がするよ。
また、どちらを選ぶにしてもドキュメントにその旨書いておくことを強く推奨。
0838nobodyさん
2006/09/04(月) 01:05:41ID:???シングルトンなConfig.pmとかでいいんでないの？
0839nobodyさん
2006/09/04(月) 01:23:41ID:kGmJ+csQ毎回ファイルごとに読み込む感じになるようですね。
なんか手間がかかるので正しい方法じゃないように感じていたのです。
こうゆう状況って絶対発生しますよね？
0840nobodyさん
2006/09/04(月) 01:27:25ID:???0841nobodyさん
2006/09/04(月) 01:35:30ID:kGmJ+csQ0842nobodyさん
2006/09/04(月) 07:51:08ID:???セルが３×３で次の表ができるように組んでいるんですが、
最後の表が、９に満たない場合、空白セルで埋めるようにしたいと思ってます。
で、
$bはデータが存在した最終セルのセル個数＋１です。
for($a = $b;$a/9 =~ /\./;$a++){
空白のセルを生成する内容
}
セルにふられたナンバーが９で割って小数点が含まれる場合、空白のセルを生成する、という形なんですが、
これだとfor構文にマッチしてないようです。
どこが問題なのでしょうか？
お教えくださいますようお願いします。
0843nobodyさん
2006/09/04(月) 08:36:50ID:???数値と文字列を混同してるからじゃないの？
普通は9で割った時に余りがあるかどうかで判断するだろう。
for($a = $b;$a % 9 > 0;$a++)
$bが+1されとるのもよく分からんが…。
0844nobodyさん
2006/09/04(月) 08:41:19ID:???ありがとうございます。
整数かどうかは%なんですね。
それがわからなかったから無茶苦茶な処理をしてました。
+1してる理由は、1セル目が0として計算されてるからでした。
本当に有難う御座いました。
0847nobodyさん
2006/09/04(月) 21:34:50ID:uUuOcfs4Perl5.8以降についてくるFile::statとかがんがんExportしてるよ
とかよけいな事を言ってみる
0848perl初心者
2006/09/05(火) 01:27:41ID:cFDKud4F学んだんですけど、その本には、sendmail.iniの設定を変える必要があると
のことですが、ホスティング(ロリポップやさくら）の場合、単に、
$sendmail = '/usr/sbin/sendmail';みたいな感じで設定して終わりでいいんでしょうか？
sendamil.iniをいじるのは、自分でサーバを持っているときとかのみですか？
0849nobodyさん
2006/09/05(火) 02:33:24ID:???0850nobodyさん
2006/09/05(火) 02:55:37ID:???ツッコミさんくー。
File::stat を見てみたら、デフォルトのエクスポートは関数オーバーライドだけだけれど、エクスポート可能な変数はたくさんあるね。
デフォルトではない (明示的に指定しなければインポートされない) ので、この文脈では問題ないんじゃないかな。
しかし perl は訳解りません.
そんなわけで基本処理は JavaScript でやることにして
log 書き込みだけを perl でやる hybrid 掲示板を作ってます.
んで, server が nifty なので logfile が cgi-bin にあると
Ajax の読み込みに失敗するようです.
なので "homepege" directory に logfile を置く必要があります.
perl で このようなことが可能でしょうか ?
(調べた限りでは このようなことをやってる CGI は見当たらないので)
もし可能なら ちょこっとアドバイスなど おねげぇ〜しますだ.
おありがとうごぜぇ〜ますだ !
0854nobodyさん
2006/09/05(火) 20:39:43ID:???open "path/to/homepege/logfile";
というように読み書きするファイルのパスを指定すればOK。
ご親切にどうも ありがとうございます.
MacPerl で local check をやっている関係で
delimiter の違いが (思い違いの) 原因でした.
"できる" と解っただけで方向性が決まりました.
んで, (骨組みだけ) 無事成功しました !
申す訳ねぇ〜デスだ.
すれ違い気味に OS10.3 って今でも手に入ります ?
なんか, 10.4 の評判はいまいちみたいなので...
OS さえ手に入れば爺さんに鞭打って...
0859nobodyさん
2006/09/06(水) 01:12:56ID:???0860nobodyさん
2006/09/06(水) 02:06:39ID:???0861nobodyさん
2006/09/06(水) 03:34:58ID:KUgOOpEJreturn 0;
}
for( my $n = 0; $n < @w; $n++ ) {
if( $w[$n] == $d ) {
return $n;
}
}
return -1;
これ↑と同じ処理を、１行か２行で書けないでしょうか？
0862nobodyさん
2006/09/06(水) 04:11:01ID:???return $d == -1 ? 0 : (@_ = grep { $_ == $d } @w) ? $_[0] : -1;
自分の分からないコードを書くと保守性が下がるよ。その点注意。
0863nobodyさん
2006/09/06(水) 06:01:51ID:???まあ、grep 部分を grep { $w[$_] == $d } 0 .. $#w に
すりゃいいだけだけど。
0864nobodyさん
2006/09/06(水) 10:55:39ID:???http://pc8.2ch.net/test/read.cgi/hp/1156837689/
Perl使いの皆様、どなたかこの板違いの馬鹿どもの議論を、
一言でサラリと解決してやってください。
初心者が質問しにくい状況になっていて非常に迷惑です。
論点は
『CGIファイル（ＣＧＩスクリプト）はプログラムであるか？』
ということらしいです。
これだけだと、答えが出しにくいかもしれませんが
よろしくお願いします。
前スレでCGI=プログラムと言い出していたものがいて、
それが尾を引いて、わけのわからない展開になっていますが、
どなたか解決を・・・
0865nobodyさん
2006/09/06(水) 11:03:36ID:???いらん話を他スレに持ってくるな。
0869nobodyさん
2006/09/06(水) 16:18:30ID:???勿論反応してるのもね。
召喚されてるように聞こえる...
それはさて置き, とりあえずマジレス.
ここで言うのもアレだけど perl って知れば知るほどアレルギー反応が...
要するに目的を達成するために しかたなくやってるだけで深く追求したくない.
したがって居座るつもりは さらさらありません.
さて, 結果報告 :
nifty は やっぱり だめぽ でした.
(XMLHttpRequest は "同一 domain" 限定で読み込みが可能.
nifty は見かけ上, 別サーバーのように見える)
そこで xrea で試したところ, どうにか動作はするように...
しかし あっしには理解不能なエラーが...
それでも back ボタンを押すと書き込めてるのですが...
作りかけで恥ずかしいのですがリンク貼っておきます.
alter.s225.xrea.com/hybrid/hybrid.html
思い違いかも知れないけど, 書きこみに失敗.
細かいところを作り込まなければならないので
あまり時間を浪費したくない.
そんな訳で深く原因追求してません.
0874nobodyさん
2006/09/06(水) 20:36:10ID:???エラーなんてでてないが？ 直した？ それとも、投稿後の画面遷移のこと？
だとしたら、JavaScript側でsubmitしてるんだから、画面遷移があるのは当たり前だろう。
どうせならform.submit()せずに、投稿もXmlHttpRequest使えばいいじゃん。何の為のAjaxなんだか。
Perlにアレルギー起こすのはいいが、JavaScriptも微妙だし、もうちょっとがんばれ。
0875nobodyさん
2006/09/06(水) 20:40:12ID:???画面遷移をなくせたはず。
どうもありがとう.
一応チェックしてますがテクニカルな話題は なさそうでふ.
>>873
print "Content-type: text/html \n\n";を
書き加えてエラーは出なくなりますた.
>JavaScript側でsubmitしてるんだから
>画面遷移があるのは当たり前だろう
よく考えれば当然なんですが見落としてました.
>投稿もXmlHttpRequest使えばいいじゃん
こちらは以前作ったサンプルを転用しました.
で, 書きこみの方は未研究です.
これでうまくいくのなら万々歳ですだ.
>確かレスポンスとして 204 No Content を返すと
さっそく調べて実験してみます.
本当に ありがとう !!!
0877nobodyさん
2006/09/06(水) 21:47:22ID:???0878876
2006/09/07(木) 18:11:47ID:4yMYFWbI色々やってみましたが, 何か勘違いしてるのか思い通りに行きません.
[やってみたこと]
1. print"Status:204 No Content\n\n";
2. print"Location:http://alter.s225.xrea.com/hybrid.html\n\n";
3. それぞれ一行空けてみたり...書きこむ場所を変えてみたり...
いっそ, 振り出しのファイルを読み込んで...
でも, やりかたが今ひとつわかりましぇ〜ん.
>>875
そんなに邪険にしなくても...
0879nobodyさん
2006/09/08(金) 01:47:11ID:???公開サーバではなくローカル・マシン上で、www.kent-web.com で配布されている
sunbbs を利用しています。このコードを眺めつつ、ちょくちょく改造しているの
ですが、投稿されたデータに http:// で始まる文字列があった場合、自動的に
その文字列にリンク・タグを追加してくれる auto_link という処理を見つけました。
＜sample-1＞
sub auto_link {
$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1<A HREF=\"$2\" TARGET=\"_blank\"><B>$2<\/B><\/A>/g;
}
これを応用し、同じく sunbbs 内のワード検索サブルーチンに、ヒットした検索
キーワード部分を色付きでマーキングする処理を作ってみました。
＜sample-2＞
sub auto_marker {
$_[0] =~ s/$word/\<font\ color=\"\#FF0000\"\>\<b\>$word\<\/b\>\<\/font\>/g;
}
これで「おおむね」期待通りの処理をしてくれるのですが、検索キーワードの中に、
ひらがなやカタカナの長音記号「ー」が含まれていると、記事はヒットするらしい
ものの、肝心の記事を表示してくれない、という問題に悩まされています。
ヒットする「らしい」というのは、検索結果：12件 などという結果だけはちゃんと
表示されるからです。
ちなみに、＜sample-2＞の処理を外すと、色付き表示は当然されないものの、ヒット
した結果はちゃんと表示されます。
このことから、自分が書いた＜sample-2＞の処理中に、この問題を引き起こす原因が
含まれているのではないかと判断しています。
どなたか「そこはこう書かなきゃダメじゃん」というご指摘をいただけませんでしょうか。
どうぞよろしくお願いいたします。
0880nobodyさん
2006/09/08(金) 01:53:21ID:???置換後のテキストで "<", ">", "#", 半角スペース、ダブルクォートとかは、
バックスラッシュ入れなくていい。
0881nobodyさん
2006/09/08(金) 02:31:26ID:???↓
s/\Q$word\E/
とかじゃないの？
0882nobodyさん
2006/09/08(金) 10:07:26ID:???0883879
2006/09/08(金) 18:17:53ID:???どうもです。できました。感謝です。
しかしそれはどういう意味があるのでしょう？
あと検索キーワードが一つのときはきちんと動作しましたが、
複数のキーワードを半角スペースで区切って入れた場合、
結果は正しくヒットするけれども、赤マークはされませんでした。
スペース（%20）が邪魔をしているんだろうということは分かるのですが、
それ以上のことが分からないです。
0884nobodyさん
2006/09/08(金) 19:14:56ID:???ぐぐれ
0885nobodyさん
2006/09/08(金) 21:10:52ID:???0886nobodyさん
2006/09/08(金) 22:27:06ID:d2vLYLwUフォームにフリーワードを入力させて
ＣＳＶのデータとマッチさせ、
マッチしたデータを表示させるＣＧＩを
作成しようと思っています。
それで、yahooやgoogleのように
表示件数を○件毎という風にして、
画面の下のほうに
1 2 3 4 5 6 7 8 9 .....
と次の○件、という感じにしたいな
と考えています。
同じような仕様で、参考になるソースを
ご存知の方、居ませんでしょうか。。
0889nobodyさん
2006/09/08(金) 23:11:11ID:???quotemetaと同じそうだ。
0890nobodyさん
2006/09/08(金) 23:13:20ID:???また、件数を割って得た数が割りきれなければ総ページ数を+1する
ってとこかなぁ
0892nobodyさん
2006/09/08(金) 23:44:38ID:???わざわざNon-parsed Headerする意図が(ry
0893886
2006/09/08(金) 23:55:47ID:d2vLYLwU>>890
ご意見、ありがとうございます。
Data::Pager
HTML::Pager
ですか。恥ずかしながら始めてしりました。
勉強してみます。
最初は自分でロジックを考えて実装しようと
思ったのですが、案外難しいな。。と。
検索対象を全部HTMLソースに
吐き出して、DHTML + javasript で
表示の切り替えが出来ないかな。。なんて
ことも考えてます。
Perl経験あんまり無いので、無理にperl
で作るとソースがむちゃくちゃになりそうで。。
なやましい。。
0894nobodyさん
2006/09/09(土) 01:22:33ID:???ちなみに、経験があるのは何なの？
0895nobodyさん
2006/09/09(土) 01:39:45ID:???たとえば
my $test = "soto";
my $a = 1;
if ($a) {
print $test;
}
とすればsotoが出力されますが、
my $test = "soto";
my $a = 1;
if ($a) {
my $test = "naka";
print $test;
}
print $test;
だとnakasotoと出力されます。
myはあるサブルーチンのなかのみでしか変数を使えないようにするというのが私の理解なのですが、
この場合はどういう処理がされているのでしょうか。
仮に{}でくくられた部分内でしか変数を使えなくするというのなら最初の例に合いませんし・・・
初歩的な事で申し訳ありません。
0896nobodyさん
2006/09/09(土) 03:06:29ID:FjbM6rE4$filename = "filename.dat";
chown www,GROUPNAME,"$filename";
としても反映されません。
ユーザ：root
グループ：wheel
でログインをした状態でコマンドラインから色々試してみたところ
自分自身のユーザ・グループ以外には変更できないのですが
www,GROUPNAME とするにはどのようにしたら良いのでしょうか。
0898nobodyさん
2006/09/09(土) 04:10:20ID:???uid, gidでやっても？
chown scalar(getpwnam('www')),scalar(getgrnam('GROUPNAME')),"$filename";
0900nobodyさん
2006/09/09(土) 04:59:01ID:???auでフォームから送信すると次のページのURLに
?x-up-destcharset=17
と付くんですがなぜですか?
また、これを表示させない方法があれば教えてください。
0902896
2006/09/09(土) 05:29:02ID:???で解決して喜んではいたのですが
ユーザ名,グループ名 では駄目だった理由が知りたくて
戻って参りました...どなたかお教えください。
perl chown で検索した解説サイトではほぼ全てが
「chown ユーザ名,グループ名,ファイル名」
という説明になっているということは一般的にはuid,gid形式では
指定しないのでしょうか。
環境はFreeBSD+perl5.8.8です。
0906nobodyさん
2006/09/09(土) 10:19:37ID:???まずperldocではちゃんと数値のUID,GIDと明言されてる。
そして、素人が作ったPerl解説サイトはデタラメ書いてる場合もある。
それはそうとして、どこでどう検索したのか書いてみろ。
yahooとgoogleで「perl chown」のTOP5件チェックしたが正しかったぞ。
0907895
2006/09/09(土) 10:32:15ID:???ありがとうございます。
ファイルスコープなるものとブロックスコープなるものがあったんですね。
>>901
名前は知りませんでしたが、myはブロックスコープで動くと思っていました。
後者の出力が正しいとするなら、
前者はブロックの外でmy宣言してるのにもかかわらず、
ifのブロック内で$testが出力されているのが不思議だったのです。
0908nobodyさん
2006/09/09(土) 11:39:12ID:???スコープがネストされてる場合内側から外側のスコープが見えるよ
他の言語でも言うグローバル変数はそういう使い方
0909895
2006/09/09(土) 13:05:50ID:???知りませんでした。ありがとうございます。
{
my $block;
{・・・・・・}
{
{・・・・・・}
}
}
などでも・・・・・・の位置から$blockをみれるということですか。
ということはサブルーチンに移るときだけ気をつければいいんですね。
レス数が900を超えています。1000を超えると表示できなくなるよ。