Perl言語に詳しい人に質問！

Perl言語で、(x+1)の2乗やら、(x+y)*(x+2y)　などといった
計算を行うにはどうすればよいでしょう？
もちろん2乗は「(x+1)**2」なんて事は承知してますが、
このまま計算するとモロにエラーｗ（当たり前）
ちなみに欲しい出力結果として、
前者は「x^2+2x+1」後者は「x^2+3xy+2y^2」。

分かる方お願いしますm(_ _)m

mathematica 買え。
単発質問するな。
終了。

MATLABの方がいい、と思う23の秋。

ってか質問自体が(´ー｀)ﾜｹﾜｶﾝﾈｰﾖ

>>2.3
やっぱこのプログラム組むのって難しいもんかな？？
一度組んでみたいんやけども。

>>5
C++で、ひたすら演算子をオーバーロードして、多項式オブジェクトを
返すようにすれば出来ない事も無いんじゃない？

つーか俺の大学の某研究室で、上のようなことをやりつつ、さらに微分まで
同時に計算する、みたいなパラダイムを研究している教授がいたはずだか。

Splusがいい！

重複スレです。
既存の Perl スレで質問してください。

Perlについての質問箱 2箱目
http://pc3.2ch.net/test/read.cgi/tech/1033688230/

print (x*x)+2*x+1;
print "\n";
print (x*x)+2*x*y+2*(y*y)

あぼーん

#!/usr/bin/perl

exit 0 unless (@ARGV);

$ARGV[0] =~ s/\(//g;
$ARGV[0] =~ s/\)//g;
$ARGV[0] =~ s/ //g;
($hoge, $hero) = split(/\*/, $ARGV[0]);
@hoge = split(/\+/, $hoge);
@hero = split(/\+/, $hero);
@result = undef;
for ($i = 0; $i <= $#hoge; $i ++) {
for ($j = 0; $j <= $#hero; $j ++) {
$hogen = int($hoge[$i]);
$hogen = 1 unless($hogen);
$hogec = $hoge[$i];
$hogec =~ s/\d//;
$heron = int($hero[$j]);
$heron = 1 unless($heron);
$heroc = $hero[$j];
$heroc =~ s/\d//;
$resultn = $hogen * $heron;

if (($hogec eq "") && ($heroc eq "")) {
$resultc = "";
} elsif ($hogec eq $heroc) {
$resultc = $hogec . "^2";
} else {
if (ord($hogec) < ord($heroc)) {
$resultc = $hogec . $heroc;
} else {
$resultc = $heroc . $hogec;
}
}
$resultc =~ s/ //g;
push(@result, $resultn . $resultc);
}
}
for ($i = 0; $i < $#result; $i ++) {
for ($j = $i + 1; $j <= $#result; $j ++) {
$in = int($result[$i]);
$ic = $result[$i];
$ic =~ s/\d//;

$jn = int($result[$j]);
$jc = $result[$j];
$jc =~ s/\d//;
if ($ic eq $jc) {
$result[$i] = sprintf("%d%s", $in + $jn, $ic);
$result[$j] = 0;
}
}
}
# ここで @result をソートする。未完。
$out = undef;
foreach (@result) {
$_ =~ s/\d// if (int($_) == 1);
$out .= sprintf("%s + ", $_) if ($_);
}
$out =~ s/ \+ $//;
print "$out\n";
__END__

>>1
いいヒマつぶしになったよ。

【使い方】
数式を " " でくくってコマンドライン引数としてわたす。
( ... ) * ( ... ) の形式のみ対応。
括弧内の項はいつくあってもいい。

このスレ乗っ取れそうだな。

しばらく保守しとこう。

お腹空いた。

ねむねむ。
あさあさ。

　　　　　　ﾐ　ﾐ
〜√ｸﾞﾗ（,,ﾟДﾟ)　　　 釣られてみまつた
　 (/(/￣U U
　　　　　　　　　　　　　　　　　　　　　　しかもこの板はくっきがいるのでつね・・・

ﾄﾘｯﾌﾟつけとこ・・・

ｷﾞｺﾀﾝども。
上の方ではﾄﾘｯﾌﾟだけで割とまじめに振舞ってます。

足跡ﾍﾟﾀﾍﾟﾀ



ってここ何板？

巡礼者さんども。
プログラム板です。
簡単な質問に答えて自己満足に浸ってます(-w-)

こんな底のほうで何やってんだか。

暇してますｗ

暇してるとこ悪いけど、posって関数知ってる?
perl5で入ったのかな。手元にあるラクダ本には出てないんだけど。

test

>>26
遅レスすまそ。仕事で二泊の当直でしたｗ

----perlmanjより引用----
>pos SCALAR
>対象の変数に対して、前回の m//g が終了した場所のオフ
>セットを返します。　そのオフセットを変えるために、変
>更することができます。
----perlmanjより引用----

つまり $s = "abacadaeaf" について $s =~ m/a/g を行ったとき
"a" は 1byte 目にあるので pos($s) は 1 を返します。
ここで pos($s) ++ として $s =~ m/a/g すると pos($s) は 3 を返します。
サンプルプログラムと実行結果を示します。

$s = "abacadaeaf";
$s =~ m/a/g;
printf("%d\n", pos($s));
pos($s) ++;
$s =~ m/a/g;
printf("%d\n", pos($s));
__END__

1
3


ああ、ﾏｼﾞﾚｽしてしまったよ。

>>28
tnx
gを付けなきゃ関係ないわけね。

> ああ、ﾏｼﾞﾚｽしてしまったよ。
んじゃまた底のほうでﾏﾀｰﾘとたゆとうててくだちい。

>gを付けなきゃ関係ないわけね。
g 無しで試したら役に立たなかったよ。
指摘されて気付きました。どもです。

この板は底の方は静かだなあ。

保守っぽい。

暇っぽい。

記念かきこ

おこしやす〜(^^)
ム板は底の方は静かでつ。

時々えびえびだんと読みそうになる。

なぜにえびえび？(^^;)

なぜか虫偏と間違えちゃうんだろうな。

おお！蝦って字があったのか！！
海老しか知らなかったよ(^^;;

鯣なんて字は知ってるくせに…。
読めなくてkakasiに聞いちゃったよ。

知りませんでした。
「するめ」と入力してスペースバーを押したら出てきました。
ことえりマンセーｖｖ

風邪ひいてへろへろです。
でも午後から出勤です。
学生のころは無責任に休めてよかったなと。

今、一番底のスレに記念カキコしてきた。
一瞬、上げちゃってこれを底にしようかという誘惑にかられたけど、我慢しますた。

えらいぞ

ほめられちった。
では、崖っ淵ギリギリ進行で。

相変わらず風邪でへろへろです。
昨晩は夜勤だけやって今朝早々に帰ってきました。
底スレにも書き込んできました。
引き続き潜行します。

肴はあぶったイカで(･∀･)ｲｲ!!

お酒はぬるぽの燗が(･∀･)ｲｲ!!

お前と二人酒〜ってほんとに二人切りのような(藁

おはようございますー。
一人でもム板でかまってくれる人がいただけ嬉しいです（藁
ずっと一人上手しなきゃいけないかと思ってました(^-^;

　　 （　・∀・）　　　|　|　ｶﾞｯ　
　　と　　　　）　 　 |　|
　　　 Ｙ　/ノ　　　 人
　　　　 /　）　 　 < 　>_∧∩
　　 ＿/し'　／／. Ｖ｀Д´）/　← >>48
　　（＿フ彡　　　　　 　　/

500/500
ﾔﾀｰ(･∀･)底ﾀﾞｰ!!

馬鹿晒し上げ

ｳﾜｰ(･∀･)ｱｹﾞﾗﾚﾀｰ!!

69/501
地道に潜行中。

うーむ、少し目を離してたら上げられてしまった。
冬休みだなぁ。

109/503
また沈みますヨー。

冬休み上げ

1/503
また沈みますヨー。

藻毎ら、あげるのはスルメじゃなくてタコに汁!

60/503
(´-`) ｡oＯ(最近、浮き沈みが激しいなあ…。)

掲示板を自作しはじめた者です。だいたい完成したという状況です。

投稿された本文の中に何らかのＵＲＬが入っていた場合、それをリンク表示
させる記述はどうやったらよいのでしょうか。この2chのようにです。

下らない質問ですいませんが、どなたかマジレスして頂ければと思います。
宜しくお願いします。

>>62
ｱﾝｶｰ

>>62
$text =~ s/(http:[\/\w\d\.\?\&@-~=:%]+)/<a href=\"$1\">$1<\/a>/g;

http から始まる英数字と _ / . ? & @ - ~ = : % の連続を見付けてアンカータグに置換。
他に URL を構成しそうな文字があれば [ ] の中に追加すればいい。

まともな質問で嬉しいので age ｗ

>>62
ごめん、修正。
$text =~ s/(http:[\/\w\.\d@\-~=:%\?\&]+)/<a href="$1">$1<\/a>/g;

- の前にバックスラッシュつけないとダメみたい。
恥ずかしいので sage ｗ

しかもトリップ間違えるし……（鬱

>>64さん、どうもありがとうございまつ。
ちなみに、$1ってのは環境変数なんですかね…？
参考までに、知ってたら教えて下さいまし。

>>67
$1 は「一番目の () がマッチした部分文字列」。
() が複数あれば $2, $3 .. なども使える。

例：
$text = 'foo bxr bxz';
$text =~ s/(\w)x(\w)/$1a$2/g;
print "$text\n";

結果：
foo bar baz

ちなみに本スレｗ
http://pc3.2ch.net/test/read.cgi/tech/1033688230/

>>67
$1?$9には、正規表現のマッチ結果が自動的に格納される。

こんな板初めてだ・・・

あぼんぬさんこんばんはー。
このスレ底にいたんだけどあげられてしまいました。
またぼちぼち潜行するです(-w-)

>>71
どもでつ、潜水開始・・・・・・・・・

81/508
俺も他のスレに顔出さなきゃな。
では潜行ー(-w-)~゜

95/505
大晦日ですヨー。
潜りますヨー。

1/505
大晦日ですヨー。
潜りますヨー。

ｳﾜｰ(･∀･)ｱｹﾞﾗﾚﾀｰ!!

age age ...

sub hoge{100000};
if (&hoge){print &hoge};
と
$hoge = '100000';
if ($hoge){print $hoge};
って、どっちの方がパフォーマンス良いの？

下

>>77
それぞれ for ($i = 0; $i < 10000000; $i ++) で時間計ってみた。
上：37秒。
下：30秒。

年越しsage!!

新年おめでとーｖｖ

ことよろー

>>74
>>82
えーーーーっと、・・・・・・どちらさん？

>>83
大丈夫、我々團員は常にトリップ着用。
本人と騙りの区別は一目瞭然です。
しかし騙りは騙りとして生暖かく受け入れるのが良いと思います。

ってゆーか糞ｽﾚageるなYO!!>>82 (･∀･)ｺﾄﾖﾛｰ!!

>>84
わかりました、>>82さんを生温く受け入れます、どうぞｲﾗｯｼｬｲ・・・

>>85
やほー。こんにちはー。
偽あぼんぬさんも入團しないかな？ｗ

地下で糞スレを保守しつづける荒らしって何荒らしって言うの？？

地下糞スレ保守荒らしかな？
てゆうか保守は荒らしなの？

自覚無いみたい・・・

閉鎖的な利用を目的として保守をするなら立派な荒らしだよ。

ヽ( ´ー｀)ノ　別にいいんじゃない？

みのがしてくれよー。
ちゃんと Perl の質問には答えてるんだしさー。
てか、気に入らないんなら age なきゃいいじゃん(^^;;

気に入る入らないの問題じゃないけどね。
削除するほどではないけど一応注意ということで。

良スレはageる、糞スレは流れてdat落ちするのが自然なわけで
おまえらは板の目的に沿った使い方をしてるんじゃなく
ただ糞スレに棲み付いた害虫に過ぎないわけで
立派な荒らしなわけで
でかい口きくな、しねよ

叱られちゃった…(´・ω・｀)ｼｮﾎﾞｰﾝ

あたまもあそこもｺｯﾁｺﾁ！


　　　　　　　　　　　　　　　　　　　 Å
　　　　　　　　　　　　　　　　　　 ／ ＼
　　　　　　　　　　　　　　　　　ヽ(´Д｀ )ﾉ
　　　　　　　　　　　　　 　 　　　　( へ)
　　　　　　　　　　　　 　 　 　 　　くω

なんにせよ>>90の言ってることは正しいと思うので撤収します。

Perl の質問はこちらへどうぞ。
http://pc3.2ch.net/test/read.cgi/tech/1041205885/

__END__
荒らしちゃってごめんよー(つД｀)

うっせーしね
おまえのかーちゃんでーべーそっ
おまえのかーちゃんでーべーそっ
おまえのかーちゃんでーべーそっ
おまえのかーちゃんでーべーそっ
おまえのかーちゃんでーべーそっ

IP記録実験
http://qb.2ch.net/test/read.cgi/accuse/1042013605/

1 名前：ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ 投稿日：03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。

27 名前：心得をよく読みましょう 投稿日：03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か？

38 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。

73 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:27 ID:rLfxQ17l
＞ところで、IPが抜かれて何か今までと変わることってあるのでしょうか？
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。

100ゲトー！

ひろゆきプロ固定になりたいんすけど
雇ってくれません？？

>>310
ぶっちゃけ２ｃｈはどれくらいもちますか？

僕のIP返してください

携帯から記念ｶｷｺ(>.<)ﾅﾉ

漏れ達がひろゆきを愛したように、ひろゆきも漏れ達を愛してほしい！

まぁ、匿名掲示板なんかいくらでもあるから
まとめて引越ししたらいいだけなんだけどね

面白い書き込みの割合のうち、法人・会社からの書き込みが
そんなに高いだろうか？ちくり板とかを除けばそうでもないと思うが。

でもUNIX板やプログラム板とかは厳しいかなー
有益な回答レスが減ってしまうかも。

======2==C==H======================================================

　　　　　　　　　２ちゃんねるのお勧めな話題と
　　　　　ネットでの面白い出来事を配送したいと思ってます。。。

===============================読者数： 138720人　発行日：2003/1/9

年末年始ボケがそろそろ収まり始めた今日このごろのひろゆきです。

そんなわけで、年末に予告したIP記録ですが実験を開始しています。

「２ちゃんねる20030107」
こんな感じで各掲示板の最下部に日付が入ってるんですが、
20030107以降になってるところはログ記録実験中ですー。

んじゃ！

────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────

>>745
相手がその程度で、わざわざ内容証明や令状とって訴えに来るような粘着君なら、狂犬にでも噛まれたと思って諦めれ。

今まで悪ふざけで出来たものがあったような気がするけど、そういうのが出来なくなるような？

>>196
また明け方に現われる・・・・（´Д⊂）

>>196
いや、そんなことはないですよ。

>>813
ＩＰ記録スレは有るよ

IP記録実験2
http://news2.2ch.net/test/read.cgi/newsplus/1042030554/

叱られちゃった…('・ω・`)ショボーン

保険板と違ってｼﾞｻｸｼﾞｴﾝできないからコピペしてるのかな。

さて、winnyへいくか．．．

ネタ系でもエロゲとかのネタはかなりやばいだろうな。
ょぅι゛ょネタとかSSとかね。
PTAが見たらぶち切れだよ（ｗ

883 ：名無しさん ：02/12/28 10:40 HOST:
メグ ◆TOKIQKfFYAさん　このスレ見てるか判らないけどちょっとお呼び出しです・・・

★ボランティアさんと一緒★ Part8
http://qb.2ch.net/test/read.cgi/accuse/1039532593/563-

2ｃｈは全部ＩＰ表示すればよい

>>336
インペリアル・パカ
ならお売りいたしましょうか？

今のところ実験ですが
うまく動いていますよ

これからトラブルは当事者間で解決してもらう方針です。

踏み台にされて書き込まれたらどうなるの？
踏み台にされた奴が訴えられる？

ところで掲示板のS/N比が上がるように、との理由付けが成されているが、
IP記録されると明言されているにも関わらず糞スレは毎日嫌と言うほど立つよね。。

もともと２ちゃんの鯖所在地は、アメリカ国内ですが、何か？

うん、私も暴力にはからきし弱い。ちっぽけなプライドのために痛い思いはしたくない。

======2==C==H======================================================

　　　　　　　　　２ちゃんねるのお勧めな話題と
　　　　　ネットでの面白い出来事を配送したいと思ってます。。。

===============================読者数： 139038人　発行日：2003/1/10

なにやら、連日メルマガだしてるひろゆきです。

そんなわけで、ログ記録実験ですが、いちいちサーバ指定するのが面倒なので、
全部のサーバに入れてみました。

重くなって落ちたりしてもご愛嬌ってことで。。。

んじゃ！

────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────

ひろよし良くがんばた。

あまり美咲タン情報を真に受けるのはどうかと・・・・・

敢えて２ちゃん（というかチク裏板）の功績を考えてみると、
世の中はドス黒いってことを漠然と印象づけてくれたことぐらいだろうね。

で、そんなことは大人になれば誰でもわかっていくことだろうし。

漠然としたもの以上に、具体的に２ちゃん発で成功した告発なんてあったっけ？

ＯＳレベルで相手からＩＰデータ取得の要求があった時にそれに応じるか拒否するか選択できるようにすべきだな

2ちゃんねるができる前はさぞ平和だったんだろうなぁ…
嗚呼、哀しい。

リモホって何？
リモートホストって、用語辞典に載ってないよ
誰かおせーて

２ちゃんねる知らない人４％と言う事は、
９６％の人が、２ちゃんねるの存在を知っていると言う事？

お　と　な　で　す　ね　(ﾌﾟ

ｲﾊﾟｰｲ釣れてﾖｶﾀね。

どこに報告したの？
批判要望？

(　´,_ゝ｀)ﾌﾟｯ

遊ぶネタが無くなったら訴えると思う。
絶対勝てるし。

http://wow.bbspink.com/test/read.cgi/feti/1039253916/

の522からなんか出てるんですけど
2ｃｈってこんなに変わるの？

ｱﾌｫか！ 2ch に入り浸っているから見えないんだろうな。。

閲覧してなくとも 2ch で書かれていることで名誉毀損を受けているという事実があれば
実際に閲覧していなくとも削除要求は有効だ。

そして、2ch は既に名誉毀損の要件となり得る公共のメディアとして認知度がある、
と裁判所が判断した。わかる？

3.今日は２ちゃんを忘れてゲーセン逝って、喪前の腕を磨いて来る

（＾＾）

2ちゃんねるに近いあるインターネット関連会社の社長は、
2ちゃんねるの幹部から得た話として証言する。
「2ちゃんねるは、運営者や幹部などが
それぞれ別々に会社を作りカネの流れを見え難くしているが、
実際の資金源は複数の大手通信会社系からの調査費名目のカネ。
月額で計約700万円と言い、年間にすれば1億円近く。
額はともあれ、これは通信会社系的には、
ぼう大なトラフィックを調査すると言う表向きの理由が一応は立つ。
自社系に都合の悪い書き込みがされた時に優先的に削除してもらうことも期待している」と前置きし
「通信会社系の削除の期待も含めて、2ちゃんねるは総会屋と同じになっている」と言うのだ。

（＾＾）

Perl 以外は糞!

Perlはカス!

そろそろ、Ruby にいってもいいんじゃない？

Perl を勉強するための必携の本は何？

お酒はぬるぽの燗が(・∀・)イイ!!

ｱｻｶﾗﾉﾝﾃﾞﾝｼﾞｬﾅｲ
　 （　・∀・）　　　|　|　ｶﾞｯ
　と　　　　）　 　 |　|
　　 Ｙ　/ノ　　　 人
　　　 /　）　 　 < 　>__Λ∩
　 ＿/し'　／／. Ｖ｀Д´）/ 　
　（＿フ彡　　　　　 　　/ 　←>>149

（＾＾）

　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）

>>1
Perlの 'l'の意味を考えてみろ。

ActivePerlでテンキーの「-」「+」はどのようにしたら送れますか？

　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

ジオシティーズってＣＧＩできないの？

鼬害

( ',_ゝ`)プッ

なぜにえびえび?(^^;)

　__∧＿∧_
　|（　　＾＾ ）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

（＾＾）

　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

下がりすぎなので浮上＆質問

Date: Thu, 18 Sep 2003 02:34:15 GMT
これを
＋９時間するために１９００年からの秒数へ変換する必要がある

１９００年からの秒数にするにはどうすればいい？

>>163
Time::Local

>>164
ありがと♪

まるちしてやる（付けたししてるけどな）
<img src="hoge">hogehoge<br><a href="hoge/">hogehoge</a><br>

となってるやつから"<"と">"でくくられた所だけを取り出したい
どうすればいい？

・"<"と">"の間に改行コードがある場合もある
・"<"と">"でくくられたやつの数は固定ではない

自分で数えろよ
それぐらい誰だってできる

>>166
エディタでファイルを開く。
<を と置換。
>を と置換。
以上。

#(x+1)の2乗
x = 123; #例えば
A = x+1;
print A**2,"\n";

#(x+y)*(x+2y)
x = 1;y=2;#例えば
A = x+y;
B = x+2*y;
print A*B,"\n";

これでいいのだろうか。

↑やべ。$つけんの忘れた!

>>169-170
落書きはメモ帳に。

偶数と奇数を見分けるプログラムってどうやればできるんでしょうか？

if ($var % 2) {
1,3,5,7,9
}else{
2,4,6,8,10
}

白痴天才が集うスレはここですか

>173
そういう手もあったか。

>>172
use Jcode;

my $odd = "\xb4\xf1\xbf\xf4";
my $even = "\xb6\xf6\xbf\xf4";

my $str = "偶数";

my $euc_str = Jcode->new($str)->euc;

if ($euc_str eq $odd){
print "Odd.\n";
} elsif ($euc_str eq $even){
print "Even.\n";
} else {
print "Invalid.\n";
}

2で割ると馬鹿にされるよ

if ($var & 0xFFFFFFFE) {

}else{

}
なにか間違ってるかも知れん

頑なに定石を外すスレはここですか？

activeperlでタイムアウト処理出来ないですかね？

$var & 1 で 0 か 1 の解が得られるかと思う。

$var%2 ? print "奇数\n" : print "偶数\n" ;

シリアルポートを下記でオープンして
open(COM1, "+>COM1") or die "Can't open COM1: $!";
read($Port,$response,1);
ってやると永久に待っているのですが、１０secで
タイムアウトなんて出来ないんですか？

>>183
select

>>184
そんなんで、分かるかﾎﾞｹ

ここ1週間くらい、あちこちのスレで煽り逃げしてる暇人がいるね。
2ch に来たばかりの中学生なんだろか。

>>186
2chに居座って引篭もってるお前より、マシ

ママン、馬鹿がいじめるよー

>>185
(´-`).｡ｏＯ(組込関数である事ぐらいは知っておいて欲しいものだ…)
http://perldoc.com/perl5.8.0/pod/func/select.html
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlipc.html#UDP_Message_Passing

(´-`).｡ｏＯ(Win32じゃ使えんと思うがな…)

>>189
だから何？
他人の知らない事、知ってるからって偉そうにしないでよ。

>>190
あぁ、ごめん。
組込関数のリファレンスぐらいは調べて欲しいものだ、と書くべきだったな。
http://perldoc.com/perl5.8.0/pod/perlfunc.html

alarm とシグナルの組み合わせが駄目なら、fork して子プロセス側で
open し、親でカウントして時間が来たら kill するという力業で何とか
ならんか?

組み込み関数のマニュアルに目を通さず質問だけで解決しようとするのは甘えた白痴

while (1) {
　 if (!($input_socket && $input_socket->connected())) {
　 　$input_socket = $server_socket->accept();
　 } else {
　 クライアントが接続したときの処理
　 }
　 別の処理
}
とやると
TCP 127.0.0.1:6900 127.0.0.1:1030
TCP 127.0.0.1:1030 127.0.0.1:6900
こんな感じに二重接続してるんだがどうにかならんか？

TCP 127.0.0.1:6900 127.0.0.1:1030
こうしたい

>>193
http://perldoc.com/perl5.8.0/pod/perldebtut.html

大変申し訳ないです。素人なんですがPerlからＣ言語へ変換できるソフトって
存在するんでしょうか？教えてください。よろしくおねがいします。

>>195
http://perldoc.com/perl5.8.0/pod/perlcompile.html

ちなみにココは廃棄スレ。以後、Perl の話題はこちらへ。
http://pc2.2ch.net/test/read.cgi/tech/1068051036/

>>196
ありがとうございました。へぼいＳＯＨＯなんで困ってました。

すまんっ、聞く所無いんで質問させてくれ。
最近始めたばっかりで、漏れ厨房なんだが、理科の元素記号覚えるテストがでた！
だからお遊び用で作ってみたんだが・・・というか作りかけ・・・

#!/usr/local/bin/perl

print "Content-type: text/html\n\n";

#↓作りかけだから
#require 'cgi-lib.pl';
#&ReadParse( *form );

$mode = int rand(2);
$rand = int rand(5);

@atom = ("H","O","Cl","C","N");
@molecular =("水素","酸素","塩素","炭素","窒素");

if ($mode){
foreach (@no0){
if ($_ eq "$rand"){
$rand = int rand(5);
}
else{
$key = "$atom[$rand]";
$mode = "物質";
unshift(@no0,"$rand");
last;
}
}
}
else{
foreach (@no1){
if ($_ eq "$rand"){
$rand = int rand(5);
}
else{
$key = "$molecular[$rand]";
$mode = "元素記号";
unshift(@no1,"$rand");
last;
}
}

print <<"EOM";


$answer<BR>
$ask<BR>
<BR>
「$key」の$modeは何でしょう？<BR>
<FORM METHOD="POST" ACTION="script.cgi">
<INPUT type="hidden" name="no0" value="@no0">
<INPUT type="hidden" name="no1" value="@no1">
<INPUT TYPE="text" NAME="name">
</FORM>

EOM

__END__

#↑このENDがおかしいって言ってくるんだ・・・ じゃっ


最後のENDがおかしいって出るんだが・・・
もう一度言っておくが、お遊び用で、作りかけだからな。
サブルーチン使った方がいいところあるけど、修正めんどくさい・・・・
たのむっ、ドコがおかしいのか教えてくれ。（俺の頭はおかしくないからな。）
　　　　　　　　　　　　　　　マジでタスケテッ！

括弧が足りんだけだろ。
http://www5a.biglobe.ne.jp/~n_rieko/perl/environment.htm#chapter2

それと >>196 を声に出して10回読め。

>>201
10 回っていうリアルな数に笑った

ＲＯのＢＡＮされないＢＯＴをperlで作ってください^^

初心者ですが質問させてください
キーワード検索作っているのですが検索単語が空白だと
全件表示されてしまいます。
どのように作ったらそれを回避できるのでしょうか
よろしくおねがいします。

>>204
検索語がブランクなら
エラーメッセージを出して
検索しなければよい。

if ($ENV{'HTTP_COOKIE'}) {
*data = GetCookie($ENV{'HTTP_COOKIE'});
@w = split(/\,/, $data{cookie_mkdia});
$cdata1 = @w[0];
$cdata2 = @w[1];
$cdata3 = @w[2];
}
else {
$cdata1 = '$name';
$cdata2 = '$mail';
$cdata3 = '$address';
}

print "Set-Cookie: cookie_mkdia=$cdata1\,$cdata2\,$cdata3\,; expires=$time_up\n";

sub GetCookie
{
local($cookie) = $ENV{'HTTP_COOKIE'};
local(*data, @cookie, $key, $val);

@cookie = split(/ /, $cookie);
foreach (@cookie) {
($key, $val) = split(/=/);
$data{$key} = $val;
}
return *data;
}
と書いてみたのですが･･、動きません。何故ですか？
Cookieムズカシイです･･･。

Perlの基本分かってない。

誤　 正
*data %data
@w[0] $w[0]
@w[1] $w[1]
@w[2] $w[2]

これでやるよろし。

if ($ENV{'HTTP_COOKIE'}) {
%data = GetCookie($ENV{'HTTP_COOKIE'});
@w = split(/\,/, $data{cookie_mkdia});
$cdata1 = $w[0];
$cdata2 = $w[1];
$cdata3 = $w[2];
}
else {
$cdata1 = '$name';
$cdata2 = '$mail';
$cdata3 = '$address';
}

$cooky = "name=$cdata1\,mail=$cdata2\,address=$cdata3\,";
print "Set-Cookie: cookie_mkdia=$cooky; expires=$time_up\n";

sub GetCookie
{
local($cookie) = $ENV{'HTTP_COOKIE'};
local(%data, @cookie, $key, $val);

@cookie = split(/ /, $cookie);
foreach (@cookie) {
($key, $val) = split(/=/);
$data{$key} = $val;
}
return %data;
}

としたのですが･･･。やはりダメでした･･･。何故でしょう？？

基本がなってない
サブルーティンが後ろにあるやから
＆GetCookieやろ！（＆は小文字や）

それ以前の問題のような気がするんだけど、、、

>>209 有難うございます･･･。
でも、やはりダメでした･･･。
因みに、入力フォームは、
<input type="text" name="name" value="$name" />です。
若しかして、、、$nameに$cdata1が代入されてないのですか？？

>>210　すいません･･･。
如何すればよいのか･･、具体的に教えて戴けると有難いのですが。

掲示板スクリプトでIPがENV{REMOTE ADDR}に入っている場合IPを見られるようにするには
if ($host = $ENV{'REMOTE_HOST'} eq '') {
$host = $ENV{'REMOTE_ADDR'};
} else {
$host = $ENV{'REMOTE_HOST'};
}
if ($host=~/^(\d+)\.(\d+)\.(\d+)\.(\d+)/) {
$host = &nslook($host);
}
#-------------------------------------------------------------------------#
# ■ IPを変換 [ nslook ] ■ #
#-------------------------------------------------------------------------#
sub nslook {
my ($x) = @_;
my ($ip,$addr);
if ($x =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/) {
$ip = "$1.$2.$3.$4";
$addr = (gethostbyaddr(pack('C4',$1,$2,$3,$4),2))[0];
if ($addr ne "") {
return $addr;
} else {
return $ip;
}
}
return "$x";
}

print OUT "$date<>$name<>$sub<>$com<>1<>$email<><>$FORM{mode3}<>$host<>\n";
print OUT "$date<>$name<>$com<>$resno<>$email<><>$shouryaku<>$host<>\n";

でいいはずですよね？表示されないのですがどこに問題があるのでしょう・・・

{
my @data = ($ENV{ HTTP_COOKIE } =~ m/cookie_mkdia=([^ ]+)/)?
split /,/, $1:
($name, $mail, $adress );

print "Set-Cookie: cookie_mkdia=$data[0],$data[1],$data[2],; expires=$time_up\n";
}

>>213
あなたの質問はWebProg板ですべきだな。
ま、一応答えておく。
そのスクリプトは、ホスト名が空なら、IPからホスト名を引き出してログに記録している部分。
gethostbyaddrでホスト名が返ってこない場合、IPをログに記録している。

「IPを見られるようにするには」という質問なら、こんなﾏﾝﾄﾞｸｾｰ事せずに、
print OUT "$date<>$name<>$sub<>$com<>1<>$email<><>$FORM{mode3}<>$ENV{'REMOTE_ADDR'}<>\n";
とかでIPをログに記録すればいいじゃん。
それを見えるところに表示したいというなら、WebProg板逝け！

>>214 は何処に入れればよいのでしょう･･。

>>216
すまん。２０６のコードを書きなおしただけのコード
実際のところ、仕様ようわからんから、あってるかどうかもわからん。

>>217　有難うございました･･。動きませんでしたが･･。

{
my @data = ($ENV{ HTTP_COOKIE } =~ m/cookie_mkdia=([^ ]+)/)?
split /,/, $1:
($name, $mail, $adress );

$cooky = "name=$data[0],mail=$data[1],address=$data[2],";
}
print "Content-type: text/html\n";
print "Set-Cookie: cookie_mkdia=$cooky; expires=$time_up\n";
#html部分出力

これで、動かんかったら俺にはわからね。

上のコード下２行これに変えてみて
print "Set-Cookie: cookie_mkdia=$cooky; expires=$time_up\n";
print "\n";
#html部分出力

>>219 && >>220 さん有難うございます。。
未だ、、ダメみたいです。。若しかして$time_upに問題ありですか？？
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(time + 60*60*24*30);
@day = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");
@month = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
$time_up = sprintf("%s\, %02d\-%s\-%04d %02d:%02d:%02d GMT", $day[$wday], $mday, $month[$mon], $year+1900, $hour, $min, $sec);
　　　です。

http://www.studyinghttp.net/cookies.html
でも読んでﾏﾀｰﾘしる

>>207 >>209 >>210 >>214 >>217 >>219 >>220 >>222一応出来ました。
今まで･･･有難うございました。

すみません。

use XXX;

とした場合、XXXの絶対アドレスを指定する方法を教えて下さい。
特定のディレクトリにあるモジュールを使いたいのですが、カレント
ディレクトリでは無いため、読み込みが出来ない模様です。

おながいしまつ。

use lib

>>224
#!usr/local/bin/perl -IC:/Document(ry/N224
use XXX;

C:/Document(ry/N224/XXX.pmを読める

>>226

できますた！
どーもです。

>>227
225が書いたようにlibモジュールを使うのが王道
use lib 'C:/Document(ry/N224';
use XXX;
で226と同じことができる
もしくは@INCに直で書き込み
BEGIN { push(@INC, 'C:/Document(ry/N224') }
とか
226のはかなりの裏技
もう伊藤家並ですよ

>>228
>226のはかなりの裏技

ケッ、perl -helpで出てくるもんが何で裏技なんだよ。
嘘ぶっこいてんじゃぁねぇよ。

裏技ではない、まっとうな解決策であることは認めるが、
一行目の魔法のコメントに長さの限界があるOS(UNIX系)や、
最初から魔法のコメントを無視する腐ったOS(Windows)が蔓延している現状を考慮すると
use lib 以外の選択肢は無いのではないだろうか。

そのために#!行のオプションを自前で解析してるわけだが。

$ cat x.pl
#!perl -I/tmp/hoge
print $INC[-1],"\n"
$ perl x.pl
/tmp/hoge

>>230
何ウダウダ言い訳してんだよ、糞して寝ちまいな

-I だと push で use lib だと unshift だけどね。

>>233
また嘘つきが。呆れ返っちゃうね。
座りションベンしてそのまま寝ちまいな。

# これは unshift
perl -I/foo/bar -e "print join qq/\n/, @INC;"

# これは push
#!/usr/local/bin/perl -I/foo/bar
print join "\n", @INC;
__END__

# これは unshift
#!/usr/local/bin/perl
use lib '/foo/bar';
print join "\n", @INC;
__END__

>>235
大嘘つきだな（ｗ

少なくとも、perlをソースからコンパイルした事ないな（藁

ｗ)なのか藁なのかどっちかにしてほしい

大学の情報の授業の追試なんですが

perlのプログラムでproc loge(x) {
eps = 1e-30
k = 1
dd = -x
z = x
s = 0
while ( z^2 > eps ) {
s = s + z/k
z = z * dd
k = k + 1
}
return s
}
----------------------------------------------

このプログラムを用いて(Perlでコーディングして)

log(2) = 0.693147180559...

となることを確かめよ。
プログラムを示すこと。
とありますが 意味が分かりません 一年生のわたしのクラスだれもわかる人
いないんです。 おしえてください(＞ー＜)

w)(w

>>238
テーラー展開習ってないのか？
まあ、分かんなきゃ留年して勉強し直せ、お前の為だ。

正直
while ( z^2 > eps ) {
の式の意味が分からん。∞ループになるような

UNIX の tail -f を実現するようなものを作成しようと思っています。
以下のコードでは、select でブロックせずにぶんぶん回ってしまいます。
何故でしょうか？　ちなみに fileno(STDIN) にした場合にはちゃんと
ブロックしてくれます。教えてください。

use strict;
my ($a, $b);
open(LOG, "/path/to/file");
seek(LOG, 0, 2);
vec($a, fileno(LOG), 1) = 1;
while(1) {
　　$b = $a;
　　select($b, undef, undef, undef);
}
close(LOG);

>>241
while ( z^2 > eps ) {は間違っている。
収束判定の式はそれじゃない。

>>242
selectがブロックするんじゃない。どのデバイスファイルが入出力可能か調べるだけ。
ブロック云々はデバイス自体の状態。STDINはリターンキーが押されるまでブロックする。

>>242
select(2)は、通常ファイルに対しては常に入出力可能を返す。

>>244
>>245
なるほど、ありがとうございます。では tail -f 相当のものを
実現するにはどうしたら良いでしょうか？　FreeBSD のtail(1)
では kqueue(2) が使われているので移植性が低そうです。

EOFになったら適当にsleep()、fseek(f, 0L, SEEK_CUR)でEOFをクリア
のループ。

>>247
わかりますた。やってみます。

こんな感じでできました。sleep の代わりに select を使っています。

use strict;
open(LOG, "</path/to/file");
seek(LOG, 0, 2);
while(1) {
　　my $buf;
　　if( eof(LOG) ) {
　　　　seek(LOG, 0, 1);
　　　　select(undef, undef, undef, 0.5);
　　} else {
　　　　$buf = <LOG>;
　　}
}
close(LOG);

perlmagick を使って、ポップ体の文字を画像に埋め込みたいのですが、
指定すべきフォントが分かりません。
環境は
OS : debian woody
perl : 5.6.1-8.7
perlmagick : 5.4.4.5-1woody
です。
ご存知の方、よろしくお願いいたします。

getのところで処理が止まってctrl Cで中断するしかなくなることが
たまにあるんですが、うまい回避方法はないでしょうか？

use LWP::Simple;

for ($code = 1000; $code <= 9999; $code++) {
$doc = get "http://www.abc/t?$code";
}

>>251
LWP::UserAgent timeout

>>252
回避できました。ありがトン。

質問です。
Makefileに$(pixmapdir)という字句があり、これを%buildroot/usr/share/pixmapsに替
えたいのですが、
perl -pi -e "s|\$\(pixmapdir\)|%buildroot/usr/share/pixmaps|" Makefile
とすると
Unmatched ( in regex; marked by <-- HERE in m/( <-- HERE pixmapdir\)/ at -e line 1, <> line 1.
といわれて置換できません。試しに、\$\(pixmapdir\)|を\$\(pixmapdir\)|に替える
とエラーはでませんが()がおそらくパターングループと認識されて何も置換されません。
どうすれば()を含むパターンの置換ができるでしょうか。

>>254
シェルで \ が処理されてたりしませんか？
とりあえず perl -pi -e "..." を perl -pi -e '...' に変更するか
\ を \\ に変更してみてはどうでしょう。

>>255
とても親切な方。ありがとうございました。シングルクオートでうまくいきました。
感謝申し上げます。

セレブって頭悪いよね

ゴメン、実況しながら過去スレ読んで誤爆しちゃった(´･ω･`)

[システム]プログラム言語など学習スレ[初心者]
http://money3.2ch.net/test/read.cgi/deal/1093135975/
というスレを作りました。

マーケットの分析をperlとか使ってやろう、という趣旨の
スレです。詳しい方とかおりましたら力になってやって下さい。

perl初心者です。

>dnaK
atgacgtgggttacgaccccatttagtagtcaaccgcagtga
atgaaattgggcagttga
>dnaJ
>gef
atgaagagataa
atgcgaggcgtcttccggattagaatcgataaaacagaatgggttaaagagagcgatataatagcggcgggtgcttga
atgggttaa
>nhaA
atgattatcagggcttag
atggcgcaaattcttctatag
atgattcgtgcggggtaa
>nhaR
というような出力結果から、
>dnaK
2
>dnaJ
0
>gef
3
>nhaA
3
>nhaR
0
という結果（ つまり、「>名前」に対応させた、塩基配列の行の数）を出力し
たいのですが、プログラムがわかりません。どなたか教えてくださるかたがい
らっしゃるとうれいしです。よろしくお願いします。

２６０の続きです。
>dnaK
2
>dnaJ
0
>gef
3
>nhaA
3
>nhaR
0
という結果（ つまり、「>名前」に対応させた、塩基配列の行の数）を出力し
たいのですが、プログラムがわかりません。どなたか教えてくださるかたがい
らっしゃるとうれいしです。よろしくお願いします。

>>260
ﾏﾙﾁになってますがどうなさいますか？

質問です。
perlの処理で、”Enterキーを押す”っていう操作は
perlでは、どう記述するのでしょうか？
ご存知の方是非教えて頂きたいのですが？

>>263
ﾏﾙﾁになってますがどうなさいますか？

[システム]プログラム言語など学習スレ[初心者]
http://money3.2ch.net/test/read.cgi/deal/1093135975/
で困ってます。どなたか助けて下さい。
実行してうまくいくときといかないときがあるのはどうして
でしょうか？

別のスレでも書いたのですが

課題が出たのですが分からないので教えてください

この間に、英文テキストファイル(単語数100語程度)を用意し、
これを処理するプログラムをつくります。

プログラムは、
(1)テキストファイルを単語ごとに区切る
(2)単語をソートして並べ替える
(3)ファイルに保存する
という流れで作ってください

↑という問題です
初心者にも分かりやすくお願いします

課題を人にやらせて、それが自分のためになるとでもいうのか？
そうなら喜んで回答するが、少なくとも漏れはそうは思わない。

>266
最初の「この間に」ってのは何だ？

すいません、初心者なんですが教えてください。
登録や削除のできるＣＧＩを作っています。
一つのフォームから、いくつかのsubmitを使って、それぞれ処理を変えたいのですが、
どのようにすればよいでしょうか？
なんとなく、nameを使ったり、受ける側でif文を書けばいいのかな？という感じなのですが、
どうやって、if文でsubmitのnameを受けたり、分岐したりすれば良いのか分からない状態
です。
どうぞ、よろしくお願いします。

>>269
その質問はWeb製作板の方がいいな。

>>270
じゃねぇ。WebProg板だ。

>>270さん
ありがとうございます、行って来ます！

perlで[1]を[2]のようにデータを整える作業をしたいと考えています。
「全角同士で挟まれたスペースの削除（例）中 央→中央」と「全角数字と並んでいるところに,(カンマ）を挿入する(例) 篠崎11→篠崎,11」の２点の作業をしたいです。
何方か、アドバイスを下さいお願いします。

[1]
中 央１丁目591 281 310 218 ２丁目602 315 287 227
２丁目522 256 266 179 大字南篠崎1130 559 571 352
本 町831 396 435 301 花 崎１丁目1459 749 710 604

[2]
中央１丁目,591,281,310,218,２丁目,602,315,287,227
２丁目,522,256,266,179,大字南篠崎,1130,559,571,352
本町,831,396,435,301,花崎１丁目,1459,749,710,

273です。
レスPerlについての質問箱にて解決しました。
礼儀を知らなくてすいませんでした。

>>274
解決して、ヨカーです。
あなたも詳しくなって、困った人を助けて下さい。

もみage！

すみません。

入力内容をカンマ区切りでcsvデータとして吐き出すコードを作成中なのですが、
入力内容のテキストエリアなどで改行を入れられてしまうと、csvが想定どおりに
いきません。

そこで、ファイルに書込む前に改行コードをすべて強制的に削除してしまいたいのですが、
どのようにしたらいいか教えてください。

よろしくお願いいたします。

>>276
s/[\r\n]+//g;

>>277
ありがとうございます。

trを使う方が速いよ。　tr/\x0D\x0A//d;

s/[\r\n]+//g;
と
tr/\x0D\x0A//d;
は等価じゃないよ

>>280

むむ？\r\n と\x0D\x0Aとどっちにしたら良いのでしょうか？
ちなみに、これでmacからの入力でも対応できますでしょうか？
(改行コードが違うんですよね、確か。)

>>281
それくらい調べる

>>280
dosの場合は、単独のLFを残すってこと？
そのココロは？漏れ、アホなので教えてちょ。

>>283
何をどうしたら単独のLFが残ると思うの？

>>284
s/[\r\n]+//g; 　は、
unix CR or LF
dos CR or CR,LF
mac LF or CR
の「１ヶ以上の繰り返しを削除」を繰り返す。で、ここまでオケー？
んで、dos上でCRが前にないLFが残るのかと。
ちがうの？つか、[\r\n]ってCR,LFのCRだけ先に消したりせんの？
もしかして慣用句？もったいつけんと教えれ。

>>285
> の「１ヶ以上の繰り返しを削除」を繰り返す。で、ここまでオケー？

だからCRLFはまとめて消えるわけだが。
えっと、[\r\n]がCRにマッチしたらそのあとLFにはマッチしないと思ってるのかな？

$a = "223620679";
$a =~ s/[23]+//g;
とか試してみたら？

>>286
これに近いと思ったんだが？

$_ = "\f\f\r\f\r\r\r\f";
s/(\f|\f\r)+//g;
for( split('',$_) ){
print ord$_, "\n";
}

訊くが、
macでは、\nと\fがCRで、\rはLFなんだが、それはご存じか？
macPerlだと[\r\n]じゃ、[LF CR]となり、dosの改行(CR,LF)消せないし。
[\r\f]+か、\n+だけならまだしも[\r\n]+ってのは、何故？
そして、なぜtrじゃイカンのか？

もしかして、\n eq \f(x0a) と思ってないか？

[\n\r] と\nを先に持ってくるならともかく、
\nがCR,LFだった場合、先にCRを喰っちゃうのでLFは残る。

以下、二点をご存じないと判断した。
・ tr/\x0D\x0A//d; が s/[\r\f]+//g; と等価かつ高速であること
・ メタ文字 \n,\r,\f が、環境によって異なる文字になること

>>286
$a = "22360679";
だと思う

[\n\r] の中の順番は（-を使うときを除いて）関係ないだろ

っていうか、仮に>279がマカーだとしても自分で検証できないのか？

>>287
無茶苦茶だな

マジわからん。
仮に\nがCR,LFだった場合 s/[\n]//g; で　単独のCRもLFも消えるのか？
なら、勉強になったよ。

でもな、だったら[\r\f]としないのはなぜ？なぜ￥ｎを使う？
dosでは [\x0D\x0D\x0A] となって、なんだか余分じゃないか？

で、そもそもの発端だが「 tr/\x0D\x0A//d; と等価でない」とは？

> 仮に\nがCR,LFだった場合 s/[\n]//g; で　単独のCRもLFも消えるのか？

それはない。なんでそんな仮定が出てくるんだ？

>>294
276の質問に対し、
　277 名前：デフォルトの名無しさん ﾒｪﾙ：sage 投稿日：04/11/17 19:54:04
　 >>276
　s/[\r\n]+//g;

ここから、はじまった話。
\fではなく\nを使っていることに疑問を持ち、個人的見解を述べたら
叩かれ気味になってる。

藻前らハッキリ汁。 \nがCR,LFだった場合限定でいい。
s/[\r\n]//;と等価なのは、s/[\r\r\f]//;なのか、s/\r|\r\f//;なのか。

あ〜、それから、コッチの質問を無視したあげく
「なんでそんな…疑問型で終わる」は、もうナシな。
目の前にいたら殴ってますよ。


それとも、釣りなのか…orz

> s/[\r\n]//;と等価なのは、s/[\r\r\f]//;なのか、s/\r|\r\f//;なのか。

s/\r|\n//;
ところで「macでは、\nと\fがCR」となっているMac OS のバージョンとMacPerlのバージョンを教えてもらえますか？

>>296
> 仮に\nがCR,LFだった場合
\nがCRになったりCRLFになったりするのは出力した時だけ。

279に贈る言葉
「プログラムは個人的見解通りに実行されるのではなく、書かれた通りに実行される」

>>298
> ところで「macでは、\nと\fがCR」となっているMac OS のバージョンと
> MacPerlのバージョンを教えてもらえますか？
ttp://www.din.or.jp/~ohzaki/perl.htm#CRLF_Unify

>>299
うそつけ！

てか、300含めて同一人物だよね？んで277だよね？
名前覧入れろ、卑怯ものがっっ。

じゃあ、名前つけてみる（他のレスは知らん）

>>301
> >>298
> > ところで「macでは、\nと\fがCR」となっているMac OS のバージョンと
> > MacPerlのバージョンを教えてもらえますか？
> ttp://www.din.or.jp/~ohzaki/perl.htm#CRLF_Unify

そのページのどこに「\fがCR」って書いてあるの？
っていうかOSとMacPerlのバージョン聞いてるんですけど。

>>301
277です。277以降静観してましたが、とりあえずその他発言とは
別人だと表明しておきます。
>>279の言ってるようなことは意識したことがなく、
\r=0x0d、\n=0x0aだと思ってました。
実際のところ、自らは未検証の内容なので、
確認が取れたら書き込もうと思ってたんだけど、
>>301で勝手に同一人物とか書かれたもので出てきました。

あと、+はなくてもよかったかな
s/[\r\n]//g;

本当〜〜に、ごめんなさい m(_ _)m
不快な思いを皆様にさせてしまい、猛省しております。
漏れが超バカな勘違いしていました。･･･(；´Д｀)ｳｳｯ…
￥ｆをＬＦだと思ってました。しかも、ずぅぅっとorz

今日、会社に行って、旧mac,win98,で
for( "\n","\r","\f"){
printf "\\x%02X\n",ord;
}
を実行して、はじめて知りました。情けない、恥ずかしい。

trと等価でない理由は、式全体が返す置換数が異なるって
ことで、勝手に納得しました。

撤退して、勉強し直します。
お騒がせして、申し訳ありませんでした。

>>304
>>299

おめでとう♥

今日はどのスレでも「おめでとう」ばかりだな

(?(条件)真なら|偽なら)
という拡張構文の使い方と使用例を教えてください。
なんとなく便利そうなんだけど、意味わかんないし、本みても具体的なことは載ってませんでした。

三項演算子でぐぐれ

ぐぐってみましたが、なんか違うような気がするんですが。。

必要も無いのに新しいからと言うだけで使いたがるなよ醜くなるだけだぞ

何が言いたいのか分からん。

　∧||∧
（　 ⌒ ヽ　　素で間違えた
　∪　　ﾉ　　perlreに載ってるるるるぢゃん…そんなものあるの知らんかたた
　　∪∪

お詫びに首吊り

>>308

正しくは、

$hoge = 条件式? 真値 : 偽値;

じゃないのか？

>>307
おめでとうって、なんかあったの？

おめでとう

>>314
>>313

perl言語に詳しい人がいないスレ

Encodeとjcode.pｌ
どっち使うのがいいですか

サーバのperlが古すぎて、jcode.plでサーバエラー食らったことがある。
対処法をググろうと思っても、上手くググれず困っていたら、
昔、独学用に買った初心者向けのperl本に対処法載っていた。

本は大事にするべきだなと思った。

>>319
systemでnkf使えば？　ｗ

本スレ?が1000来てるのでこちらで質問させて下さい。
ハッシュの配列をソートしたいのです。
@a = (
{'c' => "mixa",'time' => 1},
{'c' => "fox",'time' => 3},
{'c' => "miaa",'time' => 2}
);

このようなハッシュの配列を、timeにてソートしたいのですが

$a[0]{'time'} が 1
$a[1]{'time'} が 3
$a[2]{'time'} が 2

なのを

$a[0]{'time'} が 1
$a[1]{'time'} が 2
$a[2]{'time'} が 3

として、c側もこれについてくる

$a[0]{'c'} が mixa
$a[1]{'c'} が miaa
$a[2]{'c'} が fox

このような結果になるソースを知りたいです。なるべくスマートに書ければ嬉しいです。

my @new_array = sort { $a->{time} <=> $b->{time} } @a;

PerlではできないRubyでは簡単

志村！上、上！

Perlについての質問箱はどこ行っちゃったんでしょ。
誰か作ってくらはい。ペコリ

Perlについての質問箱 14箱目
http://pc5.2ch.net/test/read.cgi/tech/1101649274/l50

>>327
ありがとん。

>>323
本当にどうも有り難うございました。
$a->{'time'}で参照出来るのですね
$a{'time'}とやって上手く行かなかったのでてっきりもっと難しいのかと思っていました。
なぜ前者が可能で後者が不可なのか宜しければ説明して頂ければ幸いです。

ハッシュ、リファレンスを勉強品晴れ。
$a{'time'}は%aというハッシュのtimeをキーとする値。
$a->{'time'}は、無名ハッシュ（へのリファレンス）のtimeをキーとする値。

たぶん$a,$bを知らないのでは。

たぶん$を知らないのでは。
たぶんa,bを知らないのでは。

>329
たぶん、シュワルツ変換が分かれば、分かるようになると思う。
ていうか、私もこないだ覚えたばかり。

続 初めてのperl p101 から 103 のあたり。

ちなみに、シュワルツ変換とは、
ある並びを持った配列があったときに、
その要素が持つ別の属性で持って、並べ替えを効率よくやろうと
いうものだけど。

ハッシをまだ使いこなせていません。例えば、
一つのファイルは、
106 1473
106 764
1762 48
1762 38
1762 91
と、左の数字に対して、いくつかデータがあって、もう一つのファイルは、
106 30
1762 50
と、左の数字に対して一つしかデータがないものがあった時に、
これを、
106 1473 30
106 764 30
1762 48 50
1762 38 50
1762 91 50
のようにハッシュをつかって表示させるのはどうやればいいのでしょうか？

>>334
http://pc5.2ch.net/test/read.cgi/tech/1101649274/77-78

標準入力からデータを読んで、標準出力に結果を吐くCプログラムを
perlで呼び出して、データを渡して結果を受け取る方法を教えてもらえませんか?
Active perl + WindowsXPです.

exeファイル作って、コマンドとして実行すれば？

パイプを知らんのだろう

パイプマン！

数値計算で吐き出された数値ファイルのちょっとした計算に使いたいです。
そのためには、整数であるか実数であるかを判定する必要があるのですが、なにかうまい方法はないでしょうか?
つまり小数部が0かそうでないかを判定したいということですが、いかがでしょう?

if($Number == int($Number))
{print "Integer\n"}
else
{print "Not Integer\n"}

たまたま小数点以下が０の実数データだったらどうするんだ

>>340の質問だと、小数点以下が0なら整数扱いじゃないのか？

「.」があるかどうかだけ見ればよい

#!perl

$number = "5.8";#値を代入

if($number =~ m/\.\d/g) {print "$number";}#小数点以下に数字がある時、値を出力

else{print "いいえ";}#小数点以下に数字がない時、"いいえ"を出力

こんな感じか？

いや、「小数部が0かそうでないかを判定したい」だろ?

小数点をデリミタにして、数値をスプリット。
小数点以下の部分を全て足して、合計が0か否かをみる。

とすればいいのか？

スプリットしたなら小数点以下が0かどうかだけ見ればいいだろ

>>347を修正
小数点をデリミタにして、スプリット。
小数点以下の部分が、0か否かをみる。

以上！

これじゃだめか？

$num = '23.02'; #値をセット

print $num=~/\.(\d+)/ && $1>0 ? '実数' : '整数';

>>341でいいんじゃないの？

だね。>>341きまりということで。

Perl言語て。

>>353
まあ、そう云うな。

>>341と>>349がシンプルなので、比較してみました。

use Benchmark;

timethis(1000000, sub{ useInt(1.00) });
timethis(1000000, sub{ useSprit(1.00) });

sub useSprit{
my $number = shift;
if([split(/\./, $number)]->[1] == 0){
#print "Integer\n";
}else{
#/print "Not Integer\n";
}
}

sub useInt{
my $number = shift;
if($number == int($number)){
#print "Integer\n";
}else{
#print "Not Integer\n";
}
}

結果：>>341の方が速くてコードも短い。ついでに回答も早い。

一行でOK。

print($number == int($number) ? "Integer\n" : "Not Integer\n");

漏れの規則結果(左が速い)
356 > 341 >>>> 356 >>>>>>>> 349

printf qq|%sInteger\n|, ($number != int($number) ? 'Not ' : '');

ここまでするともはや何をしたいのかわからんにょうになる

print$number!=int$number&&'Not ',"Integer\n";

んじゃ、この件は>>356が最強ということで

>>357

356 > 341 >>>> 356
の辺りが激しく謎。

やっぱ、読めなきゃ意味ねーもんな！

どこかのperl本に『半年前の自分は他人』って書いてあってワラタ。
>>359までくると、自分で見返しても一瞬なんのことか判らなくなる。

perlのスクリプトの中でgrepの検索パターンで
日本語を使うにはどうしたらいいんでしょうか？
誰かしているかた教えてください。お願いします。

>363
NAMAZUをつかえ

>363
日本語対応のPerlか？
正規表現オプションに日本語コードの種類を指定したか？

>>363
http://www.din.or.jp/~ohzaki/perl.htm
を見ると幸せになれるかもしれない(し、なれないかもしれない)

ここは質問箱となにが違うのでしょうか？

>>367
ここは呪われたスレ

>>364,365,366
ありがとうございます！！
がんばってみます！

>368
呪い返しの術！

#include <stdio.h>
int main()
{
printf ("Gonnuduba!\n");
return 0;
}

#include <stdio.h>
int main()
{
　　　printf ("Gonnuduba!\n");
　　　return 0;
}

なるほど。全角スペースならネスティングできるのが
わかりました。ありがとうございました。 m(_ _)m

#include <stdio.h>
int main()
{
 printf ("Gonnuduba!\n");
 return 0;
}

ここは、Cスレかと

&nbsp;

376が、半角スペースの入力に失敗した為、このスレ終了？

これは成功だろ

s/(\s*$)/てすと/gm;

教えてください。

普通の掲示板の機能にアイコンをつけるのに
<FONT SIZE=\"2\" COLOR=\"$icon!!ｺｺｶﾞﾜｶﾗﾅｲ!!">$icon<FONT SIZE=(ry
とあるのですがname=iconとかvulue=./icon/icon1.gifとかそういった事は出来ました。

解らないのが、ラジオボタンでチェックを入れるとvulueで指定したリンク画像を表示させる
ということなのですが。
誰か教えてくれませんか？

３８０です。
４行目の文は
print " <td valign=\"top\" nowrap>
の続きにそういう文があって、そこを直して、iconを追加していたのですけど
どうやって挿入とか呼び出しとかするのかわかりません。
selectとかspiceとか色々調べたのですが、いまいち把握できません

>>381
詩ね! 丸血!!

板違。WebProg 行け。

変な質問ですみません。
利用のレンタルサーバーはFreeBSDでメールはAPOP POP3 IMAP が使えるらしいです。

今、メールアカウントのパスワードを変更するスクリプトを記述したいのですが、
暗号化の部分がさっぱりわかりません。

レンタルサーバーのコントロールパネルから設定したメールパスワードを直接読み取ってみた時の文字列と
単純にMD5で生成したパスワードが違っていましたので、暗号化方式はMD5でないと推測します。

WEB検索でどのように暗号化しているのか探しましたがみつかりませんでした。
このあたりの情報に詳しい方、ご教授お願いします。

<<板違いの質問かもしれませんが、質問先がわからず、ここにしました。申し訳ありません>>

>>380=381
perlの前にHTMLの勉強した方が良さそうですよ。（板違いですね。）
＆　普通の掲示板って具体的には？　

>384
サーバに保存されているパスワード情報の書式は、そのサーバで使用されているメールサーバ
プログラムの種類に依存しプロトコルとは無関係。それだけの情報ではエスパーでもなければ分からない。

>>385
ふむふむ。ありがとうございます。
メールプログラムは何かはっきりわかりませんが、同社の他のサービスでは
qmailを使用との事ですので、同じかもしれません。

ところで、メールプログラム依存という事は
メールソフト（クライアント:outlookなど）からサーバーまではパスワードが
プレーンテキストで流れているのでしょうか？
そうなると、そっちの板で質問という事になりますが、
暗号化済で送信を前提としていたので、ここで質問させて頂いておりました。

>>386
言ってることが混乱していないか?

あるプロトコルでパスワードをどの様に送るかはプロトコルに定められている。
クライアントでもサーバーでもプログラムの種類には関係ない。
でないと認証できないだろ?

パスワードの保存方法は各プログラムが好きにすればいいことだろ?

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

ここでperlを考えないで、通信で、例えばtelnetなどでパスワード変更しようと
思った場合、メールサーバーのプログラム名（または内容）が判らない場合はどうしようもない、
という事なんですね。

ん〜。困りました。。。。。。

>>388
だからさ、結局何がしたいワケ?

パスワード変更したいならパスワード変更用の手段を実行しろ。
telnetでコマンド実行するなら打とうがperl実行しようか同じだ。
そのサーバーはコマンド打つとき暗号化済みのパスワードを打たないとダメなのか?

>>384=386=388
perlの前に日本語の勉強した方が良さそうですよ。（板違いですね。）

ぶっちゃけ、コマンド名がわからないんですよ。
コマンド名が判るなら、システムコマンド呼び出しでいいんですけど。

え〜、マジ?それだけ?
訊く板間違ってるし、ググってもすぐ出てくるよ。

リャマ本を読み終えたので、Perlの勉強のために簡単なゲームでも作ろうかと思ってるんですが、
Perlでゲームを作るために参考書ってありませんよね？
C言語で書かれた本をPerlに書き換えて作るしかないんでしょうか。

弱い言葉を使うなよ
強く見えるぞ

>>393
アルゴリズムと言語の勉強は互いに独立したものです。

Perlでサイト管理システム作ってるんだが
管理ページにログインした後ってセッション使ったほうがいいの？
単純にパスワードをcrypt()で暗号化して認証しただけじゃまずいよね？

ちなみにCGI::Sessionを使いたいけど、
レン鯖なんで一切モジュールの類は使えません。

どなたか優しい人、構文チェックしてもらえまえんか？
エラーログは以下の通りです。
syntax error at ./accesslog.cgi 行番号 18, near "};"
Unmatched right curly bracket at ./accesslog.cgi 行番号 41, at end of 行番号
syntax error at ./accesslog.cgi 行番号 41, near "}"
Compilation failed in require at C:\check.cgi 行番号 54.

Perlへのリンクです。
ttp://www5e.biglobe.ne.jp/~kokotubo/upbbs/img/90.txt

>>397
メモ帳使うな。色付け・インデントできるまともなエディタを使え。このレス読んだ直後に変えなかったら殺す。
17行目#addr → $addr
36行目&error}('0'); → &error('0');
52行目\n\n; → \n\n";

もすかして殺人予告ｷﾀ━━━(ﾟ∀ﾟ)━━━ｯ!!？

つうかこのスレ3年もってるのか…ｗ

Eclipse＋EPICがいいよな、Perlの開発環境。

あるサーバにPerlのパッケージファイルを設置しておいて、他のサーバの
Perlで書かれたプログラムがその他のサーバのパッケージを読み込むことは
できるのでしょうか？

どなたかご存知の方教えていただけますでしょうか

できてもレスポンスが悪そうだなぁ・・・。

402：これはできん。なぜなら、ぱけじ呼んでもその中で使われてるバイナリのライブラリ
xx.soなんか読めんやろ。

みなさんの助けが欲しく、やってきました。

今仕事でｐｅｒｌ言語をやっています。
アンケートのページの改造をやりたいのです。
質問なんですけど、ボタンをクリックすると、
アンケートのデータが入っているテキストファイルを読み込み、
その読み込んだデータでCSVファイルを作成して、
そのCSVファイルをダウンロードさせたいのです。

どうすればいいでしょうか？

【流れ】

・データファイルの読み込み
　　　↓
・CSVファイル作成して、データを書き込む
　　　↓
・CSVファイルをダウンロードさせる

よろしくお願いします。

>>405
仕事でしたらコンサルタントにご相談を。

>>405
問題になりそうな部分
・自動でダウンロード開始させるか？リンククリックさせるか？
・一意なファイル名をどう生成するか？

ヒント：
・リダイレクト
・MD5

これで出来なきゃ転職先探した方が良い。

Perlだけで、ユーザーサイドのoutlook　expressの登録アドレスを参照して、メールすることができますか？

>>408
はい。

>>409
Perl for Win32が稼動しているサーバーだけですよね。

Ｐｅｒｌ使用可のレンタルサーバーは、どこでもfor Win32なんですかね？？　　　わかる人、教えて。ちょっとスレ違いの質問でスマソ。

>>410
いいえ。むしろUnix系が主流でしょう。

あんまりWin32で
Perl動かしてる人っていないんじゃないの？
俺もWin32上で開発してるけど、なんかやりにくい。

winで書いて、サーバに上げて試していますが...
それが一般的じゃないんですか？

皆さんLinuxなんですか

hotmailのアドレス帳に自動でアクセスして、そのアドレスにメールを一斉送付することできますか？

ＭＡＩＬの内容は、あるURL.で、入力するのは、hotomailのIDとpassword。実行ボタンをクリックで、ＭＡＩＬの送信は、hotmailのサーバーでなく、ＣＧＩが置いてあるサーバーのものを使用します。

どのくらいの工数かかりますか？　１日で、できますか？

>>414
hotmailよくしらんがやりゃできるんじゃない?

工数はやる人の能力で100倍ぐらい違うのはザラなんで全く意味なし。
1日でできる奴はいるだろうけど、普通に開発会社にたのんだら1人日じゃ
やってくれないだろうね。

sedのスレってどこに有るのですか？

>>416
UNIX板

@_ = $a->b();
my $result = shift;

をまとめて記述することは出来ないでしょうか？
ハッシュの場合は警告が出るけど %{ $a->b() }->{hoge} で良いみたいなんですが。

本スレじゃないようなので移動します。

cronでperlスクリプトを定期的に起動して、あるサーバが正常に機能しているかチェックしたいのですが、
HTTPサーバに接続して、ページを取得した際に、正常に取得されたかどうかはどのようにしたら分かるのでしょうか？

MD5でも取って比較すれば？

わかる方、力を貸して欲しいです。ほんと困ってます。
google web apiをperlで使って、検索語を含むWebページのヒット数、URL
を表示するようなプログラムを作りたくて、あるサイトのプログラムを参
考にして作ったのですが、実行したら英語のサイトのURLが表示されて、
明らかに検索語を含んでいません。
もしこうした方がいいという案がありましたら、教えていただきたいです。

自分はPerlをあまり使ったことがなく記述の仕方もいまいちわかっていない
状況です。自分なり本を読んで少しプログラムも書いてみたのですが
まだまだのようです。どうかよろしくお願いします。


use SOAP::Lite;
use Jcode;

my $googleSearch = SOAP::Lite -> service("file:GoogleSearch.wsdl");
my $key='LkML035QFHLEaaFEoFDfPd2VZFDzWGCE';
my $query="とんかつ";

my $result = $googleSearch -> doGoogleSearch($key,jcode($query)->utf8, 0, 10, "false", "", "false", "", "UTF-8", "UTF-8");
#print "About ".$result->{"estimatedTotalResultsCount"}."results.\n";

printf("query=%s %d results\n",$query,$result->{estimatedTotalResultsCount});
for $i(@{$result->{resultElements}}){
printf("%s,%s\n",jcode($i->{title})->euc,jcode($i->{URL})->euc);
}

>>422
Net::Googleじゃだめなの？それとここにgoogleアカウントは書かないほうがいい

>>423
最初のuseの部分をuse Net::Googleに書き換えるということですか？

ご指摘ありがとうございます。
アカウントは実験的に取得したやつなので、問題ないかと思われます。
心配してくださって、ありがとうございます。

このスレは重複スレです。
スレッドストップを依頼しておきますので、こちらにお移り下さい。


Perlについての質問箱 21箱目
http://pc8.2ch.net/test/read.cgi/tech/1134327348/l50

>>422-424
スレッドストップ実行までに暫くかかると思います。
それまでに終わらせて下さい。

>>425
>>8

ﾜﾗﾀ
２００２年かよ。

直リンクが不可能なアップローダー　cgi あったら便利だと思う

直リンクされたことによって消滅するアップローダは多いからな

perl で書かれたものキボン

かなり遅レスだけどhtaccessかその類の物でよくね？

すみません。教えてください。
@commentというところに

xxxxxxxxxxxxxxx(4/26)
xxxxxxxxxxxxxxx(4/27)
xxxxxxxxxxxxxxx(4/28)
xxxxxxxxxxxxxxx(4/28)

のようなデータがあって、
それの中で日付が当日の行に対して


xxxxxxxxxxxxxxx(4/26)
xxxxxxxxxxxxxxx(4/27)
xxxxxxxxxxxxxxx(4/28) New!
xxxxxxxxxxxxxxx(4/28) New!


というように行末に「New!」を加えたいんですが
どうやったらいいんでしょうか？

入門書みながらやってるんですけど、全然わかりません。

$find = index ($comment, $date);

if ($find >= 0) {
$comment=s/\n/New!\n
}

そりゃ酷い入門書だなｗ

my $mon = "4", my $day = "28";

grep {s/\(?<=\Q$mon\E\/\Q$day\E\)/ New!/} @comment;

やべ、間違てたｗ

grep {s/(?>=\($mon\/$day\))/ New!/} @comment;

ありがとうございます。試してみたけど動きませんでした。
日付のところは例に挙げていたのは正しくなくて正しくは
xxxxxxxxxxxxxx(4/26 xx:xx)
xxxxxxxxxxxxxxx(4/27 xx:xx)
xxxxxxxxxxxxxxx(4/28 xx:xx)
xxxxxxxxxxxxxxx(4/28 xx:xx)
という感じで時間も入ってました。

とりあえず時間の部分を削ってやってみましたがうまくいかず・・・

じゃあこれで。

grep s/(?>=$date)/ New!/, @comment;

すまん今起きたばっかりで寝ぼけていたようだ。すまん.

これで秒が入ってても大丈夫だと思うよ。
grep {/$date/ and s/$/ New!/s} @comment;

おお、出来たっぽいです！！
マジでありがとうございます。
マジで泣けてきます

サーバーのシェルスクリプトをsystemコールして動かないんですが、どうしたらよいんでしょうか？
初期設定が出来てないとかエラーが出てます・・・

初期設定してみなされ

正規表現で、目でみると実際は空行に見えるが、tabが入っていて
実は空行ではない。のを検索するにはどうしたらいいですか？
その他の空行ではない行でtabが入っていても無視する。
というものです。

^\t+$
こっちでも怒られたら悪いがもう答えない。

1行に同じ単語が3度以上表れる行をperl正規表現で書くとどうなりますか？
わかる人お願いします。

正規表現1本じゃ書けない。コーディングが必要。

word.*?word.*?word
じゃだめかなｗ

/^.*?(word.*?){3,}$/

これではどうか?

(\Qword\E).*?$1.*?$1

>>445
あ。それだな。

javaのXMLEncoderで書き出したファイルをXMLDecoderライクに
扱えるperlってありませんか？

$hoge = 'A B';
$hoge =~ s/ /\\E\\s\+\\Q/g;
if( 'A B C' !~ m/\Q$hoge\E/ig ){ print $hoge; }

if( 'A B C' !~ m/\QA\E\s+\QB\E/ig ){ print 'aaa'; }

上三行みたいな事がしたいのですが
うまくいきません
お知恵を拝借できませんか？

もっとスマートなやり方もあるとは思うが、

my @data = map { '\Q' . $_ . '\E' } qw( A B ) ;
my $str = 'if ( \'A B C\' !~ m/' ;
$str .= join '\s+', @data ;
$str .= '/ig ){ print \'hogehoge\' . "\n" }' ;
eval $str ;

それだとAの部分に'$a'とかが混じっていたときに期待しない動作をします

まあ、そうだろうねw
そこらは map 中でエスケープしちゃえばいい。

Text::CSV_XSについて教えてください。
man Text::CSV_XS.3pmを読んでも解決しませんでした。

$csv->parse($_);
@columns=$csv->fields();
としてCSVファイルの中身を@columnsに格納できるのですが、@columnsは普通の配列じゃない
みたいで、添え字指定で任意の位置（行と列を指定した位置）のデータを取り出すことができません。
foreach $factor (@columns){
print $factor,"\n";
}
や
foreach $factor (@columns[0]){
print $factor,"\n";
}
はできても、$columns[0][0]などではアクセスできません。このfieldsメソッドで作成された配列は
どのような構造になっているのでしょう。ご教示いただければ幸いです。

>>453
Text::CSV_XSはCSV1行を扱うためのもので、CSV複数行で構成される2次元の表を
扱うようなものではない。

>>453
ありがとうございます。自分の勘違いに気がつき突破口が開きました。
while($line=<IN>){
}
の中で処理していたのを忘れて悩んでいました。感謝です。

あるフォルダの中にある全てのファイル名を拾いたいのですが、やり方がわかりません。
やり方のわかる方はお教え願います。

456
すいません解決しました。

大文字小文字変換に関する質問です。
例えば、CURR OPIN NEUROL NEUROSURGという文字列をCurr Opin Neurol Neurosurgと変換したい
と考えています。
$line="CURR OPIN NEUROL NEUROSURG";
foreach $i (split(/ /,$line)) {
push(@w, ucfirst(lc($i))." ");
}
print @w;
とするのは冗長である気がするのですが、もっと賢く簡潔にやる方法ないでしょうか。

>>458
1バイトごとのビット演算なんてどうかしら？
0x4F で and して 0x60 で or するとか。

・・・でもucfirstしなきゃか。orz...

$line =~ s/(\w+)/ucfirst lc $1/ge;

>>460
おぉぉぉぉ素晴らしい！ありがとうございました。
なるほど、なるほど。(\w+)とgを組み合わせたらよかったんだ。

データの中に含まれる$を\$とエスケープしたいのですが、
$hoge =~ s/\$/\\$/g;
とすると
Final $ should be \$ or $name at fuga.pl line 53, within string
とエラーになります。$を\$に置換するにはどうすればよいのでしょうか。

すみません。解決しました。
=~ s/\$/\\\$/g;

ちょっと疑問に思ったんだが、MovableTypeとかPerlで書かれてるソフトウェアってたくさんあるけど、あれってソース公開しなくていいのかな？
絶対GPLのライブラリとか使ってると思うんだが…

>>464
Perlについての質問箱スレに回答しておいたよー

ハッシュの配列をソートしたいんだが、どうしたらエレガントにできますか？


my @hogename = { 'apple', 'orange', 'peach' };
my @hogeval = { 200, 100, 400 };
#
# ここで、@list_of_hash の配列を作る
#
my @list_of_hash = ();
for($i=0; $i<@hoge; $i++) {
my $hash = {
　　name =>@hogename[$i]; #要素名
　　val =>@hogeval[$i]; #要素の値
};
push(@list_of_hash,$hash);
}
# @list_of_hash を要素の値の昇順にソートするエレガントな方法は？
# いまさっき、いわゆる「馬鹿ソート」をコーディングしたんだけど
# エレガントな方法がきっとあると思う。
#

map { $_->[0] }
sort { $a->[1] <=> $b->[1] }
map { [$_, $_->{val} ] } @list_of_hash;

sub decode {
my($val) = @_;
$a=int($val/(2**40));
$b=(int($val/1048576))%1048576;
$c=(($val-($a*1048576+$b)*1048576))%1048576;

return ($a,$b,$c);
}
32ビット以上の整数$val下位から20ビット、20ビット、10ビットを別な変数$c,$b,$aに取り出す
できるだけ高速なdecode関数を作るとして、もっとよい書き方はあるんでしょうか？

>>468
その関数自体バグってないかい？

$aには41ビット目から上が全部入ってるけど。

>>468
先に下の20ビットを抜き出した後で残り30ビットを普通に & や >> 使って求めればいいんじゃないだろうか。
つまり、こう。

# 下 10 ビットを $c へ入れる。
$c = $val % (2**10);
# 元の値を10ビット右シフト
$val = int($val / (2**10));
# 下 20 ビットを $b へ入れる。
$b = $val & ((1 << 20) - 1);
# 残り 20 ビットを $b へ入れる。
$a = ($val >> 20) & ((1 << 20) - 1);

但しこのままだと元の値が 52 ビット以上あった場合は 32 ビット用に
コンパイルされた Perl だと正常動作しないと思います(というのは
最初の20ビット右シフトをした段階で32ビット以上存在することに
なるためです。値の保持はできてもシフト演算でまともな結果を返さない
かも知れません)。

元の値が52ビット以上だったとしても正常動作させるためには最初の
20ビット右シフトをやった直後に残り30ビットだけを残して上の桁を
なくすなどの処理が必要です。

>>468
sub decode {
   my ( $val ) = @_;

  # 40bit右シフトした値の下位10bit
  my $a = ( $val >> 40 ) & 0x3FF;
  # 20bit右シフトした値の下位20bit
  my $b = ( $val >> 20 ) & 0xFFFFF;
  # 下位20bit
  my $c = $val & 0xFFFFF;

  return ( $a, $b, $c );
}

これでどうさね？
もちろん処理系は64bitなんだろね？

>>471
IEEE754の64ビット倍精度(よく32bitマシンのC言語のdoubleで使われているやつ)
だと仮数部が52ビットある。
http://ja.wikipedia.org/wiki/IEEE754
で、Perl は普通の 32 bit CPU の PC で普通にコンパイルすると数値はこれ
使ってると思うので、64ビット環境でなくても50ビットの整数は変数に入れ
られる。ただ問題は32bitを超える値の場合にそのままシフト演算ができない
ことにある。これは多分シフト演算をする時に32bit整数に変換してから行って
いるからだ。

観客としてはもとのより速くなったかどうかが知りたいわけですが
ベントとったひといない?

手元のperlは64bit整数使えないので自分でとるのはちょっと大変
なのです。

my ($c,$b,$a)=unpack("B20B20B10", $val);

32bit環境だとこれもうまく動作しないみたいです。

perlの64ビット倍精度数値の仮数部のビットを一部でも抜き出すのって無理なのだろうか？

>>473-475
>>470読んでないのか?
32ビット以下にしてしまえばビット計算できるんだから最初だけ
普通に計算して残りをビット計算すれば良いんだよ。

>>476
ベンチは別の方法で回避したのを測定してもそれはその方法のベンチで
あって本来測定したかったものではないからだめだろ。

数値を読んだらまず特定のバイナリ形式にpackして、
それから unpack B10 とかで取ればいい。

>>476
>>478
解決しているのなら具体的なソースコードを書いてほしい。

簡単には書けないから468のようなコードになっている。
>>479

演算回数が同じならビット演算のほうが浮動小数演算よりはやい。
ベンチとるかどうかはコードを見てからだな。
>>473
環境に依存するコードでよければ高速になるようだが、32bit環境でも
動作するコードで高速なコードがかけるかどうかは、50ビットの値から
32ビット以下の複数の値を取り出すエレガントな書き方があるかどうかだ。
シフト、論理演算、モジュラ、pack全部使えないのだから、だめなんでは。

入力データの形式が文字列なのかPerlのよくわからん数値なのかはっきりしてほしい。

環境依存でいいならいくらでも解決方法あるよな。
たとえばWin32ならCのDLL一個書いてWin32::APIですぐだ。さすがにコード貼る気はないが。

>>481
unpackは"d"とかも駄目なのか？まだ使えないという結論はでてない。

468,471のコード見る限り64ビット倍精度で50ビットの数値が入力されるのでは。
>>482

環境依存の場合は64ビット環境で471のコードでOK。
>>483

#!/usr/bin/perl
use bigint;
$hexstr="100000000";
print hex($hexstr),"\n";

というスクリプトを実行すると、
Integer overflow in hexadecimal number at ./test1.pl line 5.
4294967296
と警告が出ます。結果は正しいのですが。
本来どうするべきものなのですか。

use Math::BigInt;
$hexstr="100000000";
$b = new Math::BigInt("0x$hexstr");
print $b,"\n";

小文字のbigintは気づかぬところでバグが出るから俺は好きじゃないな。

最近見たソースの中に@{$hoge[$num]}というような表記をしている箇所が
数カ所ありました。
@{}って何を表しているのでしょうか？^^;

それっぽいキーワードなどGoogleに入れてみたんですが、
適切なサイトを見つけることができず、どなた教えて頂けると助かります。

変数名とかを変数にしたいときの書き方

@LIST =(1,2,3);
$hoge = 'LIST';
print @{$hoge};

>>488
おぉ、なるほど。
そんな書き方があったんですね(^^;

ありがとうございます。

>>487
配列へのリファレンスをデリファレンスしているのでは。

$hoge[$num] = [1,2,3];
print join(",", @{$hoge[$num]});

>>488
いまどきシンボリックリファレンスを教えないように。

>>487
てか、その程度のことはPerlの入門書に書いてあると思うのだが。

CGI.pmを使って、下と同じような処理をするにはどのようにすれば良いのでしょうか。
read(STDIN, $temp, $ENV{'CONTENT_LENGTH'});
@query = split(/&/, $temp);

foreach (@query) {
($name,$value) = split(/=/);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$query{$name} = $value;
}

ググれば一発だと思うんだけど・・・

$q=new CGI;
@query = $q->param;
とか
@query = param;
とか試したけどうまくいかない。
(CGI.pmバージョン３．２５）

欲しいのはこれか？
%params = $q->Vars;

あなたは神だ

PCの解像度を取得できませんか？

>497
とりあえず環境依存だと思う。

>>497
解像度というのは、デスクトップの大きさのこと？
Windows なら、GetWindowRectというＡＰＩで取れる。
Perl での使い方は適当にググって調べてちょ。

すまん　漫画板から来たんだが、Pealの作者があずまんが大王のファンって
このスレの人からするとどうよ？
ttp://gihyo.jp/magazine/wdpress/serial/2007/alpha-geek/0000

やっぱそのキャラのファンか・・・

青ラクダ本書いてたときはSamurai Xだっけ？

>>497

$| = 1;
print "PCの解像度を入力してください >> ";
my $kaizoudo = <STDIN>;

Win XPで”デフォルト”のプリンター名取得できませんか？

Win32::Printer::Enum
で全てのプリンタ名のリストはできるのですが。。。

Win32::APIがあるから、あとはそっち系のスレで聞け

>>505
やっぱりAPIか。。。

つーかマルチしてね？その質問

いろんなところで見るな。

WinAPIスレで親切な人が教えあげたみたいだが

>>504
print "デフォルトのプリンター名を入力してください。\n";
my $default_printer_name = <STDIN>;

パールが出してくれるメッセージの解説はどこかにありますか？

perldoc perldiag

>>511
さっそくすみません。
man perldiagでもいいんですね。助かりました。

■　Perl言語　■　何でも質問コーナー　■
http://mixi.jp/view_bbs.pl?id=17607679&comm_id=1401396
Perlに関すること、cgiに関すること
なんでも質問できるコーナーです(たとえばApacheとかでもOKとします！)
（Web系であればOK）

ルール：
Google検索で調べてわかるようなことでも質問してもOKです
（初心者のうちは、どの情報を取捨選択したらイイのかわからないと思うので）
回答してくださるかたは、暖かく質問者を迎えてやってください
o(^^o) (o^^)o

IP(ドメイン名)からアクセスポイントを取得するにはどうすればよいですか？

アクセスポイント・・・アクセスポイント？

IP(ドメイン名)・・・IP(ドメイン名)？

>>514
板違い。http://pc11.2ch.net/hack/

オブジェクト指向で、objectAのメソッドfooからobjectBのメソッドvarを呼ぶ場合って、
下記みたいな書き方でいいのかな？一般的にはどう書くの？
----main.pl
-略-
package main
Use classA;
Use classB;
objectA = new classA;
objectB = new classB;
-略-
----
----classA.pm
-略-
package classA;
sub foo
{
my $self = shift;
$self->{val} = $main::objectB->var('param');
}
-略-
----

classA.pm から use classB; すりゃあいい。
$main:: なんかｲﾗﾈ

>519　�dｸｽ。

反省。質問を単純化しすぎだった。

オブジェクト複数を互いに呼び合えるように宣言するにはどうすれば良いか？って話なんだけど・・・。
>classA.pm から use classB; すりゃあいい。
した場合、objectAからobjectBのメソッドを呼べるけどobjectBからobjectAのメソッドを呼んだ場合どうなるんだろ？
他には、objectCやらobjectDが出てきた場合どうなるんだろ？
classA.pmで my objectB=new classB;したobjectBと、classC.pmでmy objectB=new classB;したobjectBは別物だよね？
漏れ、何か勘違いしてる？

漏れが思いつく範囲では、
・mainパッケージのobject保持変数を参照する(>518に書いた方法)
・各objectをお互いにセットする
ぐらいなんだが、一般的な書き方ってどうなのかと思って聞いてみました。

何がしたいのかよくわからんが、
それはメソッドを呼び出すのではなく、fooに引数として渡せばよいだけのことでは？
あるいは各クラスにクラスデータとして持たせるとか、、、
package SomeClass;
my $objectA = ClassA->new();
my $objectB = ClassB->new();
以下、メソッドの定義（メソッド内で$objectA，$objectBを使う）

実際にやりたい事：
　DBオブジェクトやセッションオブジェクトと画面表示オブジェクト(画面の種類毎にいくつかある)の連携

セッションオブジェクト(sessionObj)に格納したデータを画面表示オブジェクト(AdispObj)に渡して表示するのにメインで、
$AdispObj->setdata('dataA',$sessionObj->getdata('dataA'));
$AdispObj->setdata('dataB',$sessionObj->getdata('dataB'));
$AdispObj->displayAll();
見たいな事をしていたが、
メインが本筋の流れの制御以外の事を大量に抱え込むのでソースが見づらくなってる。

で、画面表示オブジェクトのメソッドの中でセッションオブジェクトやDBオブジェクトから
データを直接取り込んだらどうかと思ったわけ。

オブジェクト指向ってオブジェクトとオブジェクトがメソッドでやり取りして処理を進めるものなんだろ？
C++チョットかじった程度で、それから7年以上経ってるんで実際どうやってたか忘れてるんだが、
その辺のコーディングスタイルの標準がわかれば良いかと思ったんだ。

SomeClassとか、mainとは別のパッケージを作るのが一般的なの？

オブジェクトを使う目的のひとつがカプセル化だから、結局セッターやゲッターを介してしか
クラス間でデータのやりとりはできんのよ。
mainでその操作を隠蔽したいのであれば、各クラスに静的な領域を作り、
完全修飾で直接アクセスまたはメソッドを介したアクセスをするしかないわな。
package Adisp;
sub displayAll

すまん、途中で送ってもうた

sub displayAll {

shiftキーうかつに押すとミスりやすいな
sub displayAll {
　Session->new->getdata($param)でSessionクラスからデータをロード
　以下処理
}
結局、最初に自分で書いたのが多少みにくくてもベストではないのかな

�dクス。

オブジェクト指向について、復習をはじめたよ。
ttp://www.atmarkit.co.jp/im/carc/serial/object06/object06.html
オブジェクトが別のオブジェクトのメソッドを直接呼び出すパターンは存在するみたいだな。

何かオブジェクト指向実装の参考になるフリーソフトのPerlソースとかって無いかな？

実装の参考にはならんかもしらんが、
perlboot, perltoot, perltooc, perlbot
読めば？perl の OOP が（変態的な部分を含めて）載ってるよ。<- 当たり前

実装でハデにがちゃがちゃやってんのは、俺の専門分野の奴なら知ってるけど
専門外の人にはとてもじゃないけどお勧めできんので。スマン。

オブジェクト同士が互いを呼び合うというのは、あんまりやるべきではない。
クラス設計をまずは見直すべき。

OOなら、そういうのはインターフェースを使うんだがな。
Perlでそこまでするのはどうなんだろうな。

>>522
みたいのは、デザインパターンだと、コマンドパターンの典型だな。

うむ

皆様の意見大変参考になりました。勉強しなおしてきます。m(_ _)m

>526 どっかで、perl OOPのお手本を見たければ、CPANに登録されてるMail関連を見ろって書いてあった。

PerlでOOPしたいなら、まずは

perldoc boot
perldoc toot
perldoc tooc
perldoc perlbot

あたりを読んどけ

PerlでOOPしたいなら、Rubyに乗り換えた方がいいだろ。

> PerlでOOPしたいなら、Rubyに乗り換えた方がいいだろ。

Ruby に乗り換えると、Perl で OOP をしたいとう願望を達成できるのか？
いまいちよく分からないので、このスレを全部使ってでもいいから説明してくれ。

HTML::Template使ってるんですけど、
<TMPL_INCLUDE NAME="ファイル名"> のファイル名を
動的に変更できませんか？

もろちんできますょ

そこをなんとか、ご教授を。

Windows XP で　Active Perl を使用してるのですが、
漢字のとりあつかいについて、ちょっと行き詰まったので教えてください。

まず分かったこと：

・Perl で Shift JIS を扱うのは自殺行為に等しい。
・EUC は C言語や Perl 専用につくられたコードなので、
　できればそっちを使うのが良いが Windows ではかえって混乱するだけ。
・今どきなら、UTF-8 を使うのが Cool。 Java も PHP も MySQL も、
　UNIX 由来の言語はみな内部で UTF-8 処理しているから。
・ちなみに Windows は内部処理では UTF-16LE を使用しており
通常の API と UNICODE 版API の２種類を持っている。
　ファイルシステムもUNICODE化されており、Shift JIS では無い文字がファイル名に使えたりする。

で、当然、use utf8 でバリバリ書こうと決心したのですが・・・
もうメチャクチャです。漢字ファイル名のファイルがぜんぜんオープンできないんです。
最初は画面表示も化けまくってたのですが、これは binmode STDOUT,":encode(cp932)" で解決しました。
でも print __FILE__ で化け化け、print $ARGV[1] も化け化け。readdir したファイル名も化け化け。
readdir で取ってきたファイル名でファイルをオープンすることもできず、もうどうにもなりません。

java、vbscript、jscript、php、c、c++、C#、j# もちろんBATファイルも、perl 以外の言語なら何も問題なくできる事が
perl に限って、漢字ファイル名が開けない、-f とか -d でもテストできないんです。
何か方法があるのでしょうか？ open FILE, "<:encode(cp932)", "月間売上表.txt" じゃダメなんですかね・・・

>>539
あんたが「漢字ファイル名」と呼称しているものがPerlからどう見えているのか
調べればいいだろ。

>>539
Rubyでも使ってろ化す

やっぱダメっす。
問題を切り分けるために、たった２行だけの短いプログラムにしてみました。

use utf8;
open FILE, ">:encode(cp932)", "月間売上表.txt" or die;

それでも 「Died at test.pl line 2.」 って怒られます。
こんなに短いプログラムの、いったいどこにバグがあるのか見当がつきません。

バッチファイルで

ECHO ７月,３００まんえん>月間売上表.txt

だと何も問題なくファイルが作られるんです。だからディスクのエラーでは無いと思います。
もうワケワカメです （T_T）

「表」が原因だな

use utf8;
use Encode qw(encode);
use open ":utf8";

open FILE, ">", encode("cp932","月間売上表.txt") or die;
print FILE "Perlなんて、つかっちゃらめぇ＞＜";

>>544
おお、ネ申光臨！

バッチリです。そんな裏技があったとは知りませんでした。的確なご回答に感謝します。
ただ、そこまではウマクいったんですけど、処理を追加したらまた問題が発生しました。
１２行目の rename で die してしまうんです。
（rename をコメントアウトすれば動くんですが、データのバックアップができなくなるんで・・・ちと不安）

use utf8;
use Encode qw(encode);
use open ":utf8";

open FILE, "<", encode("cp932","月間売上表.txt") or die;
@data = <FILE>;
close FILE;

foreach (@data) { $_ = "(済)" . $_ } # テキトーにデータ加工処理

if (-f "月間売上表.bak") { unlink "月間売上表.bak" or die }
rename "月間売上表.txt", "月間売上表.bak" or die; # <-- ここで死ぬ

open FILE, ">", encode("cp932","月間売上表.txt") or die;
print FILE @data;
close FILE;

……(絶句)

知的障害者が来ているようだな

svgをjpgなどに変換したいのですが、よく分からず困っています。
librsvgなどを使用するんでしょうか？

>>546
頭の弱い子によくありそうなことじゃない。
障害って程でもなかろう。

> ・EUC は C言語や Perl 専用につくられたコードなので、
> 　できればそっちを使うのが良いが Windows ではかえって混乱するだけ。

クマーーーー

そもそもマイクロソフトが作ったインターネットでPerlを使うのは
法律違反すれすれなんだが、今さらそんな事を言ってもしょうがない。

だけどEUCの使用は明白な犯罪。やめた方が良い。

>>550


　 　∩＿＿＿∩　　 　　　　　　｜
　　 | ノ＼　　　　 ヽ　 　　　　　　|
　　/　　●゛　　● |　　　　 　　　|
　 |　∪　　( _●_)　ミ　 　　　　　j
　彡､　　　|∪|　　 |　　　 　　　 Ｊ
/　　　　 ∩ノ ⊃　 ヽ
(　 ＼　／ ＿ノ　|　 |
.＼　“　　／＿＿|　 |
　　＼ ／＿＿＿ ／

>539
無茶苦茶言ってるなｗ
PerlでもShift_JISはよく使うし、状況次第でiso-2022-jpでもeuc-jpでも使うよ。
utf8は扱いづらい。他のコード同様、それを使うのが自然な時にだけ使う。

> utf8は扱いづらい。

老人？

utf8 はたしかに使いづらいよ。現に >>545 のようなバカが沸いてきてるし。
誰も >>545 の謎が解けないようだから代わりにオレがバカの相手をしてやる。
いいか、正解は、こうだ。日本語にはすべて encode("cp932",○○) をつける。

use utf8;
use Encode qw(encode);

open FILE, "<:encoding(cp932)", encode("cp932","月間売上表.txt") or die;
@data = <FILE>;
close FILE;

foreach (@data) { $_ = "(済)" . $_ } # テキトーにデータ加工処理

if (-f encode("cp932","月間売上表.bak")) { unlink encode("cp932","月間売上表.bak") or die } # ここ
rename encode("cp932","月間売上表.txt"), encode("cp932","月間売上表.bak") or die; # ここ

open FILE, ">:encoding(cp932)", encode("cp932","月間売上表.txt") or die;
print FILE @data;
close FILE;

print encode("cp932","月間売上表.txt を更新しました。\n");

どうだ、cp932 だらけのすばらしいコードだろ？実にゲージュツ的だ。惚れ惚れするね。
これを業界では 「encode cp932 地獄」と言う。割と有名なハナシだ。良く覚えておけ。

＞ 545のなぞが解けない

マジレスするともうutf8ネタは繰り返し繰り返し出るネタで答えるのに飽きたネタだからスルーしてるだけよ…

>>554
どこの糞業界だよ、それ
そもそもutf8なファイル名リテラルで使ってる時点で間違いに気づけよ

>>556
それを言うなら、「そもそも perl 使ってる時点で間違いに気づけよ」 だな。

> それを言うなら、「そもそも perl 使ってる時点で間違いに気づけよ」 だな。

そうか。代替案があるなら提示してくれよ。
どうせ煽ってるだけの馬鹿なんだろうけど。ｗ

>>558
それは>>556に言えよ。代替案があるなら提示しろとな。
どうせ煽ってるだけの馬鹿なんだろうけど。ｗ

utf8って書いたらスクリプトをUTF-8で保存しろよ。
それで全て解決だろ。

>>554 >>557 >>559

Rubyを貶されたからって初心者Perlユーザに嘘を教えるなよRubist君。

あららんらんらん〜〜〜
>>554 は実際に utf8 で保存して、ちゃんと動作テストを済ませてありますよ。
これ以上弄りようの無い、カンペキなクソperlコードですがなにか？

>>560
バカですか？つうかバカですか？いやむしろバカですか？

>>561
以下同文

まぁいずれにせよ、質問に回答はしない、他人の回答はなじる罵倒する。
でも自分は代替案も何も出せない。
他の言語スレには見られない、Perl スレの決定的な特徴。

no utf8 も使えないバカが粘着してることは分かった

>>554
それでも良いんだけど、
ファイル名があっちこっちに散乱しているのは美しく無いですよ。
こんな風に手直ししてみてはいかがですか？

use utf8;
use Encode qw(encode);
binmode STDOUT,"encoding(cp932)";

$filename = "月間売上表.txt";
$backup = "月間売上表.bak";

open FILE, "<:encoding(cp932)", encode("cp932",$filename) or die;
@data = <FILE>;
close FILE;

foreach (@data) { $_ = "(済)" . $_ } # テキトーにデータ加工処理

if (-f encode("cp932",$backup)) { unlink encode("cp932",$backup) or die }
rename encode("cp932",$filename), encode("cp932",$backup) or die;

open FILE, ">:encoding(cp932)", encode("cp932",$filename) or die;
print FILE @data;
close FILE;

print $filename," を更新しました。\n";

素人質問で申し訳ありません〜！！cpanシェルで
install XML::XBEL
を実行すると、途中で
Install Module::Build now from CPAN? [y]
と出るので、yをおしました

そしたら最後に
/usr/bin/make install -- OK
*** Cannot install without Module::Build. Exiting ...
Running make test
Make had some problems, maybe interrupted? Won't test
Running make install
Make had some problems, maybe interrupted? Won't install
と出て、インストールできませんー！
どうか解決のアドバイスをください・・・・。。。。

>565
Module::Build がインストールできていないようなので、ログのもっと前の方を調べるべき。

>>566
ありがとうございます！

Module::Buildを手動でインストールすることにしまして、
make、make testは通ったんですが、その後のmake installで
ERROR: Can't create '/usr/local/lib/perl5/site_perl/5.8.8'
Do not have write permissions on '/usr/local/lib/perl5/site_perl/5.8.8'
とエラーが出ました。
レンタルサーバー上での作業のため、一般ユーザ権限しかないので
怒られるのは当然なのですが、インストール先（？）を変更するには
どうすればよいのでしょうか？

>>568
makefileくらい自分の環境に合わせて編集しろよｗ

低レベルの質問で申し訳ありません。
webで調べたのですが、どうしても書き方がわからなくて。
installdir=/home/(mydir)/lib/perl
といった感じに設定すればよいのでしょうか？

>570
perl Build.PL --install_base /home/foo
あるいは
perl Makefile.PL INSTALL_BASE=/home/foo

まずは perldoc か CPAN で探してみるべきだと思うんだよ。
http://search.cpan.org/~mschwern/ExtUtils-MakeMaker-6.36/lib/ExtUtils/MakeMaker.pm
http://search.cpan.org/~kwilliams/Module-Build-0.2808/lib/Module/Build.pm

Perl初心者の質問です。
CSVにデータを書き込むにはどうすればいいでしょうか？
モジュールで読み込むことには成功しました。
他のモジュールをいくつか試したのですが上手くいきません・・・
ご教授お願いします。

「うまくいきません」じゃわからんよ。
とりあえず、いちばん簡単なのは、ファイルをオープンして print 文で。

改造関係ってこのスレでいいのかな？

http://dream.lib.net/room/cgi/e_acsdeny.html

このスクリプトの「l_alog.dat」へ出力されるアクセスログに「アクセスした時間」も表示したいんですが
どうすればいいのかわかりません。

同じサイトで配布してる掲示板から時間の処理してる部分コピってみてもうまくいかず･･･
ご教授願います。

あ、改造はWebProg板かorz

>>575
改造だからとかじゃない。webプログラミングはWebProg板。

ファイルとスカラーを引数に実行するプログラムを作りたいです。
以下のように書くと、ファイルは読み込んでくれるのですが、スカラーがないと言われます。
whileのところが悪いと思いますがどう書いたらいいでしょうか？お願いします。

&data_input($line, $num);

sub data_input{
　　($refline, $refnum) = @_;
　　while ($refline = <>) {
　　chomp $refline;

shift を使って解決しましたm(__)m

このスレでいいのかどうかわからんけど、質問させていただきます

・WindowsのActivePerlで、cpanを使ってHash::Mergeをインストールしたい
・Cloneが必要らしいから、先にこっちをインストールしよう
・cpan Cloneすると、make testの段階で「msvcr90.dllが見つからない」とエラーが出る
・msvcr90.dllまでのパスを通すと、今度はCランタイムエラー（R6034）が出る ←今ここ

もうさっぱりわからない

環境：
WindowsXP Pro SP2
ActivePerl 5.10.0
Visual C++ 2008 Express Edition

>>579
若干スレ違い気味だけど、自分の場合(XpSP2+VC2005)での対処法。

perl Makefile.pl
で出来上がった Makefile のなかの、実際にコンパイルが走ってる行で、
”-MD”　となっているところを全て　”-MT”　に変更する。

でさらに、リンクライブラリが列挙してあるところの
”mscvrt.lib”　を　”libcmt.lib”　に変更してから、nmake && nmake test を掛ける。

これは、詳しくはMSDNのリファレンスを見てもらいたいんだけど、
.Net がWindowsに入って以降、標準のCランタイムライブラリが、
”libcmt.lib”から”msvcrt.dll”に変更された。(VCでのデフォルトになった。)
この”msvcrt.dll”は、実体は”msvcr80.dll”(XP+Net2.0+VC2005の場合)へのダイナミックリンクのローダーなんだけど、
Windows上で有効なCランタイムライブラリが、以前(VC2003以前)は、”libcmt.lib”からのstatic_linkだったのが、
2005から、”msvcrt.dll”へのdynamic_linkへ変更された模様。
(だから、以前VC2003で書いてたCソースをそのままVC2005でコンパイルしなおしても、動かないことが頻発)

ウチで以前いろいろ試した時は、”*.manifest”があっても、ロードしてくれなかったり、
実際コンパイルしたマシン上では正常に動作しても、それをパッケージングした.ppmを、他のマシンに
インストールして実行したりすると、そちらと同じように「msvcr80.dllが見つかりません」みたなエラーが出て実行出来なかった。
(しかも、その他マシンに、.Netインストール済み且つVC2005もインストールして、コンパイルしたマシンと同じ 環境設定しても、同じエラーが出た。)

msvcrt90ってことは、.Netは3.0かな？OSはひょっとしてVistaかな？

VC2008はまだ触ったこと無いんで詳しくはわからないけど、まだこの方法でいけると思う。
でもMSDNによると、将来的には”libcmt.lib”のstaticlinkオプションを切って、全て”msvcrt.dll”での動的ロードに切り替えて行く方針らしい。

>>580
その通り置換したらいけたー
ありがとう。勉強になったよ

perl-baseパッケージというのは以下のように説明されていますが、

Debian -- sid の perl-base パッケージに関する詳細
http://packages.debian.org/ja/sid/perl-base

基本的な部分だけ入っているというのは具体的にどういう意味なんでしょうか。

1. perlパッケージが入っていればperl-baseパッケージを入れる必要がないのでしょうか。
2. perl-baseを入れればperlインタプリタが一緒にインストールされるのでしょうか。
(perlコマンドが使えなかったのでそういうわけでもなさそうですが。)
3. perl-baseを入れると何らかのモジュールがインストールされるのでしょうか。
4. perl-baseだと具体的にどういうものが不足するのでしょうか、可能性として。

以上お願いします。

1. perlはperl-baseとperl-modulesに依存していますから、自動で入るはずです。
2. perl-baseには/usr/bin/perlが含まれています。
3.4.5. ファイルリストをご覧ください。
http://packages.debian.org/ja/sid/i386/perl/filelist
http://packages.debian.org/ja/sid/all/perl-base/filelist
http://packages.debian.org/ja/sid/all/perl-modules/filelist

質問箱に書き込めないので、
split で分割して foreach で処理しようとしましたが、順序が元の文字列と変わる場合があります。
これが仕様なのかわかりませんが、どう対処すればよいでしょうか？

コードさらせよ

>>584
なぜ順番が変わるのかを突き止めて、その原因を取り除く。

>>585
>>586
レス有難うございます。
コード自体はそれほど長くないのであげることはできますが、必要なデータファイルが
ここに挙げるには大きすぎるので要点だけを書き射抜いたところ、再現しません。
仕様ではなさそうなので、ちまちま検討してみます。

経験的に、そういう場合は同じところを最初からもう一回書き直せば直る。

split に使う正規表現が間違ってるから
期待とは違う分割をされちゃって
順序が違ってしまったように見えてる、とかね

684です。
お騒がせいたしました。
ちまちま検討した結果、なんともはやお粗末なバグであることが判明しました。

split 後の各ワード（日本語）は漢字、ひらかな、カタカナ、数字、アルファベット（全角・半角）
なのですがその語が辞書ファイルにあれば該当する語を返し、ない場合はカタカナ（全角）
である場合はひらかなにして返すと言うくだりで、件のひっくり返り事件がおきました。
この辞書ファイルというのがカタカナ・ひらかな変換ができていない時に構成されて
そのときどう言う訳か具体的には「ラッツ＆スター」の「ラッツ」が「すたー」に、「スター」が
「らっつ」に登録されていたのです。
(continue)

584の間違いでした。
続き、
したがって、要点だけを抜き出したルーティンではこの現象が再現されなくて当然です。
（各ワードをプログラム中に設定し、それをsplitして単にひらかな変換しjoinし出力）
まことに申し訳ありません。
しかし、splitの仕様かとも思ってこちらに質問し、レスの感触からそうではなさそうだと
わかり遠回りせずに済みました。有難うございました。

誘導してくださいお願いします(´;ω;`)

下記のように代入した場合に、「aa」と「bb」の部分にあたる要素名一覧を取得する方法はありますか？
$hash{'a'}->[0]->{'aa'} = 100;
$hash{'a'}->[0]->{'bb'} = 500;


@key = keys($hash{'a'}->[0])でできる？
とか思ったばかな自分にご教授お願いしますm(＿)m

keys %{$hash{'a'}[0]}

>>593
おおおお━━━━(T▽T)━━━━!!
できました！

%{　}で囲えばよかったんですね…
勉強になりました！

ご協力感謝いたします。
どうもありがとうございましたm(＿)m

sedの上位バージョンと言う位置づけでperl5.10に取り組んでいます。
日本語のマッチングに関しては、「基本的にできない」という捉え方でよいでしょうか？
perlに精通するのが目的ではなく、実用上のツールとしてどうか、ということで
アドバイスをいただければ幸です。

>>595
だめ

>>595
Encodeとかencodingのドキュメントを読めばできるんじゃね？

>>594
> %{　}で囲えばよかった

Perl のリファレンスの部分を勉強したほうがいいと思う。
そうしたら $hash{'a'}、$hash{'a'}->[0] の正体と、それをどう扱ったらいいのか理解できる。

http://ja.wikipedia.org/wiki/%E7%B2%BE%E9%80%9A

質問です。
JavaScriptからHTMLへ値を受け渡すときのように、
CGIからHTMLへ値を受け渡すことは可能なのでしょうか？

CGIの変数の中身をHTMLのテキストボックス内で表示する方法はあるのでしょうか？
アドバイスをいただけるとありがたいです。

>>600
Webプログラム板で聞け。

$value = "hogehoge";
print "<input type='text' value='$value'>";

>>601さん
ありがとうございます！！
解決しました！！！！！

大変、初歩的な質問で申し訳ないのですが、教えてください。

今まであるサーバで使っていたCGIを新しいサーバに移設したいのです。
そこで、新しいサーバの指示通りに設定してみましたが、下記のようなエラーがでます。
何が原因なのでしょうか？・・・

: In string, @jcom now must be written as \@jcom at >form.pl line 27, near "/usr/sbin/sendmail -t -f s-hirono@jcom"
: In string, @mfi now must be written as \@mfi at >form.pl line 437, near "@mfi"
: form.pl had compilation errors.

ちゃんと書いてあるじゃん

> In string, @jcom now must be written as \@jcom

って。

すんません、素人なんで意味がわからないんですよ・・・

￥をどこかに足すって意味ですか？？？

ご丁寧にも自然言語でエラーメッセージだしてくれてるんだから、素人も玄人も関係ないだろ。

でも素人の頃は、俺もこんな感じだったな。
「分からない」っていう先入観があるんだよな。
分かってしまえば、「あー、本当にそのまんまじゃん・・」って気付くんだけど。

今朝のみのさん：その三角形のやつなんだっけ？
汚点気お姉さん：はい雲がこういう形に見えます
今朝のみのさん：いやその三角形のやつなんだっけ？
汚点気お姉さん：はい矢印ですね。風がこっちから吹いてきます
今朝のみのさん：いやその三角形のやつなんだっけ？
汚点気お姉さん：ああっ！ 女神様っ
今朝のみのさん：いやその三角形のやつなんだっけ？
汚点気お姉さん：ああっ！ 寒冷前線ですね。毎朝やってんだから分かれよ。

すんません、\@jcom
って感じでやってみましたが、やはりだめでした。
確かにそのままの文章になってる気はしますが、根本的なところがわからないのでわかりません。

ちなみに、>>603　で書いたのは、サーバに付いてるCGIチェッカーのエラーメッセージです。
実際にwebから送信してみると、下記のエラーがでます。

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator, [email protected] and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

＞「分からない」っていう先入観があるんだよな。

まさにそのとおり。よく読めば中学生でもわかるやさしい英語でかいてある。

＞ In string, @jcom now must be written as \@jcom at >form.pl line 27, near "/usr/sbin/sendmail -t -f s-hirono@jcom"
翻訳：２７行目の @jcom は \@jcom って書かなきゃダメだよ〜ん

他の残りの行は宿題として取っておく。自分で解けるよね？

師曰く 「ルーク、フォースを使え」

コンピュータだから難しい。
ｐｅｒｌ なんて使ったことが無いからわからない。
そんな先入観を捨てて、中学１年生のあの頃の素直な気持ちに帰ってみろ。

お前らスレ違いなのに優しいな

それに対して>>603の丸投げ感は一体…
大体ソースコードも張らずにどうして欲しいんだ？

返答ありがとうございます。
CGIチェッカーのエラーは解消されました。

ですが、本番のweb上ではやはり>>611のエラーがでます。

>>614
スレ違いですか？それは失礼。
他に適当なスレが見つからなかったものですから。。。
他に良いスレがあるようなら教えてください。

web上のエラーはweb制作板に言え

スレ違い厨は気にせんでもいいよ。

でもな、>>611 は、書いてることを読め、としか言いようが無い。
英語が読めないんだったら、読める人に頼んで訳してもらうとか、何か自分で考えろや。
この先一生つきまとう問題だぞ。

web制作に行っても適当なのがなさそうでした・・・
ソースはってもいいすか？

>>６１１を読んでも、結局わからないのですが・・・　管理者に聞けみたいな話ですよね？

>618
つ[ http://pc11.2ch.net/test/read.cgi/php/1189939783/l50 ]

スレ違いの懸念濃厚ですが…
windows上で *.pl を実行する場合（一般的かどうかわかりませんが私の環境では）、
ウィンドウが開かず全画面で一瞬真っ黒になります。
これを避けるため、batに記述して起動しています。
しかし中には引数の受け渡しの関係からこれができない場合が生じました。
batを使わずにウィンドウ上で起動する方法があればご教示ください。

>>620
よくわからんけど、Perl.exeにPIFファイル設定すりゃなんとかなるんじゃね？

>>621
レス有難うございます。やってみます。

ファイル名のリストから数字の付いていないものをみつけ出し、それらのファイル名に数字の付いたものを出力しようとしました。
期待する出力は

aa
aa86.txt
ww
ww873.txt
q
q12.txt

なのですが実際は

aa
ww
q

となります。どこが悪いのかご教示ください。

ソース：
use utf8;
@f = ("aa.txt","aa86.txt","fff73.txt","ww.txt","ww873.txt","q.txt","q12.txt","mm55.txt",
"gg21.txt",);
@nn = grep(/^\D+$/, @f);
foreach $nn(@nn){
$nn =~ s/\.txt//;
print "$nn\n";
@n = grep(/^$nn\d+$/, @f);
print join("\n", @n);
}

>>623
@n = grep(/^$nn\d+\.txt$/, @f);

@n = grep(/^$nn\d+$/, @f);
　　　　　　　　　↓
@n = grep(/^$nn\d+\.txt$/, @f);

じゃない？^ とか $ の意味がわかってて使ってるのかな？

>>624
>>625
レス有難うございます。そんなポカだったか…、と思って元ソースでやってみると
問題は違っていました。
ここに書き込むためにいろいろ端折っているうちに余計なところまで削ったようです。
その所為で同じような出力になりそれを書き込んでしまった次第です。
そこで元ソースをそのまま書き込もうとしましたが、長すぎてできません。

元ソースです。
use utf8;
use Encode;
$movepath = encode('sjis', "パソコン\\番号なし");
chdir "E:\\My Documents";
chdir $movepath;
@files = glob("*.txt");
@nonumfiles = grep(/^\D+$/, @files);
print join("\n",@nonumfiles),"\n-----------------------\n";
foreach $nonumfile(@nonumfiles){
$nonumfile =~ s/\.txt//;
print $nonumfile,
"\n=======================\n";
@numfiles = grep(/^$nonumfile\d+\.txt$/, @files);
foreach(@numfiles){
print $_, "\n";
}
print "\n~~~~~~~~~~~~~~~~~~~~~~~~~~\n";
}

で、該当ディレクトリには
---------------------------------
"お助けパソコントラブル救急隊.txt",
"お助けパソコントラブル救急隊886.txt",
"お助けパソコントラブル救急隊887.txt",
"お助けパソコントラブル救急隊888.txt",
"なっとく！ワード773.txt",
"なっとく！ワード774.txt",
"なっとく！ワード775.txt",
"なっとく！ウインドウズＸＰ.txt",
"なっとく！ウインドウズＸＰ873.txt",
"なっとく！ウインドウズＸＰ874.txt",
"なっとく！ウインドウズＸＰ875.txt",
"なっとく！ウインドウズＸＰ876.txt",
"なっとく！エクセル836.txt",
"なっとく！エクセル837.txt",
"なっとく！エクセル838.txt",
"なっとく！エクセル839.txt",
"なっとく！パソコン用語.txt",
"なっとく！パソコン用語1265.txt",
"なっとく！パソコン用語1266.txt",
"なっとく！パソコン用語1267.txt",
"なっとく！パソコン用語1268.txt",
"ＷｉｎｄｏｗｓＸＰの便利技と裏技855.txt",
"ＷｉｎｄｏｗｓＸＰの便利技と裏技856.txt",
"ＷｉｎｄｏｗｓＸＰの便利技と裏技857.txt",
"ＷｉｎｄｏｗｓＸＰの便利技と裏技858.txt",
"グーグルの便利技と裏技212.txt",
"グーグルの便利技と裏技213.txt",
"グーグルの便利技と裏技214.txt",

上のようなファイル群があり、
これをスクリプト内におけば問題は起きません。
ところが実際にディレクトリを読んで動かすと

お助けパソコントラブル救急隊.txt
なっとく！ウインドウズＸＰ.txt
なっとく！パソコン用語.txt
-----------------------
お助けパソコントラブル救急隊
=======================

~~~~~~~~~~~~~~~~~~~~~~~~~~
なっとく！ウインドウズＸＰ
=======================
なっとく！ウインドウズＸＰ873.txt
なっとく！ウインドウズＸＰ874.txt
なっとく！ウインドウズＸＰ875.txt
なっとく！ウインドウズＸＰ876.txt

~~~~~~~~~~~~~~~~~~~~~~~~~~
なっとく！パソコン用語
=======================

~~~~~~~~~~~~~~~~~~~~~~~~~~
となってしまいます。

以上、長々と御見苦しい限りですが何とかなりませんでしょうか。
よろしくお願いいたします。

>>627
(´-`).oO(「 use utf8; 」してるわりに、ファイル名の文字コードはsjisなのはなんでだろう・・・。)
(´-`).oO(とりあえず、Linuxでファイル名もUTF-8で動かしたら動いたっぽいが・・・。)

＞これをスクリプト内におけば問題は起きません。
＞ところが実際にディレクトリを読んで動かすと

ここがポイントだな。
perl スクリプトは utf8 で動いてる。
Windows は ShiftJIS で動いている。
文字コードを変換してやらないとダメね。
さぁ、perl の utf8 地獄でもがき苦しみましょう。

　アクセスログの勉強しててわからないとこがあります。
配列の一要素にオートインクリメントがついてて
++$freq[$hour]; と書いてあるのですが、実際どこの部分に1がたされてるんですか

aとbの解釈どっちが正しい？

a、$hour に１足されてループする
→$freq[0]、$freq[1]、$freq[3]、$freq[4]、$freq[5] みたいのができる

b、$freq[$hour] という値自体に１足されてループする

　一応、全体の書いとくとこんな感じです。
ちなみに$freq[　]という配列はこのwhile文できゅうに出てきてます

while($ln = <FILE>)
{
($hour , $min , $host , $refer , $agent) = split( /\t/ , $ln);
++$freq[$hour];
}

すません
自己解決しました

>>633
b

おそかった

CSVファイルで行列を入れ替えてファイルを作るプログラムない？

#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV_XS;
use List::MoreUtils qw(each_arrayref);

my $csv = Text::CSV_XS->new({binary=>1});
my @list;
while (<>) {
    next unless $csv->parse($_);
    push @list, [$csv->fields];
}
my $ea = each_arrayref(@list);
while (my @l = $ea->()) {
    $csv->combine(@l);
    print $csv->string . "\n";
}

>>638
なんかすごいものをありがとうございます。
Windowsの場合はどうしたらいいでしょう

OS関係ないだろ

Windows 環境は大変だ。普通の奴は C コンパイラも nmake も持ってるわけがないし
よしんば持っていても、perl Makefile.PL が吐き出す Makefile は不都合が多すぎる。
(MinGW 派はいつも疎外感にさいなまれ、泣いている)
その上 XP 以降だと、こんな状況らしい：
　ttp://harapeko.asablo.jp/blog/2006/12/21/1041020

幾多の困難を乗り越えて、ようやく Windows でも新しいモジュールを試すことが出来るのだ！　( 完 )

# でも Text::CSV_XS は新しくはないだろって？
# いいや、少なくとも去年の 6 月以前の ActivePerl には入っていないのだ orz

困ったなあ。　なあ640。

だったらText::CSV_PPとかでよくね？

@Dataという配列にハッシュを入れてｷｰはA、Bがあります、そのおのおのの値をFA1、FB1する
@Dataという配列は１００個のハッシュを持ってるとします。
＄Data[1]{"A"} = FA1
＄Data[1]{"B"} = FB1
...
＄Data[100]{"A"} = FA100
＄Data[100]{"B"} = FB100

FB１〜FB100でソートし標準出力に出力したいのですが、どうすればいいか教えて下さい

print sort {$a->{'A'} <=> $b->{'B'}} @Data;

inlineC使おうと思ってるんだけど
LinuxではinlineCが動作するんだけど
activeperlだとVCでコンパイルしてるとあったから
VCのコンパイラ持ってきてコンパイルしてるんだけど
inlineがmakeでエラー吐く・・・
コンパイラがactiveperlと非同期のせいだと思うんだけど
どうすればいいのかな？？？

ちなみにVCはexpressバージョンです。

Pod::Textで日本語(utf8)のテキストを出力しているんだけど、
width指定が真っ当に動いてくれないのな。
まぁ1文字の幅がASCII文字と違うから当然なんだけども。
なにか簡単な解決策とかある？

とりあえずやっつけてみた。
Pod/Text.pmをローカルに持ってきてuse lib。以下のように修正。
もっといい方法があれば教えてエロい人。
sub wrap {
my $self = shift;
local $_ = shift;
my $output = '';
my $spaces = ' ' x $$self{MARGIN};
my $width = $$self{width} - $$self{MARGIN};
my @chars = grep(/[^\n]/, split(//));
my $len = 0;
my $tmp = '';
while (@chars) {
my $c = shift(@chars);
$tmp .= $c;
if ($c gt chr(0xff)) { $len += 2; } else { $len++; }
if ($len+1 > $width) {
if ($chars[0] =~ /[。、]/) {
$tmp .= shift(@chars);
}
$output .= $spaces . $tmp . "\n";
$tmp = '';
$len = 0;
}
}
if ($tmp) {
$output .= $spaces . $tmp;
}
$output =~ s/\s+$/\n\n/;
$output;
}

ちゃんと検証してないので的外れかもしれないけど。

・ファイルを直接編集せずに、Pod::Text::wrap（でいいのか？未確認）を上書きしたほうが楽かと
・「0xffより上」は不正確（不正確でもいいならいいけど）
・Jcodeのjfold()を使うのも手かも（あれも正確じゃないけど）

　そういや昔、ちゃんと禁則処理して桁折りするモジュール探したけどなかったんだよな……。
　いまもないのかな？

>>650

「0xffより上」に関しては不正確でも構わないのでこのままでいきます。
いわゆる半角カナとか使わなければ問題にはならなさそうですし。


>・ファイルを直接編集せずに、Pod::Text::wrap（でいいのか？未確認）を上書きしたほうが楽かと

やってみました。
これは楽でいいですね。ありが�d!!

sub _Pod_Text_wrap { ... }

undef *Pod::Text::wrap;
*Pod::Text::wrap = \&_Pod_Text_wrap;

関数のオーバーライドは初めてやったのですけど、
こんな感じでいいのかな？ いちおう動いてますが。

それでいいんじゃない？
僕は
*Pod::Text::wrap = sub {
...
};
とかやっちゃいますが。
　元のを残すなら上書きする前に
my $org_wrap = Pod::Text->can('wrap');
とかすれば良かった気がする。

こんにちは、そしてみなさんはじめまして。
macOS10.3にperlの5.10をいれて動かしたいんですが
インストールしたはいいもののその後どうしたらよひか
わかりません。どうか詳しい方おしえてください。

ターミナルを立ち上げる

ターミナルを立ち上げました！

ターミナルに、
perl -e 'print "Hello World�n"'
と打ち込んでリターン。
これで君も今日からPerlプログラマー

ターミナルに
perl -e 'print "Hello Worldn"
と打ち込んでPerlプログラマーになりました！
しかし、perl -V　と打ち込んでリターンしても
バージョンは5.8のままです…。

そうか…。

>>657
新しいperlがある場所をターミナルに教えるための設定変更が必要になる。
これはperlとは関係ないから、Mac板のプログラム関係のスレで聞いた方がいいと思う。
そのとき、どうやってperlをインストールしたかも書いた方がいいよ。

$ uname -a
Darwin **** 9.2.2 Darwin Kernel Version 9.2.2: Tue Mar 4 21:23:43 PST 2008; root:xnu-1228.4.31~1/RELEASE_PPC Power Macintosh
$ whereis perl
/usr/bin/perl
$ perl -v

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

Copyright 1987-2006, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

何かの参考になれば。。。

なんとかできました。5.8から5.10になりました。
656さん、659さん。ありがとございます!
ちなみにperlのバージョンは5.8と5.10ってどう違うんですか？
あと5.10が使えるようになったら5.8は捨ててしまってもよいのですか。

>>660
スレ違いだって言われてんだから大人しく引っ込んでろっての。
あっちにゃ「macをUNIXとして使う」スレだの「terminal初心者」スレ
だのあんだろーーがよお。


bash デフォだから
echo 'PATH=/usr/local/bin/:$PATH' >> ~/.bashrc
source ~/.bashrc
perl -v
してみろっての。
お前さんが、/usr/local/bin/ 以外に perl 5.10 入れたんだったら知らん。

つーか何で5.10を入れたんだ？5.86で十分だろ？変なクセつけるだけだぜ？
っての。

あ、遅かった。遅れた煽りほどかっこわるいものはない。orz...

>>661
基本的に流儀として/usr/binの中とかからは捨てないよ。
/usr/binの中のものをupdateする時はupdate相手のbackupを取って置くものだし。

了解しました。とっときます。

$file='hoge';
・・・
foreach(sort(keys(%hoge))){
・・・
}
のように %hogeにあたる部分を $file を用いて参照する方法があればご教示ください。

eval

>>666
有難うございます。

chdirで移動した後、元のディレクトリに戻る方法がわかりません。
ご教示ください。

ごめんなさい。668です。直前のevalの{　}のあとに ; がないために
できなかっただけのようです。
取り消します。

@zcap = qw(aa po);
$zra{'def'}='abc';
foreach( @zcap){
eval{
print "(%z$_){'def'}\n";
};
}
を修正して、 abc と出力させる方法を教えてください。

スイマセン
$zpo{'def'}='abc';
でした。

@zcap = qw(aa po);
$zpo{'def'}='abc';
foreach( @zcap){
eval('print "$z' . $_ . '{�'def�'}�n"' );
}

>>672
有難うございます。できました。

>>671
ｲﾀﾀﾀﾀﾀﾀﾀﾀﾀﾀﾀﾀﾀﾀﾀﾀﾀﾀﾀﾀﾀﾀ

@cap = qw(aa po);
eval{
foreach(@cap){
push(@acap, '\@a$_');
}
};
foreach (@acap){
$$_[0] = 6;
}
print $aaa[0], $apo[0];
で 66 を出力したいのですが修正をお願いします。

またおまえか

cgiに送ったデーターはどこに格納されるんですか？

>>677
>>1

おちんちんにｐｅｒｌを埋め込みたいんですが、腕のいいクリニックをご存知ありませんか？

>>676
また、"おまえ"です。
よろしくお取り計らいください。

>>675
シンボリックリンク相当の処理をevalで無理矢理やりたいのですね。
しかも全部グローバル変数で。
そんなことをしなければならない理由がわからない…いまやリファレンスを使えば
同等のことができますよ。

@aaaと@apoを、
my %array = ( aaa => [], apo => []);
として、
my @acap;
foreach (keys %array){
push(@acap, $array{$_});
}
foreach (@acap){
$_->[0] = 6;
}
print $array{aaa}[0], $array{apo}[0];
ではだめなの?
もっともこのコード自体なにしたいかわからんけど。

>>681
ご指導有難うございます。
理解できない部分が大半なので、じっくり検討します。
なにせ古い解説書しか持たないもので…。
新しいのが欲しいが高いもので。

>>681
「シンボリックリンク」というのがまず分からなかったのですが、ＵＮＩＸの
概念で、エイリアスかショートカットのようなものですね。
グローバルにしているのはローカルである必要がないことと、my の理解ができていない
ためかサブルーチンにいちいち argumentを渡すのが面倒なことが理由です。
aaa=> [] の記法は知らなくて、無名の配列のアドレスを aaa というポインタで参照できる
というふうに理解しました。
eval を使ったのは次の理由です。
@cap = qw(aa po);　は実は aa とpo の間に50ほどの２文字があり、このセットをもう一組
必要とします。それらの２文字で参照できる配列群の配列を設定しようとしました。
静的な配列なので、あらかじめポインタの配列を準備すればよいのでわざわざ push で
押し込む必要はないのですが、２セットを楽に準備できればと思い eval を使いました。
その結果他の手段の知識がないために、あのような妙で馬鹿馬鹿しいコードとなった
わけです。
教えてくださいましたコードを必要な部分だけにしたところ、
%acap = ( aa => [], po => []);
foreach (keys %acap){
$acap{$_}[0] = 6;
}
$acap{po}[12]=777;
print $acap{aa}[0], $acap{po}[0], $acap{po}[12];
となりまして、期待通り動作しました。最後の２行は配列が確かにできていることの
検証のつもりです。
で、%acap = ( aa => [], po => [])　という記法が使えると、
%tcap = ( aa => [], po => []) としてコピー＆ペーストすれば簡単に当初の目的が
達成できることになり、ややこしい eval は必要なくなりました。
皆様にはお目ざわりだったようですが、今回はこれで恙無く解決しました。
有難うございました。

>>683
シンボリックリファレンスの間違いですorz

50個も要素があるなら、
%acap = ( aa => [], po => []);
は
%acap = map { $_=> [] } qw(aa po);
と書いた方が視認性が上がります。
# もっともこの初期化はなくても動きますが

>>684
またまた便利そうなものを有難うございます。
これから勉強してみます。

このindex.cgiがエラーがでるんですが修正できますか？（属性７５５）
http://www.borujoa.org/upload/source/upload18138.zip

>>686
板違い
webprog池

はじめまして。
昨日からPerlを勉強し始めました。
今変数を勉強しています。そこで、

$a=2;
$b=3;

$a=$b;

という、変数の代入を見て不思議に思ったのですが、
なぜ、せっかく変数aで2を指定してあげたのに、
後からわざわざ変数bに代入などするのでしょうか。
この記述は、主にどういちた場合に使用されるのですか？

どうかご回答よろしくお願いします。

ただの書き方の例だろ

まだ「へんすう」の説明段階なんだから、こんなこともできますよぐらいの
意図で書かれてるんでしょ。

$a=2;
$b=3;

# $a の初期値 2 を使いつつ $b に対して血で血を争うような壮絶な演算処理

$a=$b;

# 再び $b は地獄のような処理をくぐり抜けて

$a=$a+$b;

なんてことがあってもいいじゃない。
参考にしてる本が変数名に $a と $b 使ってるのなら、そっちが気になる。

>>689ｰ690
なるほど、わかりました！
どうもありがとうございます。

参考にしている本は「Perlの絵本」です。
初心者にもわかりやすいと聞いたので。

絵本は･･･

ダメなん？

スレ見たら「血で血を争う」とか書いてる人がいたので指摘しようかと思ったら
自分だったorz

絵本は初心者さんに人気みたいだけど、さて。

俺も絵本使ってる。
よくないなら他の書籍買うから、参考にダメな理由を教えてくれ。

$aと$bは特殊な変数なんで使わないほうがいいよ。

絵本は確認取れんので $a, $b の所だけ注意喚起させてくれ。
（絵本に例として $a, $b が使用されていた場合）

「$a, $b は共に定義済みの変数。」
sort { $a <=> $b } @hoge ;
なんかの時に使う。なので特に必要が無い限りは sort 以外で使わない方が良い。
熟練者が分った上で使う分には文句は言わないし、2ch で例として出して来ても
あまり気にしないが、これを初心者向けに安易に使用するのは疑問符が付く。
ただ、もっと大きな地雷を幾つも抱えてる初心者本はあるので、この一点のみで、
読んでもいない「絵本」を評価は出来ない。スマン。


参考
1. perl の定義済み変数
perldoc の perlvar ( 但し、5.8 以降。バージョンに注意。)
ググるかコマンドラインで perldoc perlvar

2. 熟練者の $a,$b 使用例
ttp://search.cpan.org/src/GBARR/Scalar-List-Utils-1.19/lib/List/Util.pm
ふんだんに使われている。perl 標準添付モジュール。

3. 大きな地雷の例
「一週間でマスターするPerl for Macintosh」
OSX が一般化しようとしている時代（2002/07）に、classic 環境の
MacPerl にて perl を解説。もちろん、OSX へのインストール等、事細か。
OS9 の人も相手にしたかった事情があるのかもしらんが…。

っと長々と書いて投げようと思ったら、696氏が既に指摘してた。ま、いいか。

perlでクライアントの2chブラウザ作ったけど見たい人いますか？
4時間ほどで作りました

板違い

配列へのアクセス確認の目的で、
@acap = map { $_=> [] } qw(aa po);
foreach (@acap){
for($i=0;$i<7;$i++){
$$_[$i] = $i+11;
}
}
foreach $acap(@acap){
$j++;
foreach $cap($acap){
print '$j=', "$j\t$cap\n";
print join("\t",@$cap), "\n";
}
print "\n";
}
としました。
目論見では aa, po の２組だけが出力される筈でしたが
余計な（？）もう一組が出力され、この理由がわかりません。
ご教示いただければ幸です。

>>700
もう一組でなく、二組でした。

>>700
なんでデバッグしないの?

>>702
有難うございます、そういう手がありましたか。

>>700
> 余計な（？）もう一組が出力され、この理由がわかりません。
それは、あなたがそうなるようにコードを書いているからなのですが…。

普段からuse strictをしてコードを書くようにすると幸せになれます。
で、変なところは、1行目で@acapで受けているところ、それから、
2回目のforeachの内側のforeach $cap($acap){ の$acapです。
何をしているのか、1ステップずつ意味を確認して組んでみてください。

>>704
丁寧なご指導有難うございます。
１行目が致命的であったことがわかりました。
map の意味がわかっていないことに加えて、
ハッシュのレファレンス表現になじみがないことが
絡まりあって=>がmapに必要なものだと思ったことが
原因だと思います。
２番目のご指摘がまだ理解できません。もうすこし検討します。
sed からの亡命者である所為かuse strictを適用すると
コンパイルエラーの嵐で、使い物になりません。
折角のご助言ですが当分はこれなしでやってみようと思います。
修正分：
@acap = map { \@$_} qw(aa po);
foreach (@acap){
for($i=0;$i<7;$i++){
$$_[$i] = $i+11;
}
}
foreach $acap(@acap){
$j++;
foreach $cap($acap){
print '$j=', "$j\t$cap\n";
print join("\t",@$cap), "\n";
}
print "\n";
}

>>705
# 厳しいようですが、use strictを指定して使い物にならないコードは、
# すでに使い物になっていない気が…。そのようなコードはいざ動かない
# ときどこに問題があるのかを探すのが猛烈に大変ですよ。

@acap = map { \@$_} qw(aa po);
はなにをしたくてこのようなことをしているのですか? これは、結局
@acap = ([], []);
としているのと同じです。
それと、後半でfor文が2重になっていますが、内側の foreach $cap($acap){ は
ループにする意味がありません。要素が$acap一つだけなら、$cap = $acapと同じですから、
foreach $acap(@acap){
    $j++;
    print '$j=', "$j\t$acap\n";
    print join("\t",@$acap), "\n";
    print "\n";
}
で済みます。

まずは、何をしたいかを日本語で整理してみてはいかがですか。
日本語で書いて伝わらなければ、コードを書くことはできません。

ようするに、デバッグしてないって事だな。

読みにくいコードがちょっとね。
何やってるか分からないコード各習慣付けるのは良くないですよ。

>>707
違う。この質問者は2chをデバッガと思ってる。

だから次には
「何故か出力が「$j=1 ARRAY(0x800ea0)」みたくなるのですが」
って質問が来る。

>>708
サイタマンもようやくプログラム板に常駐するようになったか。
自信がついたのかな?w

Fedoraを使っていると、モジュールインストールの方法には
cpam、cpanp、yumの3種が考えられますが、
これらを混在させて使った（同じシステムで複数の方法を使った）ときに
起こりうる弊害にはどんなものがあるでしょうか？

Sfido = new Camel "Amelia";

この構文&newという動詞を起動するらしいのですが、構文に&をつける
必要はないのでしょうか？

Sfido = &new Camel "Amelia";というふうに

>>712
PerlのOOP記法では&を付けなくてOK

>>713つけてもつけなくてもＯＫってことですか？

perl初心者でやる気あるんだけどラクダ本難しすぎて
３日かかって１６ページしか進まない、俺むいてないのか・・ｗ

>>714
付けちゃいけない。
というか今まで付けたことなんてなかったから試してみたらエラーになった。
書き方覚えたら実験してみるといいよ

>>715
ラクダ本は初心者には難しいからそれくらい普通
実際の例見ながら勉強した方がいいと思う

ありがとう、でもなんとか１年くらいでマスターしたい
と焦っておる

>>715
向いてない

何か事情があるならともかく、そうでなければ焦らずに
ゆっくりじっくりやるほうがいいよ。

何を以って「マスターした」になるのかはわかんないけど
リャマ本を先に経由したほうがラクダ本が読みやすくなるんじゃないかな？

>>720無理して５０００円もだして買ったのに、どっかにラクダ本
がいいって書いてあったから、明日りゃまかってくるぜ

>>718
1年もかかるのなら向いてないってことだ。

じゃあ半年

ラクダ本は、面白くて面白くて読むのが止まらない本だと思うのだが。

>>724はむいている人。

むいていない人もがんばって!

結構勉強して、Perlの本質が見えてくると>>724みたいになれるんじゃないか？
俺はPerl初めてから4年くらい経ってラクダ本のおもしろさに気づいたクチなんだが。

先日むいてないのかなぁっていったもんだけど
別にラクダ本楽しくないとはいってない
専門用語がおおくてわかりにくいっていっただけ
ここはひねくれたプログラマーが少数だけどいるみたいだな
まぁプログラムはひねくれてたほうがいいのかな
解読しやすいしな、perl使える人らしいけど実際すごいのは
perl作った人だから勘違いすんなよｗｗｗｗｗｗｗ

perlはひねくれたプログラマ向けの言語。
文法からしてひねくれてる。

昔さ、マンハッタンのエリートのデスクにはPerlのパッケージが必ずあった
っていう話があって、エリートになるにはオープンソースを使いこなさなくては
ならないって言われてた。
よくよく考えたら、本当にあったのはエクセルのパッケージなんだよね。
だからどうしたって言われればそれまでだけど、ちょっと考えさせられない？

perlをパッケージで買ってデスクに飾るってのも変な趣味だよね。

>>728おまえperlなんてなんもしらないのに、なんでこのスレにいんの？

>>729
> 昔さ、マンハッタンのエリートのデスクにはPerlのパッケージが必ずあった
> っていう話があって、

ね〜よ

>>730
それらしいパッケージを作るところからはじめないと。

> 専門用語がおおくてわかりにくいっていっただけ

とか言っている不誠実な「向いていない人」がいますが、ラクダ本は専門用語は
決して多くないし、わかりにくくもありません。知的刺激に満ちた面白い本です。

初心者の人は、「向いていない人」の自己正当化のゴマカシに騙されて
敬遠しちゃったりしないで、ぜひ読んでみてくださいね。

>>734みたいな嘘書いて勧めちゃう子ってどこの国にもいるんだよね。

>>734
そういうこと書くと、頭悪すぎてラクダ本に挫折した連中が荒しに来る。

>>431
#!/usr/bin/perl

$camels='123';
print $camels+1,"＼n";

これ１行目なんでシングルクォートなん？
２行目に続くから？要するに２行目が結果だから？

printのあとにダブルクォートがないのはcamelsが数値として
認識されているからだよね？

>>737
また入門書の例か？

文字列として定義した変数が、+演算子で使われると数値に置き換えられる、
って例じゃないの？

>>739なんで文字列として定義ってわかったん？おまえ天才じゃね？
これ別に$camels=123;でいいんでないの？なぜシングルで囲む？

日本語でお願い

>>740すいません、$camelsはデフォが文字列？
だから$camels=123;ここまでの構文ならこの表示でいいのだけど
２行目のprint $camels+1,"＼n"; の最後の構文かんでるから

$camels='123';ってこと？シングルは変数展開なしですもんね？

>>740
> これ別に$camels=123;でいいんでないの？なぜシングルで囲む？

普通はそれでいいよ。
しかし、この質問のネタが何かの入門書じゃないの？と俺のエスパー能力が反応したんだよ。
入門書だから、そういう非現実だけどわかりやすい例を書いてあるんじゃないの？と。

>>743ありがとう先生、ようやく理解できました

そのケースは良いんだが、
$foo = 0123 ; と
$foo = '0123' ; とじゃ
print $foo +1;
した時に答えが変わる事くらいは覚えとこう。

その例を出す前に

print 0123;

ぐらい見ておいてもらわないと、いろいろ混乱するんじゃないかな。
まだ10進数しか出て来てないだろうし。

アート引越しセンター
って表示された。

楽をしようとすると新たなコストが発生するものだというお告げだな。

perl自動で変数設定してくれるのあって
使えるようになったんだが、これテキストエディタに書き込んで
perlのなかのbinにテキスト保存してdosで呼んで機能させるんだよね？

できたソーリー

@unko = split /<table[^>]*>/,$html;
ってやると、<tableタグが消えちゃいます。
消えない方法はありますか？
あとから join で元にもどせないと困るんです。

@unko = split /(?=<table[^>]*>)/,$html;

>>752
ありがとう。３０分かかって、やっと理屈がわかりました。

windowsが問題なく処理しているsjisの扱いをperlも見習って欲しい。

基本的には問題ないと思うけど、どの辺に問題があると思ってるの？

#ファイル周りがダメなのは知ってるけど、他にもある？

PerlはUNIX産まれだからな
あんなダメOSを見習う必要は無い
EUC、及び今後はUTF8だけ使えれば充分

UNICODE対応してないＯＳは、いずれ廃れるな。
UTF8で誤魔化そうとしても、ほんのちょっとの時間稼ぎにしかならない。

>>757
UNICODE対応してるOSって、どんな状態のOSの事だ？
UTF-32ベースで動いてるOSの事か？

ってか藻前UTF-8、UTF-16、UTF-32の違い分かってないだろ？

>>758
あなた、もしかして
２０世紀からタイムトラベルしてきたんですか？

Perl6::Say がなんか変です
package Klass;
sub new { bless {} }

sub foo { 1 }

package main;
# use feature qw/say/; # これだと大丈夫
use Perl6::Say; # こうしたときに

print Klass->new->foo, "¥n"; # うごく
say STDOUT Klass->new->foo; # うごく
$k = Klass->new;
say $k->foo; # うごく

# なんかこれだけ
# Can't locate object method "say" via package "Klass" at ...
# で死ぬ
say Klass->new->foo;
別にもう Perl6::Say なんて使わなくてもいいのは知ってるけどなんか気持ち悪いです
Perl6/Say.pm ものぞいてみましたがよくわかりません
なにこれー？

>>760
・Klass->new->foo;
・new Klass->foo;
これが等価なように、

・say Klass->new->foo;
・(Klass->say)->new->foo;
これも等価。

>>761
�d
>・say Klass->new->foo;
>・(Klass->say)->new->foo;
>これも等価。

うはwwwww
Perl こえーwww

キーワードで検索しにくいので教えてください
以下の2つはどういった意味なのでしょうか
[@array]
@{$array[1]}

@array展開して無名配列リファレンスを作ってる？
$array[1]におそらく配列リファレンスがはいっていてデリファレンスしてる。

ありがとうございます!
「無名リファレンス」←このキーワード検索で理解できました

ttp://www.perlmeme.org/howtos/using_perl/dereferencing.html
ここの一番下のサンプルの関数sub write_to_file($$) {　.. }についてくる$$って何でしょうか
もしかして明示的に引数の数を指定している？

>>766
「プロトタイプ」

コンパクトかつ適切なアドバイスありがとう。
こういう文法、PERLってマルチパラダイムだよなーって感じます。

$ perldoc perlcheat
すると DON'T ってとこに

> DON’T
> "$foo"
> $$variable_name
> ‘$userinput‘
> /$userinput/

ってあるんですが、最後を除いて意味がよくわかりません（3番目はシェルコマンドで実行するなってこと？）
特に1番目と2番目は何で代替しろってことなんでしょう？

"$foo" # 変数展開されるから気をつけろ
$$variable_name # シンボリックリファレンス氏ね
`$userinput` # 汚い文字列をシェルに渡すな
/$userinput/ # 汚い文字列を正規表現に突っ込むな

>>770
�d。だいたい理解。
2番目は ttp://kabocha.org/jelfe/07/22.html ですね。

$ perl -e "($hoge,$sl)=('foo','hoge');print qq($sl\n$$sl)"
hoge
foo

知らなかった・・・これは危ない。

>>771
use warning;
use strict;

Perlで初めてWebプログラミングを作りました。
URLを入力するとリンク切れをチェックしてくれるツールです。

http://w7.oroti.com/~webhacks/

ソースコードを公開しますので、厳しいご意見お待ちしてます（汗

ロゴがかっこいいとおもいます（汁

>>773
http://w7.oroti.com/~webhacks/cgi-bin/linkhacks.cgi?url=%3cscript%3ealert%28%22aho%22%29%3b%3c%2fscript%3e

気をつけろよ。

>>773
webprog池

x print "Content-type: text/html\n";
o print $cgi->header();

x my %http_code = ...;
o use HTTP::Status qw/status_message/;

x 'Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)'
o 'LinkHACKS (+http://w7.oroti.com/~webhacks/)'

x $browser->get(...);
o $browser->head(...);

>>778
$resp->status_lineで取れるから
>my %http_code = ...;
これはいらないな

>>775
ahoの嵐・・・orz
受け取ったデータのチェックが必要ですね。。頑張って修正します。

>>776
webprog板逝ってきます。

>>777-779
　　　／　　 　 　＼
　 ／　　─　 　 ─＼　
／ 　　 （●） 　（●） ＼　
|　 　　 　 （__人__）　 　 |　））　なるほど
/　　　　 ∩ノ ⊃　　 ／
(　 ＼　／ ＿ノ　|　 |
.＼　“　　／＿＿|　 | 　
　 |＼ ／＿＿＿ ／|
　 |　　　　　　　　　 ﾉ
　 ヽ　　　y　　　　/
　　 ＼　/　　 　 /
　　　　/　　　／
　　　（_＿＿）_）

Perl6だとメソッドの呼び出しが矢印(->)じゃなくてドット(.)になるようですが、コードリファレンスの呼び出しに関しても同じなようです。
http://dankogai.typepad.com/blog/2006/03/lamda_calculus_.html

また、RubyでもProcオブジェクトの呼び出しに"proc.()"という書き方が採用されようとしています（もう採用されたかは知りません、試してないので）
http://www.rubyist.net/~matz/20071011.html

ここで思うのですが、なんで"$coderef()"じゃなくて"$coderef.()"のような文法を採用するのでしょうか。

前者のほうが、読みやすい＋書きやすいようにおもうのですが。確か、javascript では後者だったような気がします。

オトナの事情

>>781
現行だと$coderef->() だろ？
. の方がバイト数がかせげる & '->' と言う定義をせずに済む。
何しろ > は => だの <=> だの他にも大活躍だから、、、

>>783
それ答えになってなくね？

>>781
名前空間とパーザの都合。……Rubyの場合は。
Perlは何故なんだろうねぇ。変数を示すプリフィクスが付いてるんだから問題なさそうな気がするんだが。括弧省略との相性が悪いのかな?

$foo.()と$foo()は同じ意味のはず。

例えば、&はP5と違って関数をオブジェクト化したものを返すけど、
これを呼ぶときも、&bar.()と&bar()の両方で書ける。

>>786をヒントに自分でも調べてみました。
ttp://perlcabal.org/syn/S06.htmlの
"Pointy blocks"のコード例がそれなのかなあ。
あとアンパサンドのプレフィクスでオブジェクト化された関数が返るのは
Wrappingのあたりでしょうか。

P6のシンタックスはおもしろいですね。キュンとなる。
時間が取れたら遊んでみます。

>>787
他にも++なんかの接尾演算子でも、$foo.++; と $foo++; の両方で書ける。
これは演算子がオブジェクトのメンバだっていうイメージなんだろうね。

Perl勉強中で
変数Aにオブジェクトが入ってて
オブジェクトに＄Cの値を入れようとしてるんですが
下記の１，２の違いについて調べても分からなくて
教えてくださるかたいませんか？＿？ヒントだけでもいいので；ｗ；
1: $A->B($C);
2: $A->{B} = $C;

>>789
「オブジェクトに＄Cの値を入れ」るが意味不明。
もう少しちゃんとした言葉を使って説明してくれ。

1は PackageOfA::B($A, $C) とおなじ、
2は ${$A}{"B"} = $C とおなじ。

１のBはメソッドでCは引数
２のBはハッシュのキーでCは値

あいかわらず、日本語マッチングは面倒ですか？

Emeditorの正規表現の方がよくね？

日本語マッチングって何？

まだつかえないんだ・・・

だから日本語マッチングって何だよ。

まだつかえないんだ・・・

＾＾；；；；；；

まぁどの言語でもそうだが、バカには使えないわな。

20世紀からタイムスリップしてきたひとか

>>799
もしかして、20世紀から生きてる人ですか？

この板も、とうとう小学生が跋扈するようになったか。

最初のプログラミング言語がPerlって、
スパゲッティー作りになることを義務づけられるぞ。

最近の小学生は制御構造なんて使いこなせないから

CASE文満載でなければおk

最初に入った言語がCOBOLだった俺からいわせれば、perlなんて可愛いもの。

>800 は8歳だったのか。
算数の勉強頑張れよ。

>>1の日付見て吹いた
2008/08/13の勢いは異常だな

あげ

http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/7995.txt
学校の課題で、このプログラムの仕組みをこと細かく説明しろっていうのがでて困ってます
助けてください

>>809
課題は自分でやれよ。

>809
sjisがベタで使われてるとか、htmlのタグの記述に統一性が無いとかで
極力係わり合いになりたくないコードだなぁ
タイトル増やすのも面倒だ

こいつを書き直せって課題なら、嬉々としてやるところだｗ

webprog池よ

>>809
ガッコの課題で、そんな例題を出すのかぁ・・・・

そりゃ問題だ！

perlでメールの添付ファイルの処理をしようとして、
ttp://homepage3.nifty.com/hippo2000/perltips/rcvmail.htm
を参考にプログラムを書こうと思っているのですが、
上記ページのWordDecoderを使ったサンプルプログラムを実行すると、
保存されたファイル名がURLエンコードされている状態になってしまいその原因が分かりません。

実はURLエンコードされている方が扱いやすくてうれしいのですが、
原因が分からないのが気持ち悪くて…。

どなたか教えていただけないでしょうか。
動作環境はFreeBSD6.0で、Jcode, MIME-Toolsはportsでインストールしました。

よろしくお願いいたします。

すみません、別のスレ(Perlについての質問箱)で聞いてこようと思います。
失礼しました。

perlで書かれたプログラムをダウンロードしたのですが、
使い方として、
・本体（exxeed.pl）は編集の必要がありません。
・cpiファイルにスクリプトを追記して、動作を指定します。

・起動方法
コンソールから
> perl exxeed.pl hogehoge.cpi


とだけ書かれているのですが、これって、
サーバー内のCronなどからコマンドで実行するって事ですか？

シェルから実行すればいいだけだろ

＞コンソールから
＞コンソールから
＞コンソールから
＞コンソールから
＞コンソールから
＞コンソールから
＞コンソールから
＞コンソールから
＞コンソールから
＞コンソールから
＞コンソールから

コンソールから
シェルから

この意味がぐぐってもイマイチ理解できてないです。
要するに、サーバーにアップして使用するのではなく、
コマンドプロンプトとかから実行するものなのですか？

>>819
そのperlスクリプトが提供する機能がわからんのに答えられるわけがなかろう。
定期的に動かすものならcronに登録するし、
CGIならWebサーバのCGIディレクトリに設置するし、
コマンドラインで実行することになってるプログラムならコマンドプロンプトやターミナルエミュレータから実行するし、
GUIアプリならエクスプローラやファイラーからダブルクリックする。

>>819
サーバで動かしたいなら、サーバにアップロードしてから
リモートシェルの類で実行すればいい。

なんにしてもperlの使い方の質問じゃないから、
適当なスレを探してくれ。

　　・起動方法
　　コンソールから
　　> perl exxeed.pl hogehoge.cpi

これ読んでわからんのなら、パソコンの使い方を勉強しろ。
そうとしか言いようが無い。
駅前のアビバに通った方がいいぞ。

皆さん有難うございました。
まだよくわからないので、他スレで聞いて見ます。

それは、コマンドプロンプトから起動(実行)するもの。
UNIX/Linuxの場合、シェルから起動(実行)する、とも言う。
>>816 何がしたいのか書いてない。
<form method="POST" action="exxeed.pl"> ただこれは無理だと思う。

コンソールっつーとサーバセンターまで行ってキーボードぶっ挿して、ってイメージ

　　↑
Windows しか触ったこと無いひと。

>>822
アビバってそんなこと教えてくれるの？

ウェブプログラミングで引っかかってる問題だが、本質はEncode.pmなんで、こっちで聞こうと思いまつ。

utf-8の"〜"を Encode::from_to で　EUC-JPに変換すると、?に文字化けするようです。
-------------------------------------サンプル
#!/usr/bin/perl -w
use strict;
use Encode;

my $str ="〜";
Encode::from_to($str, "utf-8", "euc-jp");

print "Content-type: text/html\n\n<html><head><meta http-equiv='Content-Type' content='text/html; charset=EUC-JP'></head><body>$str</body></html>";
-------------------------------------サンプル

これってEncode.pmのバグですか？対応方法は何かありますか？

>>828
http://blog.livedoor.jp/dankogai/archives/50488765.html

以降質問はこちらへ。
Perlについての質問箱 38箱目
http://pc11.2ch.net/test/read.cgi/tech/1221967332/

>>829
�dです。

>>828
関係無いけどウェブプログラミングなら

>#!/usr/bin/perl -w
>use strict;
>use Encode;
ここは
#!/usr/bin/perl -T
use strict;
use warnings;
use Encode;
のほうが良い。

829さんのスレッドが落ちていたのでこちらで質問失礼します。

Perlで、ハッシュデータにKEYとKEYに対応した値が多数格納されているとします。
そのKEYに対応した値から、KEY自体を取り出したいのですがそれは可能でしょうか。

可能でしたら簡単なプログラム例を教えて頂けると大変助かります。

while ( ($key, $value) = each(%hash) ) {
  if ($value eq "うんこ") {
    print $key;
  }
}

>>832
reverse使えばできる。
my %new_hash = reverse %old_hash;
これで、元のハッシュの値をキーとして、
元のハッシュのキーを値とするハッシュができる。

ただし、元のハッシュで値が同じものが2つ以上あるときには、
うまくいかないです。

>>833-834
なるほど、納得致しました。
お二方とも有り難うございます！

正規表現なのですが

<h2 class="title">を正規表現で表すと、（英数字の[0-9|a-zA-Z]は省略）

<h2.\s.class=\"title\">でよいのでしょうか

聞く前に自分で試した方がなんぼか速いんでないかい

>>837
試したのですが、出来なかったので間違っていると思うのですが
どこが間違っているのかわかりません

>>838
htmlのタグで一番簡単なマッチはこの2通り

/<.*>/
/<[^>]*>/

てか正規表現のスレで聞けばはやいのでは？

>>836
"."は文字一つ食べてごちそうさま。
"\s"はスペース一つ食べてごちそうさま。
もうひとつ"."も文字一つ食べてごちそうさま。

何文字用意してあげれば、おなかいっぱいになるの？
うん、三文字。
スペース一文字じゃ、おなかいっぱいにならないね。
食べるの控えたら、だいじょうぶ？
食べるの控えたら、だいじょうぶ？

>>839

/<.*?>/

こっちは？

Perlのコードのことで判らないことがあるため質問させていただきます。
現在読んでいるコードに、
return 0 if ($hoge < 1);
のような行があるのですが、これはどのような処理になるのでしょうか？

関数の途中にあり以下にも処理の記述があるため、私の想像では
return 0
の後ろに続く、ifが真のときにreturnが実行されるかと思うのですが、
なぜこのような書き方をするのでしょうか？

私が考えるのでは、
if ( $hoge < 1) {return 0;}
とすればいいかと思うのですが、何か理由があるのでしょうか？


質問をいくつもすみませんが、教えていただけるとありがたいです。

>>842
英語の表現で、
hogehoge if fugafuga
ってのがあるだろ? それをプログラミング言語の文法に組み込んだのが前者。
意味は後者と同じ。

>>843
ありがとうございます。

やはり、ただの書き方の違いだけでしたか。

>>844
>return 0 if ($hoge < 1);
>if ( $hoge < 1) {return 0;}

書き方の違いもあるけど直感でわかるかどうかも重要だから
そういう箇所は書き直していったら後から読む人は助かる箇所も出てくると思う。
それで動作しなくなったら問題なので十分に注意、検証は必要だけどね。

「orが嫌い」と言う理由で「||」に全置換かましたバカを思い出した。

処理が単文なのにいちいちブロック書くのが面倒というのもある。
さらに
return 0 if $hoge < 1;
とも書ける。前に書く場合は括弧が必須。
文修飾子(statement modifiers)(後ろに付ける if, unless, while, until, foreach)を使うなら
括弧を書かない場合が多いんじゃないかな。

>>846
まさか単語一致せずにかw

>>842
Ｃ言語脳の恐怖・・・

>848
単語一致以前に or と || では優先順位が異なる。

>>850
ああ、そういう意味ですか。

operatorの「or」も置換して、operat||にしてしまうのかと思った。

普通に考えて優先順位の話ってわかるじゃん(´・ω・`)

質問なんですけど、@INCに入るパスって環境変数のPERL5LIB以外にどこからとってきてますか？
zshrcには書いてあるパスの集合がAだとすると、
local/lib/perl5/5.8.8
local/lib/perl5/i386-freebsd-64int
A
local/lib/perl5/5.8.8/BSDPA
local/lib/perl5/site_perl/5.8.8/mach
...
というような並びで並んでます。
Aの前と後にどこからパスを持ってきているのかわからず。perlのコンパイルの時にそんな指定するんでしたっけ？
PERLLIBも指定してなし、よくわからない

>>853
そうです

>>851
そんなこと言い出したら "or" が部分文字列として含まれる単語なんて
いくらでもあるじゃないか
このスレ見える範囲で検索しただけでも word, form, ports, livedoor とか出てきた

>>854
なるほど。ありがとうございます。
コンパイルした後に変えることは無理？
5.8.8をもう一回コンパイルし直すならいっそのこと5.10をコンパイルしようかなと思うのですけど。

use libできんのか？

>>857
use libとか@INCに入れれば解決なのだけど、
そもそもそのリストをどこからどういう順番で取ってきているかを知りたかったのです。
おれの@INC、パスがダブっちゃったりしてるから。

>>858
ソースのperl.cを参照。

ソースをそのままコンパイルして使うならまあいいんだけど、
一部のLinuxディストリによっては、これにpatchが当たってて、
読み込むパスや順番が異なってる。

>>856
> コンパイルした後に変えることは無理？
スクリプト単位なら use lib や BEGIN { @INC = ... } 。
ユーザ単位なら環境変数 PERL5LIB / PERLLIB。
システムワイドに設定したければ、sitecustomize.pl が
利用可能ならその中で好きに編集すればいい。

プログラム読んでてよくわからん構文出てきたから
最小のコードにしてみたらこうなった

sub a{return [(1)x5];}
@b = @{a()};
for(@b){print;print " ";}print "\n";

2行目の@{ }で囲っているところは何をやっているのか
誰か教えて

デリファレンス

把握した