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

Perlについての質問箱 ..

2:デフォルトの名無しさん
08/08/11 19:11:01
[プログラミング自体の経験が無い奴はまずココを読め]
Perlプログラミング講座: URLﾘﾝｸ(www.site-cooler.com)

[本]
リャマ: URLﾘﾝｸ(www.oreilly.co.jp)
駱駝: URLﾘﾝｸ(www.oreilly.co.jp)
Effective Perl: URLﾘﾝｸ(www.ascii.co.jp) (修正)
クックブック: URLﾘﾝｸ(www.oreilly.co.jp)
Perl ベストプラクティス: URLﾘﾝｸ(www.oreilly.co.jp)
Perl Hacks: URLﾘﾝｸ(www.oreilly.co.jp)

[オンラインマニュアル]
最新のドキュメント: URLﾘﾝｸ(search.cpan.org)
perl5.8.xのドキュメント(一部): URLﾘﾝｸ(www.kt.rim.or.jp)
perl5.005_03 のドキュメント: URLﾘﾝｸ(www.kt.rim.or.jp)
日本語ドキュメント検索: URLﾘﾝｸ(www.cpan.jp) (停止中)
perldoc.jp: URLﾘﾝｸ(www.perldoc.jp)
perldoc.com: URLﾘﾝｸ(www.perldoc.com)

3:デフォルトの名無しさん
08/08/11 19:11:21
[モジュール]
CPAN.com: URLﾘﾝｸ(search.cpan.org)
河馬屋二千年堂: URLﾘﾝｸ(homepage3.nifty.com)

[テクニック]
Perlメモ: URLﾘﾝｸ(www.din.or.jp)
Perlのページ: URLﾘﾝｸ(homepage1.nifty.com)
Perlの小技: URLﾘﾝｸ(homepage3.nifty.com)

[Perl 5.8 Unicodeメモ]
URLﾘﾝｸ(www.rwds.net) (修正)
URLﾘﾝｸ(www.namazu.org)
URLﾘﾝｸ(www.lr.pi.titech.ac.jp)

4:デフォルトの名無しさん
08/08/11 19:11:45
#　　[Perl 日本語処理の基礎の基礎]
#　このレスは、Windows の ActivePerl で日本語処理を行う場合のテンプレートです。
#　このレスの内容をそのまま、UTF8 形式のソースファイルに保存して下さい。
#　入出力ともシフトJIS形式のファイルまたはDOS窓を想定しています。
#　まず、以下の行を先頭に入れて下さい。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)"; # ※１
use Encode;
#　次に、あなたが実行したい処理の内容を入れて下さい。
$file = 'C:/なんたら/かんたら.txt';
open my $fh, '<', encode("cp932", $file) or die $! ; # ※２
print <$fh>;
#　以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
#　おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。
#　【注】※１．の行を入れると、DOS窓への日本語出力は簡便になりますが、
#　ソースファイル名に非ANSI文字が含まれる場合にdie 文の出力が失敗します。
#　※２．OSに渡す文字列（ファイル名，dosコマンドのオプションなど）は、
#　この例のようにcp932でエンコードする必要があります。

5:デフォルトの名無しさん
08/08/11 19:12:05
1 URLﾘﾝｸ(pc.2ch.net)
2 URLﾘﾝｸ(pc3.2ch.net)
3 URLﾘﾝｸ(pc2.2ch.net)
4 URLﾘﾝｸ(pc2.2ch.net)
5 URLﾘﾝｸ(pc5.2ch.net)
6 URLﾘﾝｸ(pc5.2ch.net)
7 ｽﾚﾘﾝｸ(tech板) (事故により消滅)
8 ｽﾚﾘﾝｸ(tech板) (事故により消滅)
9 ｽﾚﾘﾝｸ(tech板)
10 ｽﾚﾘﾝｸ(tech板)
11 ｽﾚﾘﾝｸ(tech板)
12 ｽﾚﾘﾝｸ(tech板)
13 ｽﾚﾘﾝｸ(tech板)
14 ｽﾚﾘﾝｸ(tech板)
15 ｽﾚﾘﾝｸ(tech板)
16 ｽﾚﾘﾝｸ(tech板)
17 ｽﾚﾘﾝｸ(tech板)
18 ｽﾚﾘﾝｸ(tech板)
19 ｽﾚﾘﾝｸ(tech板)
20 ｽﾚﾘﾝｸ(tech板)

6:デフォルトの名無しさん
08/08/11 19:12:26
[過去スレ2]
21 ｽﾚﾘﾝｸ(tech板)
22 ｽﾚﾘﾝｸ(tech板)
23 ｽﾚﾘﾝｸ(tech板)
24 ｽﾚﾘﾝｸ(tech板)
25 ｽﾚﾘﾝｸ(tech板)
26 ｽﾚﾘﾝｸ(tech板)
27 ｽﾚﾘﾝｸ(tech板)
28 ｽﾚﾘﾝｸ(tech板)
29 ｽﾚﾘﾝｸ(tech板)
30 ｽﾚﾘﾝｸ(tech板)
31 ｽﾚﾘﾝｸ(tech板)
32 ｽﾚﾘﾝｸ(tech板)
33 ｽﾚﾘﾝｸ(tech板)
34 ｽﾚﾘﾝｸ(tech板)
35 ｽﾚﾘﾝｸ(tech板)
36 ｽﾚﾘﾝｸ(tech板)

7:デフォルトの名無しさん
08/08/11 19:50:16
前スレ過去ログ保存
URLﾘﾝｸ(www.23ch.info)

8:デフォルトの名無しさん
08/08/11 19:51:56
ちなみに前スレ寿命は
2008/07/09　-　2008/08/11

9:デフォルトの名無しさん
08/08/11 20:05:29
さすがPerlだ　日付の計算も簡単簡単

10:デフォルトの名無しさん
08/08/11 22:00:19
javaでもできるんだぜ

11:デフォルトの名無しさん
08/08/11 22:29:09
前スレ985
> binmode STDOUT => ":encoding(cp932)";
> ↑もしかして、これって、シフトJISで出力する、って意味だったの？
yes. 丸数字とかはJIS X 0208規格外の文字だから、
ENCODING名としてはShift_JISじゃなくてcp932を用いる必要がある。
上のは、「標準出力への出力時には、Perlの内部形式(UTF-8)文字列を
cp932に変換せよ」という意味になる。

12:デフォルトの名無しさん
08/08/11 23:22:04
>>11
後は任せた!
俺? 俺はほら、なんかアレだよ、腹、そう腹がちょっとな。うん。
じゃあそゆことで! できればこの世でまた会おう!

13:デフォルトの名無しさん
08/08/12 03:52:06
>>11
　cp932、っていうのが、perl国の言葉で、
「シフトJIS」って意味だったのね。

14:デフォルトの名無しさん
08/08/12 03:52:44
シャアの別名がキャスバルみたいな。
限られた身内しか知らないみたいな。

15:デフォルトの名無しさん
08/08/12 04:13:02
違うよ。全然違うよ。
CP932 は狭義の Shift_JIS 領域外の拡張文字も含むよ。

16:デフォルトの名無しさん
08/08/12 05:37:07
>>13

>>15にもう少し付け足しすると、
そもそも「cp932」ってのは、「マイクロソフト　コードページ932」のことで、いわゆるMS社独自の拡張文字セットのこと。

で何が問題かって、そのMSが独自の日本語文字コードを策定する時に、「シフトJIS」をベースに拡張したんだけど、
なにをどう間違えたのか知らないが、一部文字の内部コードに本来の「シフトJIS」とは異なるコードを
割り当ててしまったために、いくつかの混乱が起こった。(特に「～」(全角チルダ、波線)とか有名。ほかにもいくつかある。)

つまり「cp932」は「シフトJIS」の別名ではないのは当然として、含むとか含まないとかでもない、
全く別の文字コードの一つとして認識していたほうがよいかと思う。(まあ現状、ほとんど同一視されてるけど)

ちなみにWindowsの一般的なテキストエディタ(秀丸、TeraPad、メモ帳もか？)とかで編集する時、
保存コードが「Shift_Jis」あるは「SJIS」とかになってるけど、
正確に言えばこれは間違いで、本来なら「cp932」としなければならない。
コマンドプロンプトでの出力は、プロパティに「コードページ932」と出てる。(コマンドで　chcp　と打ってみれ)
(その横に括弧書きで「日本語Shift-JIS」ってなってるけど・・)

17:デフォルトの名無しさん
08/08/12 09:23:36
もともと同じものだしね。unicodeとの対応関係が違って定義されてしまっただけなので、それ自体でみれば区別できない。本当にこんな状態にした先人は何やってんだよって感じです。勉強して愕然としました。

18:デフォルトの名無しさん
08/08/12 14:30:52
>>16
知らないって事は恐ろしいな。平気でこんな事が書けるなんて・・・

19:デフォルトの名無しさん
08/08/12 14:40:05
このスレも完全に馬鹿が馬鹿に教えるスレに成り下がったな

20:デフォルトの名無しさん
08/08/12 14:53:53
へ～、と思って読んでしまった
実際は違うの？

21:デフォルトの名無しさん
08/08/12 15:16:33
WikipediaのShift_JISの項目を見る限りでは、MSは日本のPCでの符号化形式を
考えるときにShift_JISの策定に関わってたうちの一社

JISがずっと後にシフト符号化形式についての規格を取り決めたときに
それとは矛盾する形の仕様にしちゃったので、当時のデファクト（今でも
WindowsのCP932で使われているもの）との矛盾が発生してしまった

そういう具合に読めるね

22:デフォルトの名無しさん
08/08/12 16:24:46
>>16 の文章を読むと
「マウスの付いたパソコンしか触ったことが無い世代が増えたね～」
って感じがするな。

23:デフォルトの名無しさん
08/08/12 16:53:39
生半可な知識でうだうだ書くよりも、「ググレカス」のほうがよっぽど親切だな。

24:デフォルトの名無しさん
08/08/12 18:14:17
文字コード総合スレ　part3
ｽﾚﾘﾝｸ(tech板)l50

25:デフォルトの名無しさん
08/08/12 18:51:15
””ダブルコーテーションの中で、
->
を使うときは、半角スペースをあけて、
- >
とすれば、問題無いの？

26:デフォルトの名無しさん
08/08/12 22:32:28
>>16
恥ずかしい奴が増えたなｗｗｗｗうぇｗｗっうぇえｗｗ

27:デフォルトの名無しさん
08/08/12 22:42:08
どう恥ずかしいのか、根拠を尋ねると即トンズラｗ

28:デフォルトの名無しさん
08/08/12 23:31:16
前にも出たよね、長々と説明するんだけど、デタラメってやつ。
やっぱり精神病なのかな?

29:デフォルトの名無しさん
08/08/13 00:51:34
>>27
>>16 は比較的よく勉強していると思います。
めげずに精進を続けて欲しいです。

それはそれとして、前々スレの中盤あたりから、
回答すべき質問とそうでない質問の選別について、
みなさんセンシティブなんですよ。
その辺の空気も勘案して頂きたいところではあります。

30:デフォルトの名無しさん
08/08/13 01:47:36
== 1.分かる
@array = ("hoge","huga","hohoho");
print @array; # 展開されて表示される

=== 2.分からない
@array = ["hoge","huga","hohoho"];
print @array; # 参照が表示される
print @{@array}; # エラー

=== 3.分かる
$array = ["hoge","huga","hohoho"];
print $array; # 参照が表示される
print @{$array}; # 展開されて表示される

参照勉強中ですが、これ2番目どうなってるんですか？
[ほげほげ]で帰ってくるのは無名配列の参照だから@arrayには代入できないと思ったらできるし
とおもったら@arrayの一つ目の要素に配列の参照が入ってるんですねprint $array[0]で参照がひょうじできましたありがとう

31:デフォルトの名無しさん
08/08/13 02:15:43
おもしろいとおもってるのかな…

32:デフォルトの名無しさん
08/08/13 02:38:11
そんなこといわないで

33:デフォルトの名無しさん
08/08/13 08:18:55
>>29
> >>16 は比較的よく勉強していると思います。
> めげずに精進を続けて欲しいです。

>>16は知らないことがあった場合、それを調べずに、思いつきの想像で補完する
異常者だから、精進はしないだろう。

34:デフォルトの名無しさん
08/08/13 10:02:58
正解は？ねえ正解はなんなの？？

35:デフォルトの名無しさん
08/08/13 10:17:59
>>25
これは？

36:デフォルトの名無しさん
08/08/13 10:18:59
perlのコンソールレベルで、midiって鳴らせないの？

37:デフォルトの名無しさん
08/08/13 10:26:45
>>35
何か問題でも？

38:デフォルトの名無しさん
08/08/13 10:35:42
>>36
perlのコンソールレベルの意味がわからんが
インターフェースならMIDI::Music
ってぐーぐる先生が言ってた

39:デフォルトの名無しさん
08/08/13 10:37:35
ファイルの任意の行を読むのはどうすればいいのでしょうか？

40:デフォルトの名無しさん
08/08/13 10:48:36
ぐぐれ

41:デフォルトの名無しさん
08/08/13 10:56:13
>>37
いや、半角スペースさえ開ければ、
問題なく - >を使っていいのか、だめなのか、ってこと。

42:デフォルトの名無しさん
08/08/13 11:08:58
だからそもそも何が問題なんだよ
レスの内容が全く同じじゃ説明になってねえんだよこのナマコが

43:デフォルトの名無しさん
08/08/13 11:45:25
おちついて

44:デフォルトの名無しさん
08/08/13 11:46:04
>>41
大丈夫ですよ

次の方、質問どうぞ

45:デフォルトの名無しさん
08/08/13 12:06:26
>>44
逆に、->と、半角スペースをまったく空けずに
使うと、勝手にデリファレンスと解釈されてしまう
危険があるってことですよね？

46:デフォルトの名無しさん
08/08/13 12:55:04
URLﾘﾝｸ(www.google.com)

perlやべええ

47:デフォルトの名無しさん
08/08/13 13:02:11
>>41
そんなに気になるなら、
print "-" . ">";
とかすればいいだろ。

48:デフォルトの名無しさん
08/08/13 13:35:41
ちゃんとした変数のルールがぱっとでてこないけど
/\$([a-z0-9_]+)->[\[{]/iにマッチしちゃうと
アロー演算子として処理される可能性が高い

例えば以下は構文エラー
perl -e 'print "$test->{\n"'
perl -e 'print "$test->{}\n"'
perl -e 'print "$test->[\n"'
perl -e 'print "$test->[]\n"'

心配なら
my $arrow = '->';
print "${arrow}";
でいいんじゃね？

49:デフォルトの名無しさん
08/08/13 15:14:35
>>48
<q cite="URLﾘﾝｸ(perldoc.jp)">
識別子、つまり、英字か下線から始まってそれに英字、下線、
数字が続く文字列のことです。一部のケースにおいては ::
(あるいはやや古風な ') で分けられた識別子の並びであってもかまいません。
</q>

即ち use byte 相当の状態なら
/^[A-Z_a-z][0-9A-Z_a-z]*(?:(?:::|')[A-Z_a-z][0-9A-Z_a-z]*)*\z/

50:デフォルトの名無しさん
08/08/13 17:05:28
>>45
意図しないデリファレンスを避けたきゃ、変数名の範囲をブレースで囲めばいいだけだろ？
基本だぞ。>>48氏も一部で使ってるけど。
# 変な部分（作法の面で）はあくまでも例ということでご容赦。
$x = 'hoge' ;
$x->{hoge} = 'foo' ;
print "$x->{hoge}\n" ; # => foo が返る。ほんとは hoge->{hoge} を期待してたら↓
print "${x}->{hoge}\n" ; # => hoge->{hoge} （無用のデリファレンスを避けられる）

51:デフォルトの名無しさん
08/08/13 17:06:47
シングルコーテーションと.演算子を使うように心がければ何も悩む必要はない

52:デフォルトの名無しさん
08/08/13 18:32:06
┌────┐
│変数名─アドレス　│
│　　　　　　　　 │
│　　　データ　　　 │
└────┘
変数名が$hogeでデータがテステスの時
つまり$hoge = "テステス"の時、

print $hoge;だとデータ部分が表示されて
print \$hoge;だとアドレス部分が表示されるけど
print \\$hoge;も問題なく表示できると言うことは
この時内部的に\$hogeというアドレスをデータに持つリファレンスが生成されていて
その内部で生成されたリファレンスのアドレスが表示されていると言うこと？
つまりprint \\$hogeの裏側では↓こういうのが内部で行われてるんですか？

$hoge_reference = \$hoge;
print \$hoge_reference;

　　　 ┌────┐
　　　 │$hoge_r─\$hoge_r.│
　　　 │　　　　　　　　 │
　　　 │　　　\$hoge　　　 │
　　　 └──╂──┘
┌───╂─┐
│ $hoge ─ \$hoge　│
│　　　　　　　　 │
│.　　テステス　　 │
└────┘

53:デフォルトの名無しさん
08/08/13 19:23:54
>>52
> print $hoge;だとデータ部分が表示されて
> print \$hoge;だとアドレス部分が表示されるけど

ちがう

54:デフォルトの名無しさん
08/08/13 21:14:34
ちがわない

55:デフォルトの名無しさん
08/08/13 23:32:50
>>52
っ[Devel::Peek]

56:デフォルトの名無しさん
08/08/14 02:02:57
>>52
それであってるよ

57:デフォルトの名無しさん
08/08/14 17:55:33
print $hoge;
# $hoge の持つ値が表示される

print \$hoge;
# $hoge を指す参照を得て、その内部表現を文字列化したものが表示される

「データ部分」「アドレス部分」という表現には、この辺の理解不足感が漂っている。
>>52 がんがれ。

58:デフォルトの名無しさん
08/08/14 18:02:06
そこまで書かなかっただけだろ。

59:デフォルトの名無しさん
08/08/14 18:34:39
>>58
おまえの推測はどうだっていい。

60:デフォルトの名無しさん
08/08/14 18:41:43
質問自体は無視して語句の間違いの指摘に熱中する俺らはム板の鏡や！

61:57
08/08/14 20:12:44
>>60
質問自体は >>55,56 で解決だろうから放置。

語句の間違いは要点ではなくて、
その表現が出てくる背景を邪推してみた。

単に口下手というか慣れていないだけだったら
当方まったく的外れなのでスルー推奨。

>>53 の気持ちは分からないでもないけど、
「ちがう」で終わりではあんまりだろうと思い、
>>53 の感じたであろう、漠然とした「チガウ感」を
>>57 で言語化してみた。

余計なことだった。今は反省している気がする。

62:デフォルトの名無しさん
08/08/14 20:19:46
騙すのはいけないやな。

63:デフォルトの名無しさん
08/08/15 03:17:01
でもプログラムって
1文字違っただけで動かなくなるから
そういう性格の人が向いてるのかもね。

64:デフォルトの名無しさん
08/08/15 04:10:49
高校の数学をちゃんとやった人なら、
一つの値をもつものがスカラー、
複数の値を持つものがベクトル、
ということは覚えていますね。

、、、って参考書に書いてあるのだが、
英語読みだとベクター、日本語読みだと
ベクトルってことは、もしかして、
スカラーも、日本語読みで、スカトル、とかって
変な読みにされてた可能性もあるのかな。

65:デフォルトの名無しさん
08/08/15 04:13:49
my $hoge=q|a|;

say $hoge;
say \$hoge;

　　　↓実行結果

a
SCALAR(0x1a9a6c4)

↑これはなに？

66:デフォルトの名無しさん
08/08/15 04:22:11
正規表現って、マッチと置き換え、そのほかに
なにか使い道ある？

（１）マッチ
（２）tr///使用の置き換え
（３）s///使用の置き換え

おおまかにわけて
この３つしかないとおもうんだけど。

67:デフォルトの名無しさん
08/08/15 04:32:37
system ('notepad.exe','abcde.txt');

これでメモ帳が開ける
感動

68:デフォルトの名無しさん
08/08/15 04:33:50
sysytem ('aaa.midi');

↑こんくらいのカンタンな文法で
midiを鳴らすってできない？

69:デフォルトの名無しさん
08/08/15 04:36:05
板違いです。

70:デフォルトの名無しさん
08/08/15 05:09:24
このスクリプト、思い付きをすぐ投げてくるだけじゃなくて
突っ込みどころを用意してくるから食いつく人が出るんだよね。

71:デフォルトの名無しさん
08/08/15 06:07:05
大手大企業に勤める俺が簡単に説明してやろう。
１００人以上見てきたけど、この傾向だけは異論を許さない。

[クラス１]MARCH：テキストや本を見て仕事をする

[クラス２]旧帝大、早慶：テキストや本の原理を理解して仕事する。

[クラス３]東大、京大：テキストや本の原理を新たに創造する。

72:デフォルトの名無しさん
08/08/15 06:15:59
誤爆したと書かないことに異論を唱えたい

73:デフォルトの名無しさん
08/08/15 06:42:54
URLﾘﾝｸ(books.google.co.jp)

↑これで、ファイヤフォックスが起動して、
グーグルブック検索のページが開くよ！
すごいね！

74:デフォルトの名無しさん
08/08/15 06:44:07
>>73はまちがえた。

system ("C:/Program Files/Mozilla Firefox/firefox.exe","URLﾘﾝｸ(books.google.co.jp)
100&as_brr=0&btnG=Google+%E6%A4%9C%E7%B4%A2&as_epq=&as_oq=&as_eq=&as_brr=0&lr=lang_ja&as_vt=
perl&as_auth=&as_pub=&as_drrb=c&as_miny=&as_maxy=&as_isbn=");

↑これで、ファイヤフォックスが起動して、
グーグルブック検索のページが開くよ！
すごいね！

改行はエディタで手動でつないでね！

75:デフォルトの名無しさん
08/08/15 06:45:42
（１）
ところで、rubyのときは、IEを起動するには
win32APIを使わないとだめだって言われたんだけど、
なんでPerlはWin32APIを使わないでもファイヤフォックスを
起動できるの？

（２）
Ｐｅｒｌもwin32APIを使えるの？
もし使うとしたらどういう時？
CD-ROMドライブのフタをあけたいときとか？

76:デフォルトの名無しさん
08/08/15 09:15:03
（3）
どうしてググらないの？どうして自分で調べようと努力しないの？

77:デフォルトの名無しさん
08/08/15 10:38:06
use feature qw( :5.10 );

my $a;
$a=<>;
say qq|$a|;

↑これでキーボードから入力してエンター押すと、
キーボードから入れた文字列が画面に表示されるんだけど、
<stdin>って書かなくてもいいの？

78:デフォルトの名無しさん
08/08/15 11:09:33
（４）
どうして自分で実際に試した、目の前の現実を信用できないの？

79:デフォルトの名無しさん
08/08/15 11:20:29
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
use Encode;

use feature qw( :5.10 );
$|=1;
#----------------------------------

my $a;
my $c=1;
my @d;
for ($c=1;$c<=7;$c=$c+1){
print "$c"."文字目"; #←●１
#print "$c文字目"; #←●２
$a=<>;
chomp $a;
push (@d,$a);
}

say qq|\n|;

my @b;
say q|ソートの結果は、、、|;
@b=sort @d;
say qq|@b|;
---------------------------
↑これで、●１は動くのですが、●２にするとエラーになります。
実質的に１と２は同じもののはずなのに、なぜでしょうか？

80:デフォルトの名無しさん
08/08/15 11:30:50
>>78
アスベスト吸って、肺に入って、
中皮腫になるまで、20年間ありますよね。

81:デフォルトの名無しさん
08/08/15 11:41:42
このスレって、年齢分布、どれくらい？

10台　■
20台　■
30台　■■■
40台　■■■■
50台　■■■■■■■■

↑こんな感じ？

82:デフォルトの名無しさん
08/08/15 11:48:06
print "$c 文字目";
これだとエラー出ないんだよね。

print "$c文字目";
これだと、エラーになる。

どうも、
$c文字目
これ全部をスカラー変数だと思い込んでるみたい。
半角スペース空けないとだめなのかな。

83:デフォルトの名無しさん
08/08/15 12:00:25
>>50読め

84:デフォルトの名無しさん
08/08/15 12:02:07
>>79
>>82

use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
use Encode;

$c文字目 = 100;
print $c文字目,"\n";

$文字目 = 200;
print $文字目,"\n";

85:デフォルトの名無しさん
08/08/15 12:03:42
$うんこ = 300;
print $うんこ,"\n";

86:デフォルトの名無しさん
08/08/15 20:25:17
今日、参考書を読んでいて、
use English
という、ステキ構文を発見した。

おまいら、ちゃんとこういう便利なものは
おしえてくれなきゃ

87:デフォルトの名無しさん
08/08/15 20:27:39
perlってさ、データーを放り込むのに

（１）＜stdin＞でキーボードから打つ
（２）＜＞でキーボードから打つ
（３）ファイル名を指定して、ファイルごと食わす
（４）引数で入れる perl abc.pl abcdeみたいな
（５）#!usr/local/bin/perlを指定して、perlを省略して食わすabc.pl abcdeみたいな
（６）ファイルごと食わして、その処理結果を別ファイルに出力する perl <a>bみたいな

以上の６つのやり方があるよね

88:デフォルトの名無しさん
08/08/15 20:56:02
落書きはチラシの裏にしろ

89:デフォルトの名無しさん
08/08/15 22:29:30
プロトタイプについて質問です。

通常、サブルーチンにプロトタイプを付けて記述し、コードの先頭付近で

　sub Func1( \@ ) ;

とでも書いておき、そのあと実際に呼び出すときは

　Func1( @array );

と書けば自動的に配列のリファレンスが渡されます。
また、このときスカラーなど間違った変数を渡すとエラーとなりますよね？

モジュール HogeHoge.pm のパッケージ HogeHoge 内に同様のサブルーチンを記述したとします。
このモジュールの先頭付近で

　package HogeHoge ;
　sub Func1( \@ );

と書いてみたのですが、うまく機能しているように見えません。
自動的にリファレンスが渡されるわけでも、別の変数を渡した時にエラーが起きるわけでもありません。
書いても書かなくても同じ挙動に見えます。

どのように記述するのが正しいのでしょうか？

90:デフォルトの名無しさん
08/08/15 22:45:49
プロトタイプは引数の型チェックをするために使うものではなく、
変則的な呼び出し方をする一部の組み込み関数を再定義するときだけ使うもの。
リファレンスを渡したいなら明示的にリファレンスを渡すほうがよい。

91:デフォルトの名無しさん
08/08/15 22:52:51
モジュール化する以上、自分が使うとも限らないですし（数ヵ月後の自分は他人だ）
エラーを出せるなら出して欲しいんですよね。

92:デフォルトの名無しさん
08/08/16 16:53:21
Perlで、listでなくてset（集合）のデータ型を提供するような
ステキなモジュールはありますか？
CPANを探しているんですが、なかなか見つからなくて・・・

Pythonに組み込みで存在するアレです

93:デフォルトの名無しさん
08/08/16 17:16:36
質問

use Win32::FileOp qw(ShellExecute);

ShellExecute('open', 'notepad.exe');

↑このコードをコピペして実行したら、
Can't locate Win32/FileOp.pm in @INC (@INC contains: C:/Per
at untitled1.pl line 1.
BEGIN failed--compilation aborted at untitled1.pl line 1.

というエラーが出ました。
ひょっとして、Win32::FileOpは標準で入っていないの？

94:デフォルトの名無しさん
08/08/16 17:42:56
>>89
=== HogeHoge.pm ===
package HogeHoge ;
use Exporter;
use vars qw(@ISA @EXPORT) ;
use subs qw( Func1(\@) ) ;
@ISA = qw(Exporter);
@EXPORT = qw(Func1 );

sub Func1 (\@){ print qq{42\n} ;}
1;
=== hoge.pl ===
use HogeHoge ;
my @arr = (1) ;
Func1 @arr ;
# my $var = 1 ;
# Func1 $var ;
=== 実行 ===
perl hoge.pl
42

95:デフォルトの名無しさん
08/08/16 18:57:09
>>93
また質問中が湧いたか
そのくらいてめぇで調べろ、ぼけ

96:デフォルトの名無しさん
08/08/16 20:01:15
>>92
URLﾘﾝｸ(search.cpan.org)
union intersection complement 辺りの思いついた語で CPAN 漁ってて見つけたもの。

Python 知らないしこれを使ったこともないので素敵かどうかはわかりませんが。

97:デフォルトの名無しさん
08/08/16 21:29:04
@a=<stdin>;

↑これやったら、永遠にキーボード入力の
フェーズから、抜けられない？

98:デフォルトの名無しさん
08/08/16 21:32:56
EOFを送れ。
UNIXならCtrl+D, WinならCtrl+Z(多分)

99:デフォルトの名無しさん
08/08/16 22:02:16
古い参考書読んでたら、

「Perlでは残念だがらユニコードは使えません」

とかって書いてある。いったいいつから
使えるようになったんだ？

100:デフォルトの名無しさん
08/08/16 22:03:10
use diagnostics;

↑これって普通に使うの？
テンプレには記載がないようだけど。

101:デフォルトの名無しさん
08/08/16 22:07:29
URLﾘﾝｸ(www.donzoko.net)

これはいったいなんだよ
わろたよ

102:92
08/08/16 23:49:15
>>96
おおおっ、いい感じのモジュールですね
標準的な操作もきっちりサポートされてますし
サンクスです

>>100
strictやwarningsのプラグマと違って、
運用コードでは要らないかと
自分の場合、開発コードでも要否は微妙です

103:デフォルトの名無しさん
08/08/17 01:43:51
>>99
んなもん調べりゃすぐにわかると思うの。
自分の欲しい情報なのに、自分で調べずに他人に探させようとする質問には答えたくないの。

>>100
使いたかったら使えばいいと思うの。
マニュアル読んで有益かどうか判断がつかないなら試してみればいいと思うの。
「普通」どうかなんて、どこで誰が何やってるかによって変わると思うの。

で、「普通」を知ってどうしたいの？

104:デフォルトの名無しさん
08/08/17 09:17:40
>>103
そんなもん、なるべくデフォルトにあわせるのは
当然じゃないですか。

昔富士通のパソコン買ってひどい目にあったんだから。

105:デフォルトの名無しさん
08/08/17 09:20:44
ところで引数って

abc.pl d e f g
みたいにコマンドラインから入力するときに
渡すけど、これってスペースで区切られたら、
「ひとつの引数」
って認識ですよね。いまの例だと
dとeとfとgが引数。

だと、もしかして、perlってスペースを含む
文字列や数字は引数として渡すことはできないの？

たとえば
a b (半角のa、半角のスペース、半角のb）
を一つの引数としてコマンドラインから渡そうとしても、
14才のperlﾀﾝが勝手に、
「あーこれは一つの引数ねーﾎｴｰ」
とかって勝手に処理してしまうんですよね？

106:デフォルトの名無しさん
08/08/17 09:59:08
いま使ってるエディターで、デバッグモードってのがあって、
それを使うと

Loading DB routines from perl5db.pl version 1.3
Editor support available.

Enter h or `h h' for help, or `perldoc perldebug' for more help.

main::(untitled6.pl:7): binmode STDIN => ":encoding(cp932)";

DB<1>

↑こんなのが出てくる。これってどう使えばいいんだろう？

107:デフォルトの名無しさん
08/08/17 10:06:33
perlってさ、clsってないんだね。
ゲーム作れないジャン。

108:デフォルトの名無しさん
08/08/17 10:29:38
自己レス
過去ログ読んだらあったわ

system q|cls|;

これでCLSできる。やりー

109:デフォルトの名無しさん
08/08/17 10:41:31
use feature qw( :5.10 );
use Time::HiRes 'sleep';
$|=1;
#----------------------------------

system q|cls|;
sleep(1);
my @a;
@a=('a','b','c','d','e');
my $b;
foreach $b (@a){
say $b;
sleep(1);
}

↑これで、画面をｃｌｓで消して、
キレイにしてから、ゆっくりと文字を出力できるよ。
感動。

110:デフォルトの名無しさん
08/08/17 10:53:13
use warnings;
use strict;
use diagnostics;

use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";
use Encode;

use feature qw( :5.10 );
use Time::HiRes 'sleep';
$|=1;
#----------------------------------
system q|cls|;

my @a;
@a=('ささやき','えいしょう','いのり','ねんじろ！');

my $b;
foreach $b (@a){
sleep(1);
say $b;
}

sleep(3);
say qq|\n\n勇者は灰になりました\n|;

↑やった！ウイザードリーだ！

111:デフォルトの名無しさん
08/08/17 11:05:25
>105
ここはPerlの質問スレだぜ？

112:103
08/08/17 11:09:45
>>104
富士通さんの製品がどう関係してるのかは知らないけど、
マジレスすると、Perl のデフォルトは、当たり前だけれど何も use しない状態。
「デフォルト」を「比較的多くの人が採用しているやり方」という意味で使っているなら、
標準モジュールや CPAN モジュールを読んで統計取るなりすればいいじゃない。
そして自分にとって有益であるか、または必要であるなら、
誰が使っていなくても使えばいいじゃない。

「よいとされているコーディングスタイル」を扱った書籍はいくつもあるし、
perlstyle マニュアルページにも情報があるんだけれど、
>>100 はどうやらそれらを調べていないようなので、
そーゆー質問は「自助努力の足りない教えて君」扱いされるの。

113:103
08/08/17 11:13:34
>>105
> だと、もしかして、perlってスペースを含む
> 文字列や数字は引数として渡すことはできないの？

できるの。

> 「あーこれは一つの引数ねーﾎｴｰ」
> とかって勝手に処理してしまうんですよね？

ちがうの。

114:103
08/08/17 11:19:06
>>106
> Enter h or `h h' for help, or `perldoc perldebug' for more help.

help を見るには(DB<>プロンプトで) h と入力するか h h と入力するか、またはもっとくわしい help は perldebug マニュアルページを見れ

って書いてあるの。見てから質問して欲しいの。
てゆーか見てればこんな質問出てこないの。

115:103
08/08/17 11:33:11
>>107-110
日記は自分のブログにでも書いて欲しいの。
少なくともこのスレにはそういうのいらないの。

116:デフォルトの名無しさん
08/08/17 11:45:57
>>103のようなチンポしゃぶりがいる限り、寄生虫は出現しつづける。

117:103
08/08/17 12:32:20
>>116
だってかわいそうなんだもの。
この子がこのまま社会に出るなんて、ぞっとするんだもの。

118:デフォルトの名無しさん
08/08/17 13:58:33
>>117
社会に出て来ることを前提にするからそうなるわけで
社会が受け入れを拒めば良い。ニートも珍しくない時代だぜ。

119:デフォルトの名無しさん
08/08/17 14:00:35
>>117はすでに問題の寄生虫に依存している。

120:デフォルトの名無しさん
08/08/17 14:03:36
>>117
歪んだ持論で100に粘着したり、
「ぐぐれカス」で済むところをねちねち言ったり、
自治しようとしたり。

お前さんのウザさは、107と変らんよ。

121:103
08/08/17 16:33:09
>>118
ニートが社会に拒まれてそうなるというのは新説な気がするの。
どちらにしろそういう事例は少ないほうがいいと思うの。
でもこのスレでやるべきことじゃないとは思うので反省してる。

>>119
誰かボクを隔離して欲しいの。
でもこれ以上迷惑になるいけないのでがんばって自分で克服します。

>>120
ウザくてごめんなさい。
持論が歪んでるのは自覚があるので鵜呑みは危険と言っておくの。

ボクが言うのもなんだけど、みなさん気にせずPerlのお話しましょう。

122:デフォルトの名無しさん
08/08/17 17:08:03
なんかすごく怖くなってきた

123:デフォルトの名無しさん
08/08/17 18:19:19
>>110
これで、文章が表示されるのと合わせて、
音楽を鳴らしたいんだけど、
（本物のウイザードリーみたいに）
Perlだと実装はものすごく面倒なの？

124:デフォルトの名無しさん
08/08/17 18:27:00
みんな聞いてくれ！
ｽﾚﾘﾝｸ(php板:556番)
で、質問がでていたので、
ｽﾚﾘﾝｸ(php板:560番)
と、オレ様が、かっこよく回答しちゃったぜ！
ちなみに、あってるかどうかは、知りません

125:デフォルトの名無しさん
08/08/17 18:27:01
がんばって、あなたなら出来るわ

126:デフォルトの名無しさん
08/08/17 18:33:02
合ってないところがいいな。

127:デフォルトの名無しさん
08/08/17 18:46:30
統失で10年くらい入院したあと退院してPerlに目を付けたという感じか?

128:デフォルトの名無しさん
08/08/17 19:58:01
>>123
Win32::Sound

129:デフォルトの名無しさん
08/08/17 22:00:22
perldoc に関する質問です。

ある単語 foo に関する perl のドキュメントを読みたいが、

perldoc foo → No documentation found for "foo"
perldoc -f foo → No documentation for perl function `foo' found
perldoc -m foo → No module found for "foo"
perldoc -q foo → No documentation for perl FAQ keyword `foo' found

となるとき、すべての perl ドキュメントから foo を検索して、
どのドキュメントを見ればよいか表示するような機能はないでしょうか？

例えば __PACKAGE__ を調べようとしても上の４つではだめで、
最終的には perldoc perl の出力を眺めて当たりを付けて、

perldoc perldata

に辿り着きましたが、当たりを付けるまでに手間がかかります。

zsh のマニュアルの man zshall のように、インストールされているすべての
ドキュメントを連結表示するとかでもいいのですが。

130:デフォルトの名無しさん
08/08/17 22:36:17
aaa
aaaa
aaab
aaaaa
aaaab

参考書読んでて、
文字列ソートすると、こういう順番に
なります、と書いてあって、どうしても理解できなくて、
ホームページの正誤表みたら、誤植だった。
ただしくは
aaa
aaaa
aaaaa
aaaab
aaab
だった。なんでbが先にくるかなあ？と
1時間悩んだ。

131:デフォルトの名無しさん
08/08/17 22:48:22
>>129
力技。
find /usr/lib/perl5/5.10/pods -name '*.pod' | xargs grep -i KEYWORD | less
あとはGoogle DesktopやWindows Searchでドキュメントの領域を検索対象にするとか。

132:デフォルトの名無しさん
08/08/17 23:25:23
>>128
なんかすげー難しそう
1行書いたら音が出るみたいのを
イメージしてたんだけど、
HSPとかRPGツクールとかだと
音出すなんて簡単だったんだけど、
Perlでは難しいってことかな？

133:デフォルトの名無しさん
08/08/17 23:31:27
>>131

ありがとうございます。find | xargs grep | less 系のやり方をする
ことにしました。（あるいは同様のコマンド）

134:デフォルトの名無しさん
08/08/17 23:36:25
>>129
これってぼくも誰も作ってないのかなと思ってるんだけど、
やっぱり誰も作ってないのかい。

135:デフォルトの名無しさん
08/08/17 23:43:32
検索してたらこんなものを見つけてしまった

353 名前：名無しさん投稿日：2001/02/08(木) 12:40
Perlで音を出すことって出来ないでしょうか。
処理が終了したときにちーんと鳴らしたいのですが。

URLﾘﾝｸ(www.angelfire.com)

136:デフォルトの名無しさん
08/08/18 00:05:14
>>128
やってみた。
かんたんだった。

use Win32::Sound;
Win32::Sound::Volume('100%');
Win32::Sound::Play("file.wav");
Win32::Sound::Stop();

↑これを書くだけで、できた。
Win32::Soundは最初から入っていた。

137:デフォルトの名無しさん
08/08/18 00:26:36
Win32::MIDIって使い方がよくわからんな。
midiを鳴らすときは、必ずWin32::MIDIでないとだめなの？
それとも、midiもWin32::Soundでいけるの？

138:デフォルトの名無しさん
08/08/18 00:54:45
perlでmidiファイルを鳴らす方法がまじでわからんわ。
midiファイルを指定して、すぐに鳴らすとかできないのかな？

139:デフォルトの名無しさん
08/08/18 01:00:59
>>134
順序が逆だっちゃ。
大量のドキュメントに対して grep などによる全文検索だけでは不便だから perldoc のセクション特定用の各オプションがある。

140:デフォルトの名無しさん
08/08/18 02:04:19
>>139
> 順序が逆だっちゃ。

これは順番の問題ではない。不便な全文検索が問題なら不便でない全文検索が
求められるだけのこと。

141:デフォルトの名無しさん
08/08/18 02:38:01
ま、いずれにせよ、「それを欲しい者がそれを作る」のが基本だべさ。

142:103
08/08/18 04:34:08
>>140
全文検索自体が不便つーことでなく、単純な全文検索だとどこからでもパターンを拾ってきちゃうから、-f だの -q だのがあんだべ、って話。
パターンがどのファイルのどこにあるか知るだけなら find, grep で特に不便もないし、それ用の Perl スクリプトを書いても2分てとこだろ。

143:デフォルトの名無しさん
08/08/18 04:37:30
>>142
> パターンがどのファイルのどこにあるか知るだけなら

そんなのじゃ不便過ぎるだろ。

144:デフォルトの名無しさん
08/08/18 07:43:42
不便に思ったことないんだがどんな使い方がしたいんだ？

まさか初めてのPerlすら持ってない奴の戯れ言じゃないだろうな……

145:デフォルトの名無しさん
08/08/18 07:49:29
子供はHSPでも使ってろ

HSPには可変長配列は無いがな！！（まさに外道）

146:デフォルトの名無しさん
08/08/18 12:55:44
アセンブリを外道と言うな。

147:デフォルトの名無しさん
08/08/18 15:27:11
夏だなあ

148:デフォルトの名無しさん
08/08/18 15:43:15
確実にここではないと思うのですが、どこなのか分からなくてスミマセン。

perl書くときに $ とか %#"'() など良く打つと思いますがshift押さずに入れるように
するようなソフトや方法はありますでしょうか？

数字はテンキーがあるのでキーボードの1～9の範囲は全部記号にしたいのですが。

149:デフォルトの名無しさん
08/08/18 16:39:16
>>134
もう数年前になるけど、大学の研究室に、Perl関係のドキュメントを
インクリメンタルに全文検索でひけるソフトがあった。

Rubyで書かれていたけどw

150:デフォルトの名無しさん
08/08/18 17:10:00
active perlでのforkについてです

子プロセスの上限を決めてforkで処理するのに、
pidをpushしていって、上限を超えたらいちばん古い子プロセスをwaitpidしていますが、
たまたまそいつが遅いと他のプロセスはとっくに終わってるのに先頭のを待ち続ける、
というはめになります

pidのリストのうち、どれか一つ終わったら、という処理をさせるには
どうすればいいですか

151:デフォルトの名無しさん
08/08/18 17:31:18
>>150 $SIG{CHLD} じゃダメ?

152:デフォルトの名無しさん
08/08/18 17:31:28
>>150
っ[Parrallel::ForkManager]

153:デフォルトの名無しさん
08/08/18 17:51:40
>>148
スキャンコードをリマップすることにより可能。
方法は OS 等により異なる。使用 OS の板・スレで聞くといい。

154:デフォルトの名無しさん
08/08/18 18:05:26
㌧
勉強してみます

155:デフォルトの名無しさん
08/08/18 18:05:41
154=150

156:デフォルトの名無しさん
08/08/18 18:41:09
WAVEを鳴らすのは、カンタンにできたんだけど、
midを鳴らす方法がわからない。
MP3については、mediaplayerなんとか、っていうモジュールを
使えばいいみたいなんだけど、ppmでダウンロードのリストに入ってない。

157:デフォルトの名無しさん
08/08/18 18:43:28
数字をランダムジェネレートして、
アルファベットの小文字と大文字
a-z,A-Zにchrを使って変換して表示する
プログラムを作ろうと思ったんだけど、
65-120だと、まんなかに、余計な記号が入ってしまう。

この場合、if 95<x<98 then　redo
でいいのかな？
もし記号の数字だったら、ルーレットをまわした結果を
破棄して、もう一度ルーレットをまわすって言う。

158:デフォルトの名無しさん
08/08/18 18:45:00
ようは、randで、65-95、かつ95-120の数字がほしい、
って指定できればいいんだけど、できないんだよね。

他の言語だとできるの？

159:デフォルトの名無しさん
08/08/18 18:46:09
>>158
まちがえた。

○ようは、randで、65-95、かつ98-120の数字がほしい、

160:デフォルトの名無しさん
08/08/18 19:19:20
>>157 発想を変えてみる
@str = (a..z,A..Z);
print $str[rand(@str)];

161:デフォルトの名無しさん
08/08/18 20:25:45
>>160
なんもプリントされないんだけど。

162:デフォルトの名無しさん
08/08/18 21:08:40
こうですか？

$x = int(rand(52));
print chr(($x + ($x % 2) * 63+ 130)/2);

163:デフォルトの名無しさん
08/08/18 21:17:41

my $a;

do {
$a=int(rand(123-65)) +65;
say "fault!";
} while ($a<=96 or $a>=91);

print $a;

↑これやると無限ループになる。なんで？

164:デフォルトの名無しさん
08/08/18 21:20:53
>>163
自己解決した。
orじゃなくてandだった。

こんな難しいバグも一人でデバッグできるオレ様の単価は
120万円/月くらいですか？

165:デフォルトの名無しさん
08/08/18 21:29:18
my $a;
my $b;
for ($b=1;$b<=8;$b=$b+1){
do {
$a=int(rand(123-65)) +65;
} while ($a<=96 and $a>=91);

print chr($a)," ";
}

↑やったーパスワード発生器できたよー

166:デフォルトの名無しさん
08/08/18 21:34:31
system q|cls|;
my $a;
my $b;
for ($b=1;$b<=8;$b=$b+1){
do {
$a=int(rand(123-65)) +65;
} while ($a<=96 and $a>=91);

sleep(0.5);
print chr($a)," ";

}
print "\n";

↑こっちのほうが、ちょっとかっこいいかな？

167:デフォルトの名無しさん
08/08/18 21:46:46
今、考えてるのは、
配列に、３つの要素が入ってるとして、
その３つの要素を連結して、一つの文字列にして、
スカラー変数にいれるということ。

@a=('a','b','c')
だとして、
$b="abc"
にしたいということ。

自分で考えるから、おまいら、絶対に正答を書くなよ！
いいか、絶対に書くなよ！

168:デフォルトの名無しさん
08/08/18 21:50:53
sub genpass {
　　 my @chars = (0..9, "A".."Z", "a".."z");
　　 join "", map { $chars[rand(@chars)] } 1..8;
}
print genpass(), "\n";

169:デフォルトの名無しさん
08/08/18 21:55:05
>>168
こ、これは、、、
スカウターの数字が、、、
パールレベル１２を超えてるだと？！

次ページ