トップページ⇒php
1001コメント318KB

Perlコーディング初心者質問スレ Part 55

レス数が950を超えています。1000を超えると書き込みができなくなります。
0001nobodyさん2007/05/30(水) 11:34:01ID:???
Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

お勧めサイトは >>2-10

前スレ　http://pc11.2ch.net/test/read.cgi/php/1171102883/
過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/
0889nobodyさん2007/09/02(日) 00:23:50ID:???
これも追記
## IP の範囲やサブネットから IP の最小値と最大値を10進数で返す
sub getipminmax{
　　my($ip) = $_[0] || "";
　　my(@retip) = (0, 0);

　　# $ip に数字、/、- 以外があればエラーリターンする
　　if($ip =~ /[^\d\.\-\/]/){ return @retip; }

　　# - か / で分割する
　　if($ip =~ /\-/){　# IP の範囲
　　　　my ($ipaddr1, $ipaddr2) = split(/\-/, $ip);
　　　　$retip[0] = &ip2dec($ipaddr1);
　　　　$retip[1] = &ip2dec($ipaddr2);
　　}elsif($ip =~ /\//){　# サブネット
　　　　my ($ipaddr, $subnet) = split(/\//, $ip);
　　　　my $subnetdec = (2 ** 32) - (2 ** (32 - $subnet));
　　　　my $ipaddrstart = &ip2dec($ipaddr) & $subnetdec;
　　　　$retip[0] = $ipaddrstart;
　　　　$retip[1] = $ipaddrstart + (2 ** (32 - $subnet)) - 1;
　　}else{　# 単一の IP
　　　　$retip[0] = &ip2dec($ip);
　　　　$retip[1] = 0;
　　}
　　return @retip;
}
08908862007/09/02(日) 00:45:58ID:???
>>888-889
凄い…。
ありがとうございます。

できれば>>888の2,3行目についてもう少し詳しく教えて貰えますか？
0891nobodyさん2007/09/02(日) 01:22:15ID:???

質問です。

ユニークな６〜８文字の英数字文字列があるのですが、この文字列を他の文字列（英数字10文字）にしたいんですが、
それもユニークにしたいんです。
ならべく元の文字列がわからないようにしたいんですが、何か方法はありますでしょうか？

ユニークな文字列は5万行ぐらいあります。
0892nobodyさん2007/09/02(日) 01:31:27ID:???
>>891
my $10moji = sprintf "%010d",$id;
0893nobodyさん2007/09/02(日) 01:33:55ID:???
何この初心者が書いた様な酷いコードは
0894nobodyさん2007/09/02(日) 01:38:33ID:???
>>890
２行目は初期化してるだけ
３行目は

111.222.333.444 という IP をループさせないで素直に書くと
(111 * 256 * 256 * 256) + (222 * 256 * 256) + (333 * 256) + 444
となります
これじゃ見た目がアレなのでループで回す関係上基準値というか初期値を定義してるのが３行目です
0895nobodyさん2007/09/02(日) 01:40:06ID:???
>>893
じゃぁ初心者じゃないあなたが書いてみてください
参考にしたいです m(_ _)m

>>890
ここまで書いておいてアレですが IP アドレスが指定する範囲に収まってるかどうかチェックするような
perl モジュールがあったはずです
0896nobodyさん2007/09/02(日) 01:44:27ID:???
>>895
unpack("N", pack("C4", split(/\./, $ip)))
0897nobodyさん2007/09/02(日) 01:54:25ID:???
>>891
既存のハッシュ関数を元に自分で作りなさい。
MD5とかSHA1も中身は乱数表でクルクルさせてるだけだから。
08988862007/09/02(日) 01:54:57ID:???
>>894
良くわかりました。ありがとうございます。


>>895
NetAddr::IP
こんなのありました。
0899nobodyさん2007/09/02(日) 02:10:43ID:???
やっぱり unpack か
それは知ってたけど、０から書いて１０進にする過程を勉強したかったからそういったコードを期待したのだが・・・
0900nobodyさん2007/09/02(日) 02:18:02ID:???
つ Net::CIDR::MobileJP
0901nobodyさん2007/09/02(日) 07:26:04ID:???
>>899
>>899
>>899
0902nobodyさん2007/09/02(日) 13:00:20ID:???
負け惜しみにしか聞こえなくて笑える
ここは初心者が初心者に答えるスレですね
0903nobodyさん2007/09/02(日) 15:05:41ID:???
これが負け犬の遠吠えってやつか
0904nobodyさん2007/09/02(日) 18:56:16ID:???
Perl ってなんでこんなに複雑なんだ？
PHPやRuby Java はすんなり理解できるのに Perl は納得いかないことばかりだ・・・
0905nobodyさん2007/09/02(日) 19:05:01ID:???
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。

まずどういう部分が納得いかないでわからないでいるのかを書かないと教えてもらえないよ
0906nobodyさん2007/09/02(日) 19:35:56ID:???
>905
んー、>904に特に意図は無いんじゃねーのかな。
質問スレに書くべきことかどうかはともかく。

良し悪しは別として、Perlは怠慢・短気・傲慢の方向に進化した言語だから、
他言語から入って来たような人だと違和感があってもおかしくないっしょ。
0907nobodyさん2007/09/02(日) 19:39:57ID:???
>>904
>Perl ってなんでこんなに複雑なんだ？

これじゃなきゃ、CPANにあるような膨大なモジュールを作り出せないよ
0908nobodyさん2007/09/02(日) 20:30:52ID:???
perl++, cpan++
0909nobodyさん2007/09/02(日) 21:26:57ID:???
Perlのようなもの
0910nobodyさん2007/09/03(月) 16:56:41ID:EmlGMulI
関数呼び出ししたあとに$_がクリアされてしまうのですが
リファレンスも渡さずに呼び出し先が$_を変更する事はできますか？
0911nobodyさん2007/09/03(月) 17:11:15ID:???
>>910
やってみたら判るだろ？
perl -le '$_= 1 ;sub { $_=2}->(); print $_ '
0912nobodyさん2007/09/03(月) 17:20:12ID:???
>>911
ありがとうございます。
myっぽく確保されるものだと
勝手に思い込んでました。
0913nobodyさん2007/09/03(月) 17:29:35ID:???
そのために local つーものがある
perl -le '$_= 1 ;sub { local $_=2}->(); print $_ '
0914nobodyさん2007/09/04(火) 00:51:54ID:???
テストは、use strict; use warnings; した環境でやれよ馬鹿。
0915nobodyさん2007/09/04(火) 01:58:39ID:???
>>914
use strict;
use warnings;
でも捕まえられないと思うがどうか。
0916nobodyさん2007/09/04(火) 03:51:54ID:???
>>915
つけないよりマシじゃなかと思うがどうか。
0917nobodyさん2007/09/04(火) 06:15:03ID:???
Q:「こんどのデート、どこ行こう？」
A:「映画館でいいんじゃね？」
914:「コンドームも持たずに何やってんだボケ！！」

、、、くらいに>>914はズレてんなあ。QもAもコンドーム持ってっか
どうか会話内容からは分からんのに。それどころかmy知ってるし、
使ってる可能性の方が高いのに。
0918nobodyさん2007/09/04(火) 07:00:37ID:???
コンドームがどうかしたの？
0919nobodyさん2007/09/04(火) 08:23:01ID:???
ただコンドーム言いたいだけだろ！！！
0920nobodyさん2007/09/04(火) 12:41:44ID:???
俺かなりのPerlエキスパートだけど
use strict, warningsは使わないよ
こんなの使って喜んでるうちは素人だね
0921nobodyさん2007/09/04(火) 12:56:08ID:???
>>920
ハ　イ　ハ　イ　　エ　キ　ス　パ　ー　ト　様　乙　で　す　
0922nobodyさん2007/09/04(火) 12:59:27ID:???
>>920-921
自演乙
0923nobodyさん2007/09/04(火) 14:03:30ID:???
いや、俺もPerlプロフェッショナルだけど
use strict, warningsは使わないよ
こんなの使って喜んでるうちは素人だね
0924nobodyさん2007/09/04(火) 14:08:37ID:???
>>923
ハ　イ　ハ　イ　　プ　ロ　フ　ェ　ッ　シ　ョ　ナ　ル　様　乙　で　す
0925nobodyさん2007/09/04(火) 14:17:32ID:???
いやぃゃ、俺はPerlマイスターだけど
use strict, warningsは使わないよ
こんなの使って喜んでるうちは素人だね
0926nobodyさん2007/09/04(火) 14:19:02ID:???
もういいよ
0927nobodyさん2007/09/04(火) 17:09:14ID:???
俺はPerlマスターベーションだけど
use strict, warningsは使わないよ
こんなの使って喜んでるうちは素人だね
0928nobodyさん2007/09/04(火) 21:03:16ID:???
さすがクソスレ。
0929nobodyさん2007/09/04(火) 22:18:58ID:???
親がforkで子プロセスを作って、親はその後すぐにexitします。
子は一定の処理を行い、またforkして孫をつくる。forkしたあとはexit。
孫も処理を行い、exitする。
これをやると、たまに500内部サーバーエラーが起きるんだけど、
理由がわかりません。

forkする際には、どちらも$|=1、標準出力は閉じています。
0930nobodyさん2007/09/04(火) 23:04:14ID:???
親が終了したら子はゾンビになって子の処理はinitプロセスに渡る
0931nobodyさん2007/09/05(水) 01:30:11ID:???
ゾンビ？

何処に居る！！
0932nobodyさん2007/09/12(水) 18:15:02ID:w11eoBjq
エクセルにおけるCOMBIN(n,m)関数（組み合わせの関数です）ってPerlではどうすればいいでしょうか？
何か数学系の関数を提供してくれるモジュールがありますでしょうか？

また、自分でやる場合は結局階乗も以下のようにすることになるのでしょうか。

sub kaijo{
my $n = $s = shift;
for(1..($n-1)){　 $s *= $_　}
return $s;
}

組み合わせ関数も自分で書くしかないんでしょうか。
あんまり軽く仕上げる自信がないですが。
0933nobodyさん2007/09/12(水) 18:16:00ID:???
べき乗は ** じゃなかったっけか？
09349322007/09/12(水) 18:30:54ID:w11eoBjq

sub kaijo{
my $n = shift;
for(1..($n-1)){ $n *= $_ }
return $n;
}

sub niko{
my $n = shift;
my $m = shift;
return &kaijo($n) / ( &kaijo($m) * &kaijo($n-$m) ) ;
}

print &niko(14,2);

とりあえずヒマなので自分で書くのならという事で試しに書いてみました。
何千っていう計算をさせてみようかなって思ったのでちょっとした重さの違いが大きな差につながるかなとおもてまうｓが。
採点かアドバイスか。何か下さい。

>>933
階乗ってべき乗使ってできるんでしたか？
すいません調べてみます。
0935 ◆TWARamEjuA 2007/09/12(水) 18:59:47ID:???
my $length = $volume ** (1/3);
って云うのは仕事上、多用しています♪＠三女ウコン
09369322007/09/12(水) 19:01:36ID:w11eoBjq
sub fact{
my $n = shift;
for(1..($n-1)){ $n *= $_ }
return $n;
}
sub combin{
my $n = shift;
my $m = shift;
return ($n==0 or $m==0 or $n==$m) ? 1 : fact($n) / ( fact($m) * fact($n-$m) ) ;
}

エクセルに名前倣いました。
それと僕の勘違いで二項係数全然いりませんでした。

別の質問をさせてください。
my @array = qw/1 13223 46 4 29 3/;
こういう風に配列に数値が入ってる場合の、総和を出したい時はどうコーディングするのでしょうか？

@array[0..2]の分の総和
@arrayの総和
など確率のプログラムなので、
@arrayは数千の要素数
それを0と1の総和0-2の総和、0-3の総和のように最後までやってifでわけたいところがあるのですが。
09379322007/09/12(水) 19:02:25ID:w11eoBjq
>>935
ありがとうございます。
三乗根の計算ですね。
0938nobodyさん2007/09/12(水) 19:08:56ID:???
mapでどうぞ
09399322007/09/12(水) 19:18:07ID:w11eoBjq
>>938
具体的なコードを教えてもらってもいいでしょうか？
僕もmapあたりでかっこよくいけると思ったのですが、なかなかそうもいかないというか、
思いつかないんです。


sub sum{
my $a;
foreach(@_){ $a += $_ }
return $a;
}
で、こんなの書いてみました。
いちいち変数を使うあたりがいやです。変数を使わなければmapでも出来るのか？
とか思いますが。
0940nobodyさん2007/09/12(水) 19:45:29ID:???
List::Util
0941nobodyさん2007/09/13(木) 02:52:57ID:???
↑こういうpassは簡単には教えないよーん、みたいなカキコむかつく
0942nobodyさん2007/09/13(木) 04:53:33ID:???
perldoc List::Util
0943nobodyさん2007/09/13(木) 05:20:26ID:???
：：
って外部モジュール使うって
意味だったんだね。
0944nobodyさん2007/09/13(木) 08:08:01ID:???
>>939
「変数使わない」って結構大変だし、それで上等だと思うけど？
print eval join '+' , @arr ;
>>943
・・・釣り？
0945nobodyさん2007/09/13(木) 20:30:12ID:QEyk4I0D

$form =~ m/([+＋,，､、｡。_＿\/／ 　])/)

正規表現で上記のような記号を抽出しようとすると、
どうもうまく抽出されません。

たとえば「？」が半角の。になってしまいます。

文字コードはjcode::sjis2euc(\$form)で事前に
EUCにしておりますが(ソースコードもEUCです)、
何か対策等ございましたらご教示いただきたく思って
おります。

宜しくお願いいたします。
0946nobodyさん2007/09/13(木) 20:53:20ID:???
まずは。。　[]内に２バイト以上の漢字コード書いても１バイトごとのぶつ切りで指定してる
ことになる

あと、日本語ＥＵＣと言えども文字の並びによっては別の文字と同じ文字コードパターンがきて
文字の境目が部分だけでは判断できにくくなる

対策としては先頭から１文字ごとに分割して判断するのが素直なやり方
0947nobodyさん2007/09/13(木) 21:15:58ID:???
UTF-8 でがんがろう。
0948nobodyさん2007/09/13(木) 21:53:49ID:???
>>946-947
アドバイス感謝です。

できないことがわかりましたので、早速以下に変えてみました。
報告とさせていただきます。
-------------------------------------------------------
my $form_length = length($form);
for (my $i = 0; $i < $form_length; $i++) {# 文字を1文字ずつ処理(日本語対応)
　　my $form_substr = substr($form, $i, 1);
　　if ($form_substr =~ /[\x80-\xff]/) {
　　　　$form_substr = substr($form, $i++, 2);
　　}
　　if(($form_substr eq '+') ||
　　　　($form_substr eq '＋') ||
　　　　($form_substr eq ',') ||
　　　　($form_substr eq '，') ||
　　　　($form_substr eq '､') ||
　　　　($form_substr eq '、') ||
　　　　($form_substr eq '｡') ||
　　　　($form_substr eq '。') ||
　　　　($form_substr eq '_') ||
　　　　($form_substr eq '＿') ||
　　　　($form_substr eq '/') ||
　　　　($form_substr eq '／') ||
　　　　($form_substr eq ' ') ||
　　　　($form_substr eq '　'))
　　{
　　　　&error_out();
　　　　last;
　　}
}
0949nobodyさん2007/09/13(木) 22:06:55ID:???
なんで素直にuse utf8しないのだろう
ifでくくるにしてもgrepなりfirstなりで検索するとか
ハッシュテーブル使うとかすりゃいいのに・・・

if (grep{ $_ eq $str } @mojilist) {

if ($mojilist{$str}) {

$pat = join '|', mapquotemeta @mojilist
$form =~ m/($pat)/
0950nobodyさん2007/09/13(木) 22:12:41ID:???
書いてる途中で送信してしまった・・・
足りない部分は想像力で補ってくれ

if (grep{ $_ eq $str } @mojilist) {
・・・

%mojilist{$str} = map { ($_=>1) }　@mojilist;
if ($mojilist{$str}) {
・・・

# このやり方はすごく効率が悪い
$pat = join '|', map { quotemeta $_ } @mojilist;
$form =~ m/($pat)/;
0951nobodyさん2007/09/14(金) 14:13:47ID:???
初心者なんですが質問させてください。
Perl言語を用い、fpingの出力ファイルから、
ラウンドとリップ時間のみの数値列を出力するプログラムを作成せよ。
という宿題がでました。
何から手をつければいいかわからない状態なので、もしよかったら教えてもらえないでしょうか？
0952nobodyさん2007/09/14(金) 16:04:26ID:???
>>951 >>1
0953nobodyさん2007/09/14(金) 20:30:20ID:???
> 書いてる途中で送信してしまった・・・
> 足りない部分は想像力で補ってくれ

エスパー能力を要求する回答者イラネ
0954nobodyさん2007/09/15(土) 13:34:20ID:???
わざわざ答えてくれてるのに、ブーたれる初心者ｲﾗﾈ
0955nobodyさん2007/09/15(土) 16:49:52ID:iajdiFDw
シミュレーションプログラムを書いてみました。
ループ回数を増やすほど理論値に近似しますのでできるだけ増やしたいですが、
あまり増やして、数十分も処理を続けられると困ります。

ループ1回あたり何秒かかるのか。
もしくは1秒で何回ループさせられるのかを調べるコードを教えてくだしあ。
0956nobodyさん2007/09/15(土) 16:56:47ID:???
>>955
use Benchmark ;
09579552007/09/15(土) 17:03:02ID:iajdiFDw
>>956
早速ありがとうございます。
英語読めないんですがperldocちょっと読んでどうやらtimethisでできそうな気が。

でやりましたら、
error 0.168701171875 at (eval 6) line 40.
なんて表示されました。

どういうエラーでしょうか。

my $code = q{コード};
timethis(1,$code);
って感じでやってみました。

「コード」内で別モジュールを使ったり、コード内にない自作関数を使ったりするのはありですよね？
それともrequirやuseもコード内でやるべきですか？

イマイチうまくいきません。でもあと少しっぽいのでもう少しだけアドバイスお願いしまうｓ。
09589552007/09/15(土) 17:05:33ID:iajdiFDw
一応コードの40行あたりの
die
をコメントアウトしてやりなおしたら
Illegal division by zero at (eval 6) line 47.
こんなエラーにかわりました。

改善策わかりますでしょうか？
09599552007/09/15(土) 17:06:51ID:iajdiFDw
すいません括ってる範囲を変えたらなんか上手くいったみたいです。
もうちょっと挙動を調べて又きまう。
09609552007/09/15(土) 17:24:13ID:iajdiFDw
特に問題なしでした。
0961nobodyさん2007/09/15(土) 21:08:38ID:???
簡単なエラーすら理解できないなら、大学辞めればいいと思うよ。
0962nobodyさん2007/09/15(土) 22:37:55ID:???
これで大学生だったら噴くぞ。
0963nobodyさん2007/09/15(土) 23:36:16ID:???
webprogから入ったものですが、最近ちょくちょくPerlにやらせることができそうな
事をみつけてはコーディングしてみています。

複雑なループ処理等になってくると全てがきっちり動いてるのか確認大変ですね。
今なにをやっているかという具体的な中身を視覚化してくれるモジュールなどあるのでしょうか？

自分で「よし、まずはこの変数の動きをチェックしてみよう」みたいな事をやっていくのにも限界があるなと思うこのごろです。
0964nobodyさん2007/09/15(土) 23:40:09ID:???
デバッガって知ってるか。
0965９６３2007/09/15(土) 23:47:45ID:???
>>964
確かエラーを見つけるものですよね？
エラー修正はそこまで苦労しないのです。

普通に何行目あたりに構文エラーがあるなどとわかりやすいですし。
問題は動いてるけど、この出てきてる数値が果たして本当に合っている数値なのかってことです。

それのコードの検証作業を補助してくれるものはないのかなと思ったのですが。
以前にフローを視覚化するなんとかがあるとかないとかって聞いたことがあります。
Perlではなかったかもしれませんが。

実際はもっとわかりやすく、実際に動かした時の逐一の動作を見せてくれると楽だな。と。
0966nobodyさん2007/09/15(土) 23:49:53ID:???
違うから調べてこような。
0967nobodyさん2007/09/15(土) 23:59:55ID:???
>>965
つ print
0968nobodyさん2007/09/16(日) 00:05:24ID:???
どんな数値かどうか知りたいならそれこそＰｅｒｌでできることだろ
追加書き込みでログ保存するサブルーチン書いて

&func("\$val=$val");
って書いていけば簡単にできると思うが
0969nobodyさん2007/09/16(日) 00:18:53ID:???
デバッガってあまり使われてない気がする
まぁ、プログラム作ってる最中っていうより、プログラムできあがったけど
なんか動作があやしいって時に使うもんだけど。
自分がテストやんなくていいなら使わないか。。。
0970nobodyさん2007/09/16(日) 02:17:16ID:???
WindwosのGUIのデバッガは有料が多い気がする。

とりあえず、perlデバッガなら、w 変数名 と c だけ覚えておけば、
変数をヲチできるよ。

大体は、print文や、ログの事後解析で事足りるから、
デバッガは殆ど使わないな。
0971nobodyさん2007/09/16(日) 03:26:56ID:???
あとData::Dumperかな。
よく多重のハッシュを使うから、これがないとね。
0972nobodyさん2007/09/16(日) 07:21:24ID:y2OdqWq5
my @list = qw/3 7 4/;
print (sort{$a<=>$b}@list)[0];

これで上手くいきません。並べ変えた0番目の要素を表示したいのです。
別配列に一旦入れるのは避けたいです。
確かナイスな方法があったような気がするのですが思い出せません。
お願いします。
0973nobodyさん2007/09/16(日) 07:33:41ID:???
print +(sort{$a<=>$b}@list)[0] . qq{\n};
0974nobodyさん2007/09/16(日) 07:43:09ID:y2OdqWq5
>>973
すっげえ男前。
忘れてたのとは違うやり方だけどナイスですね。

しかしどういう理屈でしょうか？
[0..1]とかも使えちゃいましたし。
プラス演算子がおかれると何故配列として認識してもらえるのでしょうか。
0975 ◆TWARamEjuA 2007/09/16(日) 07:47:24ID:????2BP(6825)
print 式
print(式)
0976nobodyさん2007/09/16(日) 07:52:15ID:y2OdqWq5
>>975
回りくどい。
0977nobodyさん2007/09/16(日) 08:32:37ID:???
>>974
scalar() と似たもんだ。
print scalar ( (sort{$a<=>$b}@list)[0] ) ;
print + (sort{$a<=>$b}@list)[0] ;

配列スライス出力時に、+, scalar 共に使うのも良くない。
print + ( sort{$a<=>$b}@list)[0..2] , qq{\n};
print + ( sort{$a<=>$b}@list)[0..2] . qq{\n};
print scalar ( ( sort{$a<=>$b}@list)[0..2] ) , qq{\n};
print scalar ( ( sort{$a<=>$b}@list)[0..2] ) . qq{\n};
きちんと挙動確認して使うならいいかもしらんが後に読みなおした時
（もしくは他の人が読んだとき）に混乱するのは必至。

、、、が深くは突っ込まんでくれ。理解はしている（つもり）だが、
素人の説明を鵜呑みにするのはイクナイ。ここらへんは本とかperldocとか
読んでくれ。


これだとなんなんで。も一つ
printf "%d\n", sort{ $a <=> $b } @list ;
こっちは配列の中身が整数であることを「保証されない」時痛い目に
合うこと受け合いさ。
0978nobodyさん2007/09/16(日) 09:19:49ID:???
演算子の優先順位をきちんと理解すればわかるはず。

しかしいつも思うのだがO(n)で求めることができる最小値をO(n*log(n))はかかるソート使って求めるのは抵抗あるなあ。組み込みだからよっぽど長いのくわせない限り十分速いのはわかるのだが
0979nobodyさん2007/09/16(日) 10:19:55ID:y2OdqWq5
>>977
すいません。ありがとうございます。

print \(sort {$a<=>$b} @array);
こうすると配列のリファレンスができると思ったらできない。
それで思い出したけど、
print [sort {$a<=>$b} @array]->[0];
これが以前よく使っていた方法でした。これなら配列スライスも安全に
print @{[sort {$a<=>$b} @array]}[0..1];
とできますし。

（）の中に配列が入ってるのに[0]でインデックス指定できるかできないか。
＋をつけるとできる。scalar()の中に書くとできる。
>>978
その優先順位によって何が行われるんですか。
\()で配列リファレンスができなかったのは\の方が優先低いから先に3つのスカラーが出てきちゃった？
+()だと+が優先高い。。。で、+の優先が高いと何故にインデックス指定ができる？
0980nobodyさん2007/09/16(日) 11:12:25ID:???
いいかげん黒魔術みたいな書き方辞めた方が良いと思うよ。
0981nobodyさん2007/09/16(日) 11:47:48ID:???
配列とリストは違うんだぜ
0982nobodyさん2007/09/16(日) 13:00:23ID:???
> \()で配列リファレンスができなかったのは\の方が優先低いから先に3つのスカラーが出てきちゃった？

根本的に間違ってますから
0983nobodyさん2007/09/16(日) 14:12:00ID:???
sub root{
my @get = @_;
sort @get;
return $get[0];
}

print root 1,2,3;

普通は
print &root(1,2,3);
と書くでしょうし、それが一番わかりやすいですが、括弧なしで書いた場合は一体いくつまでをサブルーチンの引数と解釈されるんでしょうか？
0984nobodyさん2007/09/16(日) 14:27:19ID:???
>>983
挙動は変らんよ。与えられたリストを全部もってく。
print root 3,4,5, print q{hoge} ;
なんてマネしたら当然1 が返る（sort の行をきちんと機能させた場合）
がそれは、
print &root( 3,4,5, print q{hoge}) ;
と同じわけで本来の挙動だ。

お前さんが prototype の事を質問しているのだとしたら全く別の話。
0985nobodyさん2007/09/16(日) 14:35:03ID:???
>>972
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod
> 括弧を使うときには、単純な (しかし、ときには驚く結果となる)
> 規則が適用できます: 関数に見えるならば、それは関数で、
> 優先順位は関係ありません。
0986nobodyさん2007/09/16(日) 14:42:55ID:???
こんにちわ。
コーディングとちょっと違うかもしれませんがお願いします。
test.plを実行すると自分のパソコンのスペックで15分くらいかかります。
ファイル操作とか何もしない、コード内完結型？のコードなので、処理をさせてる間
他の作業をパソコンでしたいのです。

簡単に言うとtest.plの完遂を待ってる時間に２ちゃんねるでもして暇をつぶしたいのです。
なので30分かかってもいいので、test.plのCPUやメモリの最大使用率を通常の1/2にしたいのです。
可能でしょうか？
09879632007/09/16(日) 15:21:39ID:???
>>966-968
う〜ん。なんか伝わってないような。

例えばsort関数が何をしているか視覚化して初心者に説明しなさい。
ってな時にsort関数のコードを渡せば自動で視覚化してくれるモジュールがあればなってことです。
自分でsort関数と同じ関数を作って、そこにごちゃごちゃと視覚化のためのコードを書くのは、
簡単な関数の時にしか「簡単じゃん」とは思えないですよね？

いや、簡単だというならsort関数の視覚化をこの場でやってもらえればいいんですけどね。
my @col = (4,6,2,98,2,1345,22);
この配列をsort関数がどういう手順でどういう事をしてるかを目で見えるようにするコードを「簡単に」どうぞ。
0988nobodyさん2007/09/16(日) 16:00:13ID:???
>>986
コードにメモリ食う個所がどれくらいあるか見ないとニンともカンとも・・
レス数が950を超えています。1000を超えると書き込みができなくなります。