トップページ⇒php
1001コメント332KB

Perlコーディング初心者質問スレ Part 51

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2006/07/27(木) 17:04:23ID:???
Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

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

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

過去ログやお勧めサイトは >>2-10
0598nobodyさん2006/08/18(金) 14:43:32ID:???
>>597
おまえいい加減にしろ。
何個マルチしてんだボケ。
解答かえってきてるんだからまずはそれ嫁馬鹿。
0599nobodyさん2006/08/18(金) 14:47:31ID:xIt7iz8d
>>598
今レスしてきました。
こちらにも解決した旨書こうと思ってたところです、遅くなってすいません。
別にマルチするつもりはありませんでした、回され続けたもので・・ほんとスイマセン。。
>>597の質問は解決しました
ありがとうございました
06005822006/08/18(金) 16:47:54ID:???
お～い
0601nobodyさん2006/08/18(金) 17:14:01ID:???
ちょっとしつもんー。

# A.pm
package A;
use CGI;
1;

# B.pm
package B;
use A;
@B::ISA = qw(A); # この1行はなくても動くけど、実際の用途で使ってるので。
my $Q = CGI->new();
1;

こんなことやってもいいのかな？
つまり、B.pm で use CGI; って入れなくても、A で use して require してるから動くし警告も出ないんだけど、
これってお行儀よくないのかな？ ってことなんだけど。
0602nobodyさん2006/08/18(金) 17:35:23ID:???
動くけど行儀はよくない。
0603nobodyさん2006/08/18(金) 18:57:28ID:lccc8Mku
ハッシュのキーに今までずっとハイフン使ってたけど、
アンダースコアならクォートしなくてもいいし、
もしかして、perlに関する名前系には全てアンダースコアがいいの？

でもなんでだろ。なんでハイフンを今まで使ってたんだろ。
何か理由があるはずだけどな。
0604nobodyさん2006/08/18(金) 19:08:57ID:???
> perlに関する名前系
意味が分かりません。
0605nobodyさん2006/08/18(金) 19:39:04ID:???
名前にはハイフンは使えない。ハッシュキーは名前じゃない。
perl -e '@a=qw/a b/; @b = qw/z y/; $h{\@a} = 1; $h{\@b} = 2;for (keys %h){ print "$_ = $h{$_}\n";}'
なんてのも当然の事ながら動く。
0606nobodyさん2006/08/18(金) 19:46:28ID:???
>>605
んー、まぁそうなんだけど。
コードの方は例としてどうなのよ。
リファレンスを文字列として解釈して、それをキーにしてるだけだけど。
0607nobodyさん2006/08/18(金) 21:33:32ID:???
サーバーにアップするファイル名や、プログラムのソース内に
演算子を使うという行為そのものが信じられない
0608nobodyさん2006/08/18(金) 21:42:51ID:???
VBだったらどうするつもりなんだろ？
0609nobodyさん2006/08/18(金) 22:08:52ID:???
>>606
おお、本当だ。
いままで、オブジェクトのリファレンスをキーにしているものだと信じきっていた。

perl -e '$k="ARRAY(0x8600b08)"; @a=qw/a b/; @b = qw/z y/; $h{\@a} = 1; $h{\@b} = 2; $a[2] = "c";for (keys %h){ print "$_ = $h{$_}\n";}; print "$d=$h{$k}\n"'
($k は一回実行後、適当に直してくれ。)
0610nobodyさん2006/08/18(金) 23:24:30ID:???
>>601
use と require は勝手に重複ロードを避けてくれます。ですからその場合は迷わず use しておくべきです。
# 余談: B.pm は標準モジュールとカブるんで例にしてもイマイチかな。
0611nobodyさん2006/08/18(金) 23:34:13ID:+PBYJBRx
研究室でC言語のプログラムをかなり多く回すのですが、先輩から
「いちいちプログラムを一つ一つ回すのめんどくさいからキー一つで全てのプログラムを研究室内のコンピュータに分散させて回せるようにしとけ。
　多分perlでできると思うから。」
と言われました。
当方こういった事に無知です。
何から手をつければいいのか分からず困っています。
どこで聞けばいいのか分からずこちらで聞いてみました。
どうかご教授お願いします
0612nobodyさん2006/08/18(金) 23:37:10ID:???
>>607
言いたい事は分からんでもないですが…。
「ファイル名」は気にしないなあ。ハードコードするにしてもクォートするに決まってるんで。
「プログラムのソース内に」は…ごめんなさい、少なくとも僕は使わないと書けないです。信じてもらえないかもしれませんけど。
0613nobodyさん2006/08/18(金) 23:50:50ID:???
>>611
とりあえず「perl バッチ処理」とかでググればいいと思うよ。
ていうかその研究室大丈夫か。
0614nobodyさん2006/08/18(金) 23:52:59ID:???
その大学の名前を是非教えてくれ
0615nobodyさん2006/08/18(金) 23:57:20ID:???
perlじゃなくてもシェルで組めると思うが
0616nobodyさん2006/08/18(金) 23:57:53ID:+PBYJBRx
>>613
㌧クスです。感謝いたします。情報系でないのでなんとも…
>>614
聞いても「あーやっぱりｗ」ってなレベルの大学です。
0617nobodyさん2006/08/19(土) 00:06:53ID:???
>>616
どの辺りの地方かだけでも無理？
俺の大学の予感がする…
# ちなみに東海地方、「あーやっぱり」な大学ｗ
0618nobodyさん2006/08/19(土) 00:08:50ID:???
世間話は mixi でやれ。
0619nobodyさん2006/08/19(土) 00:39:59ID:????2BP(223)
ゆうじんが
だれもいないから
みくしぃの
しょうたいめーる
いまだとどかず
0620nobodyさん2006/08/19(土) 00:51:25ID:???
ゆうれいがでた！？
0621nobodyさん2006/08/19(土) 07:39:58ID:???
>>619
ｶﾜｲｿｽ
06226202006/08/19(土) 08:38:28ID:???
つっこんでもらえない俺の方がカワイソウなんだが？
0623nobodyさん2006/08/19(土) 08:46:12ID:???
>>622
つっこみどころがない
誤爆としか思えない
06246202006/08/19(土) 09:05:27ID:???
縦読みだろ」。。。」
0625nobodyさん2006/08/19(土) 09:57:41ID:???
( ﾟДﾟ)
0626nobodyさん2006/08/19(土) 11:30:40ID:???
ここ本当にperlスレか？
0627nobodyさん2006/08/19(土) 12:00:41ID:???
糞スレです＞＜
0628nobodyさん2006/08/19(土) 15:31:15ID:???
は？何桁目縦読み？
0629nobodyさん2006/08/19(土) 16:29:19ID:GA5MBol0
>>628
５桁目でしょ。
0630nobodyさん2006/08/19(土) 16:51:08ID:WYPasnq7
質問させて下さい。

print "<FONT size=2>表示</FONT>\n";

とすると、｢表示｣の文字が文字化けします。

print '<FONT size=2>表示</FONT>\n';

とすると文字化けしませんが、｢\n｣が表示されてしまいます。

とうしたら良いでしょうか？
0631nobodyさん2006/08/19(土) 16:58:10ID:???
print '<FONT size=2>表示</FONT>',"\n";
0632nobodyさん2006/08/19(土) 16:58:59ID:???
sjis使うのをやめる
0633nobodyさん2006/08/20(日) 01:19:05ID:???
表\示
0634nobodyさん2006/08/20(日) 01:21:43ID:jxY7weHr
　　　　　きれたおっ～～～～～
　　　　　　　　　　　　　　　　　
　　　　　　　　　　 　／⌒ヽ γ⌒'ヽ
　　　　　　　　　　　（　＾ω＾）i　ミ（二i　　　
　　　　　　　　　　　( 　∪ ∪ヽ､,,_| |ﾉ　　　　
　　　　　　　　　　　と＿)＿) 　r-.! !-､　　
　　　　　　　　　　　　　　　　　 ｀'----'　　
0635nobodyさん2006/08/20(日) 02:30:01ID:???
http://www.kent-web.com/pubc/jcode/
0636nobodyさん2006/08/20(日) 08:41:26ID:???
どなたか>>596お願いします。
06376202006/08/20(日) 08:54:38ID:???
本当にわからないんだｎ。
頭の悪いやつにきたいした俺ｇまちがいただ。
0638nobodyさん2006/08/20(日) 09:02:20ID:???
うんまぁそういうことにしとけ
0639nobodyさん2006/08/20(日) 09:52:07ID:???
>>596
将来の拡張なども考えて、オブジェクト指向で書くのが良いと思う。
完全オレオレモジュールなら、どちらでもという気はする。

http://www.kt.rim.or.jp/~kbk/perl5.005/perlmodlib.html#Guidelines_for_Module_Creation
0640nobodyさん2006/08/20(日) 10:09:15ID:???
Perlが一番苦手な処理、オブジェクト指向
0641nobodyさん2006/08/20(日) 11:48:14ID:???
perlがオブジェクト指向を苦手というわけではなく、オブジェクト指向を「処理」だと
考えているキミ自信がオブジェクト指向を苦手としているのだ。
0642nobodyさん2006/08/20(日) 11:48:36ID:???
別に使う方が分かってれば全く問題ない。＜OOP
0643nobodyさん2006/08/20(日) 11:58:45ID:???
メソッド名を実行時に解決するからインタープリタの苦手な分野だな。
Movable Typeがクラスを一切使わず、全部関数なら2倍弱速いとか。
0644nobodyさん2006/08/20(日) 12:11:58ID:???
コンパイラでも実行時のメソッド探索はコストが高いです。
0645nobodyさん2006/08/20(日) 16:12:29ID:???
それでも12万もしませんよ
0646nobodyさん2006/08/20(日) 16:33:59ID:???
それより中途半端なOOの実装をなんとかしる
0647nobodyさん2006/08/20(日) 17:00:10ID:???
>>646
Perl は風呂敷みたいなもんだ。
風呂敷にジュラルミンケースの長所を求めて何か嬉しいことがあるかな。

それでも君はいつでも OO::Excellent を書いて CPAN に登録できるし、きっと誰もそれを止めない。
0648nobodyさん2006/08/20(日) 18:00:00ID:???
タイム風呂敷～
0649nobodyさん2006/08/20(日) 18:29:15ID:???
Perl6でOOP周りは随分まともになる
…が、それでもやっぱりPerlの変態度は変わらない
どころか強化されるので何とも言えない。

変数の頭に付ける記号、増えるんだよなぁ。~$?FOO とか　+@*BAR とか。
0650nobodyさん2006/08/20(日) 21:00:08ID:???
>>649　それがいい
0651nobodyさん2006/08/20(日) 22:24:07ID:???
>>649
別にそういう記号が増えるだけで、
基本は変わらない。
http://dev.perl.org/perl6/doc/design/exe/E02.html
0652nobodyさん2006/08/21(月) 00:40:05ID:1WWjUDHa
「あいうえおかきくけこ」という文字列があった場合、
これを「あいうえお．．．」という感じに、先頭5文字だけ表示させるようにしたいのですが、可能でしょうか？

個人的には「length」を使うのかなと睨んでいるのですが・・・。

簡単で構わないのでアドバイスお願い致します・・・ orz
0653nobodyさん2006/08/21(月) 00:49:09ID:???
>>652
まずは思ったままをやってみて、結果を見ながら「何故こうなる？」という部分を考え、
それでもやっぱりわからなかったら聞きにおいで。
0654nobodyさん2006/08/21(月) 00:55:44ID:????BRZ(1002)
予想
substrでやる　→　途中で文字が切れちゃいました！　→
0655nobodyさん2006/08/21(月) 01:16:18ID:???
utf8::decode($str)
0656nobodyさん2006/08/21(月) 01:55:18ID:???
まず、[abcdefg]の中からabcを抜き出せるようになった方がいい。そうすれば、日本語の抜き出しもめどがつく。
0657nobodyさん2006/08/21(月) 03:12:24ID:???
つーかさ、perlやってて文字列操作が全く出来ませんって、
じゃあ、いったい何が出来るのか問いたい
0658nobodyさん2006/08/21(月) 03:27:47ID:???
>>657
標準出力への文字列出力に決まってるじゃないか。
つまらないこときくなよう。
0659nobodyさん2006/08/21(月) 04:21:44ID:???
PHPからPerlに移って来たものなんですが、
Perlにはエラーの制御演算子みたいなものはありますか(PHPでいうところの『@』)?

演算子などでなくても、Perlのエラー文が表示されなくなれば良いんですが……。
0660nobodyさん2006/08/21(月) 06:37:43ID:???
>>659
同じ物はないよ。
PHPの@を(notice避けの)手抜きに使ってるのか、
(スクリプトの終了を回避して)後始末をするために使ってるのかにもよる。
・コード修正
・no warnings/strict
・eval
あたりかな。
0661nobodyさん2006/08/21(月) 09:07:48ID:???
SJISなら
use encoding "shiftjis";

eucなら
use encoding "euc-jp";

のおまじないをしておくとか。。。
0662nobodyさん2006/08/21(月) 13:28:33ID:???
>>661
どこへの返答かいまいちわからんけど、encoding プラグマは「おまじない」としてはちょっと勧めづらい。
0663nobodyさん2006/08/21(月) 13:40:19ID:???
>>659
> 演算子などでなくても、Perlのエラー文が表示されなくなれば良いんですが……。

これを読む限りでは抑制したい「エラー文」は主に警告の類なんでしょう。
出力を抑えるのではなく STDERR をファイルにリダイレクトする手もあります。
そうしておくことで、後からどのようなエラーが生じていたのか確認できます。

もちろん use strict 及び use warnings 下でエラー・警告の出ないように書く、というのが本筋ですけれど。
その上で本当にそれが必要なら no strict ～ や no warnings ～ などで極力限定的に制限を緩める方法があります。
0664nobodyさん2006/08/21(月) 14:38:15ID:???
>>660
"no warnings"がこちらの望みどおりだったので使わせていただきました。
ありがとうございました～！
0665nobodyさん2006/08/21(月) 17:57:03ID:GgkIkg39
>>81
http://oraclesqlpuzzle.hp.infoseek.co.jp/regex/regex-2-1.html
0666nobodyさん2006/08/21(月) 22:38:34ID:???
ログ取り用途に、envを読み込んで整理してdata.txtに吐き出すプログラムを書いたのですが、htmlからの読みだしに困っています…
調べたところ、<img>タグで読みだして、CGIの方からダミーの画像を排出する…みたいな方法があるようなのですが、細かくは書かれておらず、どういうことかよくわかりません…
情報が少なく申し訳ありませんが、よろしくお願いしますm(_ _)m

ちなみに携帯用なのでJavaやJavaScript系は不可で、SSIも使えませんm(_ _)mm(_ _)m
0667nobodyさん2006/08/21(月) 22:49:08ID:???
そのページをCGIで動的に出力できないの？
それが無理なら、data.txt じゃなくて表示用HTMLファイルを直接吐くようにするとか。
0668nobodyさん2006/08/21(月) 23:30:54ID:???
WinXP+ActivePerlでLibXMLがインストールできません。

http://zerosp.com/mt/archives/xml-sax-error.php
ほぼこのページの手順どおりに作業したのですが、どうしても最後の
ppm install XML-LibXML
を打ち込むと、長いHTMLソース(activestate.comのページ？)が現れて終了してしまいます。
どうすればインストールできるでしょうか。
06696682006/08/21(月) 23:34:17ID:lSGtoXSQ
追記です。表示されるHTMLはどうやら、
何故かこのページのようです。
http://aspn.activestate.com/ASPN/Modules/Perl?query_start=1
06706662006/08/21(月) 23:44:30ID:???
>>667
ありがとうございますm(_ _)m

つまり、トップ自体をcgiにするということですよね…？
負荷がかかるんじゃないかなぁなんて考えているのですが…m(_ _)m

2つ目は、どういうことかよくわかりませんでした…m(_ _)m
0671nobodyさん2006/08/21(月) 23:44:47ID:???
>>668
ttp://oshiete1.goo.ne.jp/kotaeru.php3?q=1848375
0672nobodyさん2006/08/21(月) 23:48:04ID:???
>670

～ごにょごにょっと処理～

# 以下ダミー画像の出力
open(JPG, $jpegimage);
binmode(STDOUT);
read(JPG, $jpg, (-s JPG));
close(JPG);
print "content-type: image/jpeg\n\n";
print $jpg;
0673nobodyさん2006/08/21(月) 23:53:33ID:???
>>670
負荷なんてしらんがな（´・ω・）　制限があるなら最初から書こうよ...
システム管理者と相談汁！

後者の方法はつまり、data.txt を作成するスクリプトが、同時に
そのトップページのHTMLファイルを作り直す、もしくはデータを表示している部分を書き換える。
こちらの方法だと、表示されるのは静的なHTMLファイルだから、負荷は変わらないはず。
0674nobodyさん2006/08/22(火) 00:05:01ID:???
無料サービスでもその程度の負荷は負荷のうちに入らないわけだが・・・
0675nobodyさん2006/08/22(火) 01:05:29ID:???
携帯用のアクセス解析も腐るほどあるわけで
06766682006/08/22(火) 01:09:43ID:???
>>671
すいません、そのページも参考にしていたのですが分かりませんでした。

現在、CPANからのインストールを試みているのですが、
install XML::LibXMLと打ち込むと
===============================================
enable native perl UTF8
looking for -lxml2... no
looking for -llibxml2... no
libxml2 not found
Try setting LIBS and INC values on the command line
Or get libxml2 from
http://xmlsoft.org/
==============================================
とのメッセージが出て止まってしまいます。
libXML2ライブラリがない事が原因のようなので、
http://www.zlatkovic.com/libxml.en.html#binaries
ここからバイナリを落としてパスの通った場所においてみたのですが効果がありません。

どうすればいいでしょうか。
0677nobodyさん2006/08/22(火) 01:33:10ID:???
>>672

openの使い方が汚いよ
0678nobodyさん2006/08/22(火) 12:36:37ID:???
>>677
それなら綺麗な書き方を書いておくれ。
0679nobodyさん2006/08/22(火) 16:06:29ID:???
否定だけするのがム系板クオリティ
0680nobodyさん2006/08/22(火) 16:31:48ID:???
書き方は自由だけど、ハンドルにJPGは使わない。
0681nobodyさん2006/08/22(火) 16:47:03ID:???
jpegを開くんだからJPGはそれほど悪い選択だとは思わない。
FINとかよりはいくらかマシかもしれん。
0682nobodyさん2006/08/22(火) 17:06:57ID:???
ハンドル名の命名規則なんて無いでしょ？
0683nobodyさん2006/08/22(火) 17:52:11ID:???
ぐぁ、PerlにもSQLiteってあったのか。PHPしかないと思ってた。
0684nobodyさん2006/08/22(火) 18:06:15ID:???
Cと互換性のある言語、内部実装がCの言語なら何でも可能
Perl、PHP、Ruby、Python、C、C++、C#、アセンブリ、Java etc
0685nobodyさん2006/08/22(火) 20:06:12ID:???
ファイルハンドル名には
　全て大文字
　（丁寧な人なら）最後にFHを付ける
といった慣習がある程度じゃないの？

それとopenにエラー処理を含めなかったのは面倒だったから。
0686nobodyさん2006/08/22(火) 21:23:28ID:???
binmode
0687nobodyさん2006/08/23(水) 03:47:16ID:XWuzfmww
たくさんのURLの中から特定のドメインだけのURLを抽出してファイルに書き出したいんですがどうすればいいですか？
0688nobodyさん2006/08/23(水) 04:09:51ID:wU1utu5f
>>678
本屋で小飼の赤い本探せ
0689nobodyさん2006/08/23(水) 09:14:41ID:???
>>687
今ここにあるリストから抜き出すだけの使い捨てなら、perlを使うまでもなく
ほとんどの場合grepコマンドで十分。

長く使う一般的な奴を作るのならURIモジュール使うのが楽かな。
0690nobodyさん2006/08/23(水) 10:30:39ID:???
データファイルのフォーマットぐらい書けって
0691nobodyさん2006/08/23(水) 12:24:46ID:???
>>688
誰かが質問 → 自分では答えない
誰かが回答 → 書き方が汚い
模範解答を求める → 本屋で探せ

( ´,_ゝ｀)ﾌﾟｯ
0692nobodyさん2006/08/23(水) 13:55:26ID:???
>>687
「たくさんのURLの中から」→テキストファイルにデータがあるんですか? 形式は? 1行1URL?
htmlのソース内から抜き出す? …というようなことを具体的に書いてください。

「ファイルに書き出したい」
これも書き出したい形式を示してくれないと、どう書き出したいかわかりません。

入出力とも1行1URLなら、perlを使わずとも

grep DOMAMIN_NAME input.txt > output.txt

ですみますよ。
0693nobodyさん2006/08/23(水) 15:57:08ID:???
>>691
出版社の回しもんだよ。違うかｗ
0694nobodyさん2006/08/23(水) 16:51:38ID:aL45Sk1a
SSIについての質問はここで良いのでしょうか？
0695nobodyさん2006/08/23(水) 17:18:15ID:???
違います
0696nobodyさん2006/08/23(水) 17:29:35ID:aL45Sk1a
すみません。ＳＳＩの質問はどこですれば良いでしょうか。
0697nobodyさん2006/08/23(水) 17:34:20ID:???
http://pc8.2ch.net/test/read.cgi/php/1151501830/
俺優しすぎる
■ このスレッドは過去ログ倉庫に格納されています