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

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

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

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

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

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

過去ログやお勧めサイトは >>2-10
0577nobodyさん2005/11/22(火) 17:31:51ID:???
>>573
ＣＧＩ設置について質問　【Part2】
http://pc8.2ch.net/test/read.cgi/php/1104624784/
0578nobodyさん2005/11/22(火) 17:49:44ID:???
>>577
サンクス
0579nobodyさん2005/11/22(火) 17:53:28ID:eRlqTFqT
$year=2005,$month=11;
@allfiles=(haman200511,Amuro200511);
@persons=(Amuro,Quess,Char);
↓
my($year, $month) = (2005, 11);
my(@allfiles) = ("haman200511", "Amuro200511");
my(@persons) = ("Amuro", "Quess", "Char");
0580nobodyさん2005/11/22(火) 17:55:35ID:???
>>579
qw 使えよ。
0581nobodyさん2005/11/22(火) 18:08:43ID:???
TMTOWTDI ：-P
0582nobodyさん2005/11/22(火) 19:46:43ID:???
タイミング系のデバッグはどうやってやってますか？
0583nobodyさん2005/11/22(火) 20:01:32ID:???
タイミング系って何のこと言ってますか？
0584nobodyさん2005/11/22(火) 20:08:08ID:???
まったく同じタイミングのアクセスを意図的にやるにはどうやったらいいでしょうか？
0585nobodyさん2005/11/22(火) 20:22:48ID:???
>>576
use warningしてみましたが,状況は進展しませんでした.

>>579
実際のスクリプトではクォートしています.
抄写するにあたり,変数の中身を示しておこうと思い,
記述したときの手抜かりで,クオートし忘れました,申し訳ありません.
0586nobodyさん2005/11/22(火) 20:32:03ID:???
>>585
で、クォートしたらウチでは動くんだけど、そっちでは動かないの？
0587nobodyさん2005/11/22(火) 20:35:50ID:???
> さすがに !#/usr/bin/perl はちゃんと記述してあります.
なんで誰も突っ込まないｗ
0588nobodyさん2005/11/22(火) 21:08:47ID:???
>>586
WInXp&Apacheのローカル環境だと大丈夫なのですが,レンタルスペースだとダメなんです.
ローカルとサーバの違いというものがよく判らなくて,デバッグに四苦八苦という状態です.

>>587
#!/usr/bin/perl ですね.すみません.


もう少し自分で頑張ってみてダメなようでしたら,また質問するかもしれませんが,
そのときはよろしくお願いします.
0589nobodyさん2005/11/22(火) 21:15:52ID:???
>>588
ローカルがWinってのは先に言おうな。話が全然違ってくるからな。
で、俺が言ってるのは>>572にクォート入れても動かないのか、なんだが。

もういいや。
0590nobodyさん2005/11/22(火) 21:25:32ID:???
>>569
無駄なやりとりが増えるから落ち着いてから出直してきなさい。

OSが異なれば改行の扱いが変わったりもするし、
スクリプトやデータファイルの文字コードに起因しているかもしれんし、
マルチバイトなファイル名/ディレクトリ名なんて脱力ものな原因かもしれんし、
FTP転送がまずいだけかもしれん。

　typo
　様々なエラーがでてしまいます。
　挙動がレンタルとローカルで異なっています。
・・・神かエスパーじゃなきゃわからんよ。
0591nobodyさん2005/11/22(火) 22:02:19ID:???
デバッグに関するテンプレ欲しいな。
0592nobodyさん2005/11/22(火) 22:08:49ID:???
>>569
"Hello World"を表示するような単純なスクリプトを動かしてみれ。
まずはそこから。
05939742005/11/22(火) 23:14:39ID:???
借りている鯖がFreeBSDだって事は知っていたんだけど
文字コードなんか気にせずに秀丸で文字コードをshift_jisに設定して書いて
ﾏｽﾀ、所が全角英数字を半角英数字にしようとしたら、プログラム自体は
jcode::tr(\$arg_[$i], '０-９Ａ-Ｚａ-ｚ', '0-9A-Za-z');
たったのこれっぽっちなんだけど、これって文字コードがEUC-JPじゃないと
正確に変換出来ないんだよね、やっぱり皆さんもperlのプログラム書くときの
文字コードはEUC-JPﾃﾞﾂｶ？
0594nobodyさん2005/11/22(火) 23:18:40ID:???
どこの誤爆？
0595nobodyさん2005/11/22(火) 23:21:51ID:???
974ﾃﾞﾂ誤爆ｽﾏｿ
0596nobodyさん2005/11/23(水) 04:24:57ID:fNvsPnqm
はじめまして
本のサンプルコードで理解できないところがあるんで教えてください。
$Value =~ /(\w+)\.(\w+)$/;
なんて書くときの、最後の、
$/
って何を表すんですか？
ファイル名を取り出すようなところで使われてるんだけど…。

これなに？
下の例だと$っていらない気がするんだが…。
こんな感じ
例:
if($FileName =~ /(\w+)\.(\w+)$/){
$FileName = "$1\.$2";
}
0597nobodyさん2005/11/23(水) 04:32:09ID:???
>>596
http://x-web.pobox.ne.jp/fcgi/fcgi_20.html
05985962005/11/23(水) 04:38:15ID:fNvsPnqm
>>597
ネ申！！
ありがとうございます。
ちゅーか、大喜びするほどじゃない…。基礎ネタ？
修行していつか還元します…。
0599nobodyさん2005/11/23(水) 08:50:52ID:???
File::Spec や File::Basename を使ってないスクリプトは例外なく糞。
0600nobodyさん2005/11/23(水) 08:56:54ID:???
んなこたーない
0601nobodyさん2005/11/23(水) 10:33:48ID:???
File::Spec や File::Basename を使わないとスクリプトを書けない奴は例外なく糞。
0602nobodyさん2005/11/23(水) 11:30:00ID:???
>>601
あぁ、ここ WebProg 板だったね(わらい
0603nobodyさん2005/11/23(水) 16:24:36ID:???
File::SpecやFile::BasenameはFile::SpecやFile::Basenameを使って
書かれているんだろうか?
0604nobodyさん2005/11/23(水) 16:45:50ID:???
目的の処理ができるかどうか。。　　ただそれだけだ。
コストが折り合えば使えるものはなんでも柔軟に使い、使えないものは使わない。
これを使わなきゃダメなんて・・・　やり方がいくらでもある以上、口が裂けても言えん
0605nobodyさん2005/11/23(水) 16:52:23ID:???
そうやって、カスみたいなCGIが量産されていくのですね。
0606nobodyさん2005/11/23(水) 16:57:40ID:JssfbXnp
ここまで何も作れないｶｽの妬みﾚｽでした＾＾
0607nobodyさん2005/11/23(水) 16:59:58ID:???
>>599=>>602=>>605
異常な執念深さだな。 File::Spec と File::Basename に何かコンプレックスでもあるのか？
0608nobodyさん2005/11/23(水) 17:11:23ID:???
>>607
>>599と>>602は俺じゃないけど。
標準で付いてくるモジュールぐらい、ちゃんと使ったらどうよ。
(不完全な)車輪の再発明を見てると馬鹿かと思う。
0609nobodyさん2005/11/23(水) 17:20:16ID:???
>>608
ほほう。
元質問が「本のサンプルコード」に関する質問だっていうのに、
File::Spec や File::Basename を持ち出すのが適切だとでも？
0610nobodyさん2005/11/23(水) 17:30:15ID:QqvL0TVY
　半角カタカナを化けずに表示させたかったので、jcodeg.plというものがあると知り、それを使ってみたのですが、
やはり化けてしまいます。原因として何が考えられるでしょうか？
0611nobodyさん2005/11/23(水) 17:32:10ID:???
半角カタカナだと、文字コード判別(getcode)で誤判別をしてしまう。
0612nobodyさん2005/11/23(水) 17:34:05ID:???
>>610
Shift-Jisをやめればいいと思います
0613nobodyさん2005/11/23(水) 17:40:21ID:???
モジュールは確かに便利なんだけど、infoseekで使うときに困るんだよな。
0614nobodyさん2005/11/23(水) 17:49:16ID:???
>>610
どうやって使ったのか言うてみい。
0615nobodyさん2005/11/23(水) 18:22:04ID:???
>>609
糞な本が糞なプログラマを養う。
0616nobodyさん2005/11/23(水) 18:34:04ID:???
泥の中に蓮の花を開く
0617nobodyさん2005/11/23(水) 19:20:27ID:???
kent見本にしたコードはひどいよな。
0618nobodyさん2005/11/23(水) 20:04:36ID:???
>>617
はいはいKENTを超えてから言ってね
0619nobodyさん2005/11/23(水) 20:09:38ID:???
それはギャグて言っているのか？（ＡＡ略
0620nobodyさん2005/11/23(水) 20:10:39ID:???
妬み乙
0621nobodyさん2005/11/23(水) 20:21:18ID:???
ちょっと調べものをするのに設置したのですが
良かったらどうぞです

http://user.ftth100.com/mirrorhenkan/perl/
0622nobodyさん2005/11/23(水) 20:57:03ID:???
>>608
俺様専用スクリプトだって、Unix環境専用スクリプトだってアリなんだし、
必ず使えってことも無いでしょ。

必要要件を満たさないものを自作するよりは、
素直に使った方がいいけどさ。
0623nobodyさん2005/11/23(水) 22:28:38ID:5cxNyXSu
質問させて下さい。
windowsXPSP2
ActivePerl-5.8.7.813-MSWin32-x86-148120.msi

を使っています。
plファイル自体の文字コード EUC
内部で扱う文字コード EUC
標準出力 Shift-JIS
標準入力 EUC

POSTデータ等で受け取ったデータはshift-jisであれば内部処理用にEUCに変換する。

という構成でプログラムを書きたく、検索した結果、下記の他いろいろ試してみた
のですがうまくいきません。
文字化けで出力されたり、
"\x{fffd}" does not map to shiftjis at〜〜
と出力されたりします。
↓
#STDIN と STDOUT を別々にコード変換する
use encoding 'euc-jp', STDOUT=>'shift_jis';

どうかお力添えをして頂けないでしょうか。
よろしくお願い致します。
0624nobodyさん2005/11/23(水) 22:34:46ID:???
>>623
いろいろやったんなら試したこと全部書かないと
レスしても　「それはやってみましたがダメでしたとかいわれて」殴ってやりたくなるからな〜
レスつきにくいぞ

とりあえず　jcode.pl　でも使っとけ


0625nobodyさん2005/11/23(水) 22:48:30ID:???
utf8フラグ
0626nobodyさん2005/11/23(水) 23:04:32ID:???
標準出力をEUCにすればええがな。
携帯？
0627nobodyさん2005/11/23(水) 23:07:42ID:???
>>623
>>8 の [Perl5.8Unicodeメモ] のページを読むべし。
06286232005/11/23(水) 23:46:19ID:???
>>624
>>625
>>626
>>627
みなさんアドバイスありがとうございます。

携帯からの入出力を想定しているためこのような仕様で書きたいと思いました。
Perl5.8Unicodeメモのページを読み、記載されてあった
簡単なところから
まず、
use encoding "euc-jp";
print "こんにちわ\n";
としてDOSで実行してみたのですが
「､ｳ､ﾋ､ﾁ､・」
と表示されてしまいます。

自分なりに
use encoding "euc-jp";
use Encode qw/ encode decode /;
use Encode qw(from_to);

print from_to("あああ", "shift_jis", "euc-jp");
ともしてみたのですが、
Wide character in subroutine entry at C:/Perl/lib/Encode.pm line 186.
と出てしまいます。
おそらくこれはutf8フラグを切り落としていないからだと
思いますが、euc-jpでソースを書いて出力する際には
一つ一つ文字コードを変換していかないといけないのでしょうか？

0629nobodyさん2005/11/24(木) 00:02:56ID:???
>>628
> 「､ｳ､ﾋ､ﾁ､・」 と表示されてしまいます。
君が自分で EUC-JP の文字列を Shift_JIS のコンソールへ
出力しているのだから化けて当然。
http://www.kt.rim.or.jp/~kbk/perl-5.8/encoding.html

> 自分なりに(略)ともしてみたのですが、
from_to() の使い方を間違えている。
http://www.kt.rim.or.jp/~kbk/perl-5.8/encode.html
0630nobodyさん2005/11/24(木) 00:46:53ID:???
>>628
>>623に書かれている
> use encoding 'euc-jp', STDOUT=>'shift_jis';
これでだめなん？
0631nobodyさん2005/11/24(木) 04:22:56ID:QV+2W1Ju
$hogeを加工;
&sub1;
sub sub1{$hogeをさらに加工;&sub2;return}
sub sub2{$hogeをさらにさらに加工;return}

というようなことをしたいんですが、sub2になるとせっかく加工した$hogeが初期化されてしまってるようなんですが、どう対処すればいいでしょうか？
0632nobodyさん2005/11/24(木) 04:35:08ID:???
>>631
my宣言でもしてない限り、その書き方なら$hogeは初期化されないけど。
何か間違ってない？ つかuse strictやれと小一時間(ry
0633nobodyさん2005/11/24(木) 04:57:27ID:QV+2W1Ju
ありがとうございます。
よく見てみたら意味もわからずmy宣言してました。
これをとったらうまくうごきました。
これからも御鞭撻のほど宜しくお願いします。
0634nobodyさん2005/11/24(木) 09:21:02ID:???
>>633
グローバルの$hogeをそのまま複数のサブルーチンからいじるのは一般的にいうとあまり行儀のいい
プログラムではないな。変な癖をつけると大きいプログラム書くようになると苦労するよ。
0635nobodyさん2005/11/24(木) 10:41:05ID:???
要するに値を渡したり戻したりが全然わかってないと。
0636nobodyさん2005/11/24(木) 11:40:57ID:???
今期のテーマ：脱KENT"2005"冬の陣
0637nobodyさん2005/11/24(木) 20:39:28ID:???
変数のアドレスを渡すのら
0638nobodyさん2005/11/24(木) 21:50:23ID:EJIyCJlG
戻り値を受け取るのら！
0639nobodyさん2005/11/24(木) 22:02:42ID:???
$hoge = ¥$hoge;
0640nobodyさん2005/11/25(金) 00:36:53ID:???
sendmail串万歳
0641nobodyさん2005/11/25(金) 06:48:37ID:s5kWftCO
use strict;
my %data = check('hoge');
if(%data) {print "OK";} else {print "NG";}
exit;
sub check
{
　my ($text)=@_;
　if($text ne 'hoge') {my %data={'text'=>$text}; return %data;}
　return undef;
}
２行目の位置で正常なハッシュ返ってくればエラーが出ないのですが、
undefが返ってくると「Odd number of elements in hash assignment」と
出てしまいます。
こういう、正常ならハッシュ値、異常ならundefみたいな事をしたい
場合には、どういう感じでコーディングすれば良いのでしょうか？
0642nobodyさん2005/11/25(金) 06:53:16ID:???
>>641
my %data = check('hoge') or ();
0643nobodyさん2005/11/25(金) 07:18:43ID:???
>>642
ありがとうございます。
それでやってみたのですが、やはり
「Odd number of elements in hash assignment」と
出てしまいます。

「return undef;」の所を「my %data; return %data」にしたら
エラーが出なくなったのですが、なんか書き方が
すっきりしないような気もします…。
0644nobodyさん2005/11/25(金) 07:22:13ID:???
「my %data = check('hoge') || ();」で解決しました。
'or'と'||'で違うんですね。勉強になりました。
0645nobodyさん2005/11/25(金) 07:34:50ID:???
>>644
あ、ほんとだ。|| でなければダメだった。
or だと評価が遅すぎたね。
06466412005/11/25(金) 07:57:32ID:s5kWftCO
…と思ったら、「my %data = check('hoge') || ();」だと
正常なハッシュ値が返ってきた時に
「Odd number of elements in hash assignment」と
出てしまいます。

もう、何が何だかわからなくなってきました…onz
0647ヽ(´ー`)ノ ◆.ogCuANUcE 2005/11/25(金) 08:25:17ID:???
先に結論だけ書いておくけど、入門書か何かでリストやハッシュについて
理解を深めた方がいいかもしれない。

my %data={'text'=>$text};
↓ こう
my %data=('text'=>$text);

return undef;
↓ こう
return ();
0648nobodyさん2005/11/25(金) 08:35:56ID:???
>>647
>return undef;
>↓ こう
>return ();
これで解決しました。

>my %data={'text'=>$text};
>↓ こう
>my %data=('text'=>$text);
これについては、最初は（）の方で書いていたのですが
http://pc8.2ch.net/test/read.cgi/tech/1131286411/223
ここで、正しくは{}と掲示されたのですが…。
どちらにしても、リストやハッシュについて、理解を深めようと思います。
ありがとうございました。
0649nobodyさん2005/11/25(金) 11:39:19ID:???
>>648
http://www.kt.rim.or.jp/~kbk/perl5.005/perlref.html
0650nobodyさん2005/11/25(金) 13:21:18ID:???
>>648
それはスカラ変数に無名ハッシュとしてリファレンスを代入する時だけ
0651nobodyさん2005/11/25(金) 15:44:43ID:63zT9z2i
よろしくオナガイシマス
半角英数字、英字は大文字、小文字も含めて
10桁の乱数を生成しようと思い以下のプログラムを書いてみたのですが
数字の乱数しか生成出来ません、どこを直したらいいでしょうか、ご指摘お願いします。@array = (0..9,'A'..'Z','a'..'z');
foreach (1..10) {
my $bar = (rand scalar(@array));
print qq|"$bar"\n|;
}
0652nobodyさん2005/11/25(金) 15:46:10ID:63zT9z2i
651です改行を間違えてました
@array = (0..9,'A'..'Z','a'..'z');
foreach (1..10) {
my $bar = (rand scalar(@array));
print qq|"$bar"\n|;
}
ご勘弁です
0653nobodyさん2005/11/25(金) 15:56:15ID:???
my $bar = (rand scalar(@array));
　　　　　　　　↑　　↑

scalar(@array)の戻り値は@arrayの要素数
randの引数にそれを渡してるんだから、当然数値しか戻ってこない罠
0654ヽ(´ー`)ノ ◆.ogCuANUcE 2005/11/25(金) 15:56:26ID:???
- my $bar = (rand scalar(@array));
+ my $bar = $array[rand scalar(@array)];
0655nobodyさん2005/11/25(金) 16:24:41ID:???
↑分かっててintを略してる？
0656nobodyさん2005/11/25(金) 16:35:51ID:1cmYWuzn
質問、Encode 使ってUTF8→EUCにすると
「〜」が「?」になるんですが何とかならないでしょうか
0657nobodyさん2005/11/25(金) 16:39:31ID:???

あなたが無知なだけですね
0658ヽ(´ー`)ノ ◆.ogCuANUcE 2005/11/25(金) 16:52:52ID:???
>>655
略してるも何も、必要ないじゃん。わざわざ int() しろと？
0659nobodyさん2005/11/25(金) 16:54:46ID:???
654
652です
ﾃﾞｷﾏｽﾀ、ありがとう
0660nobodyさん2005/11/25(金) 17:26:20ID:???
>>656
この辺の絡みなので個別対処。
http://www.opengroup.or.jp/jvc/cde/ucs-conv.html

>>658
じゃあ scalar も外せよ、半端君。
0661nobodyさん2005/11/25(金) 18:02:46ID:???
>>660
そのまま $array[] 足しただけだろ。
なんでそんなに必死なんだ。
0662nobodyさん2005/11/25(金) 18:10:22ID:1cmYWuzn
>>660
有難うございますー
これを参考になんとかやってみますです。
0663nobodyさん2005/11/25(金) 18:15:31ID:???
>>641
>>647

＞return undef;
＞↓ こう
＞return ();

つまり return; だよね

search.cpan.org: Perl::Critic::Policy::Subroutines::ProhibitExplicitReturnUndef
http://search.cpan.org/~thaljef/Perl-Critic-0.13/lib/Perl/Critic/Policy/Subroutines/ProhibitExplicitReturnUndef.pm
0664nobodyさん2005/11/25(金) 18:45:52ID:???
use strictのメリットって何ですか？
スクリプトが速くなったりするんでしょうか
0665nobodyさん2005/11/25(金) 18:51:59ID:ykRqgxjm
すいません
asciiファイルに\r\nが含まれることはあっても
バイナリファイルに\rのない\nが含まれていることはありえない、
と考えてバイナリファイルを選別していくやり方は問題ありますか？
0666age2005/11/25(金) 18:55:49ID:PaUDYDn8
>>665
バイナリーファイルは何でもありだからだめだよ
0667nobodyさん2005/11/25(金) 19:09:11ID:???
>>664
http://perldoc.jp/docs/perl/5.8.0/strict.pod
http://perldoc.jp/docs/perl/5.8.0/perlstyle.pod
0668nobodyさん2005/11/25(金) 19:18:35ID:???
>>665
> バイナリファイルに\rのない\nが含まれていることはありえない、

扱うバイナリファイルがその前提なら、
その方法でもいいと思うよ。
0669nobodyさん2005/11/25(金) 19:49:39ID:???
バイナリかアスキーかなんて、拡張子で判断すればいいんでないの
0670nobodyさん2005/11/25(金) 19:54:43ID:???
なぜファイルテスト演算子を使わないのかと
0671nobodyさん2005/11/25(金) 19:55:27ID:???
(´･д･)ｴｰ
0672nobodyさん2005/11/25(金) 20:19:10ID:???
ファイルテスト演算子って\0が含まれてるかどうかだけじゃなかったっけ？
0673nobodyさん2005/11/25(金) 20:21:34ID:???
すまん、違ったようだ。
0674nobodyさん2005/11/25(金) 20:51:44ID:???
x0D x0Aで改行ってのはWindows限定だから他のOSじゃ通用しないよ。
自前でチェックするならx00のあり／なしだな。手抜きの場合は。
0675nobodyさん2005/11/25(金) 20:55:26ID:???
>>664
使用者感想

use strictで肩こりが解消しました。（茨城県　I.・Y様）
もうuse strict無しではコーヒーは飲めません。（北海道 H・N様）
use strictのお陰で宝くじが当り、彼女もできました。（東京都　A・J様）
0676nobodyさん2005/11/25(金) 21:22:52ID:???
>>664
>>675みたいなおちゃらけじゃなくﾏｼﾞﾚｽ

use strictでkentの呪縛から逃れることが出来ますた。(京都府　M・N)
■ このスレッドは過去ログ倉庫に格納されています