Perlについての質問箱 30箱目
webprog板でgrepとmapだとgrepの方が早いという意見があり確認してみました。
for >= grep > mapって感じみたいなのですがなんでmapだけこんなに遅いのでしょう？
■テストコード
use Benchmark qw/cmpthese/;
use strict;
use warnings;
my $LOOP = 100;
my @SEED = ('a'..'z','A'..'Z',0..9);
my @DATA = map {$SEED[int rand @SEED]} 1..10000;
my %TABLE = map {$_=>$SEED[int rand @SEED]} @SEED;
cmpthese($LOOP, {
#非破壊
'map1' => sub {my @hoge = map { $TABLE{$_} } @DATA; 1;},
'grep1' => sub {my @hoge;grep push(@hoge,$TABLE{$_}),@DATA;1;},
'for1' => sub {my @hoge;push(@hoge,$TABLE{$_}) for(@DATA);1;},
#破壊
'map2' => sub {map {$_=$TABLE{$_}} @DATA ;1;},
'grep2' => sub {grep $_=$TABLE{$_},@DATA;1;},
'for2' => sub {$_ = $TABLE{$_} for(@DATA);1;},
});
for >= grep > mapって感じみたいなのですがなんでmapだけこんなに遅いのでしょう？
■テストコード
use Benchmark qw/cmpthese/;
use strict;
use warnings;
my $LOOP = 100;
my @SEED = ('a'..'z','A'..'Z',0..9);
my @DATA = map {$SEED[int rand @SEED]} 1..10000;
my %TABLE = map {$_=>$SEED[int rand @SEED]} @SEED;
cmpthese($LOOP, {
#非破壊
'map1' => sub {my @hoge = map { $TABLE{$_} } @DATA; 1;},
'grep1' => sub {my @hoge;grep push(@hoge,$TABLE{$_}),@DATA;1;},
'for1' => sub {my @hoge;push(@hoge,$TABLE{$_}) for(@DATA);1;},
#破壊
'map2' => sub {map {$_=$TABLE{$_}} @DATA ;1;},
'grep2' => sub {grep $_=$TABLE{$_},@DATA;1;},
'for2' => sub {$_ = $TABLE{$_} for(@DATA);1;},
});
|
|
|
779 ：デフォルトの名無しさん：2007/05/23(水) 18:47:30
■結果 １回目
Rate map1 map2 for1 grep1 grep2 for2
map1 25.8/s -- -14% -32% -33% -66% -69%
map2 30.1/s 17% -- -21% -22% -60% -64%
for1 38.0/s 48% 26% -- -2% -50% -54%
grep1 38.6/s 50% 28% 2% -- -49% -53%
grep2 75.8/s 194% 152% 99% 96% -- -8%
for2 82.6/s 221% 174% 117% 114% 9% --
■結果 ２回目
Rate map1 map2 grep1 for1 grep2 for2
map1 24.6/s -- -16% -33% -33% -71% -71%
map2 29.2/s 19% -- -20% -21% -65% -66%
grep1 36.6/s 49% 26% -- -1% -56% -57%
for1 36.9/s 50% 27% 1% -- -56% -57%
grep2 83.3/s 239% 186% 127% 126% -- -3%
for2 85.5/s 248% 193% 133% 132% 3% --
■結果 ３回目
Rate map1 map2 grep1 for1 grep2 for2
map1 23.3/s -- -17% -33% -37% -72% -73%
map2 27.9/s 20% -- -20% -25% -66% -67%
grep1 35.0/s 50% 25% -- -6% -57% -59%
for1 37.0/s 59% 33% 6% -- -55% -56%
grep2 82.0/s 252% 193% 134% 121% -- -3%
for2 84.7/s 264% 203% 142% 129% 3% --
Rate map1 map2 for1 grep1 grep2 for2
map1 25.8/s -- -14% -32% -33% -66% -69%
map2 30.1/s 17% -- -21% -22% -60% -64%
for1 38.0/s 48% 26% -- -2% -50% -54%
grep1 38.6/s 50% 28% 2% -- -49% -53%
grep2 75.8/s 194% 152% 99% 96% -- -8%
for2 82.6/s 221% 174% 117% 114% 9% --
■結果 ２回目
Rate map1 map2 grep1 for1 grep2 for2
map1 24.6/s -- -16% -33% -33% -71% -71%
map2 29.2/s 19% -- -20% -21% -65% -66%
grep1 36.6/s 49% 26% -- -1% -56% -57%
for1 36.9/s 50% 27% 1% -- -56% -57%
grep2 83.3/s 239% 186% 127% 126% -- -3%
for2 85.5/s 248% 193% 133% 132% 3% --
■結果 ３回目
Rate map1 map2 grep1 for1 grep2 for2
map1 23.3/s -- -17% -33% -37% -72% -73%
map2 27.9/s 20% -- -20% -25% -66% -67%
grep1 35.0/s 50% 25% -- -6% -57% -59%
for1 37.0/s 59% 33% 6% -- -55% -56%
grep2 82.0/s 252% 193% 134% 121% -- -3%
for2 84.7/s 264% 203% 142% 129% 3% --
780 ：デフォルトの名無しさん：2007/05/23(水) 19:28:11
map1が遅いのはでかいリスト返してるから。
一つだけ全く別のことやってりゃそりゃ遅い罠。
map2が遅いのはfor2grep2と違ってブロック評価してるからだと思う。
とりあえず
'map1' => sub { my @hoge; map { push @hoge, $TABLE{$_} } @DATA; 1; },
'map2' => sub { map $_ = $TABLE{$_} , @DATA; 1; },
に書き換えたらグループごとの速度は大差なくなるはず。
関係ないけど最近のPerlのmapは
同じことやるforeachより速くなったりするのでびっくり。
古いバージョンなら戻り値使わない時は絶対forって言えたんだけどな。
一つだけ全く別のことやってりゃそりゃ遅い罠。
map2が遅いのはfor2grep2と違ってブロック評価してるからだと思う。
とりあえず
'map1' => sub { my @hoge; map { push @hoge, $TABLE{$_} } @DATA; 1; },
'map2' => sub { map $_ = $TABLE{$_} , @DATA; 1; },
に書き換えたらグループごとの速度は大差なくなるはず。
関係ないけど最近のPerlのmapは
同じことやるforeachより速くなったりするのでびっくり。
古いバージョンなら戻り値使わない時は絶対forって言えたんだけどな。
781 ：デフォルトの名無しさん：2007/05/23(水) 19:30:42
一応貼っておく
Rate grep1 for1 map1 grep2 map2 for2
grep1 19.8/s -- -1% -3% -64% -64% -65%
for1 20.0/s 1% -- -2% -64% -64% -65%
map1 20.4/s 3% 2% -- -63% -63% -64%
grep2 55.2/s 179% 176% 171% -- -1% -3%
map2 55.5/s 180% 177% 172% 1% -- -3%
for2 57.0/s 188% 185% 180% 3% 3% --
Rate grep1 for1 map1 grep2 map2 for2
grep1 19.8/s -- -1% -3% -64% -64% -65%
for1 20.0/s 1% -- -2% -64% -64% -65%
map1 20.4/s 3% 2% -- -63% -63% -64%
grep2 55.2/s 179% 176% 171% -- -1% -3%
map2 55.5/s 180% 177% 172% 1% -- -3%
for2 57.0/s 188% 185% 180% 3% 3% --
782 ：デフォルトの名無しさん：2007/05/23(水) 20:02:21
その後の調べで
map2はsub {map {$_=$TABLE{$_};1;} @DATA ;1;}
とすると順位があがりました。余計なメモリコピーが発生してたみたいです。
さらに>>780さんの指摘を受けて
'map1' => sub {my @hoge;map push(@hoge,$TABLE{$_}),@DATA; 1;},
'map2' => sub {map $_=$TABLE{$_},@DATA ;1;},
に変更したところ若干forが優勢っぽいですがほとんど同じ結果になるようになりました。
組み込みの関数なのでperlのバージョンによって変わってくる部分もありそうですね。
テスト環境はperl v5.8.5でした。(書き忘れ)
大変わかりやすい説明ありがとうございました。
map2はsub {map {$_=$TABLE{$_};1;} @DATA ;1;}
とすると順位があがりました。余計なメモリコピーが発生してたみたいです。
さらに>>780さんの指摘を受けて
'map1' => sub {my @hoge;map push(@hoge,$TABLE{$_}),@DATA; 1;},
'map2' => sub {map $_=$TABLE{$_},@DATA ;1;},
に変更したところ若干forが優勢っぽいですがほとんど同じ結果になるようになりました。
組み込みの関数なのでperlのバージョンによって変わってくる部分もありそうですね。
テスト環境はperl v5.8.5でした。(書き忘れ)
大変わかりやすい説明ありがとうございました。
783 ：デフォルトの名無しさん：2007/05/23(水) 20:05:52
良くわからんがデータベース使え。
>>751
Catalystみてみます、サンクス
Catalystみてみます、サンクス
785 ：デフォルトの名無しさん：2007/05/25(金) 01:12:04
あーの、恐縮ですが質問なんですけど、
Perlでは初めてオブジェクト指向のコードを書いているのですが、
下記のようなコードでアロー演算子と行入力演算子が併用できなくて困っています。
一度他のローカル変数にファイルハンドルを代入してやればうまくいくのですが、
もっとスマートに、オブジェクトが持つファイルハンドルから行入力する方法はあるのでしょうか。
use strict;
sub parse
{
my $this = shift;
my @data = <$this->{fh_lex}>; # 文法エラー
# 下のコードなら成功
# my $fh = $this->{fh_lex};
# my @data = <$fh>;
for (@data) {
;# 省略
}
}
Perlでは初めてオブジェクト指向のコードを書いているのですが、
下記のようなコードでアロー演算子と行入力演算子が併用できなくて困っています。
一度他のローカル変数にファイルハンドルを代入してやればうまくいくのですが、
もっとスマートに、オブジェクトが持つファイルハンドルから行入力する方法はあるのでしょうか。
use strict;
sub parse
{
my $this = shift;
my @data = <$this->{fh_lex}>; # 文法エラー
# 下のコードなら成功
# my $fh = $this->{fh_lex};
# my @data = <$fh>;
for (@data) {
;# 省略
}
}
786 ：デフォルトの名無しさん：2007/05/25(金) 01:59:16
<>をファイル読み込みとして認識させるには、
括弧の中を $fh のような形をしたスカラ変数にしないとダメだから、
一時的に変数を作るしかないね。
my @data = sub{$_=shift;<$_>}->($this->{fh_lex}); とかｗ
括弧の中を $fh のような形をしたスカラ変数にしないとダメだから、
一時的に変数を作るしかないね。
my @data = sub{$_=shift;<$_>}->($this->{fh_lex}); とかｗ
787 ：デフォルトの名無しさん：2007/05/25(金) 02:08:24
ヒント：<()>
788 ：デフォルトの名無しさん：2007/05/25(金) 02:09:52
<()> はファイルグロブ。
789 ：デフォルトの名無しさん：2007/05/25(金) 02:22:28
<${this->{fh_lex}}>
とかダメ？ 試してないけど。
とかダメ？ 試してないけど。
790 ：デフォルトの名無しさん：2007/05/25(金) 02:31:13
791 ：デフォルトの名無しさん：2007/05/25(金) 02:37:14
普通に<>の内部関数のreadline使って、
my @data = readline $this->{fh_lex};
でよかろ。
my @data = readline $this->{fh_lex};
でよかろ。
792 ：デフォルトの名無しさん：2007/05/25(金) 04:08:38
793 ：デフォルトの名無しさん：2007/05/25(金) 18:39:22
遅レスだが
>>780
http://search.cpan.org/~nwclark/perl-5.8.8/pod/perl581delta.pod#Miscellaneous_Enhancements
> map in void context is no longer expensive. map is now context aware,
> and will not construct a list if called in void context.
perlstyle でやるなって言われてるのに、悪い癖を直そうとしない子が
あまりに多いから実装側でフォローした、と俺は解釈してる。
>>780
http://search.cpan.org/~nwclark/perl-5.8.8/pod/perl581delta.pod#Miscellaneous_Enhancements
> map in void context is no longer expensive. map is now context aware,
> and will not construct a list if called in void context.
perlstyle でやるなって言われてるのに、悪い癖を直そうとしない子が
あまりに多いから実装側でフォローした、と俺は解釈してる。
794 ：デフォルトの名無しさん：2007/05/25(金) 18:48:26
見た目すっきりするからついやっちゃうんだよね・・・
795 ：デフォルトの名無しさん：2007/05/25(金) 19:11:11
俺すごいだろって思ってついやっちゃうんだよな・・・
>>786-792
みなさんどうもありがとうございます。
やはりPerlとはいえ表記上の制約はあるんですね。
にも関わらず他の方法がいくつもあると言うのはさすがですが。
どれを使おうか迷ったのですが、とりあえず今回は、readlineを使うのが一番綺麗に見えたので、それを使わせてもらおうと思います。
本当に勉強になりました。
みなさんどうもありがとうございます。
やはりPerlとはいえ表記上の制約はあるんですね。
にも関わらず他の方法がいくつもあると言うのはさすがですが。
どれを使おうか迷ったのですが、とりあえず今回は、readlineを使うのが一番綺麗に見えたので、それを使わせてもらおうと思います。
本当に勉強になりました。
797 ：デフォルトの名無しさん：2007/05/26(土) 02:42:48
長文にて失礼します。
以下の[data.csv]ようなカンマ区切りのデータがあるとします。
横軸がX座標、縦がY座、各格子の数値がZ座標（標高）を示しています。
このデータを、[out.csv]のように変換したいのですが、2次元配列でつまずいてしまい、途方に暮れてしまいました。
どなたかお知恵を授けて下さい。よろしくお願いします。
あと、入力データのうち行頭が"#"で始まる行は無視する、というのはどうすればできるのでしょうか。合わせてご教授いただけると助かります。よろしくお願いします。
[data.csv]
, 1, 2, 3, 4
5, 12.63 , 33.82 , 31.71 , 29.73
4, 34.75 , 32.14 , 29.31 , 26.70
3, 33.55 , 30.27 , 27.17 , 23.43
2, 31.02 , 29.42 , 26.65 , 23.61
1, 28.00 , 27.04 , 25.39 , 22.60
[out.csv]
X,Y,Z
1,1,28.00
1,2,27.04
1,3,25.39
1,4,22.60
2,1,31.02
2,1,27.04
(中略）
5,3,31.71
5,4,29.73
以下の[data.csv]ようなカンマ区切りのデータがあるとします。
横軸がX座標、縦がY座、各格子の数値がZ座標（標高）を示しています。
このデータを、[out.csv]のように変換したいのですが、2次元配列でつまずいてしまい、途方に暮れてしまいました。
どなたかお知恵を授けて下さい。よろしくお願いします。
あと、入力データのうち行頭が"#"で始まる行は無視する、というのはどうすればできるのでしょうか。合わせてご教授いただけると助かります。よろしくお願いします。
[data.csv]
, 1, 2, 3, 4
5, 12.63 , 33.82 , 31.71 , 29.73
4, 34.75 , 32.14 , 29.31 , 26.70
3, 33.55 , 30.27 , 27.17 , 23.43
2, 31.02 , 29.42 , 26.65 , 23.61
1, 28.00 , 27.04 , 25.39 , 22.60
[out.csv]
X,Y,Z
1,1,28.00
1,2,27.04
1,3,25.39
1,4,22.60
2,1,31.02
2,1,27.04
(中略）
5,3,31.71
5,4,29.73
798 ：デフォルトの名無しさん：2007/05/26(土) 03:41:35
>>797
宿題乙＾＾
宿題乙＾＾
799 ：デフォルトの名無しさん：2007/05/26(土) 04:09:08
>>797
さてコレをどれくらい短くできるだろうか
use strict;
open FILE, "data.csv";
my @data;
my @index;
my @ys;
for my $line (<FILE>) {
chomp $line;
unless (@index) {
@index = split(/\s*,\s*/, $line);
shift @index;
next;
}
my($y, @d) = split(/\s*,\s*/, $line);
push(@ys, $y);
for (my $i=0; $i < @d; $i++) {
$data[ $index[$i] ][ $y ] = $d[$i];
}
}
close FILE;
open FILE, ">out.csv";
for my $x (@index) {
for my $y (@ys) {
print FILE "$x, $y, $data[$x][$y]\n";
}
}
さてコレをどれくらい短くできるだろうか
use strict;
open FILE, "data.csv";
my @data;
my @index;
my @ys;
for my $line (<FILE>) {
chomp $line;
unless (@index) {
@index = split(/\s*,\s*/, $line);
shift @index;
next;
}
my($y, @d) = split(/\s*,\s*/, $line);
push(@ys, $y);
for (my $i=0; $i < @d; $i++) {
$data[ $index[$i] ][ $y ] = $d[$i];
}
}
close FILE;
open FILE, ">out.csv";
for my $x (@index) {
for my $y (@ys) {
print FILE "$x, $y, $data[$x][$y]\n";
}
}
800 ：デフォルトの名無しさん：2007/05/26(土) 08:04:48
>>799
use strict;
open FILE, "data.csv";
my(@data, @index, @ys);
while(<FILE>) {
chomp;
my($y, @d) = split /\s*,\s*/;
@index = @d, next unless @index;
push @ys, $y;
$data[ $index[$_] ][$y] = $d[$_] for 0..@d-1;
}
open FILE, ">", "out.csv";
for my $x (sort {$a <=> $b} @index) {
for my $y (sort {$a <=> $b} @ys) {
print FILE "$x, $y, $data[$x][$y]\n";
}
}
close FILE;
use strict;
open FILE, "data.csv";
my(@data, @index, @ys);
while(<FILE>) {
chomp;
my($y, @d) = split /\s*,\s*/;
@index = @d, next unless @index;
push @ys, $y;
$data[ $index[$_] ][$y] = $d[$_] for 0..@d-1;
}
open FILE, ">", "out.csv";
for my $x (sort {$a <=> $b} @index) {
for my $y (sort {$a <=> $b} @ys) {
print FILE "$x, $y, $data[$x][$y]\n";
}
}
close FILE;
801 ：デフォルトの名無しさん：2007/05/26(土) 08:26:14
一応質問者の為に一行サービスしといたけど。本嫁本。
こんなの例題に出てくるだろが。
open IN, "data.csv" ;
open OUT, ">", "out.csv" ;
print OUT "X,Y,Z＼n" ;
(undef,my @index ) = split /,/, do{ $_ = <IN> ; s/＼s+//g ; $_ } ;
for ( reverse (<IN>) ){
s/＼s+//g ;
next if /^#/ ;
my ( $index, @dat ) = split /,/ ;
for my $i ( 0 .. $#dat ){
print OUT join "," ,$index,$index[$i],$dat[$i] . "＼n" ;
}
}
close IN ;
close OUT ;
こんなの例題に出てくるだろが。
open IN, "data.csv" ;
open OUT, ">", "out.csv" ;
print OUT "X,Y,Z＼n" ;
(undef,my @index ) = split /,/, do{ $_ = <IN> ; s/＼s+//g ; $_ } ;
for ( reverse (<IN>) ){
s/＼s+//g ;
next if /^#/ ;
my ( $index, @dat ) = split /,/ ;
for my $i ( 0 .. $#dat ){
print OUT join "," ,$index,$index[$i],$dat[$i] . "＼n" ;
}
}
close IN ;
close OUT ;
802 ：デフォルトの名無しさん：2007/05/26(土) 10:48:45
>>799-801
おまいらやさしいな
おまいらやさしいな
>>799-801
皆さん、どうもありがとうございます。
教えていただいたコードを読んで勉強します。
ところで、私のような初心者向けの本にはどんなものがありますか？
現在手元には、「Perlの絵本」といわゆる「らくだ本」の2冊がありますが、前者はまったくの初心者向けで今回の質問の答えは見いだせません。
一方、後者は私には取っつきにくくて、ヒントが書いてあるのかも知れませんが、見つけられませんでした。
なお、Visual BASICとTurbo PASCALはある程度勉強しました。
近くに大きな本屋がないので、現物を手にとって見比べることができません。アドバイスをいただければ幸いです。よろしくお願いします。
皆さん、どうもありがとうございます。
教えていただいたコードを読んで勉強します。
ところで、私のような初心者向けの本にはどんなものがありますか？
現在手元には、「Perlの絵本」といわゆる「らくだ本」の2冊がありますが、前者はまったくの初心者向けで今回の質問の答えは見いだせません。
一方、後者は私には取っつきにくくて、ヒントが書いてあるのかも知れませんが、見つけられませんでした。
なお、Visual BASICとTurbo PASCALはある程度勉強しました。
近くに大きな本屋がないので、現物を手にとって見比べることができません。アドバイスをいただければ幸いです。よろしくお願いします。
804 ：デフォルトの名無しさん：2007/05/26(土) 14:26:34
リャマ本かクックブックあたり嫁
805 ：デフォルトの名無しさん：2007/05/26(土) 15:31:12
/(\b\w+)\1/
という正規表現が
hogehogeにマッチして
/(\b\w+\b)\1/
という正規表現が
hoge hogeにマッチしないのは何故なんでしょうか?
という正規表現が
hogehogeにマッチして
/(\b\w+\b)\1/
という正規表現が
hoge hogeにマッチしないのは何故なんでしょうか?
806 ：デフォルトの名無しさん：2007/05/26(土) 15:36:26
* キャプチャされるのは、正規表現ではなくマッチした文字列
* \b は文字を消費しない。
* \b は文字を消費しない。
807 ：デフォルトの名無しさん：2007/05/26(土) 16:15:33
>>803
時間をかけて、「らくだ本」じっくりと２回読めばいい。
１回目は、解らない部分には「？」印を付けて、深追いしない。
２回目は、「？」印を付けた部分を重点的に読む。
その過程がなければ、らくだ本を辞書のように使うことはできない。
時間をかけて、「らくだ本」じっくりと２回読めばいい。
１回目は、解らない部分には「？」印を付けて、深追いしない。
２回目は、「？」印を付けた部分を重点的に読む。
その過程がなければ、らくだ本を辞書のように使うことはできない。
808 ：デフォルトの名無しさん：2007/05/26(土) 17:09:49
リャマ本の第四版まだかなー
本家だと２００５年に出てるんだよね
ラクダさんも早く新しいの出して欲しいな
本家だと２００５年に出てるんだよね
ラクダさんも早く新しいの出して欲しいな
809 ：デフォルトの名無しさん：2007/05/26(土) 18:15:30
810 ：デフォルトの名無しさん：2007/05/26(土) 19:24:22
大変にスマソ
ひょっとして use encoding でコード指定すると \w が日本語（文字）にもマッチする仕様？
ひょっとして use encoding でコード指定すると \w が日本語（文字）にもマッチする仕様？
812 ：デフォルトの名無しさん：2007/05/26(土) 20:17:05
>>810
perl + 日本語には興味無いんで調べたが、perlunicode にまんま書いてあるぞ。
o Character classes in regular expressions match characters instead
of bytes and match against the character properties specified in
the Unicode properties database. "＼w" can be used to match a
Japanese ideograph, for instance.
perl + 日本語には興味無いんで調べたが、perlunicode にまんま書いてあるぞ。
o Character classes in regular expressions match characters instead
of bytes and match against the character properties specified in
the Unicode properties database. "＼w" can be used to match a
Japanese ideograph, for instance.
813 ：デフォルトの名無しさん：2007/05/26(土) 20:27:38
814 ：デフォルトの名無しさん：2007/05/26(土) 20:39:14
815 ：デフォルトの名無しさん：2007/05/26(土) 21:20:04
懐かしいな jcode.pl ってまだあったんだ
cgiのもなんかライブラリあったな
cgiのもなんかライブラリあったな
816 ：デフォルトの名無しさん：2007/05/26(土) 21:22:41
cgi-lib.plﾅﾂｶｼｽ
817 ：デフォルトの名無しさん：2007/05/26(土) 23:38:11
…。perl…。
perl.といえば、perldl-command.が…
!(-＿Φ+){yes, So sexy.}
perl.といえば、perldl-command.が…
!(-＿Φ+){yes, So sexy.}
819 ：デフォルトの名無しさん：2007/05/27(日) 04:04:33
ログファイルを合成する処理で、困っています。
@log=("1.txt","2.txt","3.txt","4.txt");
foreach $filename(@log)
{
open(LOG,$filename) || &er_("Can't open $filename");
@lines = <LOG>;
close(LOG);
}
@linesの中に、全てのテキスト内容を合成させた物が
入ってほしいのですが、最後に代入した4.txtの内容しか
入ってくれません。なぜでしょうか。
また、foreachで廻すのを条件として、
改造案を指南いただけると嬉しいです。
@log=("1.txt","2.txt","3.txt","4.txt");
foreach $filename(@log)
{
open(LOG,$filename) || &er_("Can't open $filename");
@lines = <LOG>;
close(LOG);
}
@linesの中に、全てのテキスト内容を合成させた物が
入ってほしいのですが、最後に代入した4.txtの内容しか
入ってくれません。なぜでしょうか。
また、foreachで廻すのを条件として、
改造案を指南いただけると嬉しいです。
820 ：デフォルトの名無しさん：2007/05/27(日) 04:22:02
@lines = <LOG>;
の部分を
my @tmplines = <LOG>;
push(@lines, @tmplines);
の２行に置き換えてください。
千奈美に最後のやつしか残らないのは、
@lines = <LOG>;
が上書きしてるからです。
だから最後の結果しか残らない。
の部分を
my @tmplines = <LOG>;
push(@lines, @tmplines);
の２行に置き換えてください。
千奈美に最後のやつしか残らないのは、
@lines = <LOG>;
が上書きしてるからです。
だから最後の結果しか残らない。
821 ：デフォルトの名無しさん：2007/05/27(日) 06:28:04
>>820
ありがとうございます！できました。
ありがとうございます！できました。
822 ：デフォルトの名無しさん：2007/05/27(日) 18:20:34
cpanで
>Are you ready for manual configuration? [yes]
毎回、noを答えるんですけど、これ抑制できないんですか？
>Are you ready for manual configuration? [yes]
毎回、noを答えるんですけど、これ抑制できないんですか？
823 ：デフォルトの名無しさん：2007/05/28(月) 00:37:04
>>822
> Are you ready for manual configuration?
俺は個人macもsolarisもyes選択してカスタマイズしたから、
最初にnoを選んだ時の挙動は分らんが、抑制もくそもこれって
最初の一回きりだろ？俺の環境だと出てこないんだけど。
何か変な事やってないか？
> Are you ready for manual configuration?
俺は個人macもsolarisもyes選択してカスタマイズしたから、
最初にnoを選んだ時の挙動は分らんが、抑制もくそもこれって
最初の一回きりだろ？俺の環境だと出てこないんだけど。
何か変な事やってないか？
824 ：デフォルトの名無しさん：2007/05/31(木) 15:48:16
>>546 の
sub flatten(@) { map { ref $_ eq "ARRAY" ? flatten(@$_) : $_ } @_ }」
の
flatten(@)は配列以外を引数に取れないということでしょうか？
あと
@deff = grep{ !{map{$_,1}@FileA }->{$_}}@FileB;
のmap{$_,1}@FileAなのですが{$_,1}はどういう式なのでしょうか
sub flatten(@) { map { ref $_ eq "ARRAY" ? flatten(@$_) : $_ } @_ }」
の
flatten(@)は配列以外を引数に取れないということでしょうか？
あと
@deff = grep{ !{map{$_,1}@FileA }->{$_}}@FileB;
のmap{$_,1}@FileAなのですが{$_,1}はどういう式なのでしょうか
825 ：デフォルトの名無しさん：2007/05/31(木) 16:55:50
>>824
1) プロトタイプの@は残りの引数をすべてリストとして取り込むという意味。
(@) にはあまり意味がないんだけど、perlsubでも読んどき。
2) map の引数のBLOCKはリストコンテキストで評価されるから、
$_, 1 は $_ と 1 からなるリスト。
1) プロトタイプの@は残りの引数をすべてリストとして取り込むという意味。
(@) にはあまり意味がないんだけど、perlsubでも読んどき。
2) map の引数のBLOCKはリストコンテキストで評価されるから、
$_, 1 は $_ と 1 からなるリスト。
826 ：デフォルトの名無しさん：2007/06/01(金) 10:44:52
はじめまして、 Perl 5.005_03 の世界から来ました。こんにちは。
最近の Perl でコマンドラインオプションの処理をする場合の標準を教えてください。
最近の Perl でコマンドラインオプションの処理をする場合の標準を教えてください。
827 ：デフォルトの名無しさん：2007/06/01(金) 11:02:55
>>826
Getopt::StdかGetopt::Longを使うのがいいよ。どっちも標準モジュール。
Getopt::LongはGetopt::Stdの機能も含むからGetopt::Longのほうがおすすめ。
Getopt::StdかGetopt::Longを使うのがいいよ。どっちも標準モジュール。
Getopt::LongはGetopt::Stdの機能も含むからGetopt::Longのほうがおすすめ。
828 ：デフォルトの名無しさん：2007/06/01(金) 11:04:23
@_ で済まなかったっけか
829 ：デフォルトの名無しさん：2007/06/01(金) 12:00:06
>>828
自分でちまちまとオプション解析するならそれでいいけどな。
自分でちまちまとオプション解析するならそれでいいけどな。
いや、そんなことない。だまされるところだった。
831 ：デフォルトの名無しさん：2007/06/01(金) 13:21:53
832 ：デフォルトの名無しさん：2007/06/01(金) 16:08:31
>>825
ありがとうございます
ありがとうございます
833 ：デフォルトの名無しさん：2007/06/01(金) 16:39:29
my $text = join '', <>;
$text =~ s/\s*//g;
を1行でする方法ないですか.
1行でなくとも見た目がよければいいです。
あとファイルの最初にmy宣言すると、その後のサブルーチン内でも
使えてしまうのですが、これは何か対策はありますでしょうか
$text =~ s/\s*//g;
を1行でする方法ないですか.
1行でなくとも見た目がよければいいです。
あとファイルの最初にmy宣言すると、その後のサブルーチン内でも
使えてしまうのですが、これは何か対策はありますでしょうか
834 ：デフォルトの名無しさん：2007/06/01(金) 16:51:36
(my $text = join '', <>) =~ s/\s*//g;
とか出来んわけではないが分けて書いたほうが見た目はよいだろ。
> あとファイルの最初にmy宣言すると、その後のサブルーチン内でも
> 使えてしまうのですが、これは何か対策はありますでしょうか
ファイルスコープのmyはグローバル変数だから、そういうもの。
嫌なら中括弧で囲っとけばいい。
とか出来んわけではないが分けて書いたほうが見た目はよいだろ。
> あとファイルの最初にmy宣言すると、その後のサブルーチン内でも
> 使えてしまうのですが、これは何か対策はありますでしょうか
ファイルスコープのmyはグローバル変数だから、そういうもの。
嫌なら中括弧で囲っとけばいい。
835 ：デフォルトの名無しさん：2007/06/01(金) 16:58:41
なるほど、ありがとうございました
836 ：デフォルトの名無しさん：2007/06/01(金) 17:06:21
my $text = join '', map {s/\s*//g; $_} (<>);
このぐらいなら、まあいい？
このぐらいなら、まあいい？
837 ：デフォルトの名無しさん：2007/06/01(金) 17:10:06
$/使った方が速いと思うけど、2文にならざるを得ないな。
838 ：デフォルトの名無しさん：2007/06/01(金) 17:17:50
my $text = do{ local $/ ; $_ = <> ; s/\s*//g ; $_ } ;
実質4行w
実質4行w
839 ：デフォルトの名無しさん：2007/06/01(金) 19:21:13
s/\s*//g, $text.=$_ for <>;
840 ：デフォルトの名無しさん：2007/06/01(金) 19:23:33
ああ、my付けなきゃいけないのか
my $text = join "", map { s/\s*//;$_} <>;
my $text = join "", map { s/\s*//;$_} <>;
841 ：デフォルトの名無しさん：2007/06/01(金) 19:43:02
(my $text = do {local $/; <>}) =~ s/\s+//g;
842 ：デフォルトの名無しさん：2007/06/01(金) 20:35:25
>>837
pu
pu
843 ：デフォルトの名無しさん：2007/06/01(金) 23:04:43
ぶっちゃけ遊びとしても「１行で書く」っていうのは意味ないと思うｗ
844 ：デフォルトの名無しさん：2007/06/01(金) 23:14:33
845 ：デフォルトの名無しさん：2007/06/01(金) 23:45:56
>>844
>826 名前：デフォルトの名無しさん：2007/06/01(金) 10:44:52
>はじめまして、 Perl 5.005_03 の世界から来ました。こんにちは。
>
>最近の Perl でコマンドラインオプションの処理をする場合の標準を教えてください。
>コマンドラインオプションの処理をする
>コマンドラインオプションの処理をする
>コマンドラインオプションの処理をする
>826 名前：デフォルトの名無しさん：2007/06/01(金) 10:44:52
>はじめまして、 Perl 5.005_03 の世界から来ました。こんにちは。
>
>最近の Perl でコマンドラインオプションの処理をする場合の標準を教えてください。
>コマンドラインオプションの処理をする
>コマンドラインオプションの処理をする
>コマンドラインオプションの処理をする
846 ：デフォルトの名無しさん：2007/06/02(土) 00:07:52
おまんこライン
847 ：デフォルトの名無しさん：2007/06/02(土) 01:45:09
848 ：デフォルトの名無しさん：2007/06/02(土) 02:56:27
単純にコマンドライン引数を見たいなら@ARGVを順番に見ていけばいいけど、
>>826は -Rrt -l --color=auto とかのコマンドラインオプションをパースしたいってことだろ。
学習目的ならいざ知らずそんなもんいちいち自前で処理する奴はマゾ。
>>826は -Rrt -l --color=auto とかのコマンドラインオプションをパースしたいってことだろ。
学習目的ならいざ知らずそんなもんいちいち自前で処理する奴はマゾ。
849 ：デフォルトの名無しさん：2007/06/02(土) 12:28:03
そうそう、Perl 5.005_03が先端だった頃の、
use Getopt::Stdするだけでプラス0.4秒
という時代とは違うんだから。
use Getopt::Stdするだけでプラス0.4秒
という時代とは違うんだから。
850 ：デフォルトの名無しさん：2007/06/03(日) 18:25:59
文字列の全角英数→半角変換って
$j =~ tr/０-９ａ-ｚＡ-Ｚ/0-9a-zA-Z/;
じゃダメなん？
5.8.4で文字列はutf-8なんだけど。
$j =~ tr/０-９ａ-ｚＡ-Ｚ/0-9a-zA-Z/;
じゃダメなん？
5.8.4で文字列はutf-8なんだけど。
851 ：デフォルトの名無しさん：2007/06/03(日) 18:42:50
>>851
英数以外が化けるんだよなぁ…
英数以外が化けるんだよなぁ…
853 ：デフォルトの名無しさん：2007/06/03(日) 19:13:39
化けてるってのはどうやって確認してるの？
854 ：デフォルトの名無しさん：2007/06/03(日) 19:15:52
日本語のマルチバイトはsjis、euc-jp、utf-8（他にもいろいろ）あるわけで、
スクリプトのソースや$jに入っているcharsetが何かがわかんないと答えようがないわな。
スクリプトのソースや$jに入っているcharsetが何かがわかんないと答えようがないわな。
853>>
入力と出力をprintして見比べてるけどマズかった？
入力と出力をprintして見比べてるけどマズかった？
856 ：デフォルトの名無しさん：2007/06/03(日) 19:31:18
それは大いにマズい。
$jの文字コード/UTFフラグの有無で挙動が変わってくる。
$jの文字コード/UTFフラグの有無で挙動が変わってくる。
858 ：デフォルトの名無しさん：2007/06/03(日) 19:49:23
use Devel::Peek;
Dump $j;
Dump $j;
860 ：デフォルトの名無しさん：2007/06/03(日) 20:06:37
なんか要領がつかめないんだけど、
入力ソースはなんなわけ？
入力ソースはなんなわけ？
>>860
適当なサイトから拾ってきたフィード。
適当なサイトから拾ってきたフィード。
862 ：デフォルトの名無しさん：2007/06/03(日) 20:18:46
binmodeでストリームに適当なレイヤをかぶせるか、
Encode::decodeに通して適切にutf-8フラグが立つようにせにゃならん。
Encode::decodeに通して適切にutf-8フラグが立つようにせにゃならん。
864 ：デフォルトの名無しさん：2007/06/04(月) 13:51:27
ねえ。これから態度の悪い質問者には答えない様にしろよ。
付け上がって調子乗ってくるのがオチなんだからさ。
865 ：デフォルトの名無しさん：2007/06/04(月) 14:05:21
俺が正規表現でボコボコにしてやんよ
∧＿∧
( ･ω･)＝つ≡つ
(っ ≡つ＝つ
/ ) s/.*/ﾊﾞﾊﾞﾊﾞﾊﾞ/g
( /￣∪
∧＿∧
( ･ω･)＝つ≡つ
(っ ≡つ＝つ
/ ) s/.*/ﾊﾞﾊﾞﾊﾞﾊﾞ/g
( /￣∪
866 ：デフォルトの名無しさん：2007/06/04(月) 14:35:29
>>864
付け上がっているのはどっちですか?
ここは質問箱でしょ?
質問してください、というスレなんでしょ?
質問者あってのスレなんですよ。
そんな逆切れ見たいなことを言っていないで、
質問してもらったら「質問してくださってありがとう」くらい言ったらどうですか!
付け上がっているのはどっちですか?
ここは質問箱でしょ?
質問してください、というスレなんでしょ?
質問者あってのスレなんですよ。
そんな逆切れ見たいなことを言っていないで、
質問してもらったら「質問してくださってありがとう」くらい言ったらどうですか!
867 ：デフォルトの名無しさん：2007/06/04(月) 15:48:30
これは酷い釣り糸
868 ：デフォルトの名無しさん：2007/06/04(月) 16:27:29
>>866
とっとと質問せんかボケ
とっとと質問せんかボケ
869 ：デフォルトの名無しさん：2007/06/04(月) 17:02:53
870 ：デフォルトの名無しさん：2007/06/04(月) 17:07:09
>>866
何が質問者あってだよ。回答者があってだろ。
回答者が居ないと何も出来ない癖に。
後 >>1 にも書いてあるけどここは "Perlの奥深さについて皆で語り合い、追求する"スレ。
低レベルな質問と会話はwebprog板でお願いします。
何が質問者あってだよ。回答者があってだろ。
回答者が居ないと何も出来ない癖に。
後 >>1 にも書いてあるけどここは "Perlの奥深さについて皆で語り合い、追求する"スレ。
低レベルな質問と会話はwebprog板でお願いします。
871 ：デフォルトの名無しさん：2007/06/04(月) 17:14:03
872 ：デフォルトの名無しさん：2007/06/04(月) 17:15:39
「>>1 にも書いてあるけど」などという書き出しで
あたかも「みんなの意見」であるように強調しておきながら、
結局はラスト1行で単なる頭の悪い煽り屋さんであることをばらしてしまっていますね。
何だかんだいいつつ、自分の「低レベルな会話」は全面的に許してしまっている時点で、
説得力はゼロですね。修行を積んで出直しましょう。
あたかも「みんなの意見」であるように強調しておきながら、
結局はラスト1行で単なる頭の悪い煽り屋さんであることをばらしてしまっていますね。
何だかんだいいつつ、自分の「低レベルな会話」は全面的に許してしまっている時点で、
説得力はゼロですね。修行を積んで出直しましょう。
873 ：デフォルトの名無しさん：2007/06/04(月) 17:19:05
>>871
暇なら自分で質問を作って自分で回答していればいいじゃないですか。
内容によっては決して無意味ではありませんよ。
高度な質問と高度な回答をセットで提供するぶんには、結構喜ばれると思います。
とはいえ、無職の能無しがそういう問答を自演するのは難しいでしょうが…。
暇なら自分で質問を作って自分で回答していればいいじゃないですか。
内容によっては決して無意味ではありませんよ。
高度な質問と高度な回答をセットで提供するぶんには、結構喜ばれると思います。
とはいえ、無職の能無しがそういう問答を自演するのは難しいでしょうが…。
874 ：デフォルトの名無しさん：2007/06/04(月) 17:21:42
皆の意見として言ったつもりは無いな。建前のような物。
ついでに俺は許してないよ? WebProgに案内してるだけ。
お前も個人叩きをするタダの頭の悪い煽り屋にしか
見えないんだが、本文に対する反論は結局ナシなのかな?
875 ：デフォルトの名無しさん：2007/06/04(月) 17:28:38
>>874
なるほど、自分で自分を許していないのですね。
ではあなたが黙れば解決です。あなたにできる最大の「低レベルな会話の排除」ですね！
あと、「本文」というのは面白い言い方だと思います。
相手に突っ込まれて、いかに馬鹿なことを言っていたかが自覚できた途端に
そこを蜥蜴の尻尾みたいに切り捨てて、「ノーダメージだよーん」ということにするのですね。
なるほど、自分で自分を許していないのですね。
ではあなたが黙れば解決です。あなたにできる最大の「低レベルな会話の排除」ですね！
あと、「本文」というのは面白い言い方だと思います。
相手に突っ込まれて、いかに馬鹿なことを言っていたかが自覚できた途端に
そこを蜥蜴の尻尾みたいに切り捨てて、「ノーダメージだよーん」ということにするのですね。
876 ：デフォルトの名無しさん：2007/06/04(月) 17:34:27
どうでもいい議論はよそでやれよ。
877 ：デフォルトの名無しさん：2007/06/04(月) 17:40:23
定期的に沸いてる奴だろｗ
ほっとけ
ほっとけ
878 ：デフォルトの名無しさん：2007/06/04(月) 17:53:57
>>875
んーそうじゃないな。あくまでwebprog板でやれと希望してるだけだ。
本文って言い方そんなに面白いかな? お前に言われた事は自覚した、
とする。その次の段階の話だ。その次の話が出来なければただの
煽り合いで終わってしまうだろう? 後俺は120%黙る気は無いので宜しく。
んーそうじゃないな。あくまでwebprog板でやれと希望してるだけだ。
本文って言い方そんなに面白いかな? お前に言われた事は自覚した、
とする。その次の段階の話だ。その次の話が出来なければただの
煽り合いで終わってしまうだろう? 後俺は120%黙る気は無いので宜しく。
879 ：デフォルトの名無しさん：2007/06/04(月) 17:55:19
>>864-878
お前らまとめて詞ね
お前らまとめて詞ね
880 ：デフォルトの名無しさん：2007/06/04(月) 18:01:04
>>878
低レベルな質問と会話はwebprog板でお願いします。
低レベルな質問と会話はwebprog板でお願いします。
881 ：デフォルトの名無しさん：2007/06/04(月) 18:07:51
まぁ、こんなもんでしょう。
「ここは "Perlの奥深さについて皆で語り合い、追求する"スレ」であるという理由で
「低レベルな質問と会話はwebprog板でお願い」していた人間も、
つまらないプライドをちょっと傷つけられたら、Perlの奥深さとまるで関係のない低レベルな会話だと自覚しつつも
「120%黙る気は無い」とまで言い切ってしまうのですよ。
俺はやっていいけどお前はダメ、の精神で物事を動かせると思ってるボクちゃんってこんな感じなんです。
「ここは "Perlの奥深さについて皆で語り合い、追求する"スレ」であるという理由で
「低レベルな質問と会話はwebprog板でお願い」していた人間も、
つまらないプライドをちょっと傷つけられたら、Perlの奥深さとまるで関係のない低レベルな会話だと自覚しつつも
「120%黙る気は無い」とまで言い切ってしまうのですよ。
俺はやっていいけどお前はダメ、の精神で物事を動かせると思ってるボクちゃんってこんな感じなんです。
882 ：デフォルトの名無しさん：2007/06/04(月) 18:14:12
スーパーキチガイタイム
883 ：デフォルトの名無しさん：2007/06/04(月) 18:14:54
なんか、ここぞとばかりに言い負かそうとしてるが、それも違う。
俺は毎回このスレで変な奴が出る度に相手してやってるし、
俺自身もwebprogに行く気なんかハナから無い訳で。本音と建前ってやつだな。
ついでに言うとさっさと僕の"本文"に反論してくれませんか。
884 ：デフォルトの名無しさん：2007/06/04(月) 18:17:40
webprog板じゃなくてもいいから議論なら他スレでやれよ
885 ：デフォルトの名無しさん：2007/06/04(月) 18:18:35
>>883
相手すんないっとるんじゃボケ。
相手すんないっとるんじゃボケ。
886 ：デフォルトの名無しさん：2007/06/04(月) 18:34:14
> 俺は毎回このスレで変な奴が出る度に相手してやってるし、
やめてください。
やめてください。
887 ：デフォルトの名無しさん：2007/06/04(月) 18:43:06
888 ：デフォルトの名無しさん：2007/06/04(月) 19:08:39
889 ：デフォルトの名無しさん：2007/06/04(月) 19:33:07
自分が一番変な奴だという自覚が無いんだなｗ
こんだけ嫌われまくってもきづかないほうに賭ける
こんだけ嫌われまくってもきづかないほうに賭ける
890 ：デフォルトの名無しさん：2007/06/04(月) 20:04:26
殆ど一人でやってるように見えるんだけど。
891 ：デフォルトの名無しさん：2007/06/04(月) 20:18:16
892 ：デフォルトの名無しさん：2007/06/04(月) 20:22:43
バレたか・・・
893 ：デフォルトの名無しさん：2007/06/04(月) 21:33:09
ﾊﾞﾛｽｗ
894 ：デフォルトの名無しさん：2007/06/04(月) 21:50:35
自演荒らしのImageMagick君ってこれと同一人物っぽいなｗ
http://www.gac.jp/article/index.php?stats=question&category=12&id=20208&command=msg
2chなんかに来ずにここで教えてクン続けてればよかったのに
http://www.gac.jp/article/index.php?stats=question&category=12&id=20208&command=msg
2chなんかに来ずにここで教えてクン続けてればよかったのに
895 ：デフォルトの名無しさん：2007/06/04(月) 21:59:04
さすがにそこまでストーキングっぽいことしなくてもいいのに・・・
896 ：デフォルトの名無しさん：2007/06/04(月) 22:45:50
897 ：デフォルトの名無しさん：2007/06/04(月) 23:15:20
質問します!
open FH,"/hoge/hoge.txt" #hoge.txtを開く
while (<FH>) { #FHファイルを行単位で読み込んでいく
$Str = $_; #変数Strにデフォルトで入力やパターンマッチになる特殊変数を代入
if( $Str =~ /__\w+__/g ){ #①???
if( $Str =~ /__KEYWORD__/ ){ #②???
$Str =~ s/__KEYWORD__/KEY/; #__KEYWORD__をKEYに置換する
}
}
print $str;
}
close FH;
コメントの部分の①と②の説明がうまくできません。
①は=~の部分がわからず、②は/と/で挟まなくて__KEYWORD__だけでも
同じ結果が返ってくるのではないかと思って悩んでいます。
よろしかった教えて頂けないでしょうか？
open FH,"/hoge/hoge.txt" #hoge.txtを開く
while (<FH>) { #FHファイルを行単位で読み込んでいく
$Str = $_; #変数Strにデフォルトで入力やパターンマッチになる特殊変数を代入
if( $Str =~ /__\w+__/g ){ #①???
if( $Str =~ /__KEYWORD__/ ){ #②???
$Str =~ s/__KEYWORD__/KEY/; #__KEYWORD__をKEYに置換する
}
}
print $str;
}
close FH;
コメントの部分の①と②の説明がうまくできません。
①は=~の部分がわからず、②は/と/で挟まなくて__KEYWORD__だけでも
同じ結果が返ってくるのではないかと思って悩んでいます。
よろしかった教えて頂けないでしょうか？
898 ：デフォルトの名無しさん：2007/06/04(月) 23:24:58
%hoge;
$age = {%hoge};
というコードがあった場合、最後の代入で行われているのは
無名ハッシュコンストラクタの中でハッシュを評価することで、ハッシュのキーと値
からなるリストが生成され、それらを要素とする無名ハッシュが生成されて、そのリファレンスが
$ageに代入される。つまり%hogeのコピーのリファレンスを代入しているという考えでいいんでしょうか?
$age = {%hoge};
というコードがあった場合、最後の代入で行われているのは
無名ハッシュコンストラクタの中でハッシュを評価することで、ハッシュのキーと値
からなるリストが生成され、それらを要素とする無名ハッシュが生成されて、そのリファレンスが
$ageに代入される。つまり%hogeのコピーのリファレンスを代入しているという考えでいいんでしょうか?
899 ：デフォルトの名無しさん：2007/06/04(月) 23:46:46
900 ：デフォルトの名無しさん：2007/06/04(月) 23:47:18
なるほど、自分で自分を許していないのですね。
ではあなたが黙れば解決です。あなたにできる最大の「低レベルな会話の排除」ですね！
あと、「本文」というのは面白い言い方だと思います。
相手に突っ込まれて、いかに馬鹿なことを言っていたかが自覚できた途端に
そこを蜥蜴の尻尾みたいに切り捨てて、「ノーダメージだよーん」ということにするのですね。
ではあなたが黙れば解決です。あなたにできる最大の「低レベルな会話の排除」ですね！
あと、「本文」というのは面白い言い方だと思います。
相手に突っ込まれて、いかに馬鹿なことを言っていたかが自覚できた途端に
そこを蜥蜴の尻尾みたいに切り捨てて、「ノーダメージだよーん」ということにするのですね。
901 ：デフォルトの名無しさん：2007/06/05(火) 00:05:57
>>897
なんかすごい無駄だらけなソースだなあ・・・
なんかすごい無駄だらけなソースだなあ・・・
902 ：デフォルトの名無しさん：2007/06/05(火) 00:31:50
ノーダメージだよーん
903 ：デフォルトの名無しさん：2007/06/05(火) 00:33:23
904 ：デフォルトの名無しさん：2007/06/05(火) 00:42:53
なんかすごい無駄だらけなスレだなあ・・・
905 ：デフォルトの名無しさん：2007/06/05(火) 00:48:01
粘着荒らし酷いな
906 ：デフォルトの名無しさん：2007/06/05(火) 00:52:00
粘着した方が勝ち！
907 ：デフォルトの名無しさん：2007/06/05(火) 01:14:38
ノーダメージだよーん
908 ：デフォルトの名無しさん：2007/06/05(火) 01:34:33
荒らしはやめてー＞＜
909 ：デフォルトの名無しさん：2007/06/05(火) 04:03:09
変な奴が現れたら一人も漏らさず全部相手するように
それがこのスレのお約束
それがこのスレのお約束
910 ：デフォルトの名無しさん：2007/06/05(火) 09:34:09
>>909
お前、もう帰っていいぞ。
お前、もう帰っていいぞ。
911 ：デフォルトの名無しさん：2007/06/05(火) 10:21:08
次スレのテンプレのことについて、次の提案があるのだが、どうだろうか？
１．過去スレを入れるのはやめる。（前スレだけがあればよいと思う）
２．「エラーなどの問題への対処の相談には、問題が再現する完全かつ最短のソースを
作成して下さい。作成する過程で問題が解決する場合も多いです。」
との注意書きを >>1 に入れる。
（質問者が必要な情報を小出しにするのを防ぐため）
３．>>10をテンプレを入れる（但し、内容は、以下のように少し変更する）。
---------------------------------------------------------
# 【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)";
# 次に、あなたが実行したい処理の内容を入れて下さい。
print "SJISには、「十表貼申予暴」のようなダメ文字がある。\n";
sleep(1);
# 以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
# おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。
１．過去スレを入れるのはやめる。（前スレだけがあればよいと思う）
２．「エラーなどの問題への対処の相談には、問題が再現する完全かつ最短のソースを
作成して下さい。作成する過程で問題が解決する場合も多いです。」
との注意書きを >>1 に入れる。
（質問者が必要な情報を小出しにするのを防ぐため）
３．>>10をテンプレを入れる（但し、内容は、以下のように少し変更する）。
---------------------------------------------------------
# 【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)";
# 次に、あなたが実行したい処理の内容を入れて下さい。
print "SJISには、「十表貼申予暴」のようなダメ文字がある。\n";
sleep(1);
# 以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
# おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。
912 ：デフォルトの名無しさん：2007/06/05(火) 11:44:29
あれ？過去スレ保管所みたいなのなかったっけ？
913 ：デフォルトの名無しさん：2007/06/06(水) 12:20:20
914 ：デフォルトの名無しさん：2007/06/06(水) 19:43:33
podやpod2htmlとかで検索していたら、クロスリファレンスという言葉が出てきたのですが
クロスリファレンスで検索してもよくわかりませんでした。
このことに関することが書かれているウェブサイトや文献があったら教えてほしいです。
よろしくお願いします。
クロスリファレンスで検索してもよくわかりませんでした。
このことに関することが書かれているウェブサイトや文献があったら教えてほしいです。
よろしくお願いします。
915 ：デフォルトの名無しさん：2007/06/06(水) 20:07:20
>>914
naoya さんとこの循環参照の解説嫁ば？
ttp://d.hatena.ne.jp/naoya/20051012/1129115986
cross reference って日本語にすれば相互参照で、現実のプログラム中では
ぐるぐる回っちまうから、、、てことで
相互参照、循環参照あたりでググるのもありって事で。
naoya さんとこの循環参照の解説嫁ば？
ttp://d.hatena.ne.jp/naoya/20051012/1129115986
cross reference って日本語にすれば相互参照で、現実のプログラム中では
ぐるぐる回っちまうから、、、てことで
相互参照、循環参照あたりでググるのもありって事で。
916 ：デフォルトの名無しさん：2007/06/06(水) 20:24:49
podでクロスリファレンス言うたら L<> のことちゃうのん？
917 ：デフォルトの名無しさん：2007/06/06(水) 20:38:18
orz...
918 ：デフォルトの名無しさん：2007/06/06(水) 21:11:42
質問～
print my@aaa=(5,5,5,5,5);
print my@bbb=(3,3,3,8,8,8);
↑
これと、
↓
print my@aaa=(5,5,5,5,5);
print @aaa=(3,3,3,8,8,8);
↑
下のほうは使い終わった(もう処理しない予定の)@aaaを再利用しています。
上のやつと下のやつはどっちのほうが処理早いですか？
print my@aaa=(5,5,5,5,5);
print my@bbb=(3,3,3,8,8,8);
↑
これと、
↓
print my@aaa=(5,5,5,5,5);
print @aaa=(3,3,3,8,8,8);
↑
下のほうは使い終わった(もう処理しない予定の)@aaaを再利用しています。
上のやつと下のやつはどっちのほうが処理早いですか？
919 ：デフォルトの名無しさん：2007/06/06(水) 21:23:16
どっちもどっち
好きに使え
好きに使え
920 ：デフォルトの名無しさん：2007/06/06(水) 21:26:15
>>918
use Benchmark;
timethese 1000000, {
test1 => sub {
my@aaa=(5,5,5,5,5);
my@bbb=(3,3,3,8,8,8);
},
test2 => sub {
my@aaa=(5,5,5,5,5);
@aaa=(3,3,3,8,8,8);
}
};
use Benchmark;
timethese 1000000, {
test1 => sub {
my@aaa=(5,5,5,5,5);
my@bbb=(3,3,3,8,8,8);
},
test2 => sub {
my@aaa=(5,5,5,5,5);
@aaa=(3,3,3,8,8,8);
}
};
921 ：デフォルトの名無しさん：2007/06/06(水) 21:26:27
print による時間ロスは等価だとして
use Benchmark qw(timethese) ;
sub op1 { my @one = 0 .. 10_000 ; my @two = 0 .. 10_000 ; }
sub op2 { my @one = 0 .. 10_000 ; @one = 0 .. 10_000 ; }
timethese( 1000, { op1 => 'op1', op2 => 'op2' } ) ;
Benchmark: timing 1000 iterations of op1, op2...
op1: 15 wallclock secs (13.92 usr + 0.26 sys = 14.18 CPU) @ 70.52/s (n=1000)
op2: 22 wallclock secs (19.87 usr + 0.38 sys = 20.25 CPU) @ 49.38/s (n=1000)
use Benchmark qw(timethese) ;
sub op1 { my @one = 0 .. 10_000 ; my @two = 0 .. 10_000 ; }
sub op2 { my @one = 0 .. 10_000 ; @one = 0 .. 10_000 ; }
timethese( 1000, { op1 => 'op1', op2 => 'op2' } ) ;
Benchmark: timing 1000 iterations of op1, op2...
op1: 15 wallclock secs (13.92 usr + 0.26 sys = 14.18 CPU) @ 70.52/s (n=1000)
op2: 22 wallclock secs (19.87 usr + 0.38 sys = 20.25 CPU) @ 49.38/s (n=1000)
922 ：デフォルトの名無しさん：2007/06/06(水) 21:32:11
>>920
後者のほうがちょっとだけ速いな
後者のほうがちょっとだけ速いな
923 ：デフォルトの名無しさん：2007/06/06(水) 21:35:42
>>915-917
L<> のところをしっかり読んでみたらクロスリファレンスってのがありました。
ハイパーリンクのようなものと見て問題ないでしょうか？
pod2htmlの解説でクロスリファレンスという言葉が出てきたときは、なにかこう
クロスリファレンスというものを記述すれば関連するpodがまとめて変換されたり
という、うれしい事が起こるのかななんて妄想してしまいました。（汗
(もともとそういうことができないかなと思って検索していたので・・・)
単純に文書間のリンクであるならば、簡単に理解できそうです。
どうもありがとうございました。
L<> のところをしっかり読んでみたらクロスリファレンスってのがありました。
ハイパーリンクのようなものと見て問題ないでしょうか？
pod2htmlの解説でクロスリファレンスという言葉が出てきたときは、なにかこう
クロスリファレンスというものを記述すれば関連するpodがまとめて変換されたり
という、うれしい事が起こるのかななんて妄想してしまいました。（汗
(もともとそういうことができないかなと思って検索していたので・・・)
単純に文書間のリンクであるならば、簡単に理解できそうです。
どうもありがとうございました。
925 ：デフォルトの名無しさん：2007/06/06(水) 23:53:10
>>921
これは面白いね。
sub op3 { my @one; @one = 0 .. 10_000; my @two; @two = 0 .. 10_000; }
を試したら更に遅くなった。
my @array = 0 .. 10_000;
sub op4 { my @one = @array; my @two = @array; }
sub op5 { my @one; @one = @array; my @two; @two = @array; }
は同じ程度の速度だから、 .. が遅くなるのかな。
これは面白いね。
sub op3 { my @one; @one = 0 .. 10_000; my @two; @two = 0 .. 10_000; }
を試したら更に遅くなった。
my @array = 0 .. 10_000;
sub op4 { my @one = @array; my @two = @array; }
sub op5 { my @one; @one = @array; my @two; @two = @array; }
は同じ程度の速度だから、 .. が遅くなるのかな。
926 ：デフォルトの名無しさん：2007/06/07(木) 00:20:49
リファレンスというか、値を格納する番地を確保する時間の差じゃないかな？
sub op1 { my @one = 0 .. 10_000 ; my @two = 0 .. 10_000 ; }
sub op2 { my @one = 0 .. 10_000 ; @one = 0 .. 10_000 ; }
op2のほうの@oneの書き換え時には、既に値を格納する10000個の番地が出来てるから早くなる。
op1のほうは@oneの番地10000個の他に@twoの番地10000個を作ってるから遅くなるのかなと。
それならば、
my @array = 0 .. 10_000;
sub op4 { my @one = @array; my @two = @array; }
sub op5 { my @one; @one = @array; my @two; @two = @array; }
のop4とop5がほぼ同じスピードってのも納得できそう。(4も5も番地の数は同じ。)
新しく配列作るより、使わなくなった配列を再利用したほうがスピード上がるってことかな～と。
再利用したほうがメモリ効率も良さ気。
sub op1 { my @one = 0 .. 10_000 ; my @two = 0 .. 10_000 ; }
sub op2 { my @one = 0 .. 10_000 ; @one = 0 .. 10_000 ; }
op2のほうの@oneの書き換え時には、既に値を格納する10000個の番地が出来てるから早くなる。
op1のほうは@oneの番地10000個の他に@twoの番地10000個を作ってるから遅くなるのかなと。
それならば、
my @array = 0 .. 10_000;
sub op4 { my @one = @array; my @two = @array; }
sub op5 { my @one; @one = @array; my @two; @two = @array; }
のop4とop5がほぼ同じスピードってのも納得できそう。(4も5も番地の数は同じ。)
新しく配列作るより、使わなくなった配列を再利用したほうがスピード上がるってことかな～と。
再利用したほうがメモリ効率も良さ気。
927 ：デフォルトの名無しさん：2007/06/07(木) 06:17:52
>>926
921 は「 op2 の方が遅い」って話しだぞ
921 は「 op2 の方が遅い」って話しだぞ
928 ：デフォルトの名無しさん：2007/06/07(木) 07:28:18
922のせいに違いない
929 ：デフォルトの名無しさん：2007/06/07(木) 07:41:27
921 デフォルトの名無しさん sage 2007/06/06(水) 21:26:27
print による時間ロスは等価だとして
use Benchmark qw(timethese) ;
sub op1 { my @one = 0 .. 10_000 ; my @two = 0 .. 10_000 ; }
sub op2 { my @one = 0 .. 10_000 ; @one = 0 .. 10_000 ; }
timethese( 1000, { op1 => 'op1', op2 => 'op2' } ) ;
Benchmark: timing 1000 iterations of op1, op2...
op1: 15 wallclock secs (13.92 usr + 0.26 sys = 14.18 CPU) @ 70.52/s (n=1000)
op2: 22 wallclock secs (19.87 usr + 0.38 sys = 20.25 CPU) @ 49.38/s (n=1000)
922 デフォルトの名無しさん sage 2007/06/06(水) 21:32:11
>>920
後者のほうがちょっとだけ速いな
print による時間ロスは等価だとして
use Benchmark qw(timethese) ;
sub op1 { my @one = 0 .. 10_000 ; my @two = 0 .. 10_000 ; }
sub op2 { my @one = 0 .. 10_000 ; @one = 0 .. 10_000 ; }
timethese( 1000, { op1 => 'op1', op2 => 'op2' } ) ;
Benchmark: timing 1000 iterations of op1, op2...
op1: 15 wallclock secs (13.92 usr + 0.26 sys = 14.18 CPU) @ 70.52/s (n=1000)
op2: 22 wallclock secs (19.87 usr + 0.38 sys = 20.25 CPU) @ 49.38/s (n=1000)
922 デフォルトの名無しさん sage 2007/06/06(水) 21:32:11
>>920
後者のほうがちょっとだけ速いな
本要件で誤解を招くまねをした俺を晒すのは分るんだが、
920 の結果を 922 は正しくレスしてる。晒す意味が分らん。
% perl --
use Benchmark;
timethese 1000000, {
test1 => sub { my@aaa=(5,5,5,5,5); my@bbb=(3,3,3,8,8,8); },
test2 => sub { my@aaa=(5,5,5,5,5); @aaa=(3,3,3,8,8,8); }
};
^D
Benchmark: timing 1000000 iterations of test1, test2...
test1: 2 wallclock secs ( 1.47 usr + 0.00 sys = 1.47 CPU) @ 680272.11/s (n=1000000)
test2: 0 wallclock secs ( 1.37 usr + -0.01 sys = 1.36 CPU) @ 735294.12/s (n=1000000)
920 の結果を 922 は正しくレスしてる。晒す意味が分らん。
% perl --
use Benchmark;
timethese 1000000, {
test1 => sub { my@aaa=(5,5,5,5,5); my@bbb=(3,3,3,8,8,8); },
test2 => sub { my@aaa=(5,5,5,5,5); @aaa=(3,3,3,8,8,8); }
};
^D
Benchmark: timing 1000000 iterations of test1, test2...
test1: 2 wallclock secs ( 1.47 usr + 0.00 sys = 1.47 CPU) @ 680272.11/s (n=1000000)
test2: 0 wallclock secs ( 1.37 usr + -0.01 sys = 1.36 CPU) @ 735294.12/s (n=1000000)
931 ：デフォルトの名無しさん：2007/06/07(木) 09:13:36
932 ：デフォルトの名無しさん：2007/06/07(木) 09:24:16
use Benchmark qw(timethese) ;
sub op1 { my @one = 0 .. 10_000 ; my @two = 0 .. 10_000 ; }
sub op2 { my @one = 0 .. 10_000 ; @one = 0 .. 10_000 ; }
timethese( 1000, { op1 => 'op1', op2 => 'op2' } ) ;
Benchmark: timing 1000 iterations of op1, op2...
op1: 4 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 312.21/s (n=1000000)
op2: 6 wallclock secs ( 4.89 usr + 0.00 sys = 4.89 CPU) @ 204.46/s (n=1000000)
>>930と逆の結果っぽいんだけどなんで??
つか最後の
@ 312.21/s (n=1000000)と
@ 204.46/s (n=1000000)って
どっちが早いの？？
sub op1 { my @one = 0 .. 10_000 ; my @two = 0 .. 10_000 ; }
sub op2 { my @one = 0 .. 10_000 ; @one = 0 .. 10_000 ; }
timethese( 1000, { op1 => 'op1', op2 => 'op2' } ) ;
Benchmark: timing 1000 iterations of op1, op2...
op1: 4 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 312.21/s (n=1000000)
op2: 6 wallclock secs ( 4.89 usr + 0.00 sys = 4.89 CPU) @ 204.46/s (n=1000000)
>>930と逆の結果っぽいんだけどなんで??
つか最後の
@ 312.21/s (n=1000000)と
@ 204.46/s (n=1000000)って
どっちが早いの？？
933 ：デフォルトの名無しさん：2007/06/07(木) 09:39:36
実行環境によるって事じゃないのか
934 ：デフォルトの名無しさん：2007/06/07(木) 10:05:22
>>932が回したのは>>921のコードで
>>930は>>921が回した>>920のコードだから。
>>932
op1: 1000 iterations / 3.20 CPU (sec.) = 312.21/s
op2: 1000 iterations / 4.89 CPU (sec.) = 204.46/s
な感じ。なんで n=1000000 なのか知らないけど。
>>930は>>921が回した>>920のコードだから。
>>932
op1: 1000 iterations / 3.20 CPU (sec.) = 312.21/s
op2: 1000 iterations / 4.89 CPU (sec.) = 204.46/s
な感じ。なんで n=1000000 なのか知らないけど。
935 ：デフォルトの名無しさん：2007/06/07(木) 10:07:37
>>932
> op1: 4 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 312.21/s (n=1000000)
> op2: 6 wallclock secs ( 4.89 usr + 0.00 sys = 4.89 CPU) @ 204.46/s (n=1000000)
実時間で4秒かかった。ユーザ時間3.2秒、システム時間0秒=合計3.2秒。1秒で(1000回のループを)312.21回実行できた
実時間で6秒かかった。ユーザ時間4.89秒、システム時間0秒=合計4.89秒。1秒で(1000回のループを)204.46回実行できた
どっちが速いかわかるよな？
> op1: 4 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 312.21/s (n=1000000)
> op2: 6 wallclock secs ( 4.89 usr + 0.00 sys = 4.89 CPU) @ 204.46/s (n=1000000)
実時間で4秒かかった。ユーザ時間3.2秒、システム時間0秒=合計3.2秒。1秒で(1000回のループを)312.21回実行できた
実時間で6秒かかった。ユーザ時間4.89秒、システム時間0秒=合計4.89秒。1秒で(1000回のループを)204.46回実行できた
どっちが速いかわかるよな？
936 ：デフォルトの名無しさん：2007/06/07(木) 10:41:11
>>935
理解しますた。
use Benchmark qw(timethese) ;
timethese( 10000, { op1 => 'op1', op2 => 'op2' } ) ;
sub op1 {for(0..100){my@aa=(5 x 50)}}
sub op2 {map{my@aa=(5 x 50)}(0..100)}
↑
forとmap、ほとんど差が無くて実行するたびに結果が逆転してますた。
ベンチマーク便利だぬ
理解しますた。
use Benchmark qw(timethese) ;
timethese( 10000, { op1 => 'op1', op2 => 'op2' } ) ;
sub op1 {for(0..100){my@aa=(5 x 50)}}
sub op2 {map{my@aa=(5 x 50)}(0..100)}
↑
forとmap、ほとんど差が無くて実行するたびに結果が逆転してますた。
ベンチマーク便利だぬ
937 ：デフォルトの名無しさん：2007/06/07(木) 10:56:10
perl -de0 にて
x map { $_ => $_*$_ } 1..3 # OK: 1 1 2 4 3 9
x map { "a$_" => $_*$_ } 1..3 # NG: syntax error
x map { "a$_" , $_*$_ } 1..3 # NG: syntax error
x map { ("a$_" , $_*$_) } 1..3 # OK: a1 1 a2 4 a3 9
x map { +"a$_" => $_*$_ } 1..3 # OK: a1 1 a2 4 a3 9
x map ("a$_" => $_*$_), 1..3 # NG: a0 1 2 3
x map +("a$_" => $_*$_), 1..3 # OK: a1 1 a2 4 a3 9
x map +{ $_ => $_*$_ }, 1..3 # ??: {1=>1} {2=>4} {3=>9}
やっぱりPerlキモい
x map { $_ => $_*$_ } 1..3 # OK: 1 1 2 4 3 9
x map { "a$_" => $_*$_ } 1..3 # NG: syntax error
x map { "a$_" , $_*$_ } 1..3 # NG: syntax error
x map { ("a$_" , $_*$_) } 1..3 # OK: a1 1 a2 4 a3 9
x map { +"a$_" => $_*$_ } 1..3 # OK: a1 1 a2 4 a3 9
x map ("a$_" => $_*$_), 1..3 # NG: a0 1 2 3
x map +("a$_" => $_*$_), 1..3 # OK: a1 1 a2 4 a3 9
x map +{ $_ => $_*$_ }, 1..3 # ??: {1=>1} {2=>4} {3=>9}
やっぱりPerlキモい
938 ：デフォルトの名無しさん：2007/06/07(木) 11:24:34
普通じゃん
939 ：デフォルトの名無しさん：2007/06/07(木) 11:59:55
my @one;
$one[10001] = undef;
my @s = 0..10000;
sub op1 { my @two = @s ; }
sub op2 { @one = @s ; }
sub op3 { @one = 0..10000; }
sub op4 { my @two; $two[10001] = undef; }
Benchmark: timing 1000 iterations of op1, op2, op3, op4...
op1: 2 wallclock secs ( 1.87 usr + 0.00 sys = 1.87 CPU) @ 534.19/s (n=1000)
op2: 2 wallclock secs ( 1.86 usr + 0.00 sys = 1.86 CPU) @ 536.77/s (n=1000)
op3: 3 wallclock secs ( 3.55 usr + 0.00 sys = 3.55 CPU) @ 282.09/s (n=1000)
op4: 1 wallclock secs ( 0.15 usr + 0.00 sys = 0.15 CPU) @ 6666.67/s (n=1000)
(warning: too few iterations for a reliable count)
時間がかかるのは .. (範囲演算子)。
メモリの領域確保は誤差範囲。
メモリコピーは、まあそれなりのコスト。
$one[10001] = undef;
my @s = 0..10000;
sub op1 { my @two = @s ; }
sub op2 { @one = @s ; }
sub op3 { @one = 0..10000; }
sub op4 { my @two; $two[10001] = undef; }
Benchmark: timing 1000 iterations of op1, op2, op3, op4...
op1: 2 wallclock secs ( 1.87 usr + 0.00 sys = 1.87 CPU) @ 534.19/s (n=1000)
op2: 2 wallclock secs ( 1.86 usr + 0.00 sys = 1.86 CPU) @ 536.77/s (n=1000)
op3: 3 wallclock secs ( 3.55 usr + 0.00 sys = 3.55 CPU) @ 282.09/s (n=1000)
op4: 1 wallclock secs ( 0.15 usr + 0.00 sys = 0.15 CPU) @ 6666.67/s (n=1000)
(warning: too few iterations for a reliable count)
時間がかかるのは .. (範囲演算子)。
メモリの領域確保は誤差範囲。
メモリコピーは、まあそれなりのコスト。
940 ：デフォルトの名無しさん：2007/06/07(木) 12:02:42
というか、メモリコピーが一番の時間コスト要因だな。
941 ：デフォルトの名無しさん：2007/06/07(木) 12:19:48
流れの中すみませんが、printf で質問です。
何番目の引数を使う、という様な引数の交換はできるでしょうか？
PHP でゆうところの次のものです。
> printf( "答えは%2$d" , 10, 11, 12 );
> 結果： 答えは11
何番目の引数を使う、という様な引数の交換はできるでしょうか？
PHP でゆうところの次のものです。
> printf( "答えは%2$d" , 10, 11, 12 );
> 結果： 答えは11
942 ：デフォルトの名無しさん：2007/06/07(木) 12:23:16
つperldoc -f sprintf
試せばいいのに
$ perl -e 'printf( q{答えは%2$d} , 10, 11, 12 );'
答えは11
試せばいいのに
$ perl -e 'printf( q{答えは%2$d} , 10, 11, 12 );'
答えは11
誤解を招きやすいレスを付けて悪かった。
>>921を面白いと感じたのは、op1の方がop2よりも4割も速かったから。
以下のコードで確認したところ、範囲演算子の速度が違っているみたい。
use Benchmark;
timethese undef, {
test0 => sub { my @aaa=0..10_000; },
test1 => sub { my @aaa; my @bbb=0..10_000; },
test2 => sub { my @aaa; @aaa=0..10_000; },
test3 => sub { my @aaa=0..10_000; my @bbb=@aaa; }
};
Benchmark: running test0, test1, test2 for at least 3 CPU seconds...
test0: 3 wallclock secs ( 3.02 usr + 0.00 sys = 3.02 CPU) @ 194.37/s (n=587)
test1: 3 wallclock secs ( 3.46 usr + 0.00 sys = 3.46 CPU) @ 187.57/s (n=649)
test2: 3 wallclock secs ( 3.35 usr + 0.00 sys = 3.35 CPU) @ 88.06/s (n=295)
test3: 4 wallclock secs ( 3.41 usr + 0.00 sys = 3.41 CPU) @ 86.51/s (n=295)
左辺にmyが付かないと内部で配列のコピーが余分に1回発生してるような速度になってる。
>>921を面白いと感じたのは、op1の方がop2よりも4割も速かったから。
以下のコードで確認したところ、範囲演算子の速度が違っているみたい。
use Benchmark;
timethese undef, {
test0 => sub { my @aaa=0..10_000; },
test1 => sub { my @aaa; my @bbb=0..10_000; },
test2 => sub { my @aaa; @aaa=0..10_000; },
test3 => sub { my @aaa=0..10_000; my @bbb=@aaa; }
};
Benchmark: running test0, test1, test2 for at least 3 CPU seconds...
test0: 3 wallclock secs ( 3.02 usr + 0.00 sys = 3.02 CPU) @ 194.37/s (n=587)
test1: 3 wallclock secs ( 3.46 usr + 0.00 sys = 3.46 CPU) @ 187.57/s (n=649)
test2: 3 wallclock secs ( 3.35 usr + 0.00 sys = 3.35 CPU) @ 88.06/s (n=295)
test3: 4 wallclock secs ( 3.41 usr + 0.00 sys = 3.41 CPU) @ 86.51/s (n=295)
左辺にmyが付かないと内部で配列のコピーが余分に1回発生してるような速度になってる。
945 ：デフォルトの名無しさん：2007/06/07(木) 18:14:18
範囲リストをよそに作ってからコピーしてるんだろうな
946 ：デフォルトの名無しさん：2007/06/07(木) 18:27:25
>>944
test0とtest1がなぜこんなに差が出るのか謎だな。
test0とtest1がなぜこんなに差が出るのか謎だな。
947 ：デフォルトの名無しさん：2007/06/07(木) 19:05:01
参考
# pen4 2.4 colinux This is perl, v5.8.8 built for i386-linux-thread-multi
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 3 wallclock secs ( 2.09 usr + 0.98 sys = 3.07 CPU) @ 447.56/s (n=1374)
test1: 3 wallclock secs ( 2.94 usr + 0.28 sys = 3.22 CPU) @ 445.03/s (n=1433)
test2: 3 wallclock secs ( 3.12 usr + 0.11 sys = 3.23 CPU) @ 234.37/s (n=757)
test3: 3 wallclock secs ( 3.03 usr + 0.13 sys = 3.16 CPU) @ 220.89/s (n=698)
pen4 3.0 This is perl, v5.8.4 built for i386-freebsd-64int
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 5 wallclock secs ( 3.22 usr + 0.00 sys = 3.22 CPU) @ 538.41/s (n=1733)
test1: 3 wallclock secs ( 3.18 usr + 0.00 sys = 3.18 CPU) @ 531.81/s (n=1691)
test2: 5 wallclock secs ( 3.23 usr + 0.01 sys = 3.23 CPU) @ 255.69/s (n=827)
test3: 4 wallclock secs ( 3.16 usr + 0.00 sys = 3.16 CPU) @ 260.74/s (n=825)
# セロリンD 2.8 This is perl, v5.8.8 built for i386-linux-thread-multi
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 4 wallclock secs ( 3.23 usr + 0.00 sys = 3.23 CPU) @ 645.82/s (n=2086)
test1: 3 wallclock secs ( 3.19 usr + 0.00 sys = 3.19 CPU) @ 640.13/s (n=2042)
test2: 3 wallclock secs ( 3.15 usr + 0.00 sys = 3.15 CPU) @ 331.11/s (n=1043)
test3: 3 wallclock secs ( 3.15 usr + 0.00 sys = 3.15 CPU) @ 320.95/s (n=1011)
# pen4 2.4 colinux This is perl, v5.8.8 built for i386-linux-thread-multi
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 3 wallclock secs ( 2.09 usr + 0.98 sys = 3.07 CPU) @ 447.56/s (n=1374)
test1: 3 wallclock secs ( 2.94 usr + 0.28 sys = 3.22 CPU) @ 445.03/s (n=1433)
test2: 3 wallclock secs ( 3.12 usr + 0.11 sys = 3.23 CPU) @ 234.37/s (n=757)
test3: 3 wallclock secs ( 3.03 usr + 0.13 sys = 3.16 CPU) @ 220.89/s (n=698)
pen4 3.0 This is perl, v5.8.4 built for i386-freebsd-64int
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 5 wallclock secs ( 3.22 usr + 0.00 sys = 3.22 CPU) @ 538.41/s (n=1733)
test1: 3 wallclock secs ( 3.18 usr + 0.00 sys = 3.18 CPU) @ 531.81/s (n=1691)
test2: 5 wallclock secs ( 3.23 usr + 0.01 sys = 3.23 CPU) @ 255.69/s (n=827)
test3: 4 wallclock secs ( 3.16 usr + 0.00 sys = 3.16 CPU) @ 260.74/s (n=825)
# セロリンD 2.8 This is perl, v5.8.8 built for i386-linux-thread-multi
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 4 wallclock secs ( 3.23 usr + 0.00 sys = 3.23 CPU) @ 645.82/s (n=2086)
test1: 3 wallclock secs ( 3.19 usr + 0.00 sys = 3.19 CPU) @ 640.13/s (n=2042)
test2: 3 wallclock secs ( 3.15 usr + 0.00 sys = 3.15 CPU) @ 331.11/s (n=1043)
test3: 3 wallclock secs ( 3.15 usr + 0.00 sys = 3.15 CPU) @ 320.95/s (n=1011)
948 ：デフォルトの名無しさん：2007/06/07(木) 19:43:32
今北産業
949 ：デフォルトの名無しさん：2007/06/07(木) 19:46:26
my@a = 1..100; なら@aを確保して直に1..100で初期化するように最適化されるけど、
my@a;@a=1..100; だと、@aを確保してから(1..100)を生成して、@aにコピーしてるんだろうな。
my@a;@a=1..100; だと、@aを確保してから(1..100)を生成して、@aにコピーしてるんだろうな。
950 ：デフォルトの名無しさん：2007/06/07(木) 19:56:19
ベンチマーク厨乙
951 ：デフォルトの名無しさん：2007/06/07(木) 20:49:53
XEON 3G This is perl, v5.8.8 built for i686-linux
test0: 3 wallclock secs ( 3.19 usr + 0.00 sys = 3.19 CPU) @ 801.88/s (n=2558)
test1: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 796.88/s (n=2550)
test2: 3 wallclock secs ( 3.18 usr + 0.00 sys = 3.18 CPU) @ 414.78/s (n=1319)
test3: 3 wallclock secs ( 3.17 usr + 0.00 sys = 3.17 CPU) @ 400.63/s (n=1270)
test0: 3 wallclock secs ( 3.19 usr + 0.00 sys = 3.19 CPU) @ 801.88/s (n=2558)
test1: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 796.88/s (n=2550)
test2: 3 wallclock secs ( 3.18 usr + 0.00 sys = 3.18 CPU) @ 414.78/s (n=1319)
test3: 3 wallclock secs ( 3.17 usr + 0.00 sys = 3.17 CPU) @ 400.63/s (n=1270)
952 ：デフォルトの名無しさん：2007/06/07(木) 21:43:01
速いCPUの自慢しやがって！
953 ：デフォルトの名無しさん：2007/06/07(木) 21:56:39
C2Dとmacの結果も見たいです＞＜
954 ：デフォルトの名無しさん：2007/06/08(金) 12:17:03
質問です
gtk2-perl使ってるのですが、なんかいい開発環境ありますか？
今はgeditとlv使いながらやってますが関数追いかけるのが大変で…。
eclipseがいいのであれば使ってみようと思います。他におすすめなのがあればぜひ。
guiはglade使ってて不満はないです。
gtk2-perl使ってるのですが、なんかいい開発環境ありますか？
今はgeditとlv使いながらやってますが関数追いかけるのが大変で…。
eclipseがいいのであれば使ってみようと思います。他におすすめなのがあればぜひ。
guiはglade使ってて不満はないです。
955 ：デフォルトの名無しさん：2007/06/08(金) 12:24:05
男は黙ってvim
956 ：デフォルトの名無しさん：2007/06/08(金) 14:32:33
WineでEmEditor
957 ：デフォルトの名無しさん：2007/06/08(金) 15:50:19
エディタをここで聞くなよ
Linux板のエディタスレでやれ
Linux板のエディタスレでやれ
958 ：デフォルトの名無しさん：2007/06/08(金) 16:30:46
粘着君sage覚えたんだ
959 ：デフォルトの名無しさん：2007/06/09(土) 19:36:05
もちろんそうよ
960 ：デフォルトの名無しさん：2007/06/09(土) 23:53:32
Intel(R) Core(TM)2 CPU T7200 @ 2.00GHz This is perl, v5.8.8 built for
i386-freebsd-64int
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 3 wallclock secs ( 3.22 usr + 0.00 sys = 3.22 CPU) @ 873.63/s (n=2812)
test1: 4 wallclock secs ( 3.17 usr + 0.00 sys = 3.17 CPU) @ 886.54/s (n=2812)
test2: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 482.34/s (n=1545)
test3: 3 wallclock secs ( 3.16 usr + 0.00 sys = 3.16 CPU) @ 444.37/s (n=1406)
i386-freebsd-64int
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 3 wallclock secs ( 3.22 usr + 0.00 sys = 3.22 CPU) @ 873.63/s (n=2812)
test1: 4 wallclock secs ( 3.17 usr + 0.00 sys = 3.17 CPU) @ 886.54/s (n=2812)
test2: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 482.34/s (n=1545)
test3: 3 wallclock secs ( 3.16 usr + 0.00 sys = 3.16 CPU) @ 444.37/s (n=1406)
961 ：デフォルトの名無しさん：2007/06/09(土) 23:59:32
Pentium(R) M processor 2.00GHz This is perl, v5.8.8 built for i386-freebsd-64int
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 792.04/s (n=2537)
test1: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 792.04/s (n=2537)
test2: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 415.30/s (n=1327)
test3: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 395.86/s (n=1268)
AMD Athlon(tm) 64 Processor 3200+ This is perl, v5.8.8 built for i386-netbsd-thread-multi
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 4 wallclock secs ( 3.36 usr + -0.02 sys = 3.34 CPU) @ 744.91/s (n=2488)
test1: 3 wallclock secs ( 3.01 usr + -0.01 sys = 3.00 CPU) @ 744.67/s (n=2234)
test2: 3 wallclock secs ( 3.21 usr + 0.00 sys = 3.21 CPU) @ 395.64/s (n=1270)
test3: 3 wallclock secs ( 3.21 usr + 0.00 sys = 3.21 CPU) @ 361.68/s (n=1161)
AMD Athlon(tm) 64 Processor 3200+ This is perl, v5.8.8 built for i386-freebsd-64int
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 3 wallclock secs ( 3.19 usr + 0.00 sys = 3.19 CPU) @ 517.96/s (n=1651)
test1: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 515.43/s (n=1651)
test2: 4 wallclock secs ( 3.16 usr + 0.00 sys = 3.16 CPU) @ 267.72/s (n=845)
test3: 4 wallclock secs ( 3.19 usr + 0.00 sys = 3.19 CPU) @ 252.86/s (n=806)
何故か同じマザー使ってるのに、FreeBSD だと遅い…
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 792.04/s (n=2537)
test1: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 792.04/s (n=2537)
test2: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 415.30/s (n=1327)
test3: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 395.86/s (n=1268)
AMD Athlon(tm) 64 Processor 3200+ This is perl, v5.8.8 built for i386-netbsd-thread-multi
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 4 wallclock secs ( 3.36 usr + -0.02 sys = 3.34 CPU) @ 744.91/s (n=2488)
test1: 3 wallclock secs ( 3.01 usr + -0.01 sys = 3.00 CPU) @ 744.67/s (n=2234)
test2: 3 wallclock secs ( 3.21 usr + 0.00 sys = 3.21 CPU) @ 395.64/s (n=1270)
test3: 3 wallclock secs ( 3.21 usr + 0.00 sys = 3.21 CPU) @ 361.68/s (n=1161)
AMD Athlon(tm) 64 Processor 3200+ This is perl, v5.8.8 built for i386-freebsd-64int
Benchmark: running test0, test1, test2, test3 for at least 3 CPU seconds...
test0: 3 wallclock secs ( 3.19 usr + 0.00 sys = 3.19 CPU) @ 517.96/s (n=1651)
test1: 3 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 515.43/s (n=1651)
test2: 4 wallclock secs ( 3.16 usr + 0.00 sys = 3.16 CPU) @ 267.72/s (n=845)
test3: 4 wallclock secs ( 3.19 usr + 0.00 sys = 3.19 CPU) @ 252.86/s (n=806)
何故か同じマザー使ってるのに、FreeBSD だと遅い…
962 ：デフォルトの名無しさん：2007/06/10(日) 08:47:30
もうみんあ飽きてるというのに・・・
963 ：デフォルトの名無しさん：2007/06/10(日) 14:30:47
ベンチマーク厨うざ
964 ：デフォルトの名無しさん：2007/06/10(日) 18:19:35
qwとqqの違いってなんなんでしょうか？
965 ：デフォルトの名無しさん：2007/06/10(日) 18:27:54
qq/foo bar baz/ #=> "foo bar baz"
qw/foo bar baz/ #=> ("foo","bar","baz")
qw/foo bar baz/ #=> ("foo","bar","baz")
966 ：デフォルトの名無しさん：2007/06/10(日) 18:30:04
訂正
qq/foo bar baz/ #=> "foo bar baz"
qw/foo bar baz/ #=> ('foo','bar','baz')
qq/foo bar baz/ #=> "foo bar baz"
qw/foo bar baz/ #=> ('foo','bar','baz')
967 ：デフォルトの名無しさん：2007/06/10(日) 18:32:12
968 ：デフォルトの名無しさん：2007/06/10(日) 18:35:09
>>967
p74
p74
969 ：デフォルトの名無しさん：2007/06/10(日) 18:55:49
>>963
貧乏人うぜぇ
貧乏人うぜぇ
970 ：デフォルトの名無しさん：2007/06/10(日) 19:35:02
なんと的外れな煽り
971 ：デフォルトの名無しさん：2007/06/10(日) 19:37:01
金持ちは黙ってろ
972 ：デフォルトの名無しさん：2007/06/10(日) 19:50:34
人を指して貧乏人とか行ってる時点でレベルの低いやつだとまるわかり。
恥ずかしくないの？
恥ずかしくないの？
973 ：デフォルトの名無しさん：2007/06/10(日) 20:07:09
牛丼にたまごとお新香付けるオレはかなり貴族
974 ：デフォルトの名無しさん：2007/06/10(日) 20:36:34
Perlの話をしろ糞ども
975 ：デフォルトの名無しさん：2007/06/10(日) 20:43:13
976 ：デフォルトの名無しさん：2007/06/10(日) 20:53:21
そういうあなたもｗ
977 ：デフォルトの名無しさん：2007/06/10(日) 21:03:24
そういうあなたもｗ
978 ：デフォルトの名無しさん：2007/06/10(日) 21:22:41
アイスのフタの裏を舐めないオレはかなり貴族
979 ：デフォルトの名無しさん：2007/06/10(日) 21:32:51
フタ付きのアイスくうのは庶民
980 ：デフォルトの名無しさん：2007/06/10(日) 22:11:17
フタの裏のアイスだけ食べるのが真の貴族。
981 ：デフォルトの名無しさん：2007/06/10(日) 22:49:42
変なのがいつくようになっちまった
982 ：デフォルトの名無しさん：2007/06/11(月) 00:14:43
open FH1, "hoge.txt"
はふつーにＯＫなのですが
my $FH2
open $FH2, "hoge.txt"
とかやると、エラーと言われます。ところが
open my $FH3, "hoge.txt"
これだとエラーとは言われません。なんででしょう？
5.6の環境でやっててヘンだなーと思ってたんだが
5.8だとFH2のパターンでも何にも言われない
うーん、、、
はふつーにＯＫなのですが
my $FH2
open $FH2, "hoge.txt"
とかやると、エラーと言われます。ところが
open my $FH3, "hoge.txt"
これだとエラーとは言われません。なんででしょう？
5.6の環境でやっててヘンだなーと思ってたんだが
5.8だとFH2のパターンでも何にも言われない
うーん、、、
983 ：デフォルトの名無しさん：2007/06/11(月) 00:33:49
openの第一引数に変数を与えた場合の挙動はたびたび変更されてるから、
perlfuncの古いの引っ張ってきて読んどくといいよ。
perlfuncの古いの引っ張ってきて読んどくといいよ。
984 ：デフォルトの名無しさん：2007/06/11(月) 01:15:50
>>983
なるほど、そういうことですか
まあ普通にFH1のように使えばいいんでしょうが
関係ないけど $# って廃止されるんですね
scalar(@array) とかで代替できるから問題ないんでしょうが
廃止しようとする意図がよくわからない
なるほど、そういうことですか
まあ普通にFH1のように使えばいいんでしょうが
関係ないけど $# って廃止されるんですね
scalar(@array) とかで代替できるから問題ないんでしょうが
廃止しようとする意図がよくわからない
985 ：デフォルトの名無しさん：2007/06/11(月) 01:41:39
>>972
「本当に○○な奴はそれを言わない」というたぐいの思い込みを前提に物を言うほうが、
よっぽど恥ずかしいと思います :-)
そういう前提を持つと、「言った時点でそいつは○○ではないことになる」から、
「言われたくないことを言われたくない人に言われる」ことが絶対無くなって、凄く気が楽になる、
それはわかりますが、かっこ悪い逃げ方にもほどがあります :-)
「本当に○○な奴はそれを言わない」というたぐいの思い込みを前提に物を言うほうが、
よっぽど恥ずかしいと思います :-)
そういう前提を持つと、「言った時点でそいつは○○ではないことになる」から、
「言われたくないことを言われたくない人に言われる」ことが絶対無くなって、凄く気が楽になる、
それはわかりますが、かっこ悪い逃げ方にもほどがあります :-)
986 ：デフォルトの名無しさん：2007/06/11(月) 03:34:48
987 ：デフォルトの名無しさん：2007/06/11(月) 04:52:06
988 ：デフォルトの名無しさん：2007/06/11(月) 10:30:07
989 ：デフォルトの名無しさん：2007/06/11(月) 14:18:55
>>987
エラー隠蔽者のチンポしゃぶり乙!
エラー隠蔽者のチンポしゃぶり乙!
990 ：デフォルトの名無しさん：2007/06/11(月) 18:33:25
ﾏﾀｰﾘ
991 ：デフォルトの名無しさん：2007/06/11(月) 22:49:16
>>985
それはまじれすなのか
それはまじれすなのか
992 ：デフォルトの名無しさん：2007/06/12(火) 21:26:51
ちんこ
993 ：デフォルトの名無しさん：2007/06/15(金) 02:00:51
まずはここを使い切ろう
994 ：デフォルトの名無しさん：2007/06/15(金) 04:01:48
＼
995 ：デフォルトの名無しさん：2007/06/15(金) 04:03:05
＼
996 ：デフォルトの名無しさん：2007/06/15(金) 04:30:47
__END__
997 ：デフォルトの名無しさん：2007/06/15(金) 05:25:17
=head1 NAME
pc11::tech - bbs for programers
pc11::tech - bbs for programers
998 ：デフォルトの名無しさん：2007/06/15(金) 08:47:11
syntax error at line >>1-1000
999 ：デフォルトの名無しさん：2007/06/15(金) 09:58:52
print '9' x 3;
1000 ：デフォルトの名無しさん：2007/06/15(金) 10:06:31
die "all is forgotten";
1001 ：１００１：
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
もう書けないので、新しいスレッドを立ててくださいです。。。