Perlについての質問箱 13箱目

NG

"The duct tape of the Internet"こと、
Perlについての質問箱です
"There's more than one way to do it"ということで
Perlの奥深さについて皆で語り合い、追求してまいりましょう。

CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
(WEBプログラミング板 http://pc5.2ch.net/php/ )

CGIの質問は答えがPerlと全然関係ない話に帰着する場合が多かったりするので
WEBプログラミング板に行って聞いたほうが得ですよ。
このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。

過去ログは>>2-5あたり

NG

過去ログ

1 http://pc.2ch.net/tech/kako/1017/10177/1017736187.html
2 http://pc3.2ch.net/tech/kako/1033/10336/1033688230.html
3 http://pc2.2ch.net/tech/kako/1041/10412/1041205885.html
4 http://pc2.2ch.net/tech/kako/1048/10485/1048519394.html
5 http://pc5.2ch.net/tech/kako/1053/10530/1053053082.html
6 http://pc5.2ch.net/tech/kako/1060/10606/1060689008.html
7 http://pc2.2ch.net/test/read.cgi/tech/1068051036/
8 http://pc2.2ch.net/test/read.cgi/tech/1074151549/
9 http://pc5.2ch.net/test/read.cgi/tech/1079114157/
10 http://pc5.2ch.net/test/read.cgi/tech/1085564875/
11 http://pc5.2ch.net/test/read.cgi/tech/1090889189/
12 http://pc5.2ch.net/test/read.cgi/tech/1094579428/

NG

[プログラミング自体の経験が無い奴はまずココを読め]
Perlプログラミング講座: http://www5a.biglobe.ne.jp/~n_rieko/perl/

[本]
リャマ: http://www.oreilly.co.jp/BOOK/lperl3/
駱駝: http://www.oreilly.co.jp/BOOK/pperl3v1/
Effective Perl: http://www.ascii.co.jp/books/detail/4-7561/4-7561-3057-7.html
クックブック: http://www.oreilly.co.jp/BOOK/pcook/

[オンラインマニュアル]
Perldoc.com: http://www.perldoc.com/
perldoc.jp: http://www.perldoc.jp/
perl5.005_03 のドキュメント: http://www.kt.rim.or.jp/%7ekbk/perl5.005/

[モジュール]
CPAN.com: http://search.cpan.org/
河馬屋二千年堂: http://member.nifty.ne.jp/hippo2000/

[テクニック]
Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
Perlのページ: http://homepage1.nifty.com/nomenclator/perl/

NG

おいおい、次スレはあるって。
http://pc5.2ch.net/test/read.cgi/tech/1097547110/

削除依頼しておくぞ。

NG

>>4
こっちでいいよ

NG

削除依頼完了

NG

>>6
なんで次スレを立てて削除依頼だされなきゃならんのよ？

NG

既にあるから二重スレ立ては消されて当然だろ？

NG

Ｐｅｒｌスレなんか消されて当然だろ？

NG

入力した単語($tango) が含まれる行を書き出す処理するためのマッチング処理で、

if ($_ =~ /$tango/)

と

if ($_ =~ /.*$tango.*/)

ってどっちの記述もまったく同じ効果ですか？
違いがわからないのですが…。

NG

$1 $2 $3 の値が違う

NG

っっぷううううううううううううううううううううううううううううう

NG

>>11さん
すみません。
具体的にどういうことか教えていただけませんか？

NG

>>11
$'、$`、$&じゃねーの？

NG

正規表現の外ではマッチの結果を次のように参照できます。

$1, $2, $3, ... ( )の部分にマッチした文字列
$+ 最後にマッチした( )部分
$& マッチした部分の文字列
$` マッチした部分から前側の文字列
$' マッチした部分から後側の文字列

たとえば、次のように使用することができます。

if ($time =~ /^([0-9][0-9]):([0-9][0-9]):([0-9][0-9])$/) {
$hour = $1;
$min = $2;
$sec = $3;
}

NG

>>10
その記述における目的にとっての「効果」は同じ。
でも勿論、マッチした文字列の内容は大きく異なっている可能性が高い。
正規表現にgオプションを付けたりすると、途端に動作に差が出る。

NG

ばかばっかwwwwwwwwwwwwwwwwwwwwwwwww

NG

$tango の中身が ? とかで始まってたりすると
ちょっと効果が変わるよね。

NG

>>18
あー、そっか。

NG

皆様、どうもありがとうございました！

NG

必要になったときモジュールを組み込みたいと思って
if ($hoge) { use MODULE }
と書いてみたのですが、どうもはじめからロードされてるように動きます。
マニュアルをみたら
「 use MODULE; は BEGIN { require MODULE } と一緒」
とあったのですが、この場合
if ($hoge) { require MODULE }
と書けばよいと考えてしまってよいのですか？

NG

yes

NG

>>22
サンクスです。
これで良いんですね。安心しました。

NG

Inline::Ruby

NG

昔ソースコード中にCなどの別の言語のソースを記述できるというような
話を聞いた気がするのですがすっかり忘れてしまいました。
それ関係の情報へのリンクなり何なり教えていただけると喜びます。

NG

>>25
http://search.cpan.org/search?query=Inline&mode=all
http://perldoc.com/perl5.8.4/pod/perlfilter.html

NG

>>26
ありがとん。

NG

>>24は>>25にたいする未来予知か！？

NG

>>28
ここの誤爆だろう
http://pc5.2ch.net/test/read.cgi/tech/1097547110/14-35

NG

逆に、C言語とかからPerlの関数を呼びたい場合は？

NG

system()
とか
exec()
とか

NG

　　　│ `'‐-.､,　　　　　　　　＼　　　＼
　　　 |　　　　　｀`''''ー‐--　､,,,,,,,,,＼,,､-‐''|
　　　/:`'‐:.､,i~l　　　　　　　　　　　　|　　　|
.　　/:::::::::::::::| |:`''ｰｧ- ､,,,_　　　　　│　 _,､|
　　ｌ:::::::::::::::::| |:::::::/　　　　￣｀ﾞﾞﾞ`''''''"´　 ',
　　|:::::::::::::::::| |:::::/　　　　　　　　　　　　　　l
.　 |::::::::::::::::::| |::/　　,､-----､　　　　　._,､ｒz|
　　!::;::､;::::::::| |/　　´　￣｀`'''''｀''　　　‐ﾞ'"´ |
　　ｌl r‐､ヽ::| |'　　　　､ィ'f''''ｧ､　　　{ ,ｒt'''ｧ､i
　　 l l ﾉ { l::| |　　　　　￣￣　　　　 ',￣￣ ',
　　ヽヽ,,ヽ';| |.　　　　　　　　　　　　 ',　　　 !
　　　ヽ.　　| |　　　　　　　　,.ィ　　　 .'、　　!
.　　　　ヽ､,. | |　　　　　　　´ `' ＝　,.ィ　　/
　　　　　│　!.l　　　　　　 ,､ｒzi＝,,,＝iｭ､ /
　　　　,rV　　','､　　　　 /∠-=＝＝`ｫ V
.　　　/ l l　　ヽ'､　　　 ′　￣二二´ ./ﾞ
　　 /　 l ヽ　　ヽ'､::::,,..　　　　 .,ハ,.　,l
.,､ｒiﾞ　　＼＼　　 `'ヽ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;|
　　',　　　　＼＼　　　'ｰ:､;;;;;;;;;;;;;;;;;;;;;;;lヽ、
　　 ',　　　　　＼＼　　　　`''‐:､;;;;;;;;;/　ヽ`'-､
　　　ﾞ､　　　　　＼＼　　　　　ヽ;;/　　ヽ　　`'‐.､

NG

>>30
perldoc perlembed 見れ。

NG

Perlの真髄はInlineに有り

NG

ぺｒはくそ
るｂｙさいきょう

NG

>>33
ありがとうございます。
でも以前にこれみたとこは、わけわかめだった…。

NG

ある言語の中に他の別の言語を埋め込むことが流行ってるみたいですが
Perlの中でCなどを書いた方が、
Cで始めからストレートに書くより速いんですかね。
Rubyの中でPerlを記述した方が普通にその言語で書くより生産的？
よく分からないのですが。。。

NG

>>37
速いってのは、実行速度が？　それとも開発期間が？

NG

>>37
それは馬鹿とハサミの関係だね。
うまく使えれば良いけどそうでなければむしろ泥沼にはまるんじゃない。

NG

>>38 >>39
レスどうもです。
いや、実行速度でも開発期間でもどちらでもよいのですが。
たとえばCだとインラインアセンブラとかでアセンブラ埋め込めたりできますけど
「ループの中のみ」とか、コアを絞りこんで置き換えて使うような
それ相当の機能と機能と考えたほうがよいのか。
そうじゃなくて全面的に記述はCで書いて、実行系はPerlでやる、みたいな
そういう存在なのか？よく分からなかったのです。すんません。

NG

なんというか部分最適向けなのか？全体最適向けなのか？
みたいな。。という素朴な疑問です

NG

>>37=40=41
CにPerlを埋め込んでというのは仕事では扱ったことがないので
あくまで想像に過ぎないのだが、Perlの強力な文字列操作機能を
Cから使いたいという要望はあるかもしれない。
実際、Perlでなら普通にやるような文字列検索や書換えなどを
C/C++でやるには、そういうライブラリもたくさんあるにはあるが、
全部をC/C++で済ますより、その部分だけPerlにまかせるれば
簡単に済む場合は多そうな気がする。これは部分最適の例かも。
そして、それが開発工数の削減につながるなら、開発プロセスの
全体最適ということにこじつけれるかもしれない。

いずれにせよ、それぞれの言語の長所がうまく活かして、
短所を補えるなら組み込みの意味もでてくるのでは。
言うは易しで行なうは難しという感じだが。

NG

Ｒｕｂｙ＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞Ｐｅｒｌ

NG

>>42
レスありがとうございます。
相互補完的に使うものなのですね。
確かにCでヌル文字を常に意識しながらの作業は煩わしいといえば
そんな気がします（慣れれば、という面もありますが）
実は職場ではCを生業にやってるんですけど、
なんだかWEBやってる連中えらく盛り上がってるし
PerlでCをとなると漏れってﾘｽﾄﾗ？なんて内心ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙしてたんです。。

NG

しんと申します
*dataの*がなんだか教えて下さい。

if ($ENV{'HTTP_COOKIE'}) {
*data = GetCookie($ENV{'HTTP_COOKIE'});
@w = split(/\,/, $data{$cknm});
$cdata1 = @w[0];
$cdata2 = @w[1];
}

NG

>>しんさん
型グロブってものを示す記号です。型グロブで検索するといろいろでてきます。
例えば
!/usr/bin/perl -w
use strict;
use vars qw(*var);
*var = \"abc\n";
*var = [ qq(d e f \n) ];
*var = { g => 1, h => 2, i => "\n", };
*var = sub { "j\n" };
print $var;
print @var;
print %var;
print &var;
とすると
> abc
> d e f
> g1h2i
> j
と表示されます。>>45の場合、とりあえず型は定めずに
*dataにGetCookieの結果を保存しておき、取り出すとき$data{$cknm}として
ハッシュの要素として取り出しています。

NG

ちなみに my *var = 'abc' とはできないのであしからず。

NG

perlからWindowsのダイアログ使う方法ってないですか

NG

Win32API呼べば

NG

お前ら自分が糞Perlerであるという自覚は持ってるの？あ？
糞虫は死ねよ。

NG

Perl嫌いな人はお前らが思っているより大勢いるんだが（大爆笑）

インターネット上で叩かれるのみならず、市販の書籍でも
「私（監修者）はPerlがダイキライなので、この章はとばして読んでください。」
なんて言われる始末ぷぷぷ。

別の本では「Perlなど触りたくもないのですが、仕方がなく」と嫌々ながらwwwwwwwwwwwwwww

「もっとも、世界中のPerlプログラムなど、どれも皆単なる偶然で動いているだけなのでしょうから、
その意味で典型的なPerlプログラムと言えますが（わらい）」とか書かれたり。

ちなみに、残念ながら捏造でも何でもないwwwwww

ぷぷぷ。
ぷぷぷぷぷ。
Rubyやってて良かったよ。お前らと一緒にされるのはごめんだ。
汚らしいゴミperlerめ。プログラマ板から出ていくまでお前らを叩き続けてやるからな。
汚らしい。
糞虫。
嫌な気分になってくれれば幸いだ。俺はそれを望んでいる。
ゴキブリに感情があるのか知らんが。

NG

ActivePerlを使用しているのですが
変数の実数を知る方法は無いでしょうか。。

($test,$sasa) = split(/,/, $nihi);

$sasaに何が格納されているか知りたいのです。

cgiの中の<html></html>にprintf "$sasa"としてみましたがエラーだらけとなってcgi自体機能しなくなりました。

NG

>>52
二度と来なくていいよ。さよなら

NG

なんかそうとう根にもってるんだな
なんかあったのか？ルビ厨
必死さがかなり笑える。。ww

NG

>>52
試しにコマンドラインから実行してみて
そして観察してみてください。

NG

Perlの本を見てみたのですが
その本にはメモリの確保などの記述がなかったです
どのようにメモリは確保できるのでしょうか？
またはそのような考え方はないのでしょうか？
素人質問ですいませんがお願いします

NG

>>56
Perlはソースが公開されているよ。

NG

>>57
だから何？

NG

>>58
何って・・・分からないの?

NG

フリーソフトの改造なのですが。
「http://www.google.co.jp/」を「http%3a%2f%2fwww%5c%2egoogle%5c%2eco%5c%2ejp%2f」
に変換する関数(？)って、どんなのがありますか？
どちらかと言うと、戻したいんですけど、どうも手がかりがつかめません。

ttp://www.cj-c.com/cgi_s/access.htm
「url.log」で「http://www.google.co.jp/;google(日本);http://www.google.co.jp/;」
と最初のデコードを修正して出力したいんです。

NG

頭のおかしいひとがいるようですね

NG

>>60
http://ash.or.jp/perl/tips_perl01.htm

# URLエンコード
$arg =~ s/(\W)/'%'.unpack("H2", $1)/ego;
# URLデコード
$arg =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/ego;

NG

>>56
基本的にPerlが自動で確保,拡張します

NG

>>61
おまえか？

NG

ドザじゃ分からないか。

NG

>>58
UTSL

NG

>>57
まさかソースを読んで関数を見つけ出せということ？
個人でそんな気力はありませんorz

>>63
ありがとうございます
ということはリーク等はPerlにバグがないかぎりありえないということでしょうか？
また基本的にと言うことは意図的に確保する方法もあるのでしょうか？

NG

>>62
前から思ってたけどこれってウニコードのエスケープはデコードできないよね・・・

NG

一度確保したものは他で使い回すために終了までシステムに返すことはないとか。
伝聞だから本当かどうかは分からないけど。

NG

>>68
ウニコードのエスケープと URL エンコードは別物だからね。

NG

>>67
もしmallocみたいのを期待しているんだとすれば
期待はずれかもしれないけれど
例えば、配列 @a について $#a = 1000000; とかすると
それなりのメモリはされるはずです。そんな風な確保(?)の仕方はあります。

NG

ただ、現実問題、コード書いてて
メモリ確保を意識しなくっちゃらならない場面って
ほとんどありません。

NG

そんなこと考えなくてもいいのがPerlのいいところだしね。
ラクダ本のPOSIXモジュールのmallocの欄にもC固有のものであるとしか書かれていないし。

NG

>>69
fj の malloc/free 論争を思い浮かべてしまってイヤン。

まさかここで発動したりしないよね？

NG

メモリ確保を考える必要があるとすれば、
馬鹿みたいにデカいファイルを開くとかぐらいか…。

そんな機会は今までになかったけど。

NG

-DDEBUGGINGをつけてコンパイルされたPerlならどこで確保と解放を行っているか分かるね。

NG

>>67
リークに関しては、ガベコレが参照カウント式なので
リファレンス使って環状リンク等を作ると
自分でチェインを切らない限り、リークします。
サーバ書くとか、長く動くプログラムを作るときは注意したほうがよいです。

NG

itunohanashida

NG

ここだけ 10年時間がずれているレス

NG

ただし、すぐ終わる普通のプログラムの場合
これは大して気にする問題ではないです。
事実上。

NG

あれ？弱いリファレンスって
デフォルトになったんけ？

NG

>>81
>>78-79は>>74のことだと思う。

NG

皆様ありがとうございました
どう確保するかではなく
要するに意図的に確保する必要はない
なんですね
どうもありがとうございました

NG

>>82
そうか。びっくりした。
ありがとう。

NG

窓でPerlを使ってるが

5.6系統だとメモリー量がんがん増えてくね。
5.8でやっと改善したって感じ。
それでも、GCも頻繁にやってくれずにかなーりたたないと動作してないなぁ。

でも、ソースの組方しだいではメモリー使用量半分ぐらい減らせたりしたな。

NG

質問です
自分で書いたプログラムを実行したら
print() on closed filehandle HTML at ./aa.pl line 14.
というエラーが出ました
読んでみても意味が良く分かりません
HTMLは
open HTML , '>', "~/test.html";
で開いたものです

すいませんが教えてください

NG

ファイルを開くことが出来たかどうかチェックしてないだろ。

NG

>>86
~

NG

ﾊｧ？

NG

レスありがとうございます

>>87
どういうことでしょうか？
まだ始めたばかりで分かりません
ファイルはopenで開いて次にもうprint で書き始めています
チェックと言うもののやり方を教えて頂けると幸いです

>>88
~を外してフルパスでやっても変わりはありませんでした

NG

or die $!;

とか。まともな本読んだ方がいいと思うが。

NG

>>91
ありがとうございます
どういうことでしょうか？
そういうチェックなら知っているのですが
open HTML , '>', "~/test.html"
なので出力用に開いているので確実に生成されるのではないのでしょうか？
すいませんが教えてください

NG

>>92
とりあえず今のコードを可能な限り削って
エラーが再現する完全なコードを掲示してみそ。

NG

>>93
ありがとうございます
書き直さずに再現性を高めるために削っただけですが以下のようなものです
#!/usr/pkg/bin/perl -w
use strict;
die "Usage: $0 ImageDirectry" unless ($ARGV[0]);
my $dir=$ARGV[0];
open HTML , '>', "~/test.html";
print HTML '<html>';
close HTML;

すいませんがよろしくお願いします

NG

上のも無駄なのが多かったですね
１番少なくすると
#!/usr/pkg/bin/perl -w
open HTML , '>', "~/test.html";
print HTML '<html>';
close HTML;

こんな感じだと思います
すいませんがよろしくお願いします

NG

>>95
とりあえず >>91 さんの言ってるとおり

open HTML, '>', "test.html" or die $!;

としてみることですな。

NG

>>96
あ、まちがい。

open HTML, '>', "~/test.html" or die $!;

NG

すいません新規で編集し直したので抜けてましたね
いれても
No such file or directory at
でエラーで終るだけです

NG

色々とやってみたのですがどうしても通らないです
どなたか通るファイルのオープンを見せてくださらないでしょうか？
それで通らないのなら私の環境が悪いと言うことなので
すいませんがよろしくお願いします

NG

まず open で ~ が使えないのは仕様。
http://tohoho.wakusei.ne.jp/lng/199905/99050073.htm

フルパスでもだめってのは謎だけど、
↓こうでもすればいいのかな？

my @uidentry = getpwuid($>);
open HTML, '>', "$uidentry[7]/test.html" or die $!;

セキュリティ的にはどうか分からんが。

NG

あれ？
チルダをフルパスにしたらできました
さっきはできなかったのに‥
さっきはなにか他のエラーでとまってたのかな‥
本当にすいませんでした
考えてくださった皆様ありがとうございます

>>100
ホームディレクトリにわたる方法まで教えてくださりありがとうございます
それで行きたいと思います
私が今作ってるのはイメージビュアーなのでセキュリティーとかは関係ないのでｗ
今回は途中で私のミスがあり長引かせてしまってすいませんでした
ありがとうございました

NG

わかりました
はじめからファイルができない云々より
/の入ったパス名のファイルを作ろうとしていたのが原因でしたorz
本当に皆様には御迷惑をお掛けしました
本当にすいませんでした

NG

(´-`)。oO(まさか\でないとだめな環境だったんだろうか・・・)

NG

文字列 aaa\nbbb\nccc\nddd\neee から正規表現で
aaa と eee に囲まれた部分（\nbbb\nccc\nddd\n）
を抜き出すことってできますか？

NG

>>104
/sスイッチで改行も含めてマッチします。
ターゲットが$_に入っている場合は大体こんな感じ
print $1 if (/aaa(.*)eee/s);

NG

>>62
ありがとうございました、ペコリ

NG

>105
ありがとうございました！

NG

つかPerlやるんなら「プログラミングPerl」くらい買おうよ。。。

NG

最初は「初めてのPerl」でもいい

NG

プロセス一覧を返してくれる関数は何でしょう？

NG

>108
やだ

NG

/proc以下を読め

NG

`ps`

NG

>>110
http://search.cpan.org/search?m=module&q=Proces&n=100

NG

@test = (1, 2, 3);
print "@test[2]\n";
print "$test[2]\n";

2行目と3行目の実行結果はまったく同じなのですが、
printするときは@と$、どっちを使ってもまったく同じなのでしょうか？

NG

>>115
スライスについて調べるといい。
後は $, かな

NG

そうそうｗ
俺は正直なところを言えばPerlにはがんばって欲しい。やられ役がいないと寂しいしw
だがPerlの糞コードや欠点を見ると笑えるし、またそれをちょっと煽り書きすると
信者が狂ったように絡んでくるそのことの方が楽しくて、このスレをチェックするようになった。

NG

>>116
ありがとうございます。
早速調べてみます。

NG

ruby厨とperl厨って
qmail信者とpostfix信者
チョンとジャップ
トンガリとスネ夫
と同じ雰囲気があるね

NG

>>119
おいおいRuby信者と同じにするなよ

NG

そうそうｗ
俺は正直なところを言えばPerlにはがんばって欲しい。やられ役がいないと寂しいしw
だがPerlの糞コードや欠点を見ると笑えるし、またそれをちょっと煽り書きすると
信者が狂ったように絡んでくるそのことの方が楽しくて、このスレをチェックするようになった。

NG

DBIについて質問させて下さい
perl 5.8.x で扱うデータがutf-8です

なにが問題かと言うと、
$dbh->quote() で戻ってくるデータが全部NULLになってしまうのです。。

my $dbh = DBI->connect($data_source, $username, $password, { RaiseError => 1 });
$dbh->do(
sprintf(
qq#INSERT INTO TABLE (%s) values (%s)#,
join(',', @column_names),
join(',', map { $dbh->quote($_) } @{$data}{@column_names})
)
);
$dbh->disconnect;

これを回避する為にはどうすれば良いのでしょうか？

NG

>>122
> @{$data}{@column_names}
これ、なんか怪しくない？

quote する以前に、そのまま出力出来てるの？

NG

my $sth = $dbh->prepare('insert into table (?, ?, ?, ?, ?, ...) values(?, ?, ?, ?, ....)');
$sth->execute( @column_names, @{$data}{@column_names} );
こっちのほうがわかりやすくね？

NG

１．http://aaa.a.a/a.cgi

２．http://bbb.b.b/b/cgi

１のプログラム上から引数を渡して２のプログラムを動作させて
結果を1のプログラムに返すようなことって可能でしょうか？

２のサーバーのローカルにあるデータベースからデータを取得して
1のサーバーのローカルにあるデータベースにデータを保存したいと
おもっております。

NG

> CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
> CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
> (WEBプログラミング板 http://pc5.2ch.net/php/ )

NG

infoseekの無料HPサービスって、CGIで外部サーバに
アクセスできる？

NG

>>127
おまいは一つ前のレスも見れないのかと

NG

>128
つまらん奴

NG

正露丸ﾄﾞｿﾞｰ
つ●

NG

>128
黙れ

NG

>>122
$dbh->quoteがおかしいと思うならなぜそんな複雑なプログラム
で確かめようとするかな?
print $dbh->quote('あなたが渡してるつもりのもの');
だけ実行して結果みてみろよ。

NG

>132
日本語めちゃくちゃですよ。

NG

>>122
(1) ごくシンプルに考える限り、思うにあなたは @{$data}{@column_names}というよりも
@data{@column_names}とやりたかったのではないかと推測するが、いかがか？
(2) DBIつかってるってことと$dataという名称から想像すると
もし$dataの中身がハッシュリファレンスの配列へのリファレンス => [{a=>1, b=>2, }, {a=>9, b=>8}...]みたいの
ならば、@{@{$data}[0]}{@column_names} とする必要がある。
(3) $dataが単純なハッシュリファレンス {a=>1, b=>2...}なら確かにおかしい。
ひょっとして古いPerlから5.8にアップデートしたならばDBIのリコンパイルはちゃんとしたかい？
(4) $dataがシンボリックリファレンスならもう知らないにょ

いづれにせよ、$dataを Data::Dumper->Dumpなりして貼り付けてみそ。

NG

失礼。(2)は @{${$data}[0]}{@column_names}だ。

NG

>>125
可能です。LWP覚えてからWEB板で聞いてみなはれ

NG

Ｃ言語のfflushみたいなやつはperlにはないんでしょうか？調べたけどわからない・・・

ｴﾛｲ方教えてください

NG

$| = 1 とか、よくやるけど。
$|で調べてみてにょん

NG

>>137

NG

open my ${138} => '>> 137';

(..たしかに => '>> はクドイな)

NG

にょんさん亀レスですが解答ありがとうございました。助かりました。

NG

>136
適当な回答するな。思いっきり条件付きだろうが。

NG

print <<"END_OF_DATA";
Content-type: text/html; charset=EUC-JP

<html>
<body>
${body()}
</body>
</html>
END_OF_DATA

sub body {
print "hello";
}

のように、ヒアドキュメント内に関数を埋め込むことができる
と聞いたのですが、これを実行すると、body()の実行結果が
最初に出力され、その後 Content-type 以下が出力されて
しまいます。

${body()} の位置に出力させることは可能でしょうか。

NG

先に変数に入れるようにしたら？

NG

>>143
文字列を埋め込むんだから、bodyは文字列を返さないとだめだろ。
printしたらその場で出力されてしまう。

あと${body()}は、${\(body())}の間違いだと思われ。

NG

>145
${\body()}で十分だろ

NG

sub body {
return "hello";
}

NG

sub body{ return \"hello"; }

NG

まず、$data は
　my $cgi = new CGI;
　my $data = $cgi->Vars;
です。書き忘れておりました。申し訳ないです。

そして原因もわかりました。
とあるデータの一部に \0 が含まれていた事で動作がおかしくなったようです。
\0 を取り除いてやる事で解決致しました。
# <select multiple>なんかだと\0で区切られるのを忘れてました、、

>>123
> quote する以前に、そのまま出力出来てるの？
ビンゴでした、、Data::Dumper->Dump してみたら
\0 を発見致しました。取り除いて見ると全く問題なしです。

>>124 確かにわかり易いのですが、
@column_names の値が固定ではないのと、一度だけの処理なので do を利用しております。
プレースホルダを利用した方が格段に処理が速いと言う事なら考えますが、
書き直しが面倒なので benchmark は敢えて取りません:-P

>>134
ありがとうございます。＿|＼○＿
Data::Dumper->Dump で全てが解決致しました。

NG

$hogeみたいなスカラー変数内の文字列に行番号を打っていくうまい方法はありますか？
調べてみたけど、ファイルから読み出して行番号を打っていく方法しか見つかりませんでした。

NG

>>150
$hoge =~ s/^/++$i/emg;

少し凝るなら
$hoge =~ s/^/sprintf("%3d: ",++$i)/emg;

NG

うまくいきました。
ありがとうございました。

NG

binmodeを解除するコマンド、
つまりFHを明にテキストモード扱うようにさせるコマンド(方法)って
何かありますでしょうか?

FHならopen/closeすればいいのですが、
binmode STDOUT;
を途中で解除したいわけですが。

NG

>>153
binmode STDOUT, ":raw";

ただしラクダ3版には「binmode関数は、ファイルをopenしてから、その
ファイルハンドルに対して実際のI/O操作を行うまでの間に、実行しな
ければならない」とあるのでいいのかどうかはよくわからん。手元の
perl 5.8.4ではこれでいけたけど。

5.8.4のperlfunc(1)では以下のように

In general, binmode() should be called after open() but before
any I/O is done on the filehandle. Calling binmode() will nor-
mally flush any pending buffered output data (and perhaps pend-
ing input data) on the handle.

出力データがバッファされてればフラッシュされる(=I/O操作している
のが前提と思われる)という記述があるのでどこかで変更されたのかな?

NG

HSP　「２１世紀にこんな言語はないだろう」

Perl　「Perlユーザは臭い」

Java 「Javaなんてうんこ」

C++　「C++なぞ問題外．^^;;;」

Ruby 「Rubyこそ最高言語」

by Rubyユーザ一同

NG

と、思ってるのは作者と一部の信者と、
2chで馬鹿みたいな書き込みしてる偽信者ぐらいだろう…

NG

偽信者=perlerの自作自演
最低だなお前らwwwwwwwwwwwwwww

NG

質問です。

90分毎にhtmlファイルのソースを編集するってことを
したいと思っているのですが、

その場合

現時刻を計測
↓
90分をカウントする
↓
ファイルの読み込み
↓
ファイルの修正

の繰り返し…って具合に作成すればいいのでしょうか？

NG

はい

NG

>>158
まあとりあえずそれでやってみれ

NG

Active5.8をファイルの編集作業に使用しているのですが、
ファイルのコードがshif-jisの為、うまく読み込んでくれません。
入力したファイルをutf-8に変換して編集後に再度元のコードに戻したいの
ですが、どのような方法があるでしょうか？

NG

>>161
いろいろな方法があります。

♪Active5.8とはなんぞや？

NG

>>161
Encodeモジュールを使う

♪Active5.8とはなんぞや？

NG

-Mencodingの方が手軽か

NG

　　　　　　　　　　　　　　　　＼　│　／
　　　　　　　　　　　　　　　　　／￣＼　　／￣￣￣￣￣￣￣￣￣
　　　　　　　　　　　　　　　─（ﾟ ∀ ﾟ）＜　くっちゃらはぴはぴ！
　　　　　　　　　　　　　　　　　＼＿／　　＼＿＿＿＿＿＿＿＿＿
　　　　　　　　　　　　　　　　／　│　＼
　　　　　　　　　　　　　　　　　　　 ∩ ∧　∧　　／￣￣￣￣￣￣￣￣￣￣
￣￣￣￣￣￣￣￣＼∩ ∧　∧　＼（ﾟ∀ﾟ）＜　くっちゃらはぴはぴ！
Ｐｙ厨～～～～！　　＞（ﾟ∀ﾟ）/ ｜　　　　/　＼＿＿＿＿＿＿＿＿＿＿
＿＿＿＿＿＿＿＿／｜　　　〈　｜　　　｜
　　　　　　　　　　　　　 /　／＼_」　/　／＼」　　　　　　　　　　　　　￣　　　　 / ／

NG

Ｒｕｂｙ＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞Ｐｙｔｈｏｎ＞＞＞＞＞＞＞＞＞＞＞＞Ｐｅｒｌ

NG

日本語≒英語＞＞＞＞＞＞＞＞＞＞＞Ruby

NG

Cygwinのperlを使ってるんですが、

open HOGE1 ,">hoge.txt"
print HOGE1 "hello\n";
print HOGE1 "world\n";

と書くと、hoge.txtに
hello
world
と出力されるのはなぜでしょうか。
この場合、hoge.txt には world だけ出力されるのが正しいと思うのですが。

NG

open HOGE1 ,">hoge.txt"
print HOGE1 "hello\x0D";
print HOGE1 "world\x0D";

NG

>>168
なんで、そう出力されるのが正しいと思うのか、興味あるな。

NG

>>170
168です。
>と>>の違いがUNIXのものに由来していて、
">"が上書き用
">>"が追加の書き込み用
と説明されているからです。

Cygwin上のbashで
echo hello > hoge.txt
echo world >> hoge.txt
とすれば、hoge.txt の中は
hello
world
になりますが、
echo hello > hoge.txt
echo world > hoge.txt
ならば、hoge.txtの中は
world
だけになりますので、perlの場合でも同様だろうと考えたからです。

NG

open HOGE1 ,">hoge.txt";
print HOGE1 "hello\n";
close HOGE1;

open HOGE1 ,">hoge.txt";
print HOGE1 "world\n";
close HOGE1;

ってやってみれ

NG

> truncate(O_TRUNC)
>> append(O_APPEND)
open(2)をよく見てみれ

NG

初心者な質問失礼致します

hoge.txtに

>hogehogehoge$foohogehoge

と書かれているとき、$fooの値を
perl側で代入して読み込む方法はないでしょうか

NG

>>174
（´-｀）.｡oO( 台風のせいかな？ )

NG

>>174
eval使え…と言いたい所だけど、
$fooとhogeの間に区切りが無いみたいだから
$bにhoge.txtの中身を読み込んでおいて、
$b =~ s/\$foo/$foo/g;
かな。evalもこれも自分としては気持ち悪いけど

自分ならhoge.txtの中身を
>hogehogehoge%foo%hogehoge
とかしておいて、
$b =~ s/%(.*?)%/$h{$1}/g;
と、専用の連想配列から取り出して置換するな。
（hoge.txtが汚染されていた場合やばいから）

NG

>>176
有難うございます
$b =~ s/\$foo/$foo/g;
でやってみたいとおもいます

厨な質問で申し訳ありませんでした

NG

Perlの最新バージョンって5.9.1？

NG

NG

ruby

NG

6になったら、5のメンテするひとっていなくなるのか？

NG

>>178
Perl5 限定の話だとして、

安定版 (通常はこれを):
Perl 5.8.5
ActivePerl Build 810 (5.8.4 相当)

旧系列 (旧ヴァージョン依存のスクリプトを使う場合はこれを):
Perl 5.6.2
ActivePerl Build 638 (5.6.1 相当)
Perl 5.005_04 (gcc3 へ対応 etc.)
Perl 5.005_03 (こちらでも問題無し)

開発版:
Perl 5.9.1

MacPerl やらはよく分からず。
詳細は http://www.perl.org/ なり http://www.activestate.com/ で。

NG

>>181
そんなことはないと思う。

NG

>>182
MacPerlは5.6.2 r2 のもより。
OSXでは5.8.2のもより。

NG

>>184
$ perl -v

This is perl, v5.8.1-RC3 built for darwin-thread-multi-2level
(with 1 registered patch, see perl -V for more detail)

だたｽﾏｿ＠MacOSX 10.3.5

NG

おっ？マカも居たのか！
んじゃ、質問です。
OSの「開くダイアログ」を呼び出すモジュールと関数を教えて下さい。
MacJPerlに馴れちゃったんで、OSXになって不自由してます。
どうか、よろしくお願いします。m(_ _)m

MacOSX10.3.5 / perl v5.8.1-RC3です。

NG

>>186
そんな器用なものは入っていないかと思われ（苦笑）＠だって標準のperlだし。

NG

>>187 追記
http://www.cpan.org/modules/by-module/Mac/
を見るといろいろとあるようなので、perl -MCPAN -e shell で突っ込んでみるのも良いかも？

NG

>>187
レスありがとう。
CAPNに出回ってないかと…。英語苦手なものでスミマセン。
いまは、AppleScriptを呼び出したり、逆にAppleScriptの
ドロップレットから、perlを呼んだりして、一応出来るんで
すが、なんか不毛な気がするので。

NG

>>189
踏む踏む、なぁるほど。。
漏れの場合、うに機と同じ感覚でterminalで動かしていたりするからあんまり苦になっていなかったりします（ｗ

♪試しにperl -MCPAN -e shellしてみたらなんだかいろんなもの拾い始めた鬱＠Securty up-dateしたら消し飛ぶ悪寒（泪）

・・・ ftp://ftp.perl.org/pub/CPAN/MIRRORED.BY が取ってこれないみたい（滂沱）＠ブラウザだと、ささっと取ってきやがる（怒）

NG

>>190
漏れも perl -MCPAN -e shell は、やったんです。
んがっ！けたたましくインストしたけど、正直ワケワカメorz。

darwin::MacOSX::File::Catalog.pm

が、臭いんだけど…。
MacJPerlでラクしすぎたせいで基本すら解ってない事に
気づきました。Mac用のモジュールって、MacPerl用だったり
しません？上のはdaewinってなってるから平気かと思ったん
ですけど。てか、勉強し直すか、Classic上でMacJPerl使います。
ごめんなさいでした。ｼｮﾎﾞｰﾝ━━(´･ω･`)━━

NG

その「＠」の使い方はどこの文化だ？

NG

デカルチャー

NG

>>191
Mac::AppleEvents を入れてみたけれど、変なダイアログとか、喋ったりとかしたのでおそらく使えるかと思います（ｗ＠make test
使い方とかはマニュアル嫁ってことで。

ところで search.cpan.org は、もう寝たみたいですなぁ（哀）

>>192
俺様文化です（ｗ

NG

　ActivePerl 5.8.xでのsystem()関数の挙動について質問。この関
数にリストで渡したときの挙動がNT系と9x系とで異なるのは仕様な
のでしょうか。たとえば「My Documents」の場所を示すスクリプト

use Win32::OLE;
my $wsh = Win32::OLE -> new('Wscript.Shell');
my $mydoc = $wsh -> SpecialFolders('MyDocuments');
system ("echo",$mydoc);

（例のため無理矢理echoを使っていますが）をNT系のOSで実行
させた場合には要不要に応じて二重引用符がつきます。

D:\home
"C:\Documents and Settings\USER NAME\My Documents"

ところがこれをWindows 98/Meで実行すると

C:\My Documents

となり、二重引用符でくくられません。

http://aspn.activestate.com/ASPN/Mail/Message/933468

以下のスレッドではbuild 630から二重引用符は不要になったとの
ことですが、話題がNT系だけで9x系の話がありません。

NG

実行したユーザ毎に ~/.hogeを作りたいのですが
ユーザはどのように特定したらいいのでしょうか？

NG

>>195
(´-`).｡ｏＯ( cmd.exe と command.com の違いじゃないの…？)

>>196
(´-`).｡ｏＯ( $< $> $( $) %ENV 辺りを眺めてみたら…？)

NG

perlで文字列の中から漢字を置換する方法を教えてください。例えば、
$value = "表示します。";
があった場合、
$value = "表\示します。";
に置換したいです。
$value =~ s/表/表\\/g;
ってやってみたらうまく動作しませんでした。
よろしくお願いします。

NG

>>198
http://homepage1.nifty.com/nomenclator/perl/shiftjis.htm

NG

すみません質問です。
Net::POP3を使ってﾒｰﾙを受信するﾌﾟﾛｸﾞﾗﾑをﾀﾞｳﾝﾛｰﾄﾞして使用しているのですが、
ﾒｰﾙの内容が文字化けしてしまいます。
どなたかｱﾄﾞﾊﾞｲｽをいただけないでしょうか?
ﾌﾟﾛﾝﾌﾟﾄからtelnetで手打ちでPOP3のｺﾏﾝﾄﾞで取得するときは、
set codeset JIS Kanji をしているので文字化けしません。
【ﾀﾞｳﾝﾛｰﾄﾞしたﾌﾟﾛｸﾞﾗﾑの一部】
connect処理
login処理
$ref_mailsize = $pop->list();
foreach ( sort {$a<=>$b} keys %{$ref_mailsize} ){
print "Mail NO.$_ $$ref_mailsize{$_}bytes\n";
}

*mailindex = $ref_mailsize;

foreach ( sort {$a<=>$b } keys %mailindex ){
print "\nMail No.$_ $mailindex{$_}bytes\n";

$ref_lines = $pop->get($_);

$line = 1;
foreach ( @$ref_lines ){
s/^\.\././;
print "$line: $_";
$line++;
}
}