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

Perl コーディング初心者質問コーナー Part25

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん03/06/28 01:18ID:???
いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

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

関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍 第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
【 スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

過去ログやお勧めサイトは >>2-10
0495nobodyさん03/07/11 19:50ID:???
>>494
ソートしる。
0496nobodyさん03/07/11 21:31ID:???
>>494
提示したやりたいことが曖昧すぎて、>>495以上のことは言えない。
0497nobodyさん03/07/11 22:02ID:???
そうっとしとけ。
0498nobodyさん03/07/11 22:36ID:???
　　　　　　　　＼　　　|　　　　／
　　　　　 　　 ＿┌┬┬┬┐＿
　　 　　　　――┴┴┴┴┴―、　　　　　 　　　＿＿＿＿＿＿＿＿＿＿
　　 　　　//　 　　∧// ∧ ∧||. ＼　　　　　　／
　　_＿[//＿＿__(ﾟ_//[ ].ﾟДﾟ,,) || ＿ ＼＿_ ＜ 　>>497を逮捕しにきました
　lﾛ|=☆= |ﾛﾛﾟ|■■|■■∪警視庁■■|| 　 ＼＿＿＿＿＿＿＿＿＿＿
　| ∈口∋￣_l＿＿ｌ⌒ｌ_＿＿_|＿__ｌ⌒ｌ___||
　　￣￣`ー'￣ 　　`ー'　　`ー'　 　`ー'
049945003/07/12 11:20ID:???
>>482
あ、そうだった・・・だめじゃん
050050003/07/12 12:27ID:???
500 GET ⊂(ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
050144103/07/12 13:00ID:???
>>441 の質問を最初にしたものです。最初にもどってしまいますが、
自分が >>441 で言った、

＞自分が考えつくのは、
＞ソケット通信で、
＞地道にpostメソッドで渡す方法くらいなんですが・・・。

だと、とくに問題ないですか？
・・・っていうか、これって、可能ですよね？
0502nobodyさん03/07/12 13:14ID:???
perl で使える gzip, gunzip モジュール解説しているページ教えてくれませんか？
倶愚ったけど、ほとんどインストールの解説で gzip とかヒットして探すの疲れた…
0503nobodyさん03/07/12 13:31ID:???
「perl open gzip」
0504nobodyさん03/07/12 13:44ID:???
open( FILE, "| /usr/bin/gunzip -1 -c" );
↑こういうのは無し。外部プログラム呼び出さないで、
perl 内ですませたいので
0505nobodyさん03/07/12 13:58ID:???
Compress::Zlib::memGzip( $buff );
Compress::Zlib::memGunzip( $buff );
0506nobodyさん03/07/12 15:56ID:???
>>505

　　　　　 　 　　　　∫　　　 ＿＿＿＿＿＿＿＿＿
　　　∧,,∧ 　　 　∬　　 ／
　　 ミ,,ﾟДﾟ彡っ━~　　＜　ご苦労！
＿と~,,　　~,,,ﾉ_. 　∀　　　＼
　　　 ﾐ,,,,/~), │　┷┳━　 ￣￣￣￣￣￣￣￣￣
￣￣￣ .じ'Ｊ￣￣|　┃
￣￣￣￣￣￣￣ 　┻

0507nobodyさん03/07/12 15:57ID:???
この店はなんでもあるな
0508 ◆hMJAPH9PWA 03/07/12 16:02ID:???
使った事ないけど、PerlIO::gzipってのもある。
0509nobodyさん03/07/12 17:34ID:???
NOのパラメータから、ファイルに入っている該当の行を削除処理したいのですが、
全く反応が無いです。。。
エラーも出ないため、いや、何よりも初心者なので原因がつかめません。
ご教授お願い致しますm(__)m

sub dl{
if(!open(OUT,"$file")){&error(err_file);}
@DATA = <OUT>;
close(OUT);
$count = @DATA;
$delcount = $count - $in{'NO'};

if($delcount ne ""){
$no = $delcount;
$DATA[$no] = "";
}

if(!open(IN,">$file")){&error(err_file);}
print IN @DATA;
close(IN);
}
0510nobodyさん03/07/12 17:38ID:???
>>509
INとOUTが逆だな。
それはともかく、$DATA[$no] = "";のところを
print $no;
print $DATA[$no];
$DATA[$no] = "";
print $DATA[$no];
とやってみれ。
0511nobodyさん03/07/12 17:49ID:p/T5Jtg4
初心者スレの鉄則

「逆ギレする質問者は釣りか荒らし」

ということで。

>>478
デバイスファイルがあればできるよ。

% perl
open(FILE, "/dev/cd0a") or die $!;
print <FILE>;
^D
CD001EP@@@@@@@@@@@@@@@@@IWANAMI_K4@@@@@@@@@@@@@@@@@騷@IWANAMI_K4
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IWANAMI SHOTEN
DAI NIPPON PRINTING CO,LTD
000000000000000
0000000000000000000000000000000000000000000000000CD001
CDDIC�dPWCTLG 榲PWDEMOUROKUUIDEsKOUJIEN懼SCREEN�ATAlGAIJI 殲TREAM
(略)

ほらね。ちなみに↑は広辞苑のCD-ROM。
0512nobodyさん03/07/12 18:11ID:2K5dewso
質問させてください。
いま、JAVAアプレットでCGIを呼び出してファイルをCGIが読み込んでその内容はアプレットに
返すっていう内容のを作っているんですが、CGIが内容を返すときにヘッダーの内容まで
送られてしまって、困っています。
最悪、その部分はJAVAの方で消してもいいんですが、できればＣＧＩからの送信内容は
通信量の面でも軽くしたいし、ヘッダーの内容は送らないようにしたいんですが
可能でしょうか？
0513nobodyさん03/07/12 18:16ID:???
>>510さん
ありがとうございます。

print $no;------------①
print $DATA[$no];-----②
$DATA[$no] = "";
print $DATA[$no];-----③

NO＝8を与えてみたところ、
①に[9]の表示のみとなりました。
$DATA[$no];-----②が無いのはどうしてでしょうか？
(゜▽゜;)
0514nobodyさん03/07/12 18:25ID:???
>>513
変数名が他の部分とかぶってるとか
0515nobodyさん03/07/12 18:27ID:p/T5Jtg4
>>512
可能。nph使う。多くのサーバーでは、CGIスクリプトの名前の先頭に nph- と入れるだけでよい。

例: nph-test.cgi
#!/usr/bin/perl
print "data\n";
exit;

0516nobodyさん03/07/12 18:30ID:???
ヽ(*｀Д´)ノ　なんでもかんでもここで質問するなー！

ちゃんと適当なスレに書け！
051751203/07/12 18:31ID:2K5dewso
>>515
ありがとうございます。
早速やってみます。多謝
0518nobodyさん03/07/12 18:44ID:???
510>>
515>>
$DATA[$no];-----②

前の処理で、スカラーに代入してました(゜゜;）

基本は　printですね。。。初心に返ります。
ありがとうございました
0519nobodyさん03/07/12 18:52ID:???
>>515
おぉ！初めて知った。その根拠というか、メカニズム教えて
0520nobodyさん03/07/12 19:44ID:???
G(o^-^o)gle ＜ 「No Parsed Header」 or 「NPH」

nphでサーバゲットだぜっの時代があったねぇ
0521nobodyさん03/07/12 19:56ID:???
ディレクトリ作成について質問

深い階層のディレクトリを作成する為に、
以下のコードを書いたんだけど、
もっと効率のいい方法は無い？

#!/usr/bin/perl

$d = './aaa/bbb/ccc/'; # まだ存在ディレクトリ構造

@list = split( /\//, $d );
shift @list;

foreach ( @list ) {
$t .= "$_\/";
mkdir( $t, 0755 );
print "$t\n";
}
0522nobodyさん03/07/12 19:57ID:???
×　$d = './aaa/bbb/ccc/'; # まだ存在ディレクトリ構造
○　$d = './aaa/bbb/ccc/'; # まだ存在しないディレクトリ構造

0523nobodyさん03/07/12 20:01ID:p/T5Jtg4
>>522

system qw(mkdir -p $d);

とかじゃ駄目？そういやモジュールもあった気がするけど覚えてない。
0524あぼーんNGNG
あぼーん
0525nobodyさん03/07/12 20:02ID:p/T5Jtg4
訂正。
system("mkdir", "-p", $d);
0526nobodyさん03/07/12 20:02ID:???
>>518
@DATA = <OUT>;
が嘘だったということか？
まあ解決したようなんで別にいいんだけども、ちょっと気になるんで。
0527nobodyさん03/07/12 20:08ID:???
>>523 >>525
ごめん。それだと、win系じゃ動かないんだ…（´д⊂ヾ

確か、win のシステムコール（API） は一発で深い階層の
ディレクトリ作ってくれるんだよね。だから、perl にも俺の
知らない関数かモジュールあるかと思って聞いてみたんだ。

まぁ、chdir しながら mkdir するよりはマシかな
0528nobodyさん03/07/12 20:22ID:???
#!/usr/bin/perl
って書いててもwin系なのか。難儀だな。
できないという結論?
0529nobodyさん03/07/12 20:28ID:???
>>528
\usr\bin\perl.exe があるんです（ｗ
0530 ◆hMJAPH9PWA 03/07/12 21:22ID:???
>>527
File::Pathモジュールをつかう。
ディレクトリの作成だけじゃなく、一括削除もできるよ。
0531nobodyさん03/07/12 21:31ID:???
ま　た　モ　ジュ　ー　ル　か
0532nobodyさん03/07/12 21:32ID:i3OrVbjx
q|ポテトサラダ|
というのがあるとエラーが出ました
それを
"ポテトサラダ"
にしたら正常に動くようになりました
何ででしょう？
0533nobodyさん03/07/12 22:06ID:???
ポが駄目文字に違いない
0534nobodyさん03/07/12 22:12ID:???
だめポ。。。
0535nobodyさん03/07/12 22:14ID:???
>>532
「ポ」は 0x83 0x7c の２バイトで構成される。
qの区切り文字 | は 0x7c。

ポの２バイト目が区切り文字と同じコードのため、そこで q が閉じてしまうので
エラーになる。
0536nobodyさん03/07/12 22:16ID:???
ちなみにこの手のトラブルは、シフトJISでソースを書く以上どうしても避けられない。
EUCで書くようにすると幸せになれるかも。
0537nobodyさん03/07/12 22:35ID:???
こんなところでｴﾑｴｸｰｽの知識が役立とうとは
0538nobodyさん03/07/13 01:27ID:cL3G8Wfc
だれも>>521にマジレスしないのはなぜだ？
mkpathしかなかろうに・・・・
0539あぼーんNGNG
あぼーん
0540nobodyさん03/07/13 01:51ID:???
>>538
>>530に回答あるじゃん
もしかして使い方まで？
0541nobodyさん03/07/13 02:41ID:???
@aと@bに重複する要素を全て取り出したいです。

例えば
@a=(1,2,3,4);
@b=(2,3);
ならば、2と3が取り出せる。

いい方法ない？
0542nobodyさん03/07/13 02:58ID:???
>>541
ttp://www.pure.co.jp/~learner/program/Perl_tips.html#array_ope
054354103/07/13 03:17ID:???
>>542
サンクス。
0544nobodyさん03/07/13 03:52ID:???
http://www.pure.co.jp/~learner/program/Perl_tips.html#array_ope
0545nobodyさん03/07/13 04:27ID:zHTguhVX
$ban_word='*';
if($comment=~ /$ban_word/){&error();}

上記ケースにおいて、$ban_wordに「*」や「+」が指定されると構文エラーになります。
$comment=~ /*/をやればエラーになるのは明白なので原因はまあいいんですが、
Perlの組み込み関数に「メタ文字をすべてエスケープしてくれる」関数はなかったでしょうか。確か、
&escMeta('文字列');
みたいな使い方をすると文字列中の「*」は「\*」にエスケープされるような・・・
うろ覚えなのですが、心当たりありましたらご教授願います。
0546nobodyさん03/07/13 04:37ID:???
>>545
quotemeta
0547nobodyさん03/07/13 04:41ID:nQJ8+8Yh
>>545
quotemeta。

> &escMeta('文字列');

ここまで分かってるんなら、人に聞く前にperldoc perlfuncを開いてmetaで検索するとか
してみよう。
054854503/07/13 04:43ID:???
朝早くからｔｈｘ！
どうりでescapeで探しても当たらないわけだ・・・
0549あぼーんNGNG
あぼーん
0550nobodyさん03/07/13 14:14ID:eiBgp+ln

if(!$a && !$b)
は、どういう意味でしょうか？
0551nobodyさん03/07/13 14:23ID:???
>>550
if(!($a != 0) && !($b != 0))
0552nobodyさん03/07/13 14:27ID:???
>550
if($a=~/^0?$/ && $b=~/^0?$/)
0553nobodyさん03/07/13 14:34ID:???
%uFF2D%uFF33 をエンコードしたいのですがどうすればいいでしょうか。
0554nobodyさん03/07/13 14:35ID:???
>>553 エンコードではなく、デコードです…。
0555nobodyさん03/07/13 14:41ID:???
>>553
http://pc2.2ch.net/test/read.cgi/php/1057947512/15-16
0556nobodyさん03/07/13 15:37ID:6NfNIHy+
perlのコマンドを検索できるサイト（できれば日本語で）はありませんか？
Unixのmanを検索できるサイトなら知ってますが、あんなかんじで
0557nobodyさん03/07/13 15:55ID:???
本番では、unixのサーバ上で動かす予定のCGIを、
windows上で開発するときの、注意点はなんでしょうか？

自分が知ってるのは、
●flockはWinでは使えないので、
　eval(flock (LOCKF, LOCK_SH)); みたいにするってことくらいなのですが
0558nobodyさん03/07/13 16:17ID:???
>557
パーミッションとか色々ありすぎて、並べ上げたらキリがないと思われ。
0559あぼーんNGNG
あぼーん
0560nobodyさん03/07/13 16:30ID:???
>>557
でもパーミッションは、perlそのものでなく、ファイルの問題だから、
FTPでアップするときに注意すればいいだけかと思うのですが・・・。

＞並べ上げたらキリがないと思われ。
すいません、よかったら２，３、例を挙げていただけませんか？

自分には一個も他には思いつかず。

＃ちなみに、Win2000です。
0561nobodyさん03/07/13 17:01ID:???
>>550
お前、>>438>>461>>465だろ
わからない文が出てくるたび毎回ここで聞く気か？
本でも買ってじっくり読むか文法のサイトでも行って基礎から勉強しろ
0562nobodyさん03/07/13 17:09ID:nQJ8+8Yh
>>551

$a = "0 but true";
$b = "0\n";
print ((!$a && !$b) ? "true\n" : "false\n");
print ((!($a != 0) && !($b != 0)) ? "true\n" : "false\n");

Perlの真偽はちゃんと覚えておかないと、そのうち火傷しまっせ。
0563nobodyさん03/07/13 17:37ID:???
>>560
プログラム上でファイルやディレクトリを作成する場合もあるだろ。
巷のフリー掲示板みたいにログファイルを666でアップしてください、
ってんなら別にいいけど。


＃W2kならflockは使えた気がするのは気のせいでつかそうでつか。
＃でもEWOULDBLOCKとかはサポートしてないんだよな。
0564nobodyさん03/07/13 17:39ID:???
>>563
そんな機種依存部分はなんとかするだろう普通。
0565nobodyさん03/07/13 17:41ID:NX4Xoj87
>>562
それで説明したつもりなのか？
リファレンスでもｺﾋﾟﾍﾟしたようだな（ﾌﾟｹﾞﾗ
これだから無知は。。
どこに真偽が判定されてるんだよ？
横に結果出力ぐらいつけてやれｳﾞｫｹ
そんなんもできんのならここに来るな夏房
056656403/07/13 17:48ID:???
ごめん直感でレスしてた。焦点がずれてる。

そもそもUNIXにできてWindowsにできないっていう事しか存在しないんだから、
UNIXで動かそうとしてもどうしても動かないっていう状況は起きないので、大丈夫(?)
0567nobodyさん03/07/13 17:51ID:???
判定の仕方:

print !!$a . "\n";
print !!$b . "\n";
0568nobodyさん03/07/13 17:57ID:???
>どこに真偽が判定されてるんだよ？
こりゃすげぇ
0569nobodyさん03/07/13 18:02ID:???
もしかして>>565はネタじゃないのかねぇ？
0570nobodyさん03/07/13 18:22ID:???
三項演算子って使ったことない気がする
0571nobodyさん03/07/13 18:29ID:???
三項演算子とif～elseの使い分けも腕のうちかな

どうやら>>565はそれ以前に三項演算子を知らな（ｒｙ…
0572nobodyさん03/07/13 18:45ID:???
ネタというより、単に>>551=565の逆ギレじゃないか？
釣りにしちゃお粗末だし。
0573nobodyさん03/07/13 18:55ID:???
お熱い所すいませんが、お願いします。c で以下の様なコードを
perl で実現するにはどうすればいいのでしょうか？

// c の場合
char * a [] = ( 'aaa', 'bbb', 'ccc' );
char * b = &a[1]; // b[0] = 'bbb'

;# perl の場合
@a = ( 'aaa', 'bbb', 'ccc' );
@b = @{ $a[1] }; # うまくいかない…

# @b にどう代入していいか解りません（´д⊂ヾ
057455703/07/13 18:55ID:???
どなたか、 >>560 のレスおながいします。
0575nobodyさん03/07/13 18:55ID:???
ミスってますね

char ** b = &a[1]; // b[0] = 'bbb'
0576nobodyさん03/07/13 19:01ID:???
>>560
socketの引数が違う
0577nobodyさん03/07/13 19:02ID:???
>>573
Cの部分を何がしたいのか日本語でかけば誰か答えてくれるかもね
0578nobodyさん03/07/13 19:02ID:???
>>568
>>565は、Perlでの真偽がどうかを説明するべき所で、
2つの論理和をとったものの真偽を表示するスクリプトを書いた点について怒ったのでしょう。
0579nobodyさん03/07/13 19:08ID:???
>>573
勘で答えると、

$b[0]に$a[1]を代入したいんでしょ?なら、$b[0] = $a[1]

あ、同じデータを2箇所から参照したいっていうことか。それは今のところできないなぁ。

\$b[0] = \$a[1]、う。文法エラー
0580nobodyさん03/07/13 19:12ID:???
>>577
コメントに書いてありますが

@b には @a[n] の様に添え字をして任意の位置から
参照できるようにしたいんです

@a = ( 'aaa', 'bbb', 'ccc' );
@b = $a[1]; # どう書いていいか解らない。@b には $a[1] からのリストとして代入したい

foreach ( @b ) {
print ;
}
058157303/07/13 19:13ID:???
説明がうまくできなくてすいません（´д⊂ヾ
0582nobodyさん03/07/13 19:25ID:???
理解した。でもPerlはこういうのは得意では無いような…

*方法1
@b = $a[-1], @a;

*方法2
@b = @a[1 .. $#a, 0];
0583nobodyさん03/07/13 19:28ID:???
あ。別に一周させる必要はないのか。
0584nobodyさん03/07/13 19:43ID:lgv8WpE5
mkakikomitaiというBBSにttp://www.minicgi.net/yybbs/yybbs.cgiのようなアイコンプレビュー機能を付けたいので、YY-BOARDのCGI見てここかなと思う部分をmkakikomitai移植してりして、色々試してみたのですが、どうも上手くいきません。
まだPerl勉強し始めて、２ヶ月ぐらいですので、敷居の高い改造であるかとは思いますが、手助けのほどお願いできませんでしょうか？
0585nobodyさん03/07/13 19:49ID:???
@b=('aaa','bbb','ccc')[1..2];
@b=@a[1..$#a];

$b=('aaa','bbb','ccc')[1];
@b=('aaa','bbb','ccc')[1..2];
で直接できると思った
$b=(localtime)[3];

見たいに必要な部分直接取ったりできるし。

($day,$mon)=(localtime)[3..4];
@data=(localtime)[3..4];

#($mon,$day)=(localtime)[4..3];#これは無理みたい
0586nobodyさん03/07/13 20:18ID:???
>>584
スレ違い

【 スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/
058756503/07/13 20:22ID:DslkH4qS
各文の後に結果を書いてやれ、といっただけ
わからない人のためにな
>>562のを実行してたしかめろ！っていうのは初心者にとって嫌だとおもったから
0588nobodyさん03/07/13 20:23ID:???
>>573

my @a = ('aaa', 'bbb', 'ccc');
my @b = (\$a[1]);

printf("\${\$b[0]}\t%s\n", ${$b[0]});
printf("\$a[1] \t%s\n", $a[1]);

${$b[0]} = 'hoge';

printf("\${\$b[0]}\t%s\n", ${$b[0]});
printf("\$a[1] \t%s\n", $a[1]);

------------------------------
$ perl array.pl
${$b[0]} bbb
$a[1] bbb
${$b[0]} hoge
$a[1] hoge


C のソースから考えると、こういうこと？
058958403/07/13 20:25ID:lgv8WpE5
Σ (ﾟДﾟ;）
スレ違いでしたか（汗
じゃあ案内先で再度質問させていただます
失礼しました(´Д｀；)
0590nobodyさん03/07/13 20:26ID:???
ほのぼの
http://www.roppongi-tv.net/00004/007.shtml
http://www.roppongi-tv.net/00004/hara.shtml
http://www.roppongi-tv.net/00004/shi.shtml
0591nobodyさん03/07/13 20:59ID:???
>>587
初心者は喪前だ
0592nobodyさん03/07/13 21:02ID:???
windowsつかってます。
cronを使いたいんですがどうすればいいでしょうか？
0593nobodyさん03/07/13 21:03ID:???
>>592
板違い
0594nobodyさん03/07/13 21:06ID:???
スケジューラ
0595nobodyさん03/07/13 21:07ID:???
>>587
自力で理解しようとした形跡の無いﾔｼに親切心は必要なのか?
■ このスレッドは過去ログ倉庫に格納されています