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

Perlについての質問箱 ..

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

384:デフォルトの名無しさん
 07/04/28 00:39:19 
>383 
cpanシェルでupgrade

385:378
 07/04/28 01:18:47 
Perlに限らないけど、プログラミング言語の仕様として存在する演算子や記号は検索しづらいよなあ。

386:デフォルトの名無しさん
 07/04/28 03:22:17 
不満を抱えるものが改善する。それが基本である。

387:デフォルトの名無しさん
 07/04/28 05:09:49 
でもそれを誰かが改善したらPythonっぽい何かになるからPythonでいいよねｗ

388:デフォルトの名無しさん
 07/04/28 17:56:47 
比較演算子は記号じゃなくて文字列にすりぁいいんだよな 
Pealのeqとかみたいにさ

389:デフォルトの名無しさん
 07/04/28 19:26:07 
>>380 
なったと言っても数年前からだよ。 
今頃騒いでるやつらはアンテナが低すぎると思ったのだった。

390:デフォルトの名無しさん
 07/04/29 01:57:47 
struct { 
　char len1; 
　char word1[len1]; 
　char len2; 
　char word2[len1]; 
　char len3; 
　char word3[len1]; 
} 
 
みたいな構造の可変長のバイナリなデータがあるんですが、 
これをperlで綺麗でかっこよく展開する方法ってないですか？ 
 
今は下のようなことをしてるのですが、なんか見辛いし汚いので… 
 
$data = "\4ABCD\3EFG\7HIJKLMN"; 
 
($len1,$data) = unpack("Ca*",$data); 
($word1,$data) = unpack("a${len1}a*",$data); 
($len2,$data) = unpack("Ca*",$data); 
($word2,$data) = unpack("a${len2}a*",$data); 
($len3,$data) = unpack("Ca*",$data); 
($word3,$data) = unpack("a${len3}a*",$data); 
 
print "$word1\n$word2\n$word3\n";

次ページ