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

質問者の意図と関係ないけど $a を見るとシステム利用されそうだなと感じる

#「変数名」の話だよね？コメントの行の書き方では無いよね？
「ハンガリアン記法」<- ぐぐれ
とか書き方はあるにはあるよ。

>>952
$aは$[や$\と同じで特殊変数だから本来の用途以外に転用するのはよくない。

コメントの行の話じゃないのか？
「ついでに変数名も」っていう風に読み取れなくは無いけど
変数名の付け方ならぐぐれば一杯出てくるはず

あと$aって特殊変数だったのか、知らなかった

なんで sort を思い浮かべたこっちにレスついたんだろう。
お題はコメント行のほうなんだと思いますよ。矢印で指定されてる箇所。

>>924
配列変数はスカラーコンテキストにおいて個数を返す。
一般的な方法 -> shiftとか添え字とかなんか

>>934
真を返すだけなので正しいとか別に。最後なのでセミコロンは省略できる。
全角で書かくと文字コードが違います。気持ち悪いです。

>>946
strictの仕様をよく読むよろし。
あと初期化じゃなくてただの宣言でいい。

>>947
printの中とか何か問題とか意味がわからないけど、
ダブルクウォートコンテキストに置いてはデリファレンスが優先される。

>>953
コメントの行の書き方です。
日本語だったら自分でも考えられるのですが英語はどうも苦手で。
variablesとかsetupとかdifineとかいろいろあるのですが
プロのみなさんの間では何が一般的なのかな〜と思って質問してみました。

>>957

->
をかくと、こっちはただの矢印の意味で
表示させたいだけなのに、perlﾀﾝが勝手に
特殊な意味で受け取ってしまうのではないか？
と心配なのです。

デレファレンスがこの場合、可能性があると
いうことですか？

>>950
日本語で書けばいいじゃん

>perlﾀﾝが勝手に
Perlは特定の誰かに合わせて仕様を変えない仕様で、調べてもらうことを前提に作られてます。
せっかくデリファレンスという餌を与えられたのに。。。

Perlだけじゃないけど、
文字コードの日本語まわりの処理ってなんでこんなにクソなの？
マジでいい加減にしろよ。クソ野郎。
誰の責任だよ。出てこい。一発殴らせろ。

つ JIS , NEC , M$ , IBM。
あと、UNICODEコンソーシアムでまともな提言も出来ずに支那文字、チョン便所文字と一緒くたにされた日本のヘタレ研究者。

>>958
h2xs -X モジュール名
で拡張モジュールの雛形を作ってくれるので、それを見てみれば?
あんまり参考にならないかもしれないけど。
(というか、>>958のような区分にはなってない)

>>958
> 英語はどうも苦手で。
> difineとかいろいろあるのですが
なにげにワロタ

和んだ

和んだ

ワンダ - モーニングショット

>>962
英語圏でないって時点で、プログラミングのハンデがあるのは仕方ないよ。
日本人はプログラミングの本道とは外れたしょーもない部分で引っかかって生産性を損失してる部分が多すぎる。

requireのファイルの最後に、１を書かなくても
動いたのですが、これって書かなくてもいいってこと？

””ダブルクオーテンションの中で、
->という記号を安易に使ってもいいの？

それともだめなの？

>>970
最後に書いた文が式でその値が真なら動くよ。

初期化の成功失敗を伝えるために積極的に値を出し分けているんじゃなければ
最後に1;と書いといたほうが安心だし余計なところに頭を使わないですむので
みんなそうする習慣になっているというだけの話です。

>>971
安易に使うのはいかなる場合でも感心しないな。

% perl -e '$x->{foo}="hoge"; print "$x, $x->{foo}, ${x}->{foo}, ->$x->{foo}"'
HASH(0x934e880), hoge, HASH(0x934e880)->{foo}, ->hoge

>>973
半角スペースを開ければ問題ない？

- >

みたいな。
ようはデレファレンスとして解釈されてしまうんでしょう？
こっちは矢印記号として使いたいわけですが。

>>972
でもさ、requireで呼び出して使う場合もあるし、
呼び出さないで単独でファイル単体で実行させたい
場合もあるし、単独で使う場合って、ファイルの最後に
１；
を書いておいても、なんら問題はないの？
余計な記号があると心配じゃん。

数字を読み込んで、それをキャラクターにする
プログラムを組んでみようと思って、こう書いたんだ。

use warnings;
use strict;

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;


for ($a=0;$a<=100;$a=$a+1){

say $a." ".chr($a);
}

そしたら、DOSプロンプトに出力するバージョンは、うまく動いた。
そんで、こんどは、テキストファイルに出力してみようと思ったのさ。
そんで、次のコードを書いた。

use warnings;
use strict;

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;
open (FILE,'> abc.txt') or die "$!";

for ($a=0;$a<=100;$a=$a+1){
say FILE $a." ".chr($a);
}

close (FILE);

そんで、できあがったabc.txtを、サクラエディタで、
utf-8で開いてみた。そしたら、文字番号０〜３２までが、
空白で、表示されてないのさ。

一方、DOSプロンプトに出したときは、文字番号０〜３２も
変な記号でいろいろ出ていたのに。なんで？

また新しいゲームのアイデア思いついたよ

配列Aを出して、mapで変換して、配列Bを表示する。
そんで、変換のロジックはブラックボックスにしておいて、
AとBだけを見せて、変換ロジックを推定する。

あたれば、得点。こういうゲーム。

Perlの初心者です。教えてください。文字コードの問題です。

# test for ActivePerl 5.8.8
use LWP;
my $m =LWP::UserAgent->new;
my $w = $m->get("http://www.2ch.net/");
print $w->content;

を実行すると表示できます。2chのcharsetはsjisで$w->contentは
sjisを返します。次にuse encoding文を付け加えます。

# test for ActivePerl 5.8.8
use encoding 'cp932';
use LWP;
my $m = LWP::UserAgent->new;
my $w = $m->get("http://www.2ch.net/");
print $w->content;

これは文字化けして表示できません(エラーも起こします)
$w->contentは相変わらずsjisを返してきます。
print文はsjisにもかかわらずutf8からsjisへ変換しようとして
エラーを起こすようです。

質問は
$w->contentがutf8を返すようにできないかというものです。
言い換えるとLWPのオブジェクトの文字列の保持をutf8とするように
設定できないかということです。
よろしくお願いします

>>980
conentはバイト列という決まりなのだが、君のような人のためにdecoded_contentというのが用意されている。
perldoc HTTP::Message参照

>>978
>できあがったabc.txtを、サクラエディタで、
>utf-8で開いてみた。

サクラエディタって使ったことないけど、ファイル開くたびに
文字コード指定するの？それなら、sjis で開かないとダメじゃん。
utf-8にしたいなら、
binmode STDOUT => ":encoding(cp932)";
の行を削除。

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

# test for ActivePerl 5.8.8
use Encode;
use LWP;
my $m =LWP::UserAgent->new;
my $w = $m->get("http://www.2ch.net/");
print encode('cp932', $w->decoded_content);

\x00-\x1F と \x20 の表示に CP932 やら UTF-8 は関係あるのか

>>982
なんで？
Windows上で、
perlから、txtファイルに出力すると、
絶対シフトJISになっちゃうの？

だから、シフトJISと指定して読み込まないと
だめなの？

binmode STDOUT => ":encoding(cp932)";

↑もしかして、これって、シフトJISで出力する、って意味だったの？
だからDOS窓では問題なく出力できてたの？

なんか、ここって質問の半分くらいが文字コードの問題だなｗ

全部同じ奴じゃねえの。文体的に

>>4入り 5.10 の人とほかの人は区別したい。いちおう。

次スレの旬が近そうなので逝ってきます。

>>978
サクラエディタが制御文字を表示してないだけでないの？

次スレでございます。
Perlについての質問箱 37箱目
http://pc11.2ch.net/test/read.cgi/tech/1218449440/

　　　　　　　　　　　 __、
　　　　　,r´⌒ヽ,⌒ヽ,ヽ
　　　(⌒)､　　 .人　 λ＼､ .＿＿___
　　　 ＼. ＼　　　　、　ヽ.／ ー 　ー＼
　　　　 |＼　＼ 　 　ヽ.／　（ ●）　（ ●）
　　　　 |　 ＼　 ＼　／　　　　　（__人__） ＼　 はいはい、どーもすみませんでした
　　　　 |.　　 ＼　 　|　　　　　　　｀ ⌒´ 　　|
　　.　　 |.　　　|.＼_ノ＼ 　　　　 　　　　　　/
　　.　　 |.　　　|　　 | 　 ＼＿＿＿＿＿_／
　　.　　 |　　　)　　.|　 　　　.　.￣￣
　　.　　 |　　　|　　.|
　　　　　|　　 |.|　 .|
　　.　　　|　　| .|　.|
　　　　 ／ 　/ /　ヽ,
　　　　(＿_ノ　 ヽ、__つ

　　　　　　　　　　　　　　コロコロー　(((●
　　猫マナー猫マナー猫マナー猫マナー猫マナー猫マナー
　 猫マナー猫マナー猫マナー猫マナー猫マナー猫マナー
　猫マナー猫マナー猫マナー猫マナー猫マナー猫マナー

　　　●)))　コロコロー
　　ーナマ猫ーナマ猫ーナマ猫ーナマ猫ーナマ猫ーナマ猫
　　 ーナマ猫ーナマ猫ーナマ猫ーナマ猫ーナマ猫ーナマ猫
　　　ーナマ猫ーナマ猫ーナマ猫ーナマ猫ーナマ猫ーナマ猫

　　　　　　　　　　　　　　　　コロコロー　(((●
　　猫マナー猫マナー猫マナー猫マナー猫マナー猫マナー
　 猫マナー猫マナー猫マナー猫マナー猫マナー猫マナー
　猫マナー猫マナー猫マナー猫マナー猫マナー猫マナー

いきなり氏ねって、どういう事ですか？君には社会の常識がないのですか？
普通は、『あのう、すいませんけれども氏んでくれませんか？』とか
『あなたはには、氏ぬという選択肢もありますよ』とか言うものですよ、
あなたみたいに最初から喧嘩腰だと、
言われた方は『じゃぁ氏んでみようかな』とかいう気持ちがなくなるものです。
まずは、親切丁寧に人に氏んでと頼むべきだと思いますよ。
そこから、人の輪と協調が生まれ、『よーし氏んでみるか』とか
という気持ちが生まれるわけです。

　　　　　　　　　　　　　　　 /＼＿＿_／ヽ
　　　　　　　　　　　　 　 ／''''''　u ﾟ　'''''':::u:＼
　　　　　　　　　　　　　　|（一）,ﾟ 　u ､（一）､ﾟ.|
　　　　　　　　　　　　　　| 。　,,ﾉ(､_, )ヽ､,, u.:::| 　最新型の扇風機って暑いんだな
　　　　 〃￣ヽ　〜　　　|　u ｀ -=ﾆ=- '　.:。::|　　　　　　なんか、オレンジ色に光ってるし
　　 r'-'|.|　 O |　 〜　 　 ＼＿ﾟ｀ﾆﾆ´ ＿::::／
　　 `'ｰヾ､＿ノ　〜　　　　／　　ﾟ　u　｡ ＼
　　　 　 | ,|　　　　　　　　 |ﾟ / ・　 　・ ヽ　|
　　　 　 | ,|　　　　　　　　 |　|　｡　ﾟ　u　|ﾟ |
　　　 　 | ,|　　　　　　　 　＼＼=====／ノ
　　　,-/￣|､ 　　 　　　　　 （ｍ）　　（ｍ）
　　　ｰ---‐'　　　　　　 　 （＿＿）（＿＿）

　　　 ＼ ポーニョ ポニョ ／ |＼
　　　　　　　　　 ポニョ.　　　 |　|＼
　ウ…ウーン… ∧＿∧　　 |　|　 ＼
　　　＿＿_ 　＿∩∀ﾟ∩)　　|　|　　　|
　　　|　__　（ ；´д｀）￣|ヽ）　|　|　　　|
　　　|＼⌒⌒⌒⌒⌒⌒＼　 ＼|　 　 |
　　　＼ ＼ 　　　　　 　　　＼ 　＼　 |
　　 　　＼ ＼　 　　　　　　　 ＼ 　＼|
　　　　　　＼ ＼|⌒⌒⌒⌒⌒⌒⌒|
　　　　　　　 ＼ |＿＿＿＿＿＿＿|


↓翌日の頭の中

ﾎﾟｰﾆｮﾎﾟｰﾆｮﾎﾟﾆｮ::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::ﾎﾟｰﾆｮ:::::::::::::::::::::::::::
:::::::::::::::(>'A`)>　ｳﾜｧｧｧｧ　:::::::
:::::::::::::::( へへ :::::::::::::::::::::::::::::::::
:ﾎﾟｰﾆｮ:::::::::::::::::::::::::ﾎﾟｰﾆｮ::::::::::::::::::::::::::
::::::ﾎﾟｰﾆｮ:::::::::::::::::::::::::::::::::::::::::::::::::::

おちんちんのエラの部分に、ちいさいギザギザがあるんですが、
これって何かの病気ですか？
医者に診せたほうがいいでしょうか？

教えて良かったと思えるのは幸せなのだと噛みしめる今日この頃。だから、

>>997 は女医に診せてサマリ提出汁。

あづいよう

http://file1.heiwaboke.com/blog/img/2007/10/12/01-0636.jpg

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。