Perlコーディング初心者質問スレ Part 57
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2008/02/25(月) 19:25:51ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
お勧めサイトは >2 以降
前スレ http://pc11.2ch.net/test/read.cgi/php/1189939783/
過去ログ倉庫 ttp://user.ftth100.com/mirrorhenkan/perl/
0708nobodyさん
2008/06/08(日) 16:56:29ID:???基本から一通り勉強し直したらいいんじゃないかな。
http://www.kt.rim.or.jp/~kbk/perl5.005/perlmod.html
http://www.kt.rim.or.jp/~kbk/perl5.005/perlobj.html
0709nobodyさん
2008/06/08(日) 18:03:33ID:???サンクス
最後のページ
Summary
なすべきこと。今、あなたは部屋を出てオブジェクト指向方法論に関する書籍を購入して、そして六ヶ月かそこらの間悩む必要があるでしょう。
ワロタ
0710nobodyさん
2008/06/08(日) 18:41:29ID:NYonUevmhoge {
$this = shift;
return $this;
}
bar{1}
hoge->bar()ってやったら呼べるんだけどbarはhogeと同じ空間にあるのが変というか
つまり単純化するとこんな感じ。
*{foo::hoge::bar} = sub {1};
print foo->hoge->bar(); エラー
print foo::hoge::bar->(); 動くが気もい
*{foo::hoge::bar} = sub {1}; #もっとキモイ
$top = foo::hoge;
print eval ($top ."::bar");
勉強してきます
しかしあんま資料ないっぽい
0711nobodyさん
2008/06/08(日) 18:52:18ID:???*{foo::hoge::bar} じゃなくて *{foo::bar}
hogeなんていうpackage作ってないし。
0712nobodyさん
2008/06/08(日) 19:09:16ID:???それだ！ ありがとうやっとわかったよ。
てっきり package a::b::c;
ってやると
a
a::b
a::b::c
ってのが自動的に生成されると思ってた。
0713nobodyさん
2008/06/08(日) 20:02:49ID:???見かけ上はできるけだろうけどPerlのオブジェクトは名前空間に変数結び付けてるだけだからなあ
と思ったけどもう一度勉強した方が良さげだね
0714nobodyさん
2008/06/08(日) 20:20:35ID:???CGIであるデータをホームページ上に表示することをやっています。
5000件ほどのデータをfetchrow_arrayで1行ずつフェッチしていますが
どうもフェッチ処理に時間がかかっているようです。
実際に必要なのは20件ほどで、他はページ送りで表示可能。
検索エンジンの検索結果ページなんかをイメージしていただければ。
そこで、不要なフェッチを無くすために、
複数行を飛ばしてフェッチすることってできますか？
もし他に改善策があれば教えてください。
一応、SELECTの段階で20件だけを取り出す方法を思いつきました。
0715nobodyさん
2008/06/08(日) 20:39:35ID:???@arrayの高速操作が必要ならスライス操作とか調べてみると吉
SELECTで絞れるなら断然そっちのほうが早いと思うよ。
0716nobodyさん
2008/06/08(日) 22:10:54ID:???ありがとうございます。
スライス操作調べてみました。SELECTでLIMITつければいいんですかね？
これで必要な分だけのフェッチですみましたが、どうも時間がかかるようです。
ちょっと複雑なSQL文なんでそっちのほうがボトルネックのようですorz
SQL文のほうを考え直そうと思います。
0717nobodyさん
2008/06/09(月) 12:35:45ID:???SELECT FOUND_ROWS();
>>715
>>716はSQLの話じゃなくて、
大規模の配列使うなって話で、
my @temp = splice( @array, 0, 20 );
的なことでしょ。
SQL文はスレ違い。
0718nobodyさん
2008/06/09(月) 15:41:11ID:???生えーぞ。
0719nobodyさん
2008/06/09(月) 16:00:10ID:???0720nobodyさん
2008/06/09(月) 19:29:41ID:BYZvhcIN其の都度ひっかかって質問するより勉強したほうがはやいよ
リファレンスページみっけてプリントアウトしとけ
0721nobodyさん
2008/06/09(月) 23:24:50ID:???11
11000
↑これをソートすると
11
11000
122
↑こんな風になってしまいます。
11
122
11000
↑こんな感じで大きい順にソートする方法を教えてください。
0722nobodyさん
2008/06/09(月) 23:26:19ID:???0724nobodyさん
2008/06/13(金) 02:38:01ID:???*** form.html ***
<input type="file" name="gazou1">
<input type=その他 ...>
*** form.cgi ***
use CGI;
$q = new CGI;
@names = $q->param();
foreach $name (@names) {
$value = $q->param($name);
if (input type が file だったら ) {
ファイル受信処理
}
なんらかの配列に格納
}
と、したいのですが、
inputのtypeは調べられないのでしょうか？
inputのnameで判断するしかないのでしょうか？
0725nobodyさん
2008/06/13(金) 09:17:11ID:???ブラウザから渡されるデータ自体に type 属性の値が含まれて
いないのだから、CGI プログラム上から調べる事はできない。
ref $value でアタリを付ける事はできる。
http://perldoc.jp/docs/perl/5.10.0/perlfunc.pod#item_ref_EXPR_ref_reference
http://perldoc.jp/docs/modules/CGI.pm-2.89/CGI.pod
(「ファイル・アップロード・フィールドの作成」の項)
0726nobodyさん
2008/06/13(金) 10:25:57ID:???$unit->{101}->{point} = 2.5;
$unit->{130}->{point} = 6.2;
$unit->{150}->{point} = 3.2;
と代入してあります
このポイント(2.5、6.2等)を元にして@idをソートしたいのですが
@id = sort { $unit->{$_}->point <=>$unit->{$_}->point } @id
とまで考えて、$aや$bをどのように使ったら良いのか分らなくなりました
よろしかったらどのように表記したら良いのか教えてください
0728726
2008/06/13(金) 11:00:28ID:???Perlメモはいつも参考にさせて頂いてまして
・複数の項目でソートする
・自分で決めた順番でソートする
の応用でなんとかなるかと思ったのですが
どうにも分らずこちらでお伺いしました次第です
どの辺りを応用すればよろしいでしょうか？
0729726
2008/06/13(金) 11:18:24ID:???先にmapでポイントの配列を作る事でなんとか出来ました
@id = map { $_->[0] } sort { $b->[1] <=> $a->[1] } map { [$_,$unit->{$_}->{point} ] } @id
ありがとうございました
そしてお騒がせ致しました
0730nobodyさん
2008/06/13(金) 11:37:27ID:???0732726
2008/06/13(金) 12:41:47ID:???コードがすっきりしました
>>730さん、ありがとうございます
0733nobodyさん
2008/06/13(金) 12:51:42ID:???sortでなんで$_がでてくるのかわからない。$aと$bしかないだろ。
grepやmapと混乱してないか?
0734726
2008/06/13(金) 13:06:56ID:???>>726のソースに間違えて辿り付いたので勘違いしてました
てっきり配列の要素を引っ張り出したらそれが$_になるのかと・・・
で、$a,$bはそれが直接比較の対象にならないといけないのかと勘違いしてました orz
0735nobodyさん
2008/06/14(土) 03:33:00ID:???0736nobodyさん
2008/06/15(日) 00:12:38ID:???リファレンスで受け渡しも簡単だし
0737nobodyさん
2008/06/15(日) 01:14:21ID:???普段は問題なく動いているのですが、自宅で試したperlをiswebにアップロードする作業が面倒でたまりません。
そこで質問なのですが、
#!/usr/local/bin/perl
とかの表記を書き換えずとも、上記二つの環境の両方で動くように出来ないでしょうか。
毎度毎度アップロードするときに、全cgiを書き換えているので、そこだけでも何とかしたいんです。
もしくは、専用のFTPソフトみたいなので、アップと同時に書き換えてくれるような奴があると良いなぁって思ってます。
どなたか、よろしくお願いいたします。
0738nobodyさん
2008/06/15(日) 01:43:19ID:???Net::FTP使えば、30分程度で作れるだろ。
0739nobodyさん
2008/06/15(日) 01:43:42ID:???っ ActivePerl をC:\usr\local\以下にインストール
っ 「メンドクセーっ! 頭 #!perl に統一してやんよ。」(Path通ってなかったら知らん)
0740738
2008/06/15(日) 01:45:20ID:???XPでエイリアス作れるようにするソフト使って、iswebに合わせればいい。
0741nobodyさん
2008/06/15(日) 01:52:33ID:???■サーバー
#!/usr/local/bin/perl
require "example.cgi";
■ローカル
#!C:/perl/bin/perl
require "example.cgi";
これなら、example.cgi をアップするだけでＯＫです。
（意味が違うでしょうか？？）
0742nobodyさん
2008/06/15(日) 02:10:08ID:???どうも、有難うございます。
>>741さんのが一番楽そうなので、それでいこうと思います。
どうもありがとうございました。
0743nobodyさん
2008/06/15(日) 14:41:47ID:???PerlでCGIを作っているのですが、いくつかのフォームから入力を取ろうと考えています。
フォームが一箇所ではないので(検索や書き込み、削除等)、送られて来る処理が全く違うため、
送られて来たフォームによって処理を変えたいです。
例えば、検索ならこの関数、書き込みならこの関数、のように分けたいのですが、どのように
実装するのがスマートな方法でしょうか？
考えているのはhiddenで、フォーム別の値を持っておきその値によって分岐しようと思っている
のですが、他にスマートな方法があれば知りたいです。
宜しくお願いします。
0744nobodyさん
2008/06/15(日) 14:43:16ID:???これが一番一般的で分かり易いと思うよ
0745nobodyさん
2008/06/15(日) 15:43:06ID:???postとらgetを使うときのデバッグってどうしてる？
コマンドラインからPOSTを設定する方法とかあるの？
めちゃめちゃ大変なんだが
0747nobodyさん
2008/06/15(日) 17:51:51ID:???そんなに面倒？
0748nobodyさん
2008/06/15(日) 17:55:33ID:???postでもgetでも、与えられる引数をちゃんとチェックすることで、自然と動作の分岐が行えると思うんだけど
0749nobodyさん
2008/06/16(月) 02:30:03ID:???|￣￣￣￣| [検索] [管理] [ほげほげ]
￣￣￣￣
みたいな感じなら、submit に文字列を仕込むという方法が。
0750nobodyさん
2008/06/16(月) 10:59:18ID:???ラジオかセレクト使えばいいと思う。
それかAjaxか
0752nobodyさん
2008/06/16(月) 12:17:52ID:???ロボットのAIの開発からしなきゃだな。
0754nobodyさん
2008/06/16(月) 12:53:21ID:???0755nobodyさん
2008/06/16(月) 23:32:06ID:???0757nobodyさん
2008/06/17(火) 10:41:46ID:???実際に色々な条件でPOST、GETさせてみて、
おかしくなったらそのつど、修正します。
あとは、スクリプトをWEB上にアップしている場合、
ユーザーの方からのバグ報告フォームを設けておくと、
問題発見が早くなります。
コマンドライン POSTで検索：
http://www.google.co.jp/search?hl=ja&rls=GFRC%2CGFRC%3A2007-04%2CGFRC%3Aja&q=%E3%82%B3%E3%83%9E%E3%83%B3%E3%83%89%E3%83%A9%E3%82%A4%E3%83%B3%E3%80%80POST&lr=
0759nobodyさん
2008/06/17(火) 14:47:07ID:???0760nobodyさん
2008/06/17(火) 16:37:40ID:???0761nobodyさん
2008/06/17(火) 18:26:54ID:???意地はってないで、「わかりません！教えてください！」っていうのがオトナだよ
0762nobodyさん
2008/06/17(火) 18:42:33ID:???意地はってないで、「詳しいことはわかりません!!」っていうのがオトナだよ
0763nobodyさん
2008/06/17(火) 18:53:23ID:???0764nobodyさん
2008/06/18(水) 12:33:38ID:???0765nobodyさん
2008/06/18(水) 14:54:32ID:???guess_encoding のあとに $utf8 = $enc->decode($inputkeyword); とやってるのですが、エラーとなります。
「 or 」 で split して
my $utf8 = Encode::decode($EncType[0], $inputkeyword);
のようにしたりするのが一般的なんでしょうか？
それとも Encode::decode する際に優先順位を決めたり出来て、それで decode できちゃったりするもんでしょうか？
0766nobodyさん
2008/06/18(水) 15:02:39ID:???一般的かどうかは知らんが、俺は JEncode::_func_getcode() みたいな
ラッパーを書いて使っている。
http://www.donzoko.net/source/JEncode/JEncode.pm
0767nobodyさん
2008/06/18(水) 15:25:31ID:???ありがとうございます。
_func_getcode と _ambiguous、_test_mojicode を見ながら実装します。
0768nobodyさん
2008/06/20(金) 01:13:32ID:???@X1(d,e,f);
と二つリストを作って、
$Y = int(rand(2));
で$Yに0か1を入れて、それに対応したリストを使いたいのですが、どうすればいいですか？
print "$X"$Y"[1]";
のような感じにしたいのですが…。
0769nobodyさん
2008/06/20(金) 01:41:21ID:???0770nobodyさん
2008/06/20(金) 01:43:48ID:???print @{'X'.$Y}[1];
0771nobodyさん
2008/06/20(金) 01:53:59ID:???カッコイー
こんな風にしてた。
$Y = 'X'. int(rand(2));
print ${$Y}[1];
横からｽﾏｿ
0773nobodyさん
2008/06/20(金) 08:10:04ID:???今時シンボリックリファレンスはやめとけ。
use strict;
my @X = [[a,b,c], [d,e,f]];
print $X[0]->[1]; # ==b ($X[0][1] とも書ける)
print $X[1]->[2]; # ==f
0775768
2008/06/21(土) 17:41:30ID:???バカの一つ覚え状態でかいてます＞＜
>>773の書き方は始めてみました。
ありがとうございます。
0776nobodyさん
2008/06/21(土) 17:48:55ID:???0777nobodyさん
2008/06/21(土) 23:46:21ID:???0779778
2008/06/22(日) 01:49:38ID:???0780nobodyさん
2008/06/22(日) 02:10:15ID:???ちょっとしたデータをファイルの中にまとめておければ便利だと思っているのですが、
そのような奴があれば、助かります。どなたかご教授ください。
0782nobodyさん
2008/06/22(日) 13:05:18ID:???open(COM_RET, "ping -n 10 192.168.100.1 |");
while ($data_line = <COM_RET>) {
print $data_line;
};
close(COM_RET);
0783nobodyさん
2008/06/22(日) 13:27:13ID:???pingコマンドは存在する？
openの後に$|=1;したら表示される？
for (`ping -n 10 192.168.100.1`){print;}ではどう？
0784782
2008/06/22(日) 13:28:07ID:???プログラムの保存先を間違えていました。
0785nobodyさん
2008/06/25(水) 22:01:59ID:???フォームのデータがおかしくなってたことありませんか？
たとえば、なにも入力しなかったinputフォームの値が全て文字列の"VALUE"に
なったり・・・
0786rubi
2008/06/26(木) 00:32:36ID:P35F8OvT0787nobodyさん
2008/06/26(木) 00:55:50ID:???引数中にスペース等ある時は、
system qq($cmd "$arg1" "$arg2" ・・・);
0788nobodyさん
2008/06/27(金) 16:35:38ID:???こんなファイルがあります → 項目\tデータ\n
中には同じ項目でデータ違いがあります。
100\t百\n
100\t百円\n
100\t百円玉\n
同じ項目は一つで良いので一番データの短い100\t百\nを残して
残りの長い二行を削除したいと考えています。
何か良い方法は無いでしょうか。
短いデータのみ残したいので配列の重複削除サンプルは
そのままでは利用不可でした。
0789788
2008/06/27(金) 16:38:10ID:???重複サンプル〜以下は忘れてください。
0790nobodyさん
2008/06/27(金) 17:02:39ID:???0791788
2008/06/27(金) 17:30:24ID:???項目もデータもバラバラなので方法が思いつかなくて。
0792nobodyさん
2008/06/27(金) 17:41:01ID:???0793788
2008/06/27(金) 17:59:26ID:???そうじゃなくて、連想配列にしてデータサイズでソートとかあるんでしょうか？
分かりません（＞＜）
0794nobodyさん
2008/06/27(金) 18:21:02ID:???0795nobodyさん
2008/06/27(金) 18:27:40ID:???まずはopenでファイル開けるの解かる？
0796788
2008/06/27(金) 18:50:29ID:???連想配列に入れてみました。
my %DATA;
open R, "koumoku.txt" or die;
while (<R>) {
chomp;
my ($key, $value) = split(/\t/);
$DATA{$key} = $value;
}
close R;
データサイズでソートは後でググってみます。
項目ごとに最短データだけ残す方法は今の時点で想像できません。。
0797nobodyさん
2008/06/27(金) 19:15:25ID:???if (exists $DATA{$key}){
length($DATA{$key}) > length($value) and $DATA{$key}= $value;
} else {
$DATA{$key}= $value;
}
0798nobodyさん
2008/06/27(金) 19:47:44ID:???食事してて遅れました。
そのままコピペしたのですが望むとおりです完璧です。
項目ごとに一番小さいデータが残る。凄い考え付かない。
本当にありがとうございました。
0799nobodyさん
2008/06/28(土) 13:36:15ID:???・母親は受験勉強をする息子の学力向上のためにフェラチオをする
・日本人女性の55％は、出会ったその日に男と寝る
・ファストフードは女子高生たちを性的狂乱状態におとしいれる
・ティーンたちはバイアグラを使ってウサギのようにセックスをする
・女子高生は、刺激のためにノーブラ・ノーパンになる
・日本の最新の流行 : 70歳の売春婦
・老人の売春婦の人気にもかかわらず、日本では小学生の売春婦にも仕事がある
・日本の若い看護婦は売春婦に勝る
・２４時間オルガズムが止まらない病気で苦しむ日本人女性の数が増えている
・15未満の子供を対象とした疑似ポルノが日本に蔓延している
・OLの72％が、セックスをより堪能するために何らかのトレーニングを受けている
・人妻は気分転換の目的で昔の恋人に抱かれに行く
・主婦は郊外のコイン・シャワーで売春をしている
・日本男子は柔道や空手の部活で男相手に童貞を捨てている
・ほとんどすべての漁師は海でマンタとSEXしている
・まだ10代の少年から退職した老人までみんな2980円の手コキを利用している
・六本木のあるレストランでは、食事の前にその材料となる動物と獣姦する
※同社が全年齢向けコーナーで七年以上にわたり世界に向けて配信していたものの一部です
※同社の行為は日本人への偏見や人種差別、婦女暴行、幼児虐待を助長するものです
◆毎日新聞の英語版サイトがひどすぎる まとめ＠wiki
http://www9.atwiki.jp/mainichiwaiwai/
◆毎日新聞問題の情報集積wiki
http://www8.atwiki.jp/mainichi-matome/
つまり日本人なら
http://www.vipper.net/vip552788.jpg
0800nobodyさん
2008/06/29(日) 21:21:31ID:ib7dTQ8mSyntax::Highlight::Engine::Kateはちょっと好みじゃなかったのと、
Text::Highlightは今のところ使い方が分からないの。
0801nobodyさん
2008/06/29(日) 21:37:01ID:???0802nobodyさん
2008/06/29(日) 23:14:30ID:???0803nobodyさん
2008/07/03(木) 04:34:06ID:N0WlacZt220 名前： 名無し三等兵 [sage] 投稿日： 2008/06/30(月) 00:35:59 ID:???
イスラムや胡錦濤の記事にもhentai入ってて
ニュー速の連中がアルジャジーラとかにメールしようとして
鬼女が止めに入ったり、なかなかわかってるなぁと。
262 名前： 名無し三等兵 [sage] 投稿日： 2008/06/30(月) 00:43:47 ID:???
つーか原理主義者は日本に入り込んでいるし組織もあるから
原理主義者によって白昼堂々人通りのある場所で首を掻き切られて
助教授が殺されて犯人が何も特定できていないわけで・・・
297 名前： 名無し三等兵 [sage] 投稿日： 2008/06/30(月) 00:51:28 ID:???
>>272
いや・・・それが・・・
タレコミより前に韓国でコーランが焼かれたと報道されてて
アルジャジーラＴＶより韓国でコーランを燃やす映像が放映され、アラブ諸国でさまざまの反応が出ている。
・その映像を見た老人がショック死（サウジアラビア）
・その映像を見た青年ら十数人が韓国大使館に投石（シリア）
★祭り★ 「日本の母は息子の性処理係」毎日新聞が捏造記事41
http://human7.2ch.net/test/read.cgi/ms/1215003832/
★祭り★ 【毎日・変態報道】 毎日新聞、「２ちゃんねる」を名指し…「女性社員中傷書きこみで法的措置」で★26
http://mamono.2ch.net/test/read.cgi/newsplus/1215016627/
【記者】毎日新聞の英語版記事で日本を侮辱【豪人】
http://academy6.2ch.net/test/read.cgi/english/1213971760/
【Daily】毎日新聞英語版がひどすぎる 3【WaiWai】
http://society6.2ch.net/test/read.cgi/mass/1214603376/
【毎日新聞】 iチャネル解約スレ 【変態報道】
http://hobby11.2ch.net/test/read.cgi/keitai/1214802475/
0804nobodyさん
2008/07/08(火) 20:37:38ID:???use CGI;
use Encode;
$cgi = CGI->new;
print "Content-type: text/html; charset=EUC-JP\n\n";
print encode('euc-jp', $cgi->param('test'));
とやって、それぞれUTF8,SJIS,EUCで'test'に入力しても、EUCコードでの文字列が出てこず、化けてしまいます。
どうやって強制的にEUCに変換するのか教えてください。
0805nobodyさん
2008/07/08(火) 20:38:36ID:???perlのバージョンは5.8.8です。
0806nobodyさん
2008/07/08(火) 20:44:53ID:???それも抜きだと jcode.pl で convert するくらいしか他に方法が無い？
0808nobodyさん
2008/07/08(火) 23:49:39ID:???encode()の第2引数は、デコード済みの文字列でないとだめでしょ。
encode(ocode, decode(icode, str))
ocode…出力する文字コード
icode…strの文字コード
str…入力する文字列
■ このスレッドは過去ログ倉庫に格納されています