[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 2chのread.cgiへ]
Update time : 07/03 13:37 / Filesize : 153 KB / Number-of Response : 618
[このスレッドの書き込みを削除する]
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧] [類似スレッド一覧]

↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

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

1 名前：デフォルトの名無しさん mailto:sage [2008/01/11(金) 00:07:22 ]
"The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、Perlの奥深さについて皆で語り合い、追求してまいりましょう。

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

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

ttp://www.perl.org/get.html
● 2008/01/11現在の最新版: 5.10.0
● 2007/01/11現在の開発版: 5.9.5

前スレ
Perlについての質問箱 33箱目
pc11.2ch.net/test/read.cgi/tech/1192463997/

リンク集は>>2-3
過去スレは>>4 あたり


369 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 09:14:46 ]
比較で一致しないのはなぜ？ 整数だと一致するし、直接比較しても一致する。 $b = $b+0.1;
がみそ？

$a = 5.5;
$b = 4.5;

for($i = 0; $i< 11 ; $i++)
{
if($a == $b)
{
printf("match :");
}
else
{
printf("unmatch :");
}

printf( "%2.2f %2.2f \n",$b,$a);

$b = $b+0.1;
}

結果

unmatch :5.40 5.50
unmatch :5.50 5.50 　　（-　一致しない

370 名前：デフォルトの名無しさん [2008/02/09(土) 09:24:45 ]
>>369
異なる値が一致しないのは当然。

371 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 09:50:00 ]
浮動小数点を==で比較してはいけない。プログラミングの常識。

372 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 09:51:09 ]
差の絶対値がある閾値より小さいかどうかで調べるよね。

373 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 09:58:13 ]
へーそうなんだ。整数しか使ったことがないから知らなかった。
369じゃないけど勉強になったわ。

374 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 10:12:53 ]
cygwinのPerlだと
perl -e '$A=5.5;$B=5.500000000000001;print "match\n"if $A eq $B'
これがイコールになっちゃうみたいですね

375 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 11:18:45 ]
浮動小数点表現では0.1が循環小数になる。
(だからお金の計算に浮動小数点使っちゃだめ)

376 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 12:02:59 ]
>>374
eqの意味知っていて意図的に使ってるの?

377 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 14:08:21 ]
>>374
こりゃ便利だな。



378 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 17:17:17 ]
>>371
FAQのようですね。確かに今回初めて浮動小数点の比較を使ったんだけど、知らなかった。

379 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 17:29:41 ]
>>378
> FAQのようですね。

ちゃう。ちゃんとした教育を受けた人なら、質問を出す前に教わるくらいの事柄。



380 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 17:32:41 ]
>>375
じゃあ、お金の計算には何使えばいいんだ？
利息計算とかでいやでも小数使うと思うんだが。

381 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 17:40:17 ]
10進浮動小数点数

382 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 17:45:35 ]
>>379
スマソ。
教育は受けてない。


383 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 17:49:14 ]
Perlの場合はBigDecimalだったっけ?

384 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 18:20:08 ]
>>380
例えば消費税なら価格に5かけてから100で割る。
要するに細かい計算は整数で計算する。

385 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 18:50:44 ]
それでは、コボラーさんどうぞ
↓↓↓↓↓↓↓↓↓↓↓↓↓↓

386 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 18:52:56 ]
固定小数点という便利な言い方があると思うんだが（笑）


387 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 19:02:22 ]
固定小数点でも底が2なら0.1は表せないだろ。



388 名前：デフォルトの名無しさん [2008/02/09(土) 20:29:27 ]
ある既存のシステムからもらってきたデータの中に４バイトの単精度実数が入ってるんです。
それを受け取りたいんですが、画面表示すると丸め誤差ってヤツ？が出てしまうんです。
ためしにやってみたこと

$x=pack('f', 123456 ); $y=unpack('f', $x); print $y,"\n";
$x=pack('f', 0.05 ); $y=unpack('f', $x); print $y,"\n";
$x=pack('f', 0.0000001); $y=unpack('f', $x); print $y,"\n";

結果
123456
0.0500000007450581
1.0000000116861e-007

元の数字に戻すには、どうしたらいいですか？

389 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 20:32:19 ]
>387
「固定少数点」でググれ

390 名前：デフォルトの名無しさん mailto:sage [2008/02/09(土) 20:34:52 ]
>388
精度を指定すれば?

391 名前：386 mailto:sage [2008/02/09(土) 20:36:48 ]
>387
すまん、>384への補足のつもりだったんだ


392 名前：デフォルトの名無しさん [2008/02/09(土) 20:52:05 ]
>>390
精度の指定の仕方を教えてください。

393 名前：デフォルトの名無しさん mailto:sage [2008/02/10(日) 00:44:37 ]
>>388
$x=pack('f', 0.0000001 ); $y=unpack('f', $x); ($z = sprintf("%.7f\n", $y)) =~ s/\.?0*$//;print $z;

394 名前：デフォルトの名無しさん mailto:sage [2008/02/10(日) 16:23:05 ]
標準入力を待つため以下の様に書いたがうまくいきません。
何がまずいのでしょうか。ActivePerl5.8です。

use IO::Select;
$sel = IO::Select->new;
$sel->add(\*STDIN);
while(1){
print "can_read\n";
@a = $sel->can_read;
foreach $fh (@a){
if($fh == STDIN){
print "STDIN\n";
}
exit;
}
}

395 名前：デフォルトの名無しさん mailto:sage [2008/02/10(日) 16:51:18 ]
>394
perlport より
>select
>Only implemented on sockets. (Win32, VMS)

396 名前：394 mailto:sage [2008/02/10(日) 18:23:33 ]
>395
そう言う事かー。納得しました。ありがとうございました。

397 名前：デフォルトの名無しさん [2008/02/11(月) 02:25:54 ]
現在、与えられた文字列を読み込み、それを元にHTMLを出力するプログラムを作成しています。
与えられた文字列の中に特定のキーワードを見つけると、それをリンクに変換するようにしたいと考えています。

例：
　　[google:hoge]　→　<a href="www.google.co.jp/search?q=hoge">Googleでhogeを検索</a>
　　[mixi:xxxxx]　 →　<a href="mixi.jp/show_friend.pl?id=xxxxx">mixi</a>
　　xxx.xx　→　<a href="xxx.xx">xxx.xx</a>

こういった置換を行うコードを1つずつ書くのではなく、
例えば、以下のような置換パターンをセットしたハッシュを用意しておき

　　%hash = (
　　　　'\[google:\w+\]'　=>　'<a href="www.google.co.jp/search?q=$1">Googleで$1を検索</a>',
　　)

forやforeachで回しながら自動的に置換したいのですが、どのようにすればよいでしょうか。
（エンコードとかは考えない方向で）

　foreach my $key (keys %hash)
　{
　　　$input_str =~ s/$key/$hash{$key}/g;
　}

とやった場合、変換後の文字列の中に「$1」そのものが入ってしまいます。




398 名前：デフォルトの名無しさん mailto:sage [2008/02/11(月) 02:29:35 ]
$input_str =~ s/$key/$hash{$key}/gee;

できるかは知らん


399 名前：デフォルトの名無しさん mailto:sage [2008/02/11(月) 10:43:55 ]
>>397
クロスサイトスクリプティングって知ってるか?
素人のCGI作成は法律で禁止して欲しい。

400 名前：デフォルトの名無しさん mailto:sage [2008/02/11(月) 11:28:03 ]
>>397
答えそのものは書かないけど、以下のことが必要。
'\[google:\w+\]'の部分は'\[google:(\w+)\]'でしょうね。そうしないと
$1で受け取れないから。
置換をするなら、
$input_str =~ s/$key/conv($1, $hash{$key})/eg;
などとしておいて、
sub conv {
    my ($word, $str) = @_;
    $str =~ s/\$1/$word/g;
    $str;
}
などとでもしておくとか。
で、
URLのクエリー部分に仕込む文字列はURIエスケープが必要。
そんで、マルチバイトの場合、どの文字コードにしてからエスケープするかも
考える必要あり。
さらに、<a>と</a>の間の文字列に使用するときはサニタイズ処理が必要(XSS対策)。
>>398 の方法だと、perlコードをそのまま解釈してしまうので、別の危険あり。
「与えられた文字列」は誰が与えるのかがとても大きな問題です。
URLにリンクを張るのは、大崎氏のPerlメモが使えると思います。

401 名前：デフォルトの名無しさん mailto:sage [2008/02/11(月) 11:57:26 ]
>399
もちろん知ってます。
置換条件と置換パターンを配列などに保持しておく（または外部から読み込む）という考え方自体が
セキュアではないということでしょうか？

>400
( )で括って無かったのは書き込み時のミスです、すみません。
手元のソースでは書かれてたんですが、適当な条件に直すときに忘れてしまったようです。





402 名前：デフォルトの名無しさん mailto:sage [2008/02/11(月) 12:22:23 ]
置換パターンにperlの$1を流用しようとしてるところがセキュアでない。

'<a href="www.google.co.jp/search?q=${1:urlencode(utf8)}">Googleで${1:htmlsafe}を検索</a>'

とかして、これを解釈するようにすればよい。

403 名前：デフォルトの名無しさん mailto:sage [2008/02/11(月) 17:27:17 ]
ありがとうございます。

自分用のツールをさくっと作るつもりだったけど、そこまでやろうとすると手間かなあ。
誰かモジュール作ってるかもしれないけど。

404 名前：デフォルトの名無しさん mailto:sage [2008/02/11(月) 18:12:59 ]
質問です。
'おまんこ'も'おちんこ'もマッチしないのですが、どこか間違いあるのでしょうか？

use strict;
use warnings;
use utf8;
binmode STDOUT, ':utf8';

while (my $str = <STDIN>) {
chomp($str);
last if ($str eq 'end');
if ($str =~ /お.んこ/) {
print "$& --- マッチしたお\n";
} else {
print "マッチしないお\n";
}
}


405 名前：デフォルトの名無しさん mailto:sage [2008/02/11(月) 18:16:55 ]
binmode STDIN, ':utf8';

追加したらマッチしますた。

406 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 05:34:25 ]
質問です。

use Encode;
binmode STDOUT, ':iso-8859-1';
open READ , '<:encoding(utf8)', "$ARGV[0]" ;
while (my $data = <READ>){
print "$data";
}
close READ;

exit;

でutf8でencodeされたファイルをiso-8859-1に変換しようとしたら、
標準出力ではうまくいって、リダイレクトすると文字化けしました。

おわかりになる方、いらっしゃるでしょうか。

407 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 05:45:10 ]
lv でみれないだけで、less したらみれました…すいません。



408 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 09:07:43 ]
>>407
lvのほうがlessより優秀ってイメージなんだけど、lvが文字コードを誤判定しちゃったのかな。

409 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 12:12:12 ]
use CGI;
my $delimiter = "\t";
my $q = new CGI;
my $save = $q->param('name') . $delimiter . $q->param('mail');
my ($name, $mail) = split /$delimiter/, $save;

入力はHTMLフォームからを想定しています。
こういった場合に適切なデリミタは何でしょうか。
たまに<>を見かけますが<>を><に変換してる場合じゃないと有効で無いですし
\tは入力が可能、\0は良い方法だと思いますがCGI.pmと衝突します。
\a等が良いのでしょうか。

410 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 12:14:45 ]
× たまに<>を見かけますが<>を><に変換してる場合じゃないと有効で無いですし
○ たまに<>を見かけますが<>を&lt;&gt;に変換してる場合じゃないと有効で無いですし
ミスりました汗

411 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 12:52:41 ]
板違いっぽいがスペースじゃだめ？

412 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 13:13:53 ]
$save の前に入力チェックしてタブ文字を消せばいいだろ

413 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 14:12:21 ]

my $save = join("&&", map { my $i = $q->param($_); $i =~ s/&/&/g; $i } ("name","mail"));
my($name,$mail) =~ map { s/&/&/g; $_ }(split("&&",$save));

414 名前：デフォルトの名無しさん mailto:sage [2008/02/12(火) 18:08:01 ]
>>409
<SOME_UNPREDICTABLE_STRING_XXX> でおｋ

415 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 11:16:04 ]
投資家板で名高いプログラマの書いたコードですが
初心者が多く、下記コードについて評価できません
プロの目から見た下記コードの評価を教えて下さいませ

live27.2ch.net/test/read.cgi/market/1202806626/454

$vict++;
$vict100++;
print $_ ."$riekiプラス！持ち越し成功！\n";
}
if($end < $start2){
$loss=$start2-$end;
$loss=~s/\-//;
$totall =$loss + $totall;
$totall100 =$loss + $totall100;
$lost++;
$lost100++;
print $_ ."$loss マイナス！持ち越し失敗！\n";
}
}



416 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 11:16:34 ]
つづきです

if(($cost < 1000)&&($cost > 300 )){
if($end > $start2){
$rieki=$end -$start2;
$rieki=~s/\-//;
$totalr =$rieki+$totalr;
$totalr1000 =$rieki+$totalr1000;
$vict++;
$vict1000++;
print $_ . "$riekiプラス！持ち越し成功！\n";
}
if($end < $start2){
$loss=$end-$start2;
$loss=~s/\-//;
$totall =$loss + $totall;
$totall1000 =$loss + $totall1000;
$lost++;
$lost1000++;
print $_ . "$lossマイナス！持ち越し失敗！\n";
}


417 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 11:22:13 ]
>>415
前の部分が欠けてて途中からになってるけど…？



418 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 11:35:29 ]
書きかたはまるっきり初心者

処理内容としては
1．コストで場合分け（ここで見えてるのは300から1000まで）
2．スタートとエンドの差をとって，スタートがエンドより低ければ利益，逆なら損害として出力
3．利益または損害をトータルに加算
4．利益の出た回数と損害の出た回数をカウント．コストの範囲ごとにもカウント

なんつうか小学生でも計算できる内容だ

419 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 11:43:46 ]
計算さえ出来ればいいんでしょ？
合ってりゃいいと思うよ

420 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 11:54:35 ]
>>415
軽くスレ読んだが名高いプログラマじゃなくて単に周りに避けられてる面倒くさい人じゃん。
コードは上で言われてるように初心者でも書ける程度のもん。
プログラム書かない人にけん制になると思ったのかもしれんが
こんなの書いて自慢する人より電卓持ってる事務員のがずっとマシ。

421 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:08:22 ]
ちゃんと動いて計算が合ってるならいいんじゃないの？
それ以外に評価しようが無い。

422 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:11:02 ]
「名高いプログラマ」ってとこは確かにどうかと思うコードではあるｗ

423 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:17:13 ]
あっちのことはよく知らないけど，変な演算する能力よりもデータを見極める目のほうが大事なんじゃないの？

424 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:25:14 ]
主婦が、余った材料で栄養バランスの取れた料理を作るようなイメージ。
プロの料理人と比較しちゃいけない。

425 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:27:12 ]
典型的なうんコードだな

426 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:31:07 ]
>>421
あ、ごめん。機能満たすだけなら充分。
でも向こうのでの使い方が目的あって出してるコードじゃなく
素人にコード見せて牽制してるだけだからこんなの自慢にならんなぁって。

427 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:36:31 ]
データを集積して処理するならともかく、この程度のことなら電卓+ノートのほうがいいと思うがな



428 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:40:32 ]
サイタマン　は　やっぱり　うんこだった！

429 名前：415のスレ住人 mailto:sage [2008/02/13(水) 12:41:56 ]
名高いプログラマーというより彼は社長だそうです。
年収3000万だったそうです。
ですからプログラムの内容というよりは
アイデアで儲けている方なのかもしれませんね。
真実が定かでは無いのですが彼がIT企業の社長という点はどう思われますか？

430 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:42:37 ]
>>424
だが余った食材をそのまま食べたほうが味も見た目も栄養も手間も優れていたというパターン
ただの自己満足にしかなってないという…

431 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:43:04 ]
こっちに来られると困るからノーコメント。

432 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:44:33 ]
内容云々じゃなくて、これくらいすばらしいコードを書けるスキルがあれば年収2000万くらいは最低限ある、
という内容のことを言っていたのですが、株板では判断できる人が少なかったので参考になりました。

433 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:45:27 ]
　　　　　　　　　　　＿＿　　　　　　　　♪
　　　ﾖﾎﾎ♪　　　 ＼ 　 ＼　　　　　　　　♪
　　　　　　　　　　　　＼/　 ｀' ==‐‐-- 、　　♪
　　　　　　ξﾐﾐﾐﾐﾐ 　　./＼　　　　　　　 .ヽ,
.　　　　　　｜´_｀| 　/　 .＼　　　　　　　 ,l
　　　　　　　/.__)￣￣￣|￣￣￣￣￣￣|
　　　　　 ～l└‐L、 ＿,==.,―――=,==r′
　　　　　 l~~｀ゝつ.l l |||/ | l´　　　　 　l |
　.　　　　 ´||￣||´ |.|≠　 ||　　　　　 　||

434 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:46:12 ]
>>429
とりあえず
2chに入りびたってコテハンつけてる
そんなIT社長はイヤだ

435 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:46:21 ]
サイタマン社長の名言集です。
どうぞ全部読んであげてください

live27.2ch.net/test/read.cgi/market/1188339064/l50


436 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:46:32 ]
　　　　　　　　　　　　__,,γ⌒ヽ　　　　　　　　　　　　　　　　＿
　　　　　　　　　　 ,,-''", ―‐―ｲ―ュ---､,,,,,,,,,,_　　　　　　　　三＼
　　　　　　　　　／ ∠　　ム＿ゝ三i二二(山山ｱｦ　　　　　 -=　二）
　　　　　　　 γ √　　イ,, -"　　　　　　　　　　　　　　　　　　.三／
　　　　　 　 .ん､_(γ７''"　　　　　　　　　　　　　　　　　　　 ￣
　　　　　　　r㍉,ノ''こ!､,,┴．
　　　　　　　.|　 ‘''く′ ,／ │
　　　　　　　.r'ﾍ,、　 ｀'ｲﾞ＞'"
　　　　　　　.厂|,`'-,,　 .|'ヽ、
　　　　　　　.～へ-―‐＾''ｰ"

437 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:47:22 ]
「○○なら年収○○万くらいは最低限ある」 なんて言い方する時点で中二病
ここは２ｃｈだぞ



438 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:48:36 ]
個人のスレがたってるような奴を信じるなよｗ

439 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:50:03 ]
>>437
投資板はcisっていうイレギュラーの塊のような人が住んでるから
うそつきが住みやすいんですよ

440 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:51:27 ]
コテで自慢する人は注目されたいだけ。

>>435
いりません。お引き取りください。

441 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:51:27 ]
2レス目まで読んだ

Results 1 - 10 of about 1,040 Japanese pages for 金拝主義. (0.21 seconds)
Results 1 - 10 of about 5,450 Japanese pages for ボラリティ. (0.14 seconds)
Results 1 - 10 of about 3,130,000 Japanese pages for シュミレーション. (0.10 seconds)
Results 1 - 7 of 7 Japanese pages for イートレイドワラッパー. (0.35 seconds)
プロフィールをていぞう
愚かの骨頂

個性的な語彙を持ってることはわかった

442 名前：デフォルトの名無しさん [2008/02/13(水) 12:51:45 ]
サイタマン社長はゴールドカードもupしてるし
信じたいんですがやっぱり嘘なのでしょうか。
客観的に見てあのくらいのプログラムが書ければ年収二千万はいけるのでしょうか

443 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:53:43 ]
>>442
すでに必要な情報は提示されてる。あとは自分で考えれ。
ここは２ｃｈだぞ。

444 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:55:09 ]
おー。変数名に数字つかうってスゴいセンスだな。
でどこの幼稚園の子供よ？

445 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:55:13 ]
これだけ持ち上げられるってことはなにか持った奴なんじゃない？

446 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:57:50 ]
どうやら面白ワード生成機として有名みたいだな。

447 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 12:59:57 ]
サイタマン先生の今までupした物は
200万円くらいのお金と60万円の証券会社の口座と
ゴールドカード4枚ですね。
プログラムのｽｷﾙでよく株のツールなどを作ろうかなどと言ったりします



448 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 13:12:34 ]
>>447
なんだかんだで君も彼にぞっこんっぽいなｗ

449 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 13:14:02 ]
>>446
2ch語を適当に組み合わせるしか脳のない「普通の厨」なら、
似たようなクオリティの人工無能も書けるかもしれないけど、
天然素材は模しようがないなｗ

450 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 13:19:08 ]
>>449
実は本人はスーパーハカーで，2chに書き込んでるのはサイタマンに作られた人工知能なんじゃないか…
そしてあのコードも学習して自動生成されたんじゃないかと妄想してみたwww

451 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 13:29:30 ]
>>447
ゴールドポイントカードならぼくも持ってるよ。

452 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 13:33:07 ]
ま、スレ違いだから去れ

453 名前：デフォルトの名無しさん [2008/02/13(水) 15:54:58 ]
aaa1 aaa2 aaa3 aaa4 というファイルがあったときに
通番どおりに結合して1つの出力にする上手い方法ありませんでしょうか？

454 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 15:59:00 ]
cat 呼び出す

455 名前：453 mailto:sage [2008/02/13(水) 18:25:02 ]
>>454
ありがとうございます。
catは盲点でした。無事解決しました。



456 名前：デフォルトの名無しさん [2008/02/13(水) 18:31:44 ]
配列のなかに配列を複数持っている場合
それらをうまく結合する手段ってないでしょうか？

具体的には以下のような感じです
@array[1] = {aaa, bbb}
@array[2] = {ccc, ddd}
@array[3] = {eee, fff}

このとき、一つの変数にまとめて
{aaa, bbb, ccc, ddd, eee, fff}
となるようにしたいです。

申し訳ないのですが、知恵を貸してください。

457 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 18:46:13 ]
544 ：デフォルトの名無しさん：2007/05/12(土) 02:54:05
深さのある配列を左から順番に呼んでフラットな配列を作りたいんですが、
よい方法ご存知の方いませんか
@a = ([1,2,3], [4,5,6], [[7,8],[9,0]]);
@b = flatten(@a); # 1,2,3,4,5,6,7,8,9,0

546 ：デフォルトの名無しさん：2007/05/12(土) 03:16:52
>>544
sub flatten(@) { map { ref $_ eq "ARRAY" ? flatten(@$_) : $_ } @_ }

こんなんどうよ。




458 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 19:26:12 ]
>>457
456です、回答ありがとうございます。
しかしながら、私が挙げた例の場合にはどのように用いればよいか分からず困っています。

ヒントだけでもいただけないでしょうか？

459 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 19:29:20 ]
{}はハッシュだろ

460 名前：デフォルトの名無しさん mailto:sage [2008/02/13(水) 19:31:12 ]
>>459
理解できました、ありがとうございます！

461 名前：デフォルトの名無しさん mailto:sage [2008/02/14(木) 00:42:53 ]
Pgを使って(DBIじゃなく)複数スレッドから同時にDBアクセスを使用と思います。
DBへの接続は各スレッドで行います。
Perl自体はスレッドに対応していても、関連モジュールとかの対応状況がわかりません。
バージョンは以下の通りです。
Perl 5.8.8
libpg 2.1.1
PostgreSQL 8.1
ディストリビューションは、Debian etchです。
スレッドの方が子供の面倒が見やすそうなので、できればスレッドにしたいのです。


462 名前：デフォルトの名無しさん [2008/02/14(木) 01:19:43 ]
で、自分では試したくないので、だれかヒマなヤツ、オレのかわりに試してくれんか。
オレは家でゴロゴロしてアニメ観るのに忙しいから。

・・・とか？

463 名前：デフォルトの名無しさん mailto:sage [2008/02/14(木) 01:27:23 ]
いえ、アニメじゃないです。　アニメの実写劇場版です。

464 名前：デフォルトの名無しさん mailto:sage [2008/02/14(木) 21:24:49 ]
>>462
せっかくぼけてくれたところをマジレスすると、試して問題なかったからと言って、スレッドに対応しているとは限らないから困ってるんです。
たまたま動いているだけってことがあるし。

465 名前：デフォルトの名無しさん [2008/02/15(金) 09:03:33 ]
perl5.10が普及するのっていつごろ？

466 名前：デフォルトの名無しさん mailto:sage [2008/02/15(金) 22:25:02 ]
>>464
その当たりの情報は、ソースやリリースノートを追うしかないと思う。
やたら古くてあまり参考にならないけど
tp://homepage3.nifty.com/hippo2000/perltips/DBI/FAQ.htm#5_1_Can_I_do_multi_threading_wit

467 名前：デフォルトの名無しさん mailto:sage [2008/02/16(土) 02:06:19 ]
ActivePerlの5.10の最新版（ほかいくつかのバージョン）で、
ppm search (モジュール名)
でモジュールをネットから探してくれないのですが、
何か指定が必要でしょうか。




468 名前：デフォルトの名無しさん mailto:sage [2008/02/16(土) 02:59:34 ]
>>467
5.8 と5.10ではバイナリ互換性がないので、単に5.10向けにビルドしたのがないと思われる。


469 名前：デフォルトの名無しさん [2008/02/17(日) 01:17:31 ]
winで、perlからmysqlを使っているのですが、
insert into a(a) value("あ");
コマンドラインで打つとうまくいくのですが、perlのDBIではうまくいきません。助けてください。

470 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 03:10:36 ]
>>469
向こうの(mysql)スレでも言われているように、mysqldのdefault-charsetは確認したか？

471 名前：デフォルトの名無しさん [2008/02/17(日) 09:58:05 ]
はい、sjisになっていて、win なのでPerlで書いているソースもそうじゃないかと。

472 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 11:02:29 ]
>>471
ほんじゃ、unpack()つかって、バイナリの並びを表示して確認してみるとか？


473 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 11:04:16 ]
>471
最近の Perl は内部 UTF-8 だべ。

474 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 12:00:13 ]
>>471
>>470で聞いたのは、mysqldの’connect’と’client’のcharsetのこと。

mysqldのversionを明記してないけど、多分4.1か5.0だと仮定して、
perl-DBD-mysqlで接続したときの、default-charsetがちゃんと’sjis’なり’cp932’になってない。
(mysqldとDBD-mysqlを自前でコンパイルしてない限り)

つうことでそこを確認、変更しましょう。
ちなみに>>469で書いてるみたいに、コマンドラインのmysql.exeからLoginして確認した
’charset’関係は、あくまでもコマンドラインのmysqlからの接続時のみに効いてる状態なんでそれとは別。

475 名前：デフォルトの名無しさん [2008/02/17(日) 13:47:20 ]
>>469
insert 以前にさ、select はうまくいくの？
初心者なら、簡単な事からはじめてみよう。

use utf8;
use DBI;
my $db = DBI->connect("DBI:mysql:以下省略・・・
  $db->do('SET NAMES UTF8');

$id = 1;
my $sql = "SELECT name,address FROM members WHERE id=$id;";
my $sth = $db->prepare($sql);
 $sth->execute or die DBI::errstr;
 $sth->bind_columns(undef, \(my($M_name,$M_address))) or die DBI::errstr;

my $rc = $sth->fetch();
 utf8::decode($M_name);
 utf8::decode($M_address);

insert はこの逆をすればいいだけ。

476 名前：デフォルトの名無しさん [2008/02/17(日) 16:29:46 ]
設問１

f-e-d-c-b-a-0-a-b-c-d-e-f

477 名前：デフォルトの名無しさん [2008/02/17(日) 16:31:00 ]
設問２

9-8-7-6-5-4-3-2-1-X-1-2-3-4-5-6-7-8-9



478 名前：デフォルトの名無しさん [2008/02/17(日) 17:13:02 ]
以下の問題を定義しなさい。

１{"f" = "-f == f" && "+f == f"}
２{"9" = "-9 == 9" && "+9 == 9"}
３{構成文省略}
"9" は "f" に等しく、また "-9" は "-f" に等しい
"0" は "X" に等しいので "0" == "X" = "n" とする
先ず此の構成を "x,y,z && n" を成型にしなさい
また "n" は "y" で在り "9…0…9" まで存在する
しかし "n = y" の配列は"次の"配列 "9…0…9" を使用する事！
残された "9…0…9" は　"1/3" の後の "1/4" で使うが？
"n" == "0 = X" && "x,y,z" = "x,y,z" == "n/4" に為りますが構成は入り組んで居りますね？

479 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 17:17:15 ]
日本語が苦手なら英語でおk

480 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 17:19:52 ]
どちらのお国のガイジンさんですか

481 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 17:26:21 ]
宿題は自分でやるか先生に聞きなさい。ためにならん。

482 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 17:26:35 ]
いくらなんでも丸投げすぎワロタｗ

483 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 17:28:26 ]
解読できません＞＜
誰か和訳たのむ

484 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 18:52:46 ]
>>476-478
くだらねぇ問題はここへ書け ver.3.14(57桁略)4592
science6.2ch.net/test/read.cgi/math/1197828000/

485 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 20:29:46 ]
>>476
ん？

>>477
え？

>>478
パルプンテ

486 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 21:40:18 ]
>>478
居りますよ

487 名前：デフォルトの名無しさん [2008/02/17(日) 22:24:11 ]
おちんちんの傘のまわりに小さいギザギザがあるんですが
医者に見せたほうがいいですか？



488 名前：デフォルトの名無しさん mailto:sage [2008/02/17(日) 22:28:07 ]
>>487
このスレ的には大きなツブツブのほうが好まれますね

死ね

489 名前：デフォルトの名無しさん mailto:sage [2008/02/18(月) 21:53:13 ]
active perl をダウンロードしようと思い
www.activestate.com/
にいったのですが
久々に訪れてみたら、
ずいぶん様子が違いダウンロードする場所がわかりません
どこにあるのでしょうか

490 名前：デフォルトの名無しさん mailto:sage [2008/02/18(月) 21:55:36 ]
www.activestate.com/store/download.aspx?prdGUID=81fbce82-6bd5-49bc-a915-08d58c2648ca

491 名前：デフォルトの名無しさん mailto:sage [2008/02/18(月) 21:58:52 ]
>>490
即答ありがとうございます　助かりました

492 名前：デフォルトの名無しさん [2008/02/18(月) 23:48:34 ]
XML処理用のマッピングファイルを以下を参考にして作成しました。

homepage3.nifty.com/hippo2000/perltips/xml/xmlenc.htm

作成したマッピングファイルは、規定のディレクトリに置けば良いのですが、
ローカルディレクトリに置いたまま使用したいと考えています。
任意のディレクトリをマッピングファイル検索パスに追加する方法はあるのでしょうか？


493 名前：デフォルトの名無しさん mailto:sage [2008/02/19(火) 10:39:35 ]
中身見た？

494 名前：デフォルトの名無しさん mailto:sage [2008/02/20(水) 18:14:27 ]
$moji = 'a<>b<>c<>';

495 名前：デフォルトの名無しさん mailto:sage [2008/02/20(水) 18:15:38 ]
ミスです。

$moji = 'a<>b<>c<>';があって
２番目だけを切り取るいい方法ってありますか？
配列ならspliceみたいな

496 名前：デフォルトの名無しさん mailto:sage [2008/02/20(水) 18:20:22 ]
配列にしてspliceすればいい。

497 名前：デフォルトの名無しさん mailto:sage [2008/02/20(水) 18:52:37 ]
$moji =~ s/^([^<>]+<>)([^<>]+<>)/$1/;



498 名前：デフォルトの名無しさん mailto:sage [2008/02/20(水) 18:54:53 ]
s/^((?:.*?<>){1})(?:.*?)(?:<>|$)/$1/;

499 名前：デフォルトの名無しさん mailto:sage [2008/02/20(水) 18:59:54 ]
s/ｑあｗせｄｒｆｔｇｙふじこｌｐ. くぁwせｄｒｆｔｇｙふじこｌｐ;/;

500 名前：デフォルトの名無しさん mailto:sage [2008/02/20(水) 22:39:18 ]
>>495
「切り取る」とは
除去なのか
$moji =~ s/(?<=<>).*?(?=<>)//; # a<><>c<>
$moji =~ s/(?<=<>).*?<>//; # a<>c<>
取得なのか
$value = (split /<>/, $moji, 3)[1]; # $value = 'b';

501 名前：デフォルトの名無しさん mailto:sage [2008/02/21(木) 19:15:50 ]
Windows Excel から Perl スクリプトを実行し、その結果を受け取ることはできますか？
目的は Perlスクリプトに GUIラッパーをかぶせることです。
処理結果を Excel に渡してグラフ表示することなども考えてますので、
その意味でも Excel から一貫して操作できれば、と考えています。
具体的には Web サーバからダウンロードした Apache の access log を
見やすく解析したいと思っています。
業者さんの設置してくれた アクセスログ解析CGI では得たい情報が得られないので、自分でなんとかしようと思いました。
実行するのは会社のパソコン上です。Perl の実行環境は用意しようと思っていますが、
それ以外のローカルサーバでの CGI とか PHP とかは今のところ考えていません。
環境は WindowsXP、Excel 2003 です。
どうぞよろしくお願いします。

502 名前：デフォルトの名無しさん mailto:sage [2008/02/21(木) 20:21:42 ]
Excelスレ池

503 名前：デフォルトの名無しさん mailto:sage [2008/02/21(木) 20:45:24 ]
Perlで解析結果をファイルに書き出して
Excelのマクロでグラフにすればいいんじゃないかな

504 名前：デフォルトの名無しさん mailto:sage [2008/02/21(木) 20:46:10 ]
え、Perlいらなくね？

505 名前：>>501 mailto:sage [2008/02/21(木) 22:11:59 ]
レスありがとうございます。
>>502
やはりスレ違いでしたか…Excel VBAスレのテンプレ読んでこちらに来てしまったのですが、
書き込んでからやっぱりこっちのスレは違うかもと思いました。申し訳ありませんでした。
>>503
Perlを実行するのを、DOS窓からコマンドを打ち込むのではなく、例えば
Excel の マクロの中から実行できないかと思いまして…。
>>504
Excel の VBAでスクリプトを作りかけたんですけど、簡単な置換をさせただけでも
結果が帰ってくるまでに５分ぐらいかかってしまいました。それでPerlに変えたんです。
もっとも実行させたのがPPCのMac上だったので、Windowsだったらもっと早いとは思うのですが…。

ではExcelのスレに移動することにします。
レスいただきどうもありがとうございました。

506 名前：デフォルトの名無しさん mailto:sage [2008/02/22(金) 09:29:51 ]
携帯のアクセス制限はどうすれば良いの？
ＩＰアドレスだと毎回変わるんだが

507 名前：デフォルトの名無しさん [2008/02/22(金) 14:50:54 ]
perlで、「iostat -x」の出力結果の
----------------------------------------------------
extended device statistics
device r/s w/s kr/s kw/s wait svc_t %b
twed0 6.3 35.9 81.1 565.8 0 9.8 7
----------------------------------------------------
の中の、「81.1」と「565.8」だけ標準出力したいのですが、
試行錯誤したのですが、うまくいきません。
最後に試したのが、以下のスクリプトですが、
何も表示されずにちょっとお手上げです。
どなたかご指摘頂けないでしょうか？
どうぞお願いします。


----------------------------------------------
#!/usr/bin/perl

open(FILE, "iostat -x");

while (<FILE>) {
if (/^twed0?\s+?[0-9\.]+?\s+?[0-9\.]+?\s+?([0-9\.]+)?\s+?([0-9\.]+)?\s+?[0-9]+?\s+?[0-9\.]+?\s+?[0-
9]+$/) {
print "$1\n";
print "$2\n\n\n";
}
}
close(FILE);
----------------------------------------------



508 名前：デフォルトの名無しさん mailto:sage [2008/02/22(金) 14:55:33 ]
open(FILE, "iostat -x |")

509 名前：デフォルトの名無しさん [2008/02/22(金) 15:01:39 ]
>>508
アドバイスありがとうございます。
>>508さんの方法でもやってみたのですが、やはり何も表示されませんでした。
何がまずいんだろう・・・

510 名前：デフォルトの名無しさん mailto:sage [2008/02/22(金) 15:11:34 ]
……

511 名前：デフォルトの名無しさん mailto:sage [2008/02/22(金) 15:15:43 ]
>>507
最後の改行コードは大丈夫？

512 名前：デフォルトの名無しさん mailto:sage [2008/02/22(金) 15:25:30 ]
chomp汁！

513 名前：デフォルトの名無しさん mailto:sage [2008/02/22(金) 15:35:15 ]
ｋｗｓｋ見てみたが正規表現が間違ってるっぽいな
もうちょっと見てみるわ

514 名前：507 [2008/02/22(金) 18:56:36 ]
>>511>>512>>513
お手数お掛けしてすみません。
私は、いつもphpを使っているので、phpのperl互換の正規表現で色々と試行して、
phpでは正規表現の部分で正常にできました。
どこが動かないのかデバックコードを書いてみました。

----------------------------
#!/usr/bin/perl

open(FILE, "iostat -x |");
print"-";
while (<FILE>) {
if ("/^twed0\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)$/i") {
print "$2\n";
print "$4\n\n\n";
}
print "*";
}
close(FILE);
-------------------------------------

上のスクリプトで実行すると、出力結果が
「-
*
*」(改行つめました)が出力されます。
シェルから、「iostat -x」とたたくと、前述ようにきちんと出力します。

たぶん、if文の使い方が悪いと思うのですが、
どのようにやるのが正しいのでしょうか？多分、初歩的なことかも？

引き続き、宜しくお願いします。お手数お掛けします。

515 名前：507 [2008/02/22(金) 18:58:41 ]
あ！、改行が複数飛び飛びに入っている実行結果から$2と$4は空文字になっているのだと思います。
でも、そこからどう解決できるのかが分かりません。う～ん。

516 名前：デフォルトの名無しさん mailto:sage [2008/02/22(金) 19:16:33 ]
>>514
if(～)は何でdouble quoteしてるの？

517 名前：507 [2008/02/22(金) 19:21:21 ]
>>516
これは初めてつけていなかったのですが、試行錯誤していて試しにつけてみたら、
if文の中を実行ができるようになりました。(複数改行が出力されます)

本来はつけないのが正しい記法なのでしょうか？
そうだとしますと、ますます混乱してきました。



518 名前：デフォルトの名無しさん mailto:sage [2008/02/22(金) 19:27:11 ]
>>517
"で括った文字列は空文字列でなければ必ず真と判断される。だから意図した条件を満たさない行も出力されてるでしょ
付けちゃだめだよ

今iostatが使えない環境なので>>507のデータをファイルに入れているんだが、これはきっと期待通りの動作だろう

#!/usr/bin/perl

open(FILE, "iostatdata.dat");
print"-\n";
while (<FILE>) {
chomp;
if (/^twed0\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)$/i) {
print "\$2 = $2\n";
print "\$4 = $4\n";
}
print "*\n";
}
close(FILE);


519 名前：507 [2008/02/22(金) 19:44:14 ]
>>518
わざわざコードまで書いて下さって、本当に親切にどうもありがとうございました。
早速試してみたのですが、う～ん...結果はうまくいきませんでした。

●iostatの実行結果
------------------------------------------------------------------------------
www# iostat -x
extended device statistics
device r/s w/s kr/s kw/s wait svc_t %b
twed0 5.1 37.6 78.3 598.9 0 10.5 7
------------------------------------------------------------------------------

520 名前：507 [2008/02/22(金) 19:44:38 ]
●perlでの実行結果
----------------------------------------------------------------------------
#!/usr/bin/perl

open(FILE, "iostat -x |");
print"-";
while (<FILE>) {
# if (/^twed0\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)$/i) {
# print $1 . "\n";
# print $4 . "\n\n\n";
# }

chomp;
if (/^twed0\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)$/i) {
print "\$2 = $2\n";
print "\$4 = $4\n";
print "*";
}


print "*\n";
}
close(FILE);
------------------------------------------------------------------------------
# /home/test/test.pl
-*
*
*
------------------------------------------------------------------------------

521 名前：507 [2008/02/22(金) 19:45:41 ]

●【参考】phpの参考結果
----------------------------------------------------------------------------
$word = "twed0 5.1 37.6 78.3 598.9 0 10.5 7";
$word = preg_replace("/^twed0\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)$/", "$2--$4", $word);
echo "->". $word . "<-";
----------------------------------------------------------------------------
->37.6--598.9<-

522 名前：デフォルトの名無しさん mailto:sage [2008/02/22(金) 20:29:58 ]
>>506
各社の携帯電話が使うIPアドレスの範囲は公式ページに載っているので、それで制限することはできる。
特定の携帯電話をはじくのは無理かな。同じ機種使ってれば、区別のしようがないし。端末IDを送信してれば区別できるけど。

523 名前：デフォルトの名無しさん [2008/02/22(金) 20:35:23 ]
じゃオレも。

●>>521 のphpをそのままperlの文法に書き換えただけでの結果
------------------------------------------
$word = "twed0 5.1 37.6 78.3 598.9 0 10.5 7";
$word =~ s/^twed0\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)\s+([0-9\.]+)$/$2--$4/;
print "->". $word . "<-";
------------------------------------------
->37.6--598.9<-

ほらちゃんと>>521と同じ結果が出たぞ。
何が違うのか、よ～く見てみろ。
「問題の切り分け」 って習わなかったのか？
phpだろうがperlだろうがｊａｖａだろうが、
どんな言語でもデバッグの手法は同じだよ。
もういちど基本に帰れ。

524 名前： ◆TWARamEjuA mailto:sage [2008/02/22(金) 21:41:04 BE:1524672-2BP(7072)]
つ s

525 名前：デフォルトの名無しさん mailto:sage [2008/02/22(金) 22:58:53 ]
>506
やっぱ端末情報を拾うのが一番じゃないか？

526 名前：デフォルトの名無しさん mailto:sage [2008/02/23(土) 03:38:59 ]
>>507,523
x フラグつけてくれ。読みにくくてかなわんw


527 名前：デフォルトの名無しさん mailto:sage [2008/02/23(土) 11:25:03 ]
そもそも正規表現で拾う必然性すらない。

#!/usr/bin/perl -w
use strict;

# open IOSTAT, 'iostat -x |' or die $!;
*IOSTAT = *DATA;
scalar <IOSTAT>; # extended device statistics
my @col = split /\s+/, <IOSTAT>;
my %v;
$v{'device'} eq 'twed0'
　　　　and print "$v{'kr/s'}\n$v{'kw/s'}\n\n\n"
　　while @v{@col} = split /\s+/, <IOSTAT>;
close IOSTAT or die $!;

__DATA__
extended device statistics
device r/s w/s kr/s kw/s wait svc_t %b
twed0 6.3 35.9 81.1 565.8 0 9.8 7
twed1 5.1 37.6 78.3 598.9 0 10.5 7



528 名前：デフォルトの名無しさん [2008/02/23(土) 15:19:23 ]
それを言っちゃオシマイよ

529 名前：デフォルトの名無しさん mailto:sage [2008/02/23(土) 21:35:32 ]
// データを１行読み出す。
function GetNextData(){
if( $line = fgets($this->m_file_hd, 1024) ){
$line2 = split($this->m_pause_chr, $line);
$ans = new Line();
$ans->SetData($line2[0], $line2[1]);
}else{
$ans = "";
}
return $ans;
}

変数名の最後に数字使うのは初心者だろ？
もしコード拡張で数値計算が入ったら紛らわしい

530 名前：デフォルトの名無しさん mailto:sage [2008/02/23(土) 22:04:21 ]
だって、変数名の最初に数字がつかえないんだもん。


531 名前：デフォルトの名無しさん mailto:sage [2008/02/24(日) 00:22:52 ]
誤爆か？
考え込んでしまった

532 名前：デフォルトの名無しさん mailto:sage [2008/02/24(日) 01:25:43 ]
evalって、エラーがなければ$@が空文字列であることが保証されるとのことですが、
evalのリターンはエラーがあった場合、undefであることが保証されますか？
definedな戻り値と$@が両立するケースはありますか？

533 名前：デフォルトの名無しさん mailto:sage [2008/02/24(日) 10:18:31 ]
>>532
<q cite="perldoc.jp/docs/perl/5.10.0/perlfunc.pod#item_eval_BLOCK">
構文エラーや実行エラーが発生するか、die 文が実行されると、
eval の値として未定義値が返され、$@ にエラーメッセージが設定されます。
エラーがなければ、$@ は、空文字列であることが保証されます。
</q>

534 名前：530 mailto:sage [2008/02/24(日) 11:01:47 ]
>>531
ごめん。ぼけてみたんだけど、はずした。


535 名前：デフォルトの名無しさん [2008/02/24(日) 11:42:40 ]
>>533
どうもです！構文エラーと実行エラー以外に$@が設定されるエラーはないと
考えていいんですよね？？素人丸出しな質問ですが。

536 名前：デフォルトの名無しさん mailto:sage [2008/02/24(日) 13:15:54 ]
>>535
search.cpan.org/dist/perl-5.10.0/pod/perlvar.pod#EVAL_ERROR
<q cite="perldoc.jp/docs/perl/5.6.1/perlvar.pod">
最後の eval() 操作子による Perl の構文エラーメッセージです。
</q>

537 名前：デフォルトの名無しさん mailto:sage [2008/02/24(日) 20:02:29 ]
>>534
いやまあ、あなたのことじゃないんで気にしないで



538 名前：デフォルトの名無しさん mailto:sage [2008/02/26(火) 02:30:35 ]
コンパイル時にパッケージ名とサブルーチン名を区別できない可能性があるから、
サブルーチンの名前には大文字を使わないと聞いたことがあるのですが本当でしょうか？

また実際に区別できないことがあるのは、どういった使い方をした場合でしょうか？

539 名前：デフォルトの名無しさん mailto:sage [2008/02/26(火) 11:05:25 ]
>>538
コンパイラが大文字小文字でパッケージ名と関数名の
区別を付ける事はないので嘘。
perldoc.jp/docs/perl/5.8.0/perlstyle.pod

> 実際に区別できないことがある
人間が区別を付けにくいという意味では
func_or_method FuncOrClassOrFh @arg;

540 名前：デフォルトの名無しさん mailto:sage [2008/02/26(火) 15:03:13 ]
あ

541 名前：デフォルトの名無しさん mailto:sage [2008/02/26(火) 16:07:27 ]
>>539
回答ありがとうございます。

一般的にパッケージ名に大文字を使うため、サブルーチンの名前にも大文字を使うと、
パッケージ名とサブルーチン名が重複する可能性があり、
重複するとコンパイラが区別ができないことがあるのかと、
疑問に思ってるのですが、これについてはどうでしょうか？

542 名前：デフォルトの名無しさん mailto:sage [2008/02/26(火) 16:50:13 ]
「名前空間」の勉強してこいよ

543 名前：デフォルトの名無しさん mailto:sage [2008/02/26(火) 17:11:44 ]
？

544 名前：デフォルトの名無しさん mailto:sage [2008/02/26(火) 18:01:02 ]
重複して困るのはサブルーチン名でなくラベルやファイルハンドル。

#!/usr/bin/perl -w
use strict;
package Foo; sub Foo { join '', @_ }
package Bar; sub Bar { print 'Bar!' }
package main;

# これはOK
# print Foo Foo Foo => "\n", Foo->Foo("Foo!\n"); # FooFoo\nFooFoo!\n
# Bar Bar; __END__ Bar!

# パッケージ名と同名のファイルハンドル
# open Foo, '>./Foo.txt' or die $!;
# Foo->Foo('Foo!'); # ここで混乱して実行時エラー
# close Foo; __END__

# goto EXPR を goto LABEL で解釈してコンパイルエラー
# for (1..5) { $_ > 2 ? goto Foo Foo 'Foo' : print "$_, " }
# FooFoo: print 'foo!'; __END__

# 優先順位の明確化で解決
# for (1..5) { $_ > 3 ? goto(Foo Foo 'Foo') : print "$_, " }
# FooFoo: print 'foo!'; __END__ 1, 2, 3, foo!

545 名前：デフォルトの名無しさん mailto:sage [2008/02/26(火) 18:45:04 ]
>>544
非常に分かりやすく解説してくださってありがとうございます。

perl.g.hatena.ne.jp/bosh/20060409
こちらで書いてあるのは間違いということで、理解しました。

546 名前：デフォルトの名無しさん [2008/02/26(火) 21:59:27 ]
素人が趣味で書いたホームページを鵜呑みにされても・・・

547 名前：デフォルトの名無しさん mailto:sage [2008/02/26(火) 23:18:46 ]
何かあるのかと思って確認のために聞いただけじゃないか



548 名前：デフォルトの名無しさん mailto:sage [2008/02/27(水) 10:27:01 ]
素人かどうかなんてわからないだろ

549 名前：デフォルトの名無しさん mailto:sage [2008/02/27(水) 10:28:24 ]
わからないなら素人として扱うのが安全だろ

550 名前：デフォルトの名無しさん mailto:sage [2008/02/27(水) 11:18:38 ]
じゃあここでレスしてるのも素人ばっかりだなｗ

551 名前：デフォルトの名無しさん mailto:sage [2008/02/27(水) 16:12:38 ]
お前はその前提で喋ってればいいんじゃね？
馬鹿だなーって思われるだけだけど。

552 名前：デフォルトの名無しさん [2008/02/27(水) 16:23:09 ]
わかった。>>551は超素人ってことで。

553 名前：デフォルトの名無しさん mailto:sage [2008/02/27(水) 16:42:13 ]
笑うところだろｗ

まぁ鵜呑みにするな、っていうのは真理だな

554 名前：デフォルトの名無しさん mailto:sage [2008/02/27(水) 22:22:22 ]
素人です。教えてください。
何もわかりません。動きません。
絶対プログラムは正しいので、Perlのバグだと思うのです。
・・・・。

555 名前：デフォルトの名無しさん mailto:sage [2008/02/27(水) 22:32:58 ]
どっかのコピペか？

556 名前：デフォルトの名無しさん [2008/02/28(木) 09:41:09 ]
質問です。

func_hoge() というサブルーチンがあります。
このサブルーチンは、内部でエラーが起こった場合のみ、エラー番号やエラーメッセージを返してきます。
何も問題なければ 0 やら空文字列が返ってくるとします。

func_hoge()を呼び出すときは、

　　my $err = func_hoge();
　　if ($err) { die "Error func_hoge [$err]"; }

というように返り値を保持しておき、
エラーがあれば、その時のエラー番号（可能であればサブルーチン名などの目印も）を表示したい。

これはこれで全く問題ないのですが、func_hoge()の呼び出し箇所が増えると
エラー格納用の一時的な変数が増えてしまいますし、何より面倒です。
何か楽できる方法ありませんか？

557 名前：デフォルトの名無しさん mailto:sage [2008/02/28(木) 11:00:53 ]
func_hoge de die



558 名前：デフォルトの名無しさん mailto:sage [2008/02/28(木) 11:13:37 ]
func_hoge()の中でuse Carpしてcroakすればいいんじゃね？
die させないときはeval{}で囲えばいいし。


559 名前：デフォルトの名無しさん mailto:sage [2008/02/28(木) 11:46:45 ]
サブルーチンの中を弄らないと無理かー。
呼び出し側だけで何とか小手先の変更で出来ないかなとか考えてた。ありがとう。

560 名前：デフォルトの名無しさん mailto:sage [2008/02/28(木) 12:41:38 ]
ん？
push @err, func_hoge();
みたいなもんでいいのかな。

561 名前：デフォルトの名無しさん mailto:sage [2008/02/28(木) 12:53:34 ]
新しいサブルーチン作ればいいじゃん。

562 名前：デフォルトの名無しさん mailto:sage [2008/02/28(木) 14:44:00 ]
if (my $err=func_hoge()) { die "Error func_hoge [$err]"; }


563 名前：デフォルトの名無しさん mailto:sage [2008/02/28(木) 22:13:15 ]
>560
状況にもよるけど、サブルーチンを呼ぶたびにエラー判定しなきゃならないような類だと
結局手間は変わんないかも。

>561
最終的には多分そうなると思う。

>562
やっぱそれが一番スマートなのかなあ。

564 名前：デフォルトの名無しさん [2008/02/29(金) 00:37:04 ]
Perlってパースした後の構文木をプログラムで書き換えることはできないの？

565 名前：デフォルトの名無しさん mailto:sage [2008/02/29(金) 03:20:56 ]
dieで死ぬだけなら再利用しちゃえばいいんじゃないの？ｗ

566 名前：デフォルトの名無しさん mailto:sage [2008/02/29(金) 09:02:53 ]
>>564
目的は？

567 名前：デフォルトの名無しさん [2008/02/29(金) 10:51:40 ]
Perl の localtime 関数はエポックからの秒数をローカル時刻の年月日に
分解してくれますね。これとは逆に、ローカル時刻の年月日を
エポックからの秒数に変換するにはどうしたらよろしいでしょうか？



568 名前：デフォルトの名無しさん mailto:sage [2008/02/29(金) 11:05:27 ]
timelocal


569 名前：デフォルトの名無しさん mailto:sage [2008/02/29(金) 13:23:58 ]
一度くらい自分で作ってみるのも悪くないけど（簡単だから）、
出来上がったらそれ以降は>>568を使っておけばいいな。

570 名前：デフォルトの名無しさん [2008/02/29(金) 14:22:22 ]
Perl で split 関数が返す配列を、一度配列に入れずに、すぐに配列参照として
受け取ることはできますか？

$ar = split(/,/, $str);
$ar_ref = \@ar;

じゃなくて

$ar_ref = split(/,/, $str);

のようにしたい。

↓こんなのじゃうまくいかなかった。
$ar_ref = \split(/,/, $str);


571 名前：デフォルトの名無しさん mailto:sage [2008/02/29(金) 14:38:52 ]
anonymous array reference constructor

572 名前：デフォルトの名無しさん [2008/02/29(金) 14:43:44 ]
>>571
つまり、こういうことですか？

$ar_ref = [ split(/,/, $str) ];

でも、これだと、配列の要素をコピーすることになりそうで (なりますよね？)
無駄ではありませんか？

573 名前：デフォルトの名無しさん mailto:sage [2008/02/29(金) 14:45:55 ]
>>572
実際の動作がどうなるのかはソースを読む。
読みたくないなら、明らかにコピーしそうなperlコードとBenchmarkで比較。

574 名前：デフォルトの名無しさん mailto:sage [2008/02/29(金) 15:05:51 ]
>>572
最適化されるよ。

575 名前：デフォルトの名無しさん [2008/02/29(金) 16:29:22 ]
>>574
証拠はある？

576 名前：デフォルトの名無しさん mailto:sage [2008/02/29(金) 16:39:17 ]
証拠がソースだったら読むのか？

577 名前：デフォルトの名無しさん mailto:sage [2008/02/29(金) 16:47:30 ]
他人に頼りすぎだ。
パフォーマンスが気になるなら、ちょっと確かめてみればいい。
こんなコード断片が書けないのなら、パフォーマンスなど気にするだけ無駄。

use Benchmark qw(timethese);
my $source = join(',', ('abcdefg')x80000);
my $result_ref;
timethese(100, {
temp => sub { my @temp_array = split(/,/, $source); $result_ref = \@temp_array; },
bracket => sub { $result_ref = [ split(/,/, $source) ]; },
none => sub { split(/,/, $source); },
});

Benchmark: timing 100 iterations of bracket, copy, none, temp...
bracket: 9 wallclock secs ( 8.94 usr + 0.00 sys = 8.94 CPU) @ 11.19/s (n=100)
none: 6 wallclock secs ( 6.76 usr + 0.00 sys = 6.76 CPU) @ 14.80/s (n=100)
temp: 15 wallclock secs (14.27 usr + 0.00 sys = 14.27 CPU) @ 7.01/s (n=100)



578 名前：デフォルトの名無しさん mailto:sage [2008/02/29(金) 17:00:25 ]
>>575
証拠は俺の脳内。
信じられないなら自分でソース読もう。

579 名前：デフォルトの名無しさん mailto:sage [2008/02/29(金) 17:54:31 ]
>>577
void コンテキストで split 使うと @_ に入るので注意な。

580 名前：デフォルトの名無しさん mailto:sage [2008/02/29(金) 19:05:26 ]
lala-zコンテキストなら？

581 名前：ジミー [2008/02/29(金) 21:41:12 ]
$str = "a,b,";
@ar = split(/,\n/, $str);
print join(',', @ar);

これを実行すると a,b と表示されます。
つまり、split は末尾の空文字列を取り出してくれないようです。
末尾の空文字列を取り出して、このコードが a,b, と表示させるように
するための簡単な方法ってありませんかね。
(もちろん愚直に工夫すれば何とでもなるが、スマートな解がほしい)

582 名前：ジミー [2008/02/29(金) 21:41:59 ]
>581
コード間違えた。(実験してたコードにしてもた。)
× @ar = split(/,\n/, $str);
○ @ar = split(/,/, $str);



583 名前：ジミー mailto:sage [2008/02/29(金) 21:46:48 ]
解決した。
@ar = split(/,/, $str, -1);
ですね。

584 名前：デフォルトの名無しさん mailto:sage [2008/02/29(金) 21:48:12 ]
print join ',', split /,/, q/a,b,/, -1;

585 名前：デフォルトの名無しさん mailto:sage [2008/03/01(土) 00:44:11 ]
>>566
特にないけど、Perlならそういう面白いインターフェイスが用意されてそうだなと思ったまでで

586 名前：デフォルトの名無しさん mailto:sage [2008/03/01(土) 01:06:48 ]
麻雀なのに、娘とか嫁とか家族とかｗ


乞食は想像を絶するなｗ

587 名前：デフォルトの名無しさん mailto:sage [2008/03/01(土) 01:07:14 ]
スマン、誤爆



588 名前：デフォルトの名無しさん mailto:sage [2008/03/01(土) 09:16:39 ]
色々と妄想させてくれる。

世の中には「義妹が最強だろ」という誤爆レスが元になって作られたゲームとかあるからな。
人間の妄想力ってのは凄いもんだぜ。

589 名前：デフォルトの名無しさん [2008/03/02(日) 10:27:48 ]
おにぃちゃん、ヤメテ！

590 名前：デフォルトの名無しさん mailto:sage [2008/03/02(日) 10:48:55 ]
ヘッヘッヘ、いいじゃねぇか ポン　ヘッヘッヘ

591 名前：デフォルトの名無しさん [2008/03/02(日) 11:09:57 ]
Active Perl 5.10.0 用の　DBD-mysql ってどこにあるの？

592 名前：デフォルトの名無しさん mailto:sage [2008/03/02(日) 11:48:26 ]
>589-590
エロゲじゃねーよｗ

593 名前：デフォルトの名無しさん mailto:sage [2008/03/02(日) 14:23:27 ]
>>591
cpan.uwinnipeg.ca/PPMPackages/10xx/

594 名前：591 [2008/03/02(日) 21:46:50 ]
>>593
ありがとう。無事インストできたよん。

595 名前：デフォルトの名無しさん mailto:sage [2008/03/03(月) 09:11:40 ]
インスト

596 名前：デフォルトの名無しさん mailto:sage [2008/03/03(月) 09:43:34 ]
泣いても笑っても、お前のまんじゅうは無いよ。

597 名前：デフォルトの名無しさん mailto:sage [2008/03/03(月) 16:28:09 ]
Wiki文法でのテキスト整形で悩んでいます。

改行含めた長い文章が $i に入ってます。
文章中のリンクアンカーに相当する部分はWikipediaなどでお馴染みの
[[テキスト]]
という感じで書かれています。

これを
$i =~ s/\[\[(.+?)\]\]/<a href="$1">$1<\/a>/g;
で変換しているのですが、できれば <a href="$1"> の中のほうの$1をURLエンコードして収めたいのです。

URLエンコードのサブスクリプトはこんな感じです。

sub url_enc {
local($_) = @_;
s/(\W)/'%' . unpack('H2', $1)/eg;
s/\s/+/g;
$_;
}

よろしくお願いします。




598 名前：デフォルトの名無しさん mailto:sage [2008/03/03(月) 16:49:12 ]
すみません、補足です。
CGIにはインフォパスか引数で渡します。

<a href="hoge.cgi?$1">

こんな感じで。

599 名前：デフォルトの名無しさん mailto:sage [2008/03/03(月) 17:31:00 ]
サブルーチンに置換部分をまとめて、
$i =~ s/\[\[(.+?)\]\]/&url_enc($1)/eg;

600 名前：デフォルトの名無しさん mailto:sage [2008/03/03(月) 17:58:47 ]
そっか！e修飾子を利用した時は置換部分は関数以外は入れたらダメなんですね。

$i =~ s/\[\[(.+?)\]\]/<a href="&url_enc($1)">$1<\/a>/eg;

だとエラーが出るんで何でだろうとずっと思ってたんです。
ありがとうございます。勉強になりました。

601 名前：デフォルトの名無しさん mailto:sage [2008/03/03(月) 18:25:15 ]
>>600
自分で '%' . unpack('H2', $1) なんてのを入れてるじゃん。

sub html_escape {
　　my $str = $_[0];
　　$str =~ s/&(?!(?:\w+|#(?:[Xx][0-9A-Fa-f]+|[0-9]+));)/&/g;
　　$str =~ s/([\x00-\x09\x0B\x0C\x0E-\x1F"'<>\x7F])/&#${ \ ord $1 };/g;
　　$str;
}
sub uri_escape {
　　my $str = $_[0];
　　$str =~ s/%(?![0-9A-Fa-f][0-9A-Fa-f])/%25/g;
　　$str =~ s/([\x00-\x20"'<>\\^`{|}\x7F-\xFF])/ sprintf '%%%02X', ord $1 /eg;
　　$str;
}
$i =~ s{ \[\[ (.+?) \]\] } {
　　my($url, $face) = ($1, $1);
　　$url = uri_escape($url);
　　$face = html_escape($face);
　　qq|<a href="$url">$face</a>|;
}egx;

602 名前：デフォルトの名無しさん mailto:sage [2008/03/03(月) 18:40:50 ]
>>601

すみません、
実はurl_encは誰かから教えてもらったもので丸写しなんです ^_^
でも今回のことでやっともろもろ判りました。

コード、参考になります（というかありがたくいただきます）。
ありがとうございます。

603 名前：デフォルトの名無しさん mailto:sage [2008/03/05(水) 05:49:41 ]
JavaのプログラムからCGIを実行しようとしたのですが、302エラーが返されます。
何故なんでしょうか？

604 名前：デフォルトの名無しさん mailto:sage [2008/03/05(水) 10:21:39 ]
>>603
302 はエラーじゃないし Perl の話でもない。
www.studyinghttp.net/cgi-bin/rfc.cgi?2616#Sec10.3

CGI: Common Gateway Interface part 13
pc11.2ch.net/test/read.cgi/php/1126436361/

605 名前：デフォルトの名無しさん mailto:sage [2008/03/05(水) 10:22:39 ]
Moved Temporarily

606 名前：デフォルトの名無しさん mailto:sage [2008/03/05(水) 13:38:15 ]
>>604-605
パーミッションの設定をしたら動きました；；
お騒がせしました

607 名前：デフォルトの名無しさん mailto:sage [2008/03/05(水) 15:23:38 ]
perlのuntil文っていらないと思うんですけど、皆さんどんなときに使ってますか？



608 名前：デフォルトの名無しさん mailto:sage [2008/03/05(水) 16:30:42 ]
使わなきゃいいじゃん

609 名前：デフォルトの名無しさん mailto:sage [2008/03/05(水) 17:00:16 ]
while (! hoge)よりも直感的に書ける場合もある気がする
とくに後置したときに英文っぽくておさまりがいいような

610 名前：デフォルトの名無しさん mailto:sage [2008/03/05(水) 17:23:51 ]
while ( !( ... || ... && ... || ...) )
とかになったらさすがに使うｗ

611 名前：デフォルトの名無しさん mailto:sage [2008/03/05(水) 17:26:43 ]
あー、あと成功したら0エラーならエラーの種類が1以上って関数が
成功したらとにかく実行って時とかに == 0 とかやらなくて済むとか。

612 名前：デフォルトの名無しさん mailto:sage [2008/03/05(水) 18:07:48 ]
>>609->>611
なるほど。参考になりました。
untilも使い道はいろいろあるんですね。

613 名前：デフォルトの名無しさん mailto:sage [2008/03/05(水) 18:32:27 ]
意味的に「～になるまで続ける」って感じの時も until のがわかりやすいかも

614 名前：デフォルトの名無しさん mailto:sage [2008/03/05(水) 18:37:39 ]
>>613
確かに。これは考えたことなかったな。

615 名前：デフォルトの名無しさん [2008/03/06(木) 02:27:57 ]
XSでCライブラリを使ったモジュールを作ったが、
それが$HOME/local/libのライブラリを使っていて
CGIにLD_LIBRARY_PATHが設定できないのでモジュールで使っている.soが読めない。
$ENVとuse Envでやったが、無視されるみたいだし
共有サーバでhttpdがsuExecで動いているので.htaccessでSetEnvすることもできない。
DynaLoaderがロードする.soがリンクしているsoのパスを指定できる方法ある？


616 名前：デフォルトの名無しさん mailto:sage [2008/03/06(木) 12:16:11 ]
>>615
ldの-Rオプションでバイナリに埋め込むのはどう？

617 名前：デフォルトの名無しさん mailto:sage [2008/03/06(木) 19:32:32 ]
>>615
前スレの570～580あたりで書き込みした者ですが、

DynaLoader.pmがLoadするだけならば、
use DynaLoader;
@DynaLoader::dl_library_path に、対象のPATHを放り込んでやればLoad出来ます。

その{perl_module}.soがよその(/use/lib,/lib以外の)ライブラリをロードするようにコンパイルされていたら、
多分 use した時点でエラーになります。






[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]
前100 次100 最新50 ▲ [ このスレをブックマーク！ 携帯に送る ] 2chのread.cgiへ
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧]（ ´∀｀）＜153KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef