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

[0001 nobodyさん 2006/05/31(水) 04:32:28 ID:???]

Perlのコーディングで困ってる人のスレです。

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

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

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

過去ログやお勧めサイトは >>2-10

[0081 79 2006/06/02(金) 04:02:27 ID:???]

>>80
とりあえずこんな感じでテストしてみました
デスクトップのaフォルダの中に1.htmlとtest.pl
# test.plの中身
$name = "./1.html";
open OUT,">>$name";
print OUT "test\n";
close OUT;

これでコマンドプロンプトから実行してもだめでした

[0082 nobodyさん 2006/06/02(金) 04:43:31 ID:???]

一応聞くけど、hello world は動くの？
でなけりゃ一回ファイル名変えてやってみ。
たまに自分のアホなスクリプト実行したせいでファイルがロックされてる場合がある。
ソース自体は普通みたいだから、絶対なんかヘンなことしてるしｗ

[0083 nobodyさん 2006/06/02(金) 04:59:21 ID:???]

openのあとｴﾗｰﾄﾗｯﾌﾟしてみたら？
open errorだったりして…

[0084 nobodyさん 2006/06/02(金) 05:32:21 ID:???]

関連付けされてねぇんじゃ？

[0085 nobodyさん 2006/06/02(金) 09:47:40 ID:???]

$a1 ="あ";
$a2 ="い";
$a3 ="う";
〜
$a50="ん";

このスカラー変数を、連結して表示したい場合、
print $a1.$a2.$a3.〜$a50;

perlでは、このような表記の仕方しかないでしょうか？

[0086 nobodyさん 2006/06/02(金) 09:55:34 ID:???]

$sname='a';
while(1..50){
　$tmpsname = $sname . $_;
　$val = \${$tmpsname};
　$renketu .= $val;
}

すげぇテキトーｗ
つかね、配列使ってください

[0087 nobodyさん 2006/06/02(金) 10:15:26 ID:???]

最近みんな優しいなあ・・・

[0088 nobodyさん 2006/06/02(金) 10:54:24 ID:???]

my @Hiragana = qw(
　　あ い う え お
　　か き く け こ
....
　　わ を ん
);
local $, = "";
print @hiragana;
qwはタブも改行もスペース扱いしてくれるぞ

[0089 nobodyさん 2006/06/02(金) 10:55:50 ID:???]

あ、
print @Hiragana;
ちなみに$a50="ん";にはならんぞ。５０音て５０個じゃないから

[0090 nobodyさん 2006/06/02(金) 10:59:55 ID:???]

>>86は間違い
リファレンスを連結している
my $sname='a';
print join '', map { ${"$sname.$_"} } (1..50);

動かしてないがこれでよくね？

[0091 nobodyさん 2006/06/02(金) 11:22:34 ID:???]

最近 use strict してたから、そういう記法もあったの忘れてたな・・・。

とりあえずグローバル変数やたら定義すると面倒で適わんね。

[0092 nobodyさん 2006/06/02(金) 11:25:06 ID:???]

今携帯だから確認出来ないけど、\ は要りませんでしたか。


… 実は map の使い方というか使う意義がわかんねｗ
あとでリファレンス立ち読みしてみるかにゃ

[0093 nobodyさん 2006/06/02(金) 11:35:03 ID:???]

日本語が不自由な質問に携帯から答えたおまいは優しいな･･･

[0094 nobodyさん 2006/06/02(金) 13:54:21 ID:???]

この優しさが怖い

[0095 nobodyさん 2006/06/02(金) 14:26:56 ID:???]

my @hiragana = qw(あ い う え お か き く け こ
さ し す せ そ た ち つ て と な に ぬ ね の
は ひ ふ へ ほ ま み む め も や ゆ よ
ら り る れ ろ わ を ん);
print map{${$_->[0]} = $_->[1]}map{['a'.$_ ,$hiragana[$_-1]]}(1..46);

なんか質問の主旨とは違うよーな気もするが

[0096 nobodyさん 2006/06/02(金) 15:05:28 ID:???]

なんでデリファレンスやねん

[0097 nobodyさん 2006/06/02(金) 15:25:35 ID:???]

>90
ん〜、エラーっすねぇ
Can't use string ("a.1") as a SCALAR ref while "strict refs" in use at /test.cgi line 16.

${"a$_"} にしたら
Can't use string ("a1") as a SCALAR〜
で同じエラー

俺にゃ難しい宿題だｗ

[0098 nobodyさん 2006/06/02(金) 16:09:13 ID:lBhNFSRP]

$s = "aあいうえおかきくけこ";
${"@{[substr($s,0,1]}$_"}=substr($s,$_*2-1,2)for(1..length($s)/2); #ここまでセットアップ

print join '', map ${"a$_"}, (1..10); # 好きな数だけloopすれば？

[0099 nobodyさん 2006/06/02(金) 16:18:21 ID:???]

>>85
print eval(join('.', map{ '$a'.$_ } (1..50)));

[0100 nobodyさん NG NG]

Perl臭ぇーッ!!

[0101 nobodyさん 2006/06/02(金) 17:16:07 ID:???]

>>97
当然 no strict 'refs';の前提だが。
シンボリックリファレンス使ってるだろ？

[0102 nobodyさん 2006/06/02(金) 17:22:15 ID:???]

あ、コピーしたときにドット入ったんだな。抜いてくれ

no strict 'refs';
my $sname='a';
print join '', map { ${"$sname$_"} } (1..50);

[0103 nobodyさん 2006/06/02(金) 18:06:46 ID:???]

>>100
文句多いな。
local $r = sub{((@_[0] > 1) ? $r->(@_[0]-1) : ''). eval('$a'.@_[0])};
print $r->(50);

[0104 nobodyさん 2006/06/02(金) 20:13:53 ID:???]

やったー Hello World できたよ＼(＾o＾)／

sub p { my $n = shift; my $p; ($p = sub { print chr($n += shift); $p })->() }

p(0x48)->(0x1D)->(0x07)->(0x00)->(0x03)->(-0x43)->(-0x0C)->
(0x57)->(-0x08)->(0x03)->(-0x06)->(-0x08)->(-0x43)->(-0x17);

[0105 nobodyさん 2006/06/02(金) 20:16:51 ID:???]

$test=1; # この状態ではシンボリック
print $test; # ここで実体化(ハード)
代入する段階でハードリファレンスってどうやるの？

[0106 nobodyさん 2006/06/02(金) 20:22:18 ID:???]

日本語でおｋ

[0107 nobodyさん 2006/06/02(金) 20:22:33 ID:???]

日本語でおｋ

[0108 nobodyさん 2006/06/02(金) 20:23:28 ID:???]

久々にｹｺｰﾝしたｗ

[0109 nobodyさん 2006/06/02(金) 20:24:21 ID:???]

ふつつかものだけど幸せにしてね('A`*)

[0110 nobodyさん 2006/06/02(金) 20:25:29 ID:???]

男同士だったらどうすんだよ

[0111 nobodyさん 2006/06/02(金) 20:35:06 ID:???]

問題なく結合します。
use Tie::Man::And::Man;
my $happy = tie $res106, Tie::Man::And::Man, $res107;

[0112 nobodyさん 2006/06/02(金) 20:37:13 ID:???]

my $happy = tie $res106, Tie::Man::And::Man, $res107; # この状態ではシンボリック
$happy->insert(); # ここで実体化(ハード)
挿入する段階でハードリファレンスってどうやるの？

[0113 nobodyさん 2006/06/02(金) 20:43:35 ID:???]

>>105 が聞きたかったのはこういう事かな？　と ESP を発揮！

$test = \1; # リテラルスカラー値に対するハードリファレンス
print $$test; # デリファレンス

多分シンボリック＝リテラルだと思ってるのかな　と想像。

シンボリック＝実体はただの文字列。文字列をデリファレンスするとシンボルテーブルから
　　　　　　　　　その名前を持つモノをひっぱってきてくれる。

[0114 nobodyさん NG NG]

エスパーすげー

[0115 nobodyさん 2006/06/02(金) 21:01:00 ID:???]

エスパースレいる？

[0116 nobodyさん 2006/06/02(金) 21:46:32 ID:???]

ﾘﾃﾗﾙとかﾊｰﾄﾞﾘﾌｧﾚﾝｽとかｼﾝﾎﾞﾘｯｸとかわかんね〜!!!詳しく解説してるとこｷﾎﾞﾝ

[0117 nobodyさん 2006/06/02(金) 22:15:15 ID:???]

>>116
俺もよくわかんなくて、ｶﾞﾝｶﾞｯってｸﾞｸﾞったよ。
ここ↓とかどう？　perl-解説ってとこ。

山口家の逆襲
http://kabocha.org/jelfe/

[0118 nobodyさん 2006/06/02(金) 22:23:29 ID:???]

もうやめたｗ

[0119 nobodyさん 2006/06/02(金) 22:38:40 ID:???]

ｗｗｗｗｗ

[0120 nobodyさん 2006/06/02(金) 22:45:09 ID:???]

Perl歴1ヶ月とちょっとなんですけど、こんな理解であってますか？

●リテラル
コードに直接埋め込まれている値
・123　3.14　のような数値
・"abc"　'hoge'　のような文字列
・(1, 2, 3)　(hoge=>123, huge=>456)　のようなリスト　　など

●ハードリファレンス（ただ単にリファレンスと言った場合はこれ）
値に対する参照。これ自体もスカラー値。C言語やってた人はポインタと考えれば良い。
ハードリファレンスを生成するには、以下の方法がある。
・値や変数の前に「\」を付ける → その値に対してのリファレンス
・[1, 2, 3] → 無名の配列が自動的に作られて、その無名配列に対するリファレンス
・{hoge=>123, huge=>456} → 無名のハッシュに対するリファレンス
・sub { CODE } → 無名の関数に対するリファレンス（クロージャ）

●シンボリックリファレンス
ただの文字列。文字列をデリファレンスすると、パッケージが持つシンボルテーブル
（パッケージ変数の名前と実体を結び付ける表）を通じて、その文字列の名前を持つ
実体を得る事ができる。誤爆しやすいので use strict; すると使えない。

[0121 nobodyさん 2006/06/03(土) 00:18:22 ID:???]

1ヶ月ならその理解で十分だよ。

[0122 nobodyさん 2006/06/03(土) 02:04:02 ID:???]

俺は4年やってるがリファレンスなんてサッパリのクソ野郎だぜ

[0123 nobodyさん 2006/06/03(土) 02:21:53 ID:???]

>>122
are u mr.kent？

[0124 nobodyさん 2006/06/03(土) 18:24:46 ID:???]

ちょっと質問。

$" = '/';
@list = (10, 20, 30, 40, 50);
$scalar = "@list";
これで
$scalar = join( "/" , @list);
と同じ結果になるようだけど、「$" = '/';」を使った場合には、
特殊変数$"のデフォルトの値を変えてしまうから
その後もずっとjoinせずとも/で区切られた値になるという感じなのかな。

他にはサブルーチンの@_とかは元の値が変わっちゃうみたいだけど、
特殊変数の扱いはブロックの中だけ？それともブロックの中とか関係なし？
どちらの場合もある？

その辺は一時的なものなのか、恒久的(ちょっと変な表現だけどw)なのか教えて下され。

[0125 nobodyさん 2006/06/03(土) 18:54:27 ID:???]

上はあってる。
ただし、mod_perl とか $" とかだとうまくできない場合があるね。

「特殊変数」 が 「$"」 とかを指すなら、
それの有効範囲はグローバル変数と一緒。
local $" とかもできるよ。

[0126 nobodyさん 2006/06/03(土) 18:56:58 ID:???]

perl -e '@a=qw/a b c/; {local $"=q!/!; print "@a\n";} print "@a\n";'
perl -e '@a=qw/a b c/; {$"=q!/!; print "@a\n";} print "@a\n";'

[0127 nobodyさん 2006/06/03(土) 20:34:18 ID:???]

個人的には「join」使っておけって思う

[0128 nobodyさん NG NG]

$"は遅いよ

[0129 124 2006/06/03(土) 22:08:37 ID:???]

サンクス。
なんとなくイメージがつかめたよ。

[0130 nobodyさん 2006/06/03(土) 23:16:29 ID:???]

localを使わなければ永久に変わる。
my にはグローバル変数およびパッケージ変数を宣言する能力がないので
ここにlocalとmyの大きな差がある。
呼び出し先のサブルーチンでの参照可能性でlocalとmyの差を説明するやつはウンコ

[0131 nobodyさん 2006/06/04(日) 00:07:15 ID:???]

my→レキシカル変数の宣言
our→パッケージ変数の宣言
local→パッケージ変数のダイナミックスコープ化
という理解でおｋ？

[0132 nobodyさん 2006/06/04(日) 00:46:14 ID:???]

our は C で言う static ？

[0133 nobodyさん 2006/06/04(日) 01:08:44 ID:???]

ちゃうちゃう。

[0134 nobodyさん 2006/06/04(日) 01:18:27 ID:???]

ちゃうのか・・・それなら覚えやすいな。 とか思ったのに (´ω`)

[0135 nobodyさん 2006/06/04(日) 09:23:10 ID:???]

Javaのstaticに近くない？

[0136 nobodyさん 2006/06/04(日) 10:40:42 ID:???]

CGI::Prettyを使って、ちょっと大きめのテーブルを表示し
ようとしたんです。
32文字ぐらい *16列 * 4098行 = 2M 程度。
メモリは2ギガ積んでいます。
しかし、実行するとメモリの使用率がガンガン上がって
いって止まってしまうんです。
use CGI::Pretty をコメントアウトすると問題ありません。
テーブルのサイズが小さいときは問題ありません。
なぜでしょう?
CGI::Pretty は使わないほうが速いというのはわかるんです
が、使わないと、HTMLソースがすごく見にくいので、できれ
ば使いたいんです。
CGI::Pretty って\tと\nを入れているだけにしか見えないの
ですが、そんなにメモリを使用するものなのでしょうか?
Windows,Linuxどちらでも、以下のスクリプトでも再現しました。
use strict;
use CGI qw(:standard);
use CGI::Pretty;
my @trs;
my @tds=qw(0 1 2 3 4 5 6 7 8 9 a b c d e f);
push @trs,td({bgcolor=>'#FFFFFF'}, \@tds) for (0..4097);
print header,start_html;
print table(Tr \@trs);

どこが問題なのでしょう?

ブラクラのつもりは無いのですが、
http://pc8.2ch.net/test/read.cgi/tech/1149259409/69
のようにswapし始めて、サーバが応答しなくなることがあるみたい
ですので、試すときは注意してください。

[0137 nobodyさん 2006/06/04(日) 11:49:27 ID:???]

テーブルなら、

HTML::Table
ttp://homepage3.nifty.com/hippo2000/perltips/html/table.htm

があるけど、こちらを使ってみてはいかがでしょうか？

[0138 nobodyさん 2006/06/04(日) 12:18:09 ID:???]

for (0..255);
で試した。
別 PC のブラウザで開いて、サーバーのメモリを監視してたら、ピークで 400MB 突破して、
250-350MB で変動してました。
で、500 Error で止まったｗ

Windows2000 + Perl 5.8.4 で試した。

自力で表示した方がいいんじゃないの？

[0139 nobodyさん 2006/06/04(日) 12:24:48 ID:???]

for (0..128);
だと 143MB ピークで正常終了

[0140 nobodyさん 2006/06/04(日) 12:46:25 ID:???]

たった256行表示するのに200メガ以上使ってエラー?
やっぱりモジュール使って書くメリットってのがわからない。
モジュール使ったほうがいいって言ってるヤツの意見を聞いてみたいね。

[0141 nobodyさん 2006/06/04(日) 12:59:04 ID:???]

>>136
この程度のテキスト処理にそんなにメモリを使うはずがない。
と思って試したら本当にものすごい負荷がかかる。何なんだコレ?

[0142 nobodyさん 2006/06/04(日) 13:13:35 ID:???]

ぃゃぃゃぃゃ、１つの悪で全てが悪と決め付けるのはいくないかと

[0143 nobodyさん 2006/06/04(日) 14:07:00 ID:???]

>>136
@CGI::Pretty::AS_IS = grep !/^td$/, @CGI::Pretty::AS_IS;

これを use CGI::Pretty; の後に差し挟むことで耐用限界を引き上げることができるはず。
アドホックでバッドプラクティス全開なので、あくまで応急処置。

こういうの思いついちゃう自分が嫌い。

[0144 nobodyさん 2006/06/04(日) 15:43:10 ID:???]

Win32::OLEを使って以下のようにExcelのセルのデータを取り出しています。
その場合、元の値が「2004/7/7」という中央寄せの文字列(日付型ではない)のとき、取り出した値が
Win32::OLE::Variant=SCALAR(0x1c14028)
となってしまうのですが、何が原因なのでしょうか。

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';

my $master_excel_file = "xlsファイル";

$Win32::OLE::Warn = 3;
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application', 'Quit') || die;
my $Book = $Excel->Workbooks->Open($master_excel_file) or die;

foreach my $row(@{$Book->Worksheets(1)->Range(A1:Z1000)->{'Value'}}) {
my @values = @$row;
}

[0145 nobodyさん 2006/06/04(日) 17:00:56 ID:???]

CGI::Pretty って標準モジュールなのなｗ
256程度でエラーとか、全然かわいくねーよｗ

[0146 nobodyさん 2006/06/04(日) 17:05:04 ID:???]

CGI::Prettyの_prettyPrintがあまり実行効率を考えていないようなので
書き直してみた。いちおうmake testは通る。

sub _prettyPrint {
my($input) = @_;

return if !$CGI::Pretty::LINEBREAK || !$CGI::Pretty::INDENT;

$$input =~
s/\Q$CGI::Pretty::LINEBREAK\E/$CGI::Pretty::LINEBREAK$CGI::Pretty::INDENT/gi;

my $as_is = join '|', map { quotemeta $_ } @CGI::Pretty::AS_IS;
$$input =~ s:(<($as_is)[\s>].*?</\2>):_deIndent($1):egi;
}

sub _deIndent {
my($s) = @_;

$s =~ s/\Q$CGI::Pretty::LINEBREAK$CGI::Pretty::INDENT\E/$CGI::Pretty::LINEBREAK/gi;

return $s;
}

[0147 nobodyさん 2006/06/04(日) 17:21:35 ID:???]

爆速になった
せっかくだからオリジナルを保存して書き換えてしまうか

[0148 nobodyさん 2006/06/04(日) 17:24:55 ID:???]

>>146
え、それで同じ結果になるの？ すごくね？
後学のために _prettyPrint の問題点を教えてください。

[0149 nobodyさん 2006/06/04(日) 17:50:35 ID:???]

>>146
これすげぇ

[0150 nobodyさん 2006/06/04(日) 18:20:33 ID:???]

オリジナルの_prettyPrintは再帰しまくってるからメモリと速度が駄目駄目なのかな？
とか思いつつお買い物・・・

[0151 nobodyさん 2006/06/04(日) 18:23:50 ID:???]

>>145
専門用語として伝統的にPretty Printって言ったら整形出力の意味な。
つまり、かわいいHTMLソースを作る職人が大喰ら(ry

>>146
それ処理的に等価じゃないな…
例えばpreの中身がインデントされちゃうから実用的にも影響が出る。
div( pre( "hoge\nfuga" ) )
しかしそれにしても元のやつには改善の余地があるような…漏れもリファクタリングやってみよう

[0152 nobodyさん 2006/06/04(日) 18:49:36 ID:???]

>>151
すまん、バグっていた。ｓ修飾しないと「.」が改行にマッチしないから
@AS_ISで指定されるタグに囲まれる部分が複数行にまたがるときに
おかしくなるね。

$$input =~ s:(<($as_is)[\s>].*?</\2>):_deIndent($1):egi;

↓

$$input =~ s:(<($as_is)[\s>].*?</\2>):_deIndent($1):egis;

これでその例も同じ結果になるはず。

[0153 nobodyさん 2006/06/04(日) 19:02:53 ID:???]

>>148,150
@AS_ISで指定したタグに囲まれた部分はインデントを追加しないで
他の部分に追加ということをやりたいようなのだが、オリジナルは
以下のような処理になっている。

if (@AS_ISタグに囲まれた部分がある) {
文字列を 「囲まれた部分の前」、「囲まれた部分」「囲まれた部分の後」
　の3つに分割

「囲まれた部分の前」「囲まれた部分の後」をそれぞれ再帰的に
自分を呼んでインデント

「囲まれた部分の前」をインデントしたもの,「囲まれた部分」,
「囲まれた部分の後」をインデントしたものを連結して返す
} else {
改行の後ろにインデントを追加する
}

デフォルトで@AS_ISにtdが含まれているので、<td>〜</td>の数だけ
再帰する。再帰するごとにだんだん短くなるが文字列がコピーされるので
O(n^2)のメモリを消費し、コピー処理でCPUも同じオーダで食うようだ。

書き直した奴は、

とりあえず全部の改行にインデントをつける
@AS_ISで指定されたタグに囲まれた部分の改行の後のインデントを削って戻す

という処理にしてみた。

[0154 nobodyさん 2006/06/04(日) 19:43:37 ID:tvwlqg+d]

すいません、質問です

ActivePerlの導入をしようと思い、msi版をダウンロードしても、
”有効なwin32アプリケーションではありません ”
になります。
当方、Win98なんですがどうすれば導入できますか？

[0155 nobodyさん 2006/06/04(日) 20:20:57 ID:???]

>>154
ActivePerlをダウンロードしたページの
Installation Notes
の部分をよく読めば導入できます

[0156 nobodyさん NG NG]

勉強になるなぁ

[0157 nobodyさん 2006/06/04(日) 21:24:40 ID:???]

>>153
わかりやすい解説ありがとう！
なるほどなるほどって感じ。
発想変えるだけでコードがガラっとかわる手本だね。

[0158 nobodyさん 2006/06/04(日) 22:05:46 ID:???]

CGI::Pretty たんのドジッ娘属性に萌えた。

[0159 154 2006/06/04(日) 22:29:14 ID:???]

>>155
Windows Installer 2.0+ is required for Windows.
download for 9x/Me

ってことですね。ありがとうございました。

[0160 nobodyさん 2006/06/05(月) 04:51:59 ID:???]

ねえねえ。
ベンチとったら、(10000回)

my $string2 = lc $string;

が 5.7 秒で

my $string2 = $string;
$string2 =~ tr/A-Z/a-z/;

が 2.6 秒だったんだけど、これどういうこと？
同じことしてるんじゃないんだっけ？

[0161 nobodyさん 2006/06/05(月) 06:47:28 ID:???]

>>160
うちではどっちもどっちだったよ
$ perl -v

This is perl, v5.8.7 built for cygwin-thread-multi-64int

$ cat hoge.pl
use Benchmark;
my $string = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
timethese(10000*100,
{
'lc' => sub {my $string2 = lc $string;},
'tr' => sub {my $string2 = $string;$string2 =~ tr/A-Z/a-z/;},
});

$ perl hoge.pl
Benchmark: timing 1000000 iterations of lc, tr...
lc: 2 wallclock secs ( 0.58 usr + 0.00 sys = 0.58 CPU) @ 1721170.40/s (n=1000000)
tr: 2 wallclock secs ( 0.54 usr + 0.01 sys = 0.55 CPU) @ 1814882.03/s (n=1000000)

$ perl hoge.pl
Benchmark: timing 1000000 iterations of lc, tr...
lc: 2 wallclock secs ( 0.52 usr + 0.00 sys = 0.52 CPU) @ 1923076.92/s (n=1000000)
tr: 2 wallclock secs ( 0.58 usr + 0.00 sys = 0.58 CPU) @ 1721170.40/s (n=1000000)

[0162 nobodyさん 2006/06/05(月) 07:48:02 ID:???]

>>161
あれ、ほんとだね。わざわざありがとう。
置換するソースによって違うんかなあ？

うちは google に perl って入れてでてきた 56kb くらいのソースでやったんだけど。
それともアルファベット以外がたくさん入ってると lc は遅くなるとか？ うーん・・・
perl の ver だったらやだなｗ

ちなみに
uc $string : 6.58 [s]
tr/a-z/A-Z/ : 5.50 [s]

[0163 nobodyさん 2006/06/05(月) 11:03:38 ID:GKAwUgKi]

@xの配列が変動する状態で、
10個目以降全てに対して処理をしたい場合、
foreachで、１〜９回目のループをifで飛ばすようなやり方以外で、
何かスマートな方法はありますか？

[0164 nobodyさん 2006/06/05(月) 11:07:12 ID:???]

for

[0165 nobodyさん 2006/06/05(月) 11:23:55 ID:???]

>>163
配列スライスに対してforeachでいいんでね?

foreach my $i (@x[9..$#x]) { ... }

[0166 nobodyさん 2006/06/05(月) 12:24:24 ID:???]

>>162
> うちは google に perl って入れてでてきた 56kb くらいのソースでやったんだけど。
それでやってみた。何回やってもlcの方が速かった。

$ cat hoge.pl
use Benchmark;
use LWP::Simple;
my $string = get('http://www.google.com/search?q=perl');
timethese(10000*100,
{
'lc' => sub {my $string2 = lc $string;},
'tr' => sub {my $string2 = $string;$string2 =~ tr/A-Z/a-z/;},
});

$ perl hoge.pl
Benchmark: timing 1000000 iterations of lc, tr...
lc: 1 wallclock secs ( 0.28 usr + 0.00 sys = 0.28 CPU) @ 3571428.57/s (n=1000000)
(warning: too few iterations for a reliable count)
tr: 0 wallclock secs ( 0.34 usr + 0.00 sys = 0.34 CPU) @ 2932551.32/s (n=1000000)
(warning: too few iterations for a reliable count)

$ perl hoge.pl
Benchmark: timing 1000000 iterations of lc, tr...
lc: 0 wallclock secs ( 0.23 usr + 0.00 sys = 0.23 CPU) @ 4347826.09/s (n=1000000)
(warning: too few iterations for a reliable count)
tr: 1 wallclock secs ( 0.32 usr + 0.00 sys = 0.32 CPU) @ 3115264.80/s (n=1000000)
(warning: too few iterations for a reliable count)

[0167 nobodyさん 2006/06/05(月) 12:35:00 ID:???]

> 何回やってもlcの方が速かった。
訂正。今やったら逆転した。(warningに気づいてなかったので回数を更に10倍にした)
やっぱりどっちもどっちじゃね？2倍も差が開くとは思えないけど。。ベンチ取ったスクリプトさらしてみて。

$ perl hoge.pl
Benchmark: timing 10000000 iterations of lc, tr...
lc: 4 wallclock secs ( 3.58 usr + 0.00 sys = 3.58 CPU) @ 2797202.80/s (n=10000000)
tr: 3 wallclock secs ( 3.42 usr + 0.02 sys = 3.44 CPU) @ 2911208.15/s (n=10000000)

$ perl hoge.pl
Benchmark: timing 10000000 iterations of lc, tr...
lc: 3 wallclock secs ( 3.41 usr + 0.01 sys = 3.42 CPU) @ 2928257.69/s (n=10000000)
tr: 3 wallclock secs ( 3.45 usr + 0.00 sys = 3.45 CPU) @ 2894356.01/s (n=10000000)

[0168 nobodyさん NG NG]

もう誤差の範囲だろ…

[0169 nobodyさん 2006/06/05(月) 18:57:41 ID:???]

>>167
ってか、うち1万回で5秒とかなのに、1000万回で3秒とか、どんなPCの性能差だよｗ
AthronXP1700 の 512MB あるんだけどなあｗ perl は 5.6

・・・っと思ったら、

use strict;
use Benchmark;
use LWP::Simple;
my $string = get('http://www.google.com/search?q=perl');
print $string;

これ何もでなくね？ｗ status_line とったら 403 返ってきたよｗ google 内部で弾いてんのかな・・・
こっちはブラウザから見てソース保存して開いてやってた。 〜?q=perl&num=50&hl=ja
こんな感じ。

use strict;
use Benchmark;
my $string;
open (LOAD, 'lc.html'); read (LOAD, $string, -s LOAD); close (LOAD);
timethese(10000, {
'lc' => sub {my $string2 = lc $string;},
'tr' => sub {my $string2 = $string;$string2 =~ tr/A-Z/a-z/;},
});

[0170 nobodyさん 2006/06/05(月) 19:14:18 ID:0Db/Ehfs]

文字列を一文字ずつ処理して
とある文字が出てきたところで区切って
その区切ったそれぞれの文字を配列に入れるということをしたいのですけど、ｌ
やり方が浮かばなくて・・・
どのようにコーディングすればいいのでしょうか？

[0171 nobodyさん NG NG]

日本語でもう一度

[0172 nobodyさん 2006/06/05(月) 19:28:24 ID:???]

>>170
split

[0173 nobodyさん 2006/06/05(月) 19:39:21 ID:0Db/Ehfs]

>>172
あっ　出来ました。　ありがとうございます

[0174 nobodyさん 2006/06/05(月) 19:52:22 ID:JTs163rf]

CPANのインストールディレクトリってどこにしてる？
デフォの /home/~username/.cpan にしとく？自分用に変える？
dotディレクトリに入れるのがなんか気持ち悪いんだが、、、

[0175 nobodyさん 2006/06/05(月) 21:46:17 ID:???]

>>174
> dotディレクトリに入れるのがなんか気持ち悪いんだが、、、

そんなことないよ。気持ちいいよ。

[0176 nobodyさん 2006/06/06(火) 01:40:03 ID:???]

テキストファイルから読み込んだ@listに対して
それぞれ一行ずつを取り出して表示させるにはどうすればよいでしょうか？

[0177 nobodyさん 2006/06/06(火) 01:53:24 ID:???]

foreach
ていうか、本くらい読め。基本過ぎる

[0178 nobodyさん 2006/06/06(火) 02:06:41 ID:???]

>>177
本だと私のやりたいことが載ってなかったので質問してしまいました
すいません、、、

@listに代入させた各行の１番目の<p></p>はそのまま、２番目の<p></p>を削除したいのですが、、、

[0179 nobodyさん 2006/06/06(火) 02:11:03 ID:???]

>>178
その foreach の載ってない本の題名を教えてください。

[0180 nobodyさん 2006/06/06(火) 02:18:35 ID:???]

以前、正規表現道場というスレがあったと思うのですが、
なくなっちゃったんですか？探してもないんだけど。

[0181 nobodyさん 2006/06/06(火) 02:18:54 ID:???]

>>178
その s の載っていない本の題名を教えてください。