Perl コーディング初心者質問コーナー Part37
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/08/22 01:41ID:???誰もが最初は初心者。
だからって、初心者に甘んじた質問の仕方は意味がないよ。
【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0655nobodyさん
04/09/23 15:28:26ID:+nr7omoUmy @c;
foreach my $value (@b){
if ( map /$value/, @a ) { push @c,$value }
}
これで@cの中には@aにあるものしか入らないよ。>>653はむかつくやつだから
無視した方がいいよっ！だって私回答したんだから、それくらい言う権利あるわよね！
0656nobodyさん
04/09/23 15:30:20ID:???前半:
my %a;
map $a{$_}++, @a;
@b = grep !$a{$_}, @b;
後半:
$#$a
0657nobodyさん
04/09/23 15:33:08ID:+nr7omoU何あんたっ！もう私が答えてるのよ！失礼なことしないでよっ！バカじゃないの！
0659nobodyさん
04/09/23 15:56:18ID:???0660651
04/09/23 16:04:15ID:+nr7omoU0661nobodyさん
04/09/23 16:56:25ID:???0663nobodyさん
04/09/23 17:06:44ID:EIIt3BOR簡易的なサンプルのグラフが出力でき、目的の棒グラフを作ろうと
思って、棒グラフと、点ぐらふで、左軸と右軸にそれぞれ違った
数値を持たせようと思い、オプションのセットの部分で、
$graph->set(
（略）
two_axes => true,
y1_max_value =>100,
y1_min_value =>0,
y2_max_value =>50,
y2_min_value =>0
);
と表してみたのですが、左の軸しか出力されません。
true_axesの値がtrueの時と言うことは、書いてあったので、
そこがおかしいのかと思い、two_axes => "true",としてみたり
two_axes => 1,としてみたり、色々試してみたのですが、
だめでした。どのようにしたら、左右別々の軸の値を出すことが
できるでしょうか？ご教授お願いいたします。
0664nobodyさん
04/09/23 18:28:51ID:???もしも$aの値の中にa-zA-Zとハイフン(-)以外を含んでたら処理発動ていうのがしたいんですが、
$a =~ /[a-zA-Z\-]/;
としてもうまくいきません。ハイフンをエスケープできてないのでしょうか？
0665nobodyさん
04/09/23 18:48:23ID:???処理
}
0666nobodyさん
04/09/23 19:43:29ID:???0667664
04/09/23 20:46:29ID:???すみません。そこ書き間違えてました。
[^a-zA-Z\-]としてます。
my $a = "abcdeFGRYEHDU-sss-";
print "ok" if $a =~ /[^a-zA-Z\-]/;
これだと普通にうまくいくようなので、どうやら初めから他の部分のコーディングにミスがあったんだと思います。
すみません。
0668nobodyさん
04/09/23 21:16:21ID:???CGI::Liteのparse_cookiesを呼ぶと、
なぜかフォームの内容までが取得されてきてしまったり、
逆にparse_form_dataでクッキーの内容まで取得されたり、ということが起きています。
parse_cookiesは、parse_form_dataとほとんど同じ動きをする、
というのをどこかで見ましたが、同じ内容が取得されるということなのでしょうか？
0669nobodyさん
04/09/24 00:20:24ID:???いちいちif文で$a>=$b && ...... とやる以外に方法はありますか？
0672nobodyさん
04/09/24 01:07:35ID:AJG/3HYEEditorでいじろうかと思ったのですが
文字が文字化けして何を書いてあるのかわからないのですが
この文字化けを解決する方法ないでしょうか？
0673nobodyさん
04/09/24 01:23:51ID:???0674nobodyさん
04/09/24 01:26:51ID:QHIu4qbQなにか手軽な方法はないでしょうか？
キーは不定なので直接指定することはできません
今は↓のようにいったん key を配列にしてからソートして目的の key を
指定してるんですが他に何かいい方法はないでしょうか？
my @tmp = sort keys(%abc);
my $data1 = $abc{$tmp[0]};
my $data2 = $abc{$tmp[$#tmp]};
0675nobodyさん
04/09/24 02:22:53ID:???ハッシュのキーには順番はないんだからそれでもしょうがないんじゃない？
ところで連番って、キーは数字なのか？
もしそうならそれだと最後は得られないけど。
sortだけだとキーが1〜10としたら 1 10 2 3 4 ・・・になってしまう。
@tmp = sort { $a <=> $b } keys(%abc); にしないと。
0677nobodyさん
04/09/24 11:12:13ID:???0678nobodyさん
04/09/24 11:23:21ID:???0679nobodyさん
04/09/24 11:32:22ID:???小さいときどうかは微妙だよな。perlのsort意外に速いし...
0680nobodyさん
04/09/24 14:05:57ID:???use Benchmark;
use vars '%Hash';
my %rand;
$rand{ int rand 100000 }++ while keys %rand < $ARGV[0];
@Hash{ keys %rand } = values %rand;
timethese(-5, {
each => sub {
my $min_key = 100000;
my $max_key;
for (keys %Hash) {
$max_key < $_ and $max_key = $_;
$min_key > $_ and $min_key = $_;
}
my($min_value, $max_value) = @Hash{$min_key, $max_key};
},
sort => sub {
my @key = sort { $a <=> $b } keys %Hash;
my($min_value, $max_value) = @Hash{@key[0, -1]};
},
});
0681nobodyさん
04/09/24 14:25:15ID:???ttp://www.din.or.jp/~ohzaki/perl.htm#JP_Escape
後者のコードがスタンダードなのは、CGI が流行ったころに
後者を使ったスクリプトが出回ったせいじゃないかな。
他にも chr と hex を使ったものも見たことがある。
0682nobodyさん
04/09/24 16:37:42ID:???$buffer = uri_unescape($buffer);
0683nobodyさん
04/09/24 19:34:09ID:???if ( $a == 1 && $b == 1 or $c == 1 ){...}
とか
if ( $a ==1 &&
$b == 1 or
$c ==1 ){..}
どっちもイマイチ見づらい。おまいらはifの条件文がやむを得ず長くなってしまったときに
どうやって視認性を確保してる？
0685683
04/09/24 19:55:58ID:???そうだったorzごめん。
それで何かいい書き方ないかな？一番いいのは冗長な条件文にしないことだけど、
たまにどうしようもないときってあるでしょ？
時間がないから妥協とかするときにでも、とっさにできる最低限のこととして
読みやすさだけは確保したいよね。
0687683
04/09/24 20:07:59ID:???そういう話ではないんだ＾＾；
条件文を冗長でないものにする方法じゃなくて、
冗長な条件文の読みやすくするための書き方みたいな感じ；
0688nobodyさん
04/09/24 20:08:48ID:???else BLOCK が不要なら
{
EXPR && EXPR || last;
EXPR || last;
...
}
とか。
Perl に限った話じゃないから、この辺ででも聞けば?
http://pc5.2ch.net/test/read.cgi/tech/1068752664/
0689nobodyさん
04/09/24 21:16:00ID:???↓Perl
ttp://bcmnhp1.hp.infoseek.co.jp/content2.txt
↓DATﾌｧｲﾙ
ttp://bcmnhp1.hp.infoseek.co.jp/ctdata2.txt
DATﾌｧｲﾙの一行目は上手く動作していますが，二行目の同一IPをチェックする方に何故か初めと終わりに:が付いてしまいます。
↓処理後DATﾌｧｲﾙ
ttp://bcmnhp1.hp.infoseek.co.jp/ctdata2_b.txt
一体なにが起きているんでしょうか？
0691nobodyさん
04/09/24 21:55:07ID:???ここで改行削除されてないから。
こうするとよくわかるんじゃない？
foreach $_ ( @count ) {
print COUNT "[$_:]";
}
foreach $_ ( @ip ) {
print COUNT "[$_:]";
}
0692689
04/09/25 08:34:52ID:???おぉ！出来ました！ありがとうございました！
0694nobodyさん
04/09/25 13:47:46ID:???test
というキーがあるかないかを調べるにはどう書くのが一番ですか？
if ( map/^test$/,keys %hash ) {
print "ありました";
}
もっと簡単な方法はありますか？
0696nobodyさん
04/09/25 14:13:17ID:???お前・・・・
最適化する時間も、才能も、素質も、スキルも・・・・・・・ないorz
そんなとき、そんな俺でも読みやすいソースにしたいっていってんだよボケ！
出直してこいや
0697nobodyさん
04/09/25 14:41:12ID:???0698nobodyさん
04/09/25 16:48:19ID:???if ($a == 1 and $b == 1 or $c == 1) {print 'ok'}
if ($a == 1 && $b == 1 || $c == 1) {print 'ok'}
if (($a == 1) * ($b == 1) + ($c == 1)) {print 'ok'}
if ($a == 1 and $b == 1) {print 'ok'} elsif ($c == 1) {print 'ok'}
視認性は、全体のアルゴリズムとコメントで解決するのが一番で、
if文をどう記述するかは二の次だと思うんだけど？
0699nobodyさん
04/09/25 17:03:11ID:???見易さ（＝見た目スッキリ）と読みやすさ（＝処理内容のつかみやすさ）は別でしょう。
話の流れを追っても、あなたがどっちを優先したいのかがもひとつ見えないよ。
ここの人に最適化してもらうよりも、自分がわかりやすいと思うコード・記述に
しとけばいいと思うんだけどな。適度に冗長性を確保するのも大事だろうし。
>>698も書いてるけど、コメントのほうで整理しとけば条件文が長いことぐらいは
気にならないと思う。
と、>>686が一瞬「三浦理恵子」に見えた人が書いてみる。
0700683 696
04/09/25 18:11:58ID:f8iWY7is＞見易さ（＝見た目スッキリ）と読みやすさ（＝処理内容のつかみやすさ）は別でしょう。
＞話の流れを追っても、あなたがどっちを優先したいのかがもひとつ見えないよ。
別なの？同じだと思ってた。
一番いいのはスキルアップして、最適なコーディングを瞬時にできるようになることなんだけど、
実際Perlばかりに時間を割けないので、とりあえず見やすさ&&読みやすさ%%把握しやすさだけ
なんとかならないかなと思って。
もちろん最適なコーディングに勝るものは無理だけど、少しはいい書き方ってあるのかなと。
いわゆる改行の入れ方、スペースの明けかた、揃え方。
まああいまいすぎだよね。絶対的な回答ではなく、みんなの習慣的な書き方の解答とかが
ほしかったけど・・・しつれいしますた。
0701nobodyさん
04/09/25 19:43:11ID:???0702nobodyさん
04/09/25 20:26:15ID:???0703nobodyさん
04/09/25 21:16:28ID:???少なくて意味がわからんかったときは時間かぐっとかるが、
多めなのは読み手が消せばいいだけだから問題ないし。
アルゴリズムの問題は書法の範囲の記法とは別次元だわな。
それは非常に大きな課題だし。
0704nobodyさん
04/09/26 18:13:38ID:tuEyJcFU・テキストの中から<div align="left">という文字列が含まれる行を探す
・みつかった<div align="left"> の行から、その次の </div> までのテキストを
抜き出してprintする
-<div align="left"> はテキスト中に1つのみです。
-</div> は何度も出てきます。
現状 @stringlist に突っ込んで、行数固定で抜き出していますが、
これだと(動的に生成されるページである為)内容が変わってしまうと
対応できません(当たり前)^-^;
よい方法があればお教えくださいm(_ _;)m
0706704
04/09/26 18:31:00ID:tuEyJcFUいま、こんなかんじです^-^;
--------------------------------------------------
#!c:\perl\bin\perl.exe
open(IN, "bin.html") || die "cannnot open!\n";
@stringlist = <IN>;
#読み出す行数
$end = 10;
for ($begin=1;$begin<$end;$begin++){
print @stringlist[$begin];
}
close(IN);
--------------------------------------------------
0707704
04/09/26 18:31:31ID:???0708なちじょあ ◆yEbBEcuFOU
04/09/26 18:51:12ID:???$text =~ s|.*<div align="left">(.*?)</div>.*|$1|s;
0709704
04/09/26 18:53:56ID:???2.$end = 1の行数から検索を開始して</div>が見つかった行数を返す
で、実現できそうな気がするのですが、
・配列から任意の文字列を含む行を探す
・別の文字列を含む行を、特定の行(1で見つけた行)以降で探す
方法はないでしょうか。
0711704
04/09/26 19:01:06ID:???2行ーｯ!!!??
ﾊﾞﾁｰﾘですた。
なちじょあ ◆yEbBEcuFOU マスター。
でも何やってるかびっくりするぐらいさっぱりです。
…<div align..> と、</div> 行を含んだものを出すには、どこを
どういじればよいのでしょうか。
現状--------------------------------------------
open(IN, "bin.html") || die "cannnot open!\n";
@text = <IN>;
$text = join('', @text);
$text =~ s|.*<div align="left">(.*?)</div>.*|$1|s;
print $text;
---------------------------------------------------
0712704
04/09/26 19:19:13ID:???$text = join('', @text); #''という文字列で区切って挿入。1行に纏めたんスねマスター。
$text =~ s|.*<div align="left">(.*?)</div>.*|$1|s; # ~ <^-^;???
0713nobodyさん
04/09/26 19:24:45ID:???「出力されてるのは <div 〜>(かっこの中身ですか)</div> ？」と思いながら
ぐりぐりしてみましょう。
というか、正規表現って何なのさと思いながら激しく調べてみてください。
0714704
04/09/26 20:35:15ID:???↑この行がさぱりです。
$text =~ s :$textの中身を置換する
| :or
.* :拡張子は問わない？？
まず、なぜ 置換とそれ以降がorで分けられるのでしょうか？？
0715704
04/09/26 20:51:59ID:???.*<div align="left">(.*?)</div>.*
これの意味がなんとなくわかりますた！
拡張子全然関係ないですねm(_ _;)m
-----------------------------------------------------------------
任意の文字列の後に<div align="left">がきて(?不明)<div>がきて、
その後にまた任意の文字列
-----------------------------------------------------------------
で、あっていますか？
0716nobodyさん
04/09/26 21:02:51ID:???0717nobodyさん
04/09/26 23:16:27ID:???外部ﾌｧｲﾙの、改行の3つ目まで読み込む
にはどんな手順を踏めば出来ますか？
0719717
04/09/27 00:18:45ID:???0721nobodyさん
04/09/27 01:15:18ID:???http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd/pe_k08.htm
これを読みながら逆上がり１０回出来ればわかると思うよ
0722nobodyさん
04/09/27 01:23:16ID:???0724nobodyさん
04/09/27 01:31:14ID:???サリー・セイント・フォードか。
これは偶然なんですか！
0725nobodyさん
04/09/27 01:31:37ID:???0726nobodyさん
04/09/27 01:36:46ID:???1000行なんかなにも気にする必要ないぞ?
ファイルサイズ 50k とかでしょ?
10万行とかいかない限り、気にしてもしょうがない。
0727nobodyさん
04/09/27 04:34:02ID:77N/SlLLPerlのデータ受け取りに関しての質問です。
<input type="hidden" name="com" value="$in{com}">
の$in{com}部分に、改行を入れても、一般的に問題はないでしょうか？
htmlに
<input type="hidden" name="com" value="あ
い
う
え
お
">
のように記述しています。
あ\nい\nう\nえ\nお\n
のようにデータを受け取ってくれますでしょうか？
0728nobodyさん
04/09/27 04:42:38ID:???0731nobodyさん
04/09/27 10:56:24ID:???0732nobodyさん
04/09/27 11:16:10ID:???とりあえずこんなとこだろう
opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
@filenames = readdir(DIR);
closedir DIR;
0734nobodyさん
04/09/27 15:47:48ID:???(Googleの次のX件とかみたいの)どういう風に組めばいいのかさっぱりわかりません。
参考になりそうなソースとかないでしょうか？
0735722
04/09/27 16:50:03ID:???出てきた出てきた^^;ググルって要らないサイトばっかマッチする糞検索鯖だと思ってました(ｼｮﾎﾞｰﾝ
>729>730
ものすごく簡潔で驚きました^^;;;
0736nobodyさん
04/09/27 17:01:46ID:???0737nobodyさん
04/09/27 17:30:22ID:???0738nobodyさん
04/09/27 18:11:02ID:???帰れ^^;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;:;;;;;;;;;;;;;;;;;;;;;;
0739nobodyさん
04/09/27 18:48:57ID:???サブルーチンからハッシュを返す方法がどうにもわかりません。
いろんなサイトをググってみたのですが、実際に試しても上手くいませんでした。
---------------------------------------------
%hashA = ("aaa","0","bbb","1","ccc","2") ;
%hashB = &hash_return() ;
print %hashA ;
print "\n";
print %hashB ; #←渡ってないので何も表示されない・・・(´･ω･`) ｼｮﾎﾞｰﾝ
sub hash_return{
%hoge = ("aaa","0","bbb","1","ccc","2") ;
return \%hoge;
}
---------------------------------------------
0740nobodyさん
04/09/27 19:02:52ID:???%hoge = ("aaa","0","bbb","1","ccc","2") ;
return \%hoge; #★★★ この \ を取れクズ野郎 ★★★
}
0741nobodyさん
04/09/27 19:06:26ID:???0742nobodyさん
04/09/27 19:06:40ID:???うざい氏ね^^;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;:;;;;;;;;;;;;;;;;;;;;;;
:イラネ(・△・)
0744nobodyさん
04/09/27 19:11:13ID:???教えて！偉い人！
0745nobodyさん
04/09/27 19:32:56ID:j0XZIPtZ$#hoge だとエラーになります
0747nobodyさん
04/09/27 20:34:39ID:???100の1
1000の2
100の3
500の1
1000の1
500の2
100の2
みたいに数字と日本語が混ざったデータを
100の1
100の2
100の3
500の1
500の2
1000の1
1000の2
にしたいのですが、<=> cmp どちらでやってもこのようになりません(当たり前なんですが…)。
どうやったらこんなソートが出来ますか？
0748nobodyさん
04/09/27 20:44:35ID:kQMIC0Dwmy $seieki;
$seieki++;
print "$seieki";
}
とやると毎回、$seiekiが1になります。
my $seieki;
の部分、一般的には、$seieki=0;とするのが普通でしょうか？
my〜は数値をリセットするためにも使用するものなのでしょうか？
詳しい方がいたら教えて下さい。
0749747
04/09/27 21:01:06ID:???100の1
1000の2
を
100.1
1000.2
のように日本語の部分を小数点にしてソートしてあとで小数点を日本語に戻しました。
もっといい解決策がありましたら教えてちょ。
0751nobodyさん
04/09/27 21:40:41ID:???map "$_->[2]\n",
sort { $a->[0] <=> $b->[0] || $a->[1] <=> $b->[1] }
map [ /(\d+)/g, $_ ],
qw(100の1 1000の2 100の3 500の1 1000の1 500の2 100の2);
>>748
my $count;
foreach (@data) { $count++; print $count }
print 1..@data;
■ このスレッドは過去ログ倉庫に格納されています