Perlコーディング初心者質問スレ Part 51
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2006/07/27(木) 17:04:23ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0011nobodyさん
2006/07/27(木) 19:47:33ID:0k8QdmRt変数を途中で使いたいのですが、どういう方法がありますでしょうか？
$fruit =~ s/みかん/りんご/; #OK
$apple = "りんご";
$fruit =~ s/みかん/$apple/; #NG
$apple = "りんご";
$RegExp = "s/みかん/$apple/";
$fruit =~ $RegExp; #NG
0012nobodyさん
2006/07/27(木) 19:59:13ID:???>$apple = "りんご";
>$fruit =~ s/みかん/$apple/; #NG
これはNGにならない。
$apple = "りんご";
$RegExp = "s/みかん/$apple/";
eval "¥$fruit =~ $RegExp";
0013nobodyさん
2006/07/27(木) 20:03:14ID:???0014nobodyさん
2006/07/27(木) 20:13:21ID:???すんません、確かにNGではなく変数使えました。
$in{"select_fruit"} でフォームからの値が入ってなかったようです･･･
全体をevalするのがあるんですね、JavaScriptで多少覚えたので理解できます。
確か処理が遅いから、やらないほうがいいですよね？
無難に>>11の2番目の方法にしておきます。
0015nobodyさん
2006/07/27(木) 20:39:57ID:???読み込むことってできないですかね？
やはり一度全部読み込んでから、
特定の文字列１より前と文字列２より後の部分を削除する
という方法でやるしかないでしょうか？
0016nobodyさん
2006/07/27(木) 20:48:35ID:???>ファイルを読み込むときに、特定の文字列１と文字列２の間の部分だけ
>読み込むことってできないですかね？
できる。
正確にはお察しのとおり、
1.ファイルを読み込みながら文字列1を探す。このとき読み込んだ文字列は保存せずに捨てる
2.1が見つかったらファイルを読み込みながら文字列2を探す。このとき読み込んだ文字列は変数に収納。
3.文字列2が見つかって終わり。
001715
2006/07/27(木) 20:58:10ID:???手順の説明ありがとうございます。
ただ自分としてはファイルの中身全部読み込んで
正規表現で文字列１と２をマッチさせてそれぞれの前後を捨てる
という方法を考えていたので、
>>16のようなスマートなやり方が分かりません。
もう少しヒントというか具体的な関数名を教えてもらえないでしょうか？
0018nobodyさん
2006/07/27(木) 21:14:10ID:???next unless /文字列1/ .. /文字列2/;
読み込む;
}
文字列1, 文字列2 自体が要らないなら、nextの次の行あたりで捨てて。
0019nobodyさん
2006/07/27(木) 21:18:18ID:???全体のファイルのサイズはどれほどなのかとか
読み込みたい中身の文字列の割合はどのくらいなのかとか
対象文字列の判定はどのくらい厳密にやらなければならないのか
（たとえば "このように引用された文字列" を探したいときに、
"このように\"エスケープされた引用符" をどう扱うのか
これは正規表現でもいっしょ。）
なので正規表現みたいに一行でスパッとというわけにはいかない。
そもそもどういう状況でその操作が書いてみると他のより効率的な手段を教えてもらえるかもしれない。
まぁ1kbyteそこらのファイルからなら単純に読み込んで正規表現使えばオケ
002015
2006/07/27(木) 21:43:03ID:???なるほど、nextを使って文字列にマッチしない限り次の処理へ進ませないわけですか。
ただ、文字列１と２が別の行にある場合は分けて処理する必要があるわけですね。
あいがとうございました。
>>19
後出し情報ばかりになってしまいますが、現在扱おうとしているファイルは
[00001]
情報Ａ
情報Ｂ
[00002]
情報Ｃ
というように番号（重複なし）だけの行と情報が入ってる行があるファイルで
サイズはまちまちで大きいものだと100Kbyte近くあります。
そのうち特定の番号の間の情報だけを抽出したいと考えています。
そこで、ファイルの中身全部を$logに格納して
$start = '開始番号';
$end = '終了番号';
$log =~ s/$end.+/$1/;
$log =~ s/.+$start/$1/;
番号だけの行削除;
というような処理を考えていたのですが、
>>18の方法の方がメモリ消費を抑えられそうですね。
まずはやってみます。ありがとうございました。
また何か妙案があれば是非ともお願いします。
0024nobodyさん
2006/07/27(木) 23:18:59ID:1uzwaimq年月日時分秒の計算がもっとらくに出来たらいいのにと。
print "こうなればいいのに" if 20060727121000 - 20060727120950 == 10
例えば時分秒用のマイナス演算子があれば・・・・・
0026nobodyさん
2006/07/27(木) 23:29:08ID:???0027nobodyさん
2006/07/27(木) 23:43:22ID:???ずっと昔のライブラリです。
$a = hoge::escape_h($a);
@a = hoge::escape_h(@a);
%a = hoge::escape_h(%a);
$a = hoge::escape_h($a); #scalarref
$a = hoge::escape_h($a); #arrayref
$a = hoge::escape_h($a); #hashref
でも全てうまく行くようにしたいのです。
用は引数がスカラか配列かハッシュか、リファレンス（どのタイプか）なのかを
チェック入れてif分岐でもすればいいとおもいますが、どうやってチェックするのか。
そこで行き詰ってます。宜しくお願いします。
0028nobodyさん
2006/07/27(木) 23:47:50ID:???>@a = hoge::escape_h(@a);
>%a = hoge::escape_h(%a);
この2つの区別はつかないよ。
他のは大丈夫だけど。
リファレンスの区別は ref を使う。
002927
2006/07/27(木) 23:51:33ID:???やっぱりさすがにハッシュと配列の区別なんて無理ですよね。
同じですもんね。
スカラーか配列かはどうすればいいですか？
やっぱり@_の要素数が1か複数かで見るのでしょうか？
003015
2006/07/27(木) 23:57:33ID:???バッチリできました！
ありがとうございました！
でも、next unless /文字列1/ .. /文字列2/;
の動きが分からずじまい。
ファイルハンドルで1行ずつ読み込んでnextをかけて行くのに
なぜ複数行に渡っても処理ができてるのか不思議です。
たぶん条件式をきちんと解釈できてないんだろうなぁ。
こんな式初めて見るので。
暇な方居ましたら、解説してやって下さい。
0031nobodyさん
2006/07/27(木) 23:58:58ID:???スカラー、読み取れたなら配列。
ちょっと強引過ぎる気もしますが・・・
0032nobodyさん
2006/07/28(金) 00:12:00ID:???> >%a = hoge::escape_h(%a);
> この2つの区別はつかないよ。
デマですね。
0033nobodyさん
2006/07/28(金) 00:47:28ID:???>trust::error_print() if $form{test} =~ /\D|\d{2}/;
穴は防げてるよ。どういう意味かにもよるけど
/^\d$/ or trust::error_print();
とか!~とかunlessの方がわかりやすかったりしない？
>>29
@_はループでリファレンスは再帰って形になるんじゃないかな
sub escape {
my @vals = @_;
for(@vals){
if(ref eq "ARRAY"){ # このへんをelsifで
$_ = [ escape(@$_) ];
}else{
$_ = エスケープ処理($_);
}
}
wantarray ? @vals : $vals[0];
}
0035nobodyさん
2006/07/28(金) 01:26:20ID:???範囲演算子をスカラーコンテキストで使うと、内部状態を内包したスイッチのように振舞うよ。
ちょうど最近みかけた解説。
ttp://d.hatena.ne.jp/palmo/20060724/rangeop
0036nobodyさん
2006/07/28(金) 08:36:07ID:???もう解決したっぽいからどーでもいいんだけど、例えば、
{
open 略;
local $/ = "[00001]";
<FH>; # [00001] までのは捨てる
$/ = "[00002]";
my $log = <FH>; # [00001] の次 ～ [00002] まで取る
close (FH);
}
で 「情報A 情報B」 が取れないかな？
0037nobodyさん
2006/07/28(金) 10:40:17ID:asi0sNZ0while (<FH>){...}
色々な処理
close FH;
色々他にもループ処理をしていまして、無限にならないようにちょこちょこ防止コードを
入れています。
それでtest.csvの行数が$form{get}に足らない場合にもエラー終了したいのですが。
my @test = <FH>;
ということをしたくありません。
scalar <FH>やlength <FH>
とやればいけると思ったのですが、一行目が取り出されてしまいます。
まあ配列じゃなくてあくまで行演算子？なので当然といえば当然ですが。
何かいい智恵はありませんでしょうか？
0038nobodyさん
2006/07/28(金) 10:48:11ID:???003937
2006/07/28(金) 11:25:15ID:asi0sNZ0いや一行で、イチイチ変数に読み込まずとか・・
scalar @test;
くらい簡潔にいけないかと思ってました。
でもむりなようですので配列に読み込むことでもうあきらめました。
連続ですいませんが他の疑問がありますのでお願いします。
http://perldoc.jp/docs/modules/Text-CVS_XS-0.23/Text-CVS_XS-0.23.pod
このモジュールをcsvファイルを扱う時にいつも使ってます。
my $csv = new Text::CSV_XS({ binary => 1 , "always_quote" => 1});
これでやってます。
$form{value} =~ s/\n/\t/g;
悲しいことにいつもこれやってます。このモジュールは改行文字をクォートしてくれないのですよね。
自分で読んでもどうも改行文字は自分で痴漢する以外にないと思うのですが、
中途半端な自分の勘違いなのかもしれないので詳しい人お願いいたします。
0040nobodyさん
2006/07/28(金) 11:46:38ID:???プロトタイプ使ってリファレンス受け取るサブルーチンにすれば
呼び出し側では字面上はスカラー/配列/ハッシュをそのまま
渡しているように書ける。あとはrefで何のリファレンスか調べる
ことができるのでなんとでもなるだろう。
% cat cat foo.pl
cat: cat: No such file or directory
sub foo (\[$@%]) {
my($x) = @_;
printf "ref(\$x)=%s\n", ref($x);
}
my $x = 'scalar a';
my @x = ('array', 'a');
my %x = (hash => 'a');
foo($x);
foo(@x);
foo(%x);
% perl foo.pl
ref($x)=SCALAR
ref($x)=ARRAY
ref($x)=HASH
0042nobodyさん
2006/07/28(金) 12:20:45ID:???ちょっともう自分で全ての把握をするのが難しくなってしまいました。
local.libっていうライブラリに色々作ってあるんですが、
その中にsub slash_printfer{}というものがあります。
そのサブルーチンの名前をsub slash{}に変えたいのです。
でもそのサブルーチンを使ってるページを全て書き直すのは骨が折れます。
というか100以上のファイルをなんてやりたくないですし。
置換ソフトでやっても最終的には全てのファイルの動作チェックを入れないといけなくなっちゃいますのでキツイです。
二つの名前を持つサブルーチンは作れませんか？
sub slash or slash_printfer{}
みたいにしてどちらで呼ばれてもこのサブルーチンが動くというような。
0043nobodyさん
2006/07/28(金) 12:22:48ID:???sub slash_printferが呼び出されたらslashを呼んでslashからの返りを受けて
呼び出し元に返すといったやりかたは断固として拒否します。
0044nobodyさん
2006/07/28(金) 12:31:11ID:???逆ならいいべ。
sub slash{
return slash_printfer();
}
つかそもそも
> そのサブルーチンの名前をsub slash{}に変えたいのです。
と。
0045nobodyさん
2006/07/28(金) 12:31:49ID:???my $hoge = my $foo = sub () { print 'hage' . "¥n" ; } ;
$hoge->() ;
$foo->() ;
local *hoe = local *moe = sub () { print 'moeeeee' . "¥n" ; } ;
&hoe ;
&moe ;
0046nobodyさん
2006/07/28(金) 12:42:56ID:???0048nobodyさん
2006/07/28(金) 13:23:00ID:???ループしながらread()で読んで、改行を数える手も。
>>42
>>45も出してるけど、型グロブもあるよ。
use strict;
use vars qw(*slash);
local *slash = \&slash_printfer;
slash();
exit;
sub slash_printfer {
print "printfer!\n";
}
0053nobodyさん
2006/07/28(金) 16:52:16ID:???0054nobodyさん
2006/07/28(金) 16:57:19ID:???0055nobodyさん
2006/07/28(金) 17:04:08ID:???0056nobodyさん
2006/07/28(金) 17:41:39ID:???表現変ですか？
どのように表現するのかご教示お願いします。
# local()だけを指すなら演算子だけどさ。
>>54-55
トップレベルで宣言はしないもの？
スタイルが違いすぎるかなぁ。
0057nobodyさん
2006/07/28(金) 17:48:13ID:???いくつかモジュール見たけど、そういう風に書いてるのみたことなかったもんで。
まああってもなくても問題ないからどうでもいいかｗ
use vars qw(*slash); ← これも別になくても通るよね。
0058nobodyさん
2006/07/28(金) 17:54:13ID:???myなり何なりしておくのはよさげ。
0059nobodyさん
2006/07/28(金) 17:55:59ID:???はい、その通りです。
0061nobodyさん
2006/07/28(金) 18:04:01ID:???0063nobodyさん
2006/07/29(土) 23:54:33ID:???local は既存の変数の値だけを一時的に差し替えて利用するためのアレですから。
0064nobodyさん
2006/07/30(日) 08:37:54ID:kTzF8iv+この配列のキーはqw/1 2 3 4 5.../のようになってます。
でもqw/1 3 4 5 6 10.../のようにトビトビになってる場合もあります。
key %hashのキーを参照して、まだ存在してないキーの中から一番数字が若いものが（0以下除外）
いくつになるかを調べるにはどうすればいいでしょうか？
forとexistsを使う方法を自分で考えましたが、ちょっとforを使いたくありません。
0065nobodyさん
2006/07/30(日) 09:19:54ID:???$key = (sort { $a <=> $b } grep ($_ > 0, keys %hash))[0];
0066nobodyさん
2006/07/30(日) 09:21:13ID:???0067nobodyさん
2006/07/30(日) 09:37:19ID:???0068６４
2006/07/30(日) 09:37:20ID:kTzF8iv+>>65
せっかくなのにすいません。
普通に安全なforだったことに気付いたのでいいやってことで。
変わりに別の質問がしたいのですが、CGIで一番面倒なことはエスケープだと最近思うのですが。
チャット、掲示板、～ファイル、～ファイル、～ファイル・・・・
何をやるにも表示の時にはエスケープ。
書き込む前には内容のチェック。
mysqlを思い出しまして。まあmysqlを使うほどではないときの法が多くて。
でもそんな時に例えば相手が送ってきた文字列のデータ型が何かをチェックしてくれるボジュールとかあれｂなと。
@form{qw/name count ip address tel memo time/};
これら全て自分で毎度「これには何が入っていてはいけなくて・・・」とか書くのがめんどうってことです。
妄想モジュールのオブジェクト->data型(数字のみ,@form{qw/count tel time/})
みたいにするとチェックできるとか。数字のみであるかどうかをチェックみたいな。
006967
2006/07/30(日) 09:39:53ID:???0071nobodyさん
2006/07/30(日) 09:53:02ID:???すでに解決したかもしれんが。
my $ret = 0;
$ret = ++$_ while exists $hash{$ret};
0072nobodyさん
2006/07/30(日) 09:57:59ID:???こういう処理で for とか while とかのループ使わないって条件だったらひどいことになるなーｗ
grep でやろうと考えたけど煩雑でやめた。
0073nobodyさん
2006/07/30(日) 09:59:34ID:???こうすると$testの中にリファレンスが入るけどどうもスカラー型なんだよね。それも$test{d}の中身が入る。
my $test = [@test{qw/a b c d/}];
こうすればちゃんと配列リファレンスではいる。
どういう理屈だろこれ。
0075nobodyさん
2006/07/30(日) 10:03:43ID:???前者は、
my $test = \( @test{qw/a b c d/} );
になるんじゃないかな。
my $val = ( list ... );
で最後の値が代入される。
後者は無名配列へのリファレンス。
007673
2006/07/30(日) 10:15:01ID:???なるほど～。
でも
\@testは\(@test)解釈されないのを聞くのは・・・無粋だよね。
そういう仕様なんだもんね。
タンキウス！
0077nobodyさん
2006/07/30(日) 10:26:02ID:rQ64iO4Qすいません３つあるんですが
$a = 3/4; という例で・・
１．分数の分子と分母をそれぞれ取り出す方法はありますか？
$?? = 3; $?? = 4; みたいに・・・
２．分数の逆数を求める方法はありますか？
$?? = 4/3: みたいに・・・
３．分子を１にして通分する方法はありますか？
$a = 3/4; $?? = 1/1.3333･･･
0079nobodyさん
2006/07/30(日) 10:58:53ID:???お前がリストと配列の違いを理解できてないことのどこが無粋？
>>77
前スレより条件減ってるけどそんなんでいいの？
＞１．(2/3)*(2/3) の解を 4/9 にするにはどうすればいいですか？
0080nobodyさん
2006/07/30(日) 13:28:14ID:???use bigrat; # or use Math::BigRat;
$a = 3/4; # or $a = Math::BigRat->new(3/4);
my($n, $d) = $a->as_parts(); # 1. 分母分子の取り出し
$i = 1/$a; # 2. 逆数
3. だけ分からん。自分で考えてくれ。
BigRatでは、分母を小数にはできないかも。
ちなみに (2/3)*(2/3) を 4/9 にするには
use bigrat;
print 2/3 * 2/3;
0081nobodyさん
2006/07/30(日) 14:15:52ID:???ifを使って文字列の中にaとbとcがあったときに真を返すようにするにはどうすればよいのでしょうか。
例えば「crab」とか、「arabic」とかなら真を返す、見たいな感じです。
0082nobodyさん
2006/07/30(日) 14:23:24ID:???>>64,>>72
my @data = sort { $a <=> $b } keys %hash ;
( join ',', @data ) =~ /(¥d+),(?!(??{$1 + 1}))/;
print $1 + 1 , "¥n" ;
# sort は使わざるを得ない。
>>81
if ( $str =~ /a/ and $str =~/b/ and $str =~/c/ ) { print 'true' . "¥n" ; }
0085nobodyさん
2006/07/30(日) 19:12:17ID:???自己レス
すまん、分母分子の切り出しだけメソッド名間違ってた。
my($n, $d) = $a->parts();
0086nobodyさん
2006/07/30(日) 19:20:45ID:NH/5yRqcダブルクォート文字列で＆を表示させたいのですが
どうすれば良いのでしょうか？
何度やってもエラーが出てしまいます。
0087nobodyさん
2006/07/30(日) 19:24:21ID:???0088nobodyさん
2006/07/30(日) 19:26:36ID:???でも問題なく表示されるなぁ。何が違うんだろう。
0089nobodyさん
2006/07/30(日) 19:37:55ID:???$RSS_ITEM_URI = "http://www.google.com/url?sa=D";."\&"."q=".
$RSS_SCRIPT_URI."?DT=".$dateY.$dateM.$dateD.$dateSUB."#".$dateY.$dateM.$dateD.$dateSUB;
では、どうもエラーが出てしまいました。
$RSS_ITEM_URI = "http://www.google.com/url?sa=D";."\x？"."q=".
$RSS_SCRIPT_URI."?DT=".$dateY.$dateM.$dateD.$dateSUB."#".$dateY.$dateM.$dateD.$dateSUB;
こういう感じの事も試してみたのですが上手く行きませんでした。
0091nobodyさん
2006/07/30(日) 19:52:11ID:???で無事行けました！
xhtmlでは＆amp; なのですね…（汗） 勉強なりました。
0092nobodyさん
2006/07/30(日) 21:33:25ID:???HTML は人による閲覧が主だから多少間違ってても読み手が補完するだろう
と IE なり NN なり FF が適当に表示してくれるだけ。
XML だとそれが通用しない。
0094nobodyさん
2006/07/31(月) 00:56:13ID:yxBpgbMaと
if (!$hoge){$hogeが無いぉ}
ってどっちがいい？
0095nobodyさん
2006/07/31(月) 01:18:45ID:???casebycase
ってか下で迷うのは if ($hoge) じゃないのかよｗ
if ($hoge ne "") ← これは $hoge が undef のときに警告がでる
if ($hoge) ← これは $hoge が "0" のときにも FALSE になるのが注意
0098nobodyさん
2006/07/31(月) 07:17:33ID:YjkkI8MZどうすればよろしいの？
記事の投稿があったその都度に、その内容で新規HTMLを生成するスクリプトを考えてます
0099nobodyさん
2006/07/31(月) 08:59:40ID:???うん、まぁ、とりあえず、perldocではdeclaration(宣言)と書かれてしまっているんだ。
(5.8ではmyとourしか扱ってないから、古いperldocをあたってくれ。)
0100nobodyさん
2006/07/31(月) 10:49:13ID:???2006年07月31日 elf 気づいてるのかな．mixi.pne.pjは本当にmixi.jpからファイルをmixiからコピーしてるんですよ? 他とはレベルが違う
(2006-07-31T09:45:59+09:00)
0101nobodyさん
2006/07/31(月) 10:50:52ID:???0102nobodyさん
2006/07/31(月) 11:17:46ID:???何を言ってるのか分からない。
（変数名）.htmlというファイルを作りたいのか、
変数名を反映させた内容のhtmlファイルを作りたいのか、
＞記事の投稿があったその都度に、その内容で新規HTMLを生成するスクリプトを考えてます
コレなんかは単に掲示板の出力をファイルにすればｲｲだけでは・・？
0103nobodyさん
2006/07/31(月) 11:20:43ID:???趣味の範囲の話しだけど
$hogeにはいる値の候補が文字列なら$hoge ne""とした方が読みやすいと思う。
0104nobodyさん
2006/07/31(月) 11:29:14ID:???0105nobodyさん
2006/07/31(月) 11:35:59ID:???なんかラベルなんていらねって書いてあるけど、CGIでは結構使いところあるけどなぁ。
初めから設計通りに作るとかじゃなく、その場その場でどんどん機能が追加されていく場合に
数行処理をふっ飛ばしたいとか、多分多くの人がifとか$error = 1とかでやるところも
gotoでもっと簡単にできるのにって思った。
詳しい人にすっごい突っ込まれそう。
怖いがちょっと突っ込まれてみたいかも
0106nobodyさん
2006/07/31(月) 11:37:47ID:???というか、数値が入ったり文字列が入ったりするような変数があるコードは設計がおかしい。
そして、数値が入ってるか文字列が入ってるか分からないような状態でif文にかけるようなコードは
明らかに設計がおかしい。
http://pc8.2ch.net/test/read.cgi/tech/1153312202/
0107nobodyさん
2006/07/31(月) 11:39:46ID:???0109nobodyさん
2006/07/31(月) 11:42:32ID:???＞数行処理をふっ飛ばしたいとか、多分多くの人がifとか$error = 1とかでやるところも
たぶんそういうところは関数定義で何とかする
0110nobodyさん
2006/07/31(月) 11:55:33ID:???if('0'ne''){print 3}
if(0){print 5}
if('0'){print 7}
>>23
■ このスレッドは過去ログ倉庫に格納されています