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

【Perl】初心者コーナー Part17

■ このスレッドは過去ログ倉庫に格納されています
0001 ◆Go4ZKngPGE 02/10/14 17:24ID:???
いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

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

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

CGIだけど、なんか質問ある？ Part 8
http://pc.2ch.net/test/read.cgi/php/1032704121/
参考書籍の話題は【Perl,CGI】参考書籍 第三版
http://pc.2ch.net/test/read.cgi/php/1030209573/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般/Part2】
http://pc.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は 【 スクリプト改造工房 PART 5 】
http://pc.2ch.net/test/read.cgi/php/1028193595/

過去ログ、その他の役立ち情報は>>2-10あたりを見よう。
0628nobodyさん02/11/06 17:33ID:???
ｵﾏｴﾓﾅｰ系のレスが飛びだしてる様は人種の特徴を絵に描いたようだねぇ。。
0629（￣ー￣）y-.。o○02/11/06 17:36ID:???
この板はさつばつとしておりやがりますねぇ。
0630nobodyさん02/11/06 17:38ID:???
>>619
初心者のみなさんはこんな真似はしないようにね。
スクリプトをちょっとだけ省略できるかもしれないけど、
チェックボックスはnameが違うことが重要な意味を
持つので、これを同じにして後で困るのは非常に
おばかさんのすることですよ。
0631nobodyさん02/11/06 17:38ID:???
【Perl】厨房コーナー Part 1
0632nobodyさん02/11/06 17:40ID:???
>>630=617?
>>617の厨房度は置いといて、>>630には同意。
0633nobodyさん02/11/06 17:59ID:???
>>608
たとえMX引いてあて先のSMTP直接たたいた場合でも、そこからさらに転送している場合などは
送ってみなけりゃわからない。
063461902/11/06 18:09ID:???
>>630
http://www.w3.org/TR/html401/interact/forms.html#checkbox
を読んでください。
英語が読めないなら
１つのFORM内で多くのcheckboxが同じcontrol nameを共有してよいと書いてあります。
0635nobodyさん02/11/06 18:09ID:???
>>630にはほぼ同意だが、同じ名前を持つこと自体は禁止されてない。
CGI::では名前がぶつかるとリストで格納していたと思ったが、今確認できる状況に無い。
063661902/11/06 18:17ID:???
１つのnameに複数のvalueを持たせるときにcheckboxを使うんであって、
１つのnameに１つのvalueだったらradiobuttonがあります。
0637nobodyさん02/11/06 18:27ID:???
「してもよい」と「するべき」は全く違うことが分からない人がいるな。
063861902/11/06 18:42ID:???
>>637
本当に複数選択の場合に一個一個、別のnameつけてるんですか。
意味がないというか、よけい無駄な処理が増えるだけのような気がするんですけど。
同じnameにした方がすっきりするので私は好きです。
0639(´ー｀)y━~~02/11/06 18:54ID:???
ひとりで騒いでるPerl初学者がいるスレはここですか？
0640しつこくてスマソ02/11/06 19:00ID:???
CGI.pm のマニュアルだと、
> @turned_on = $query->param('group_name');
で、同じ name のチェックボックスの値を取れる
と書いてあります。

cgi-lib.pl だと、"\0" で区切られるんだっけ？
0641ｘ02/11/06 19:03ID:???
普通かどうかはわからないが、name 同じにして論理和でやったほうがやりやすい

と思うな。 値を２の巾乗にしてさ。
0642nobodyさん02/11/06 19:15ID:???
>本当に複数選択の場合に一個一個、別のnameつけてるんですか。

場合による。君みたいに一方的に決め付けるのは危険すぎる。
0643nobodyさん02/11/06 19:17ID:???
HTML 4.01 勧告読んで由
0644nobodyさん02/11/06 19:24ID:???
なんかw3cが、、、HTMLの勧告が、、、とか本題からズレてるんですが。

最初の質問者は受け取り方分からないんだからname別々にすりゃいいんでねぇの？
0645nobodyさん02/11/06 19:38ID:???
別々にするか、>>616のやり方で配列に入れるか、>>640のように区切って格納するか、
いろいろありますね。
0646nobodyさん02/11/06 20:25ID:???
確かcgi-lib.plだと、\0で区切って連想配列に入れてるんだっけ？
0647nobodyさん02/11/06 20:26ID:???
>>646
って既出でした。すいません。
064859202/11/06 21:50ID:???
ぼくのナイス質問が

埋もれてしまった


064959202/11/06 22:58ID:???
配列のハッシュを使ってやろうとしてますが、
うまくいきません。何処がいけないのでしょうか？

while (<>){
($name,$year)=split /:/;
chomp $year;
$years{$year}=[ $name ];
}


for $year (keys %years){
#push(@years,$year);
print "$year",@{$years{$year}},"\n";
}
065059202/11/06 23:02ID:???
データデス。


ＡＡ倶楽部:1995
ＢＢ軍:1995
ＣＣを考える会:1995
ＤＤの協力会:1998
ＥＥ観察の会:1999
ＦＦに親しむ会:1999
ＧＧを守る会:1999
ＨＨを探る会:2000
ＩＩネットワーク:2000
0651 ◆hMJAPH9PWA 02/11/06 23:06ID:???
>>649
惜しいけど今ひとつ足りない
# ちなみにそれは配列のハッシュではなくハッシュの配列ね。

$years{$year} = [$name];
これは次のコードに相当するんだよ
@{$years{$year}} = ($name);
これじゃ配列に要素を追加しているとは言い難いでしょ。
065262302/11/06 23:34ID:???
指摘された通り改行コードで引っかかってました。感謝。
0653nobodyさん02/11/07 01:11ID:???
すいません、一応過去ログ見たけどなさそうなので伺いたいのですが・・・

多重起動をさせないようにする常套手段って言ったらどうするんですかね？
個人的には自分自身($0)を読み取りで開いて排他ロック
　open (LOCKMYSELF, "< $0");
　flock(LOCKMYSELF, 6) or die;
とかやってたんですけど、SolarisだとOSの都合で読み取りオープン時は
排他ロックが掛けられない(共有ロックは可)らしいし、かといって
書き込みオープン("+< $0")とかは何となくコワイし…。

あと思いつく手といったら、別のどうでもいいファイルを用意して排他ロックを
試みるとか、system関数でpsとgrep使って調べるとかくらいしかないんですけど、
何かスマートな方法ってありませんか。
#そういう目的のモジュールでもあれば手っ取り早いんですけどね。
0654nobodyさん02/11/07 01:28ID:???
>>653
> とかやってたんですけど、SolarisだとOSの都合で読み取りオープン時は
> 排他ロックが掛けられない(共有ロックは可)らしいし、

やっぱりそうなんだ。漏れは知らなくて、flock() を
コメントアウトしたまま動作してるプログラムが一つ
あるよ（ｗ

UNIX ドメインソケットを使ってプログラムの実行を
逐次化する話は、何かで見たような気がする。ブロッ
クしちゃうかな。
0655nobodyさん02/11/07 01:30ID:???
>>653
素人意見で申し訳ないんだけど、
漏れならダミーファイル作ってそいつがあったら強制終了、なかったら通常通り起動ってするな・・・。
素人だからそれくらいしか出来ないって突っ込みな無しで・・・。
0656nobodyさん02/11/07 01:44ID:???
>>655
ダミーファイルつかまんまPIDファイルじゃないのか? それは。
/var/run/hoge.pid って。
0657nobodyさん02/11/07 02:59ID:???
ループ処理
1 while s///;
の1なんですが、
マッチしなくなるまでループを続けるらしいですが、
一体どこでマッチしないって見切りをつけてるんでしょうか？

質問の意味もよく分かりませんね・・。
0658nobodyさん02/11/07 05:18ID:???
条件式が偽になればそこが見切り
見切りをつける場所がなければ延々とループし続けてやがてマシンが落ちる
065959202/11/07 10:22ID:???
できました。でも、見栄えがよくない。
@{$years{$year}}を
,
とかスペースで分割して表示するにはどうすればいいでしょうか？

---------------------------
while (<>){
($name,$year)=split /:/;
chomp $year;
push @{ $years{$year} }, $name;
}


for $year (sort keys %years){
print "$year",@{$years{$year}},"\n";
}
0660 ◆hMJAPH9PWA 02/11/07 10:53ID:???
>>659
おめでとう。特に無駄な処理はしていないし、いいと思うよ。
強いてあげれば
($name,$year)=split /:/; は my($name, $year)=split /:/; の方が
他の場所にある(グローバルな)$nameや$yearを破壊してしまわないので望ましいね

配列要素をカンマ区切りで出力するには、一般にjoin($sep, @list)を使えばいいよ。
単にスペースで区切ればいいならダブルクォートの中に入れるだけでいいけどね。
0661nobodyさん02/11/07 11:26ID:???
配列からハッシュを作って初期化してるんですけど、

{ map { $_, 1 } @list }

は
どんな時に使いますか？

サンプルｷﾎﾞﾝ
0662nobodyさん02/11/07 13:09ID:???
ファイル名の最後に塗る文字をつけるってどういう意味ですかぁ？

find . -name '*% find . -name '*.bak' -print0 | perl -n0e unlink

改行"\n"とは違って？



0663nobodyさん02/11/07 13:24ID:r3gS0+P5
スカラー変数が配列にマッチするかどうかは
どうやって調べればいいですか？
以下のように書いてもNGになっちゃって・・・

@array = ("taro", "jiro");
$name = "taro";

if (@array =~ /$name/) { print "OK\n"; }
else { print "NG\n"; }
0664nobodyさん02/11/07 13:43ID:???
if (grep(/\Q$name\E/, @array)){
0665nobodyさん02/11/07 14:06ID:???
perlの中でローカルの任意のディレクトリを指定したい時は、（例えばデスクトップのhogeフォルダ）
$hogedir = 'C:\Documents and Settings\Administrator\デスクトップ\hoge\';
こうやって、最後に\を入れるとエラーになります。

$hogedir = 'C:\Documents and Settings\Administrator\デスクトップ\hoge';
最後の\を取ると正常になります。
最後の\は付けちゃいけないルールなんでしょうか。
0666nobodyさん02/11/07 14:09ID:???
>>665
$hoge = 'aaaaaaaaa\'aaaaaaaaaaaaa';
print $hoge;

の結果を見てみれ。何故エラーになったか分かるから。
0667nobodyさん02/11/07 14:09ID:???
>>665
そのスクリプトを見ないことにはなんとも言えない
066866602/11/07 14:11ID:???
あと

$hogedir = 'C:\Documents and Settings\Administrator\デスクトップ\hoge\\';

とやればお望みの結果になるかと。
0669nobodyさん02/11/07 14:42ID:???
>>662
null文字（　´∀｀）つ\0

>>663
foreach (@array) {
  if (/$name/) { OK }
  else { NG }
}
0670nobodyさん02/11/07 14:53ID:???
ttp://ha1.seikyou.ne.jp/home/ikkyu/works/perl/sample.html#TransferHANKAKU

にある
「引数の全角数字を半角数字に変換する」

って方法はかなり厨ですかぁ？

もっとスマートな方法ｷﾎﾞﾝ

0671nobodyさん02/11/07 15:17ID:???
素直にjcode.plかJcode.pm使えば？
0672nobodyさん02/11/07 15:32ID:???
sub start{
my @a = ("あ","い","う");
my $b = "B";
&tugi("@a","$b");
}

sub tugi{
my (@hairetu,$hensu) = @_;
}

こうすると@hairetuに渡された引数が全部入ってしまいます。
仕方なく、
my @hairetu = $_[0];
my $hensu = $_[1];
とやっていますが、引数が多くなった時は大変です。
どうすればうまく引数を受け取れますか。
067367202/11/07 15:35ID:???
すいません、
my @hairetu = $_[0];
my $hensu = $_[1];
もダメでした（汗
@hairetuに "あ い う" こういう感じで配列が一個になってしまいました。
0674nobodyさん02/11/07 15:49ID:???
sub start{
my @a = ("あ","い","う");
my $b = "B";
&tugi($b, @a);
}
sub tugi {
my ($hensu, @hairetu) = @_;
}

or

sub start{
my @a = ("あ","い","う");
my $b = "B";
&tugi(\@a, $b);
}
sub tugi {
my ($tmp, $hensu) = @_;
my @hairetu = @{$tmp};
}
0675nobodyさん02/11/07 17:47ID:???
${$foo}{bar}
が
$foo->{bar}
と書ける理由は何でしょうか？
0676nobodyさん02/11/07 17:54ID:???
$foo = \%foo; の場合
%foo と %{$foo} は同じ。
よって $foo{bar} と ${$foo}{bar} は同じ。

$foo{bar} と $foo->{bar} は同じ。

だから ${$foo}{bar} と $foo->{bar} は同じ。
0677nobodyさん02/11/07 18:01ID:???
01234/05678 ABC01234 ハンドル RE:タイトル

本文
----------------
のような形式の二フログからタイトル行だけ取り出したいのですが，
grep(/^[0-9]{5}\/[0-9]{5}\ /, @file);
だとエラーになったり（ならなかったり）します。
どう書くべきですか？
067867702/11/07 18:07ID:???
すみません。正確には，
if ($str =~ /^[0-9]{5}\/[0-9]{5}\ /)
だとエラーにならず，
grep(/^[0-9]{5}\/[0-9]{5}\ /, @file);
だとエラーになります。
0679nobodyさん02/11/07 18:19ID:???
>>676
質問者じゃないけど勉強になった。
0680nobodyさん02/11/07 18:32ID:???
>>678
grepでは正規表現が使えないからかな
0681nobodyさん02/11/07 18:35ID:???
>>677
エラーって何のエラー？
068267702/11/07 18:44ID:???
原因がわかりました。すみません，構文とは無関係でした。
ソースをUTF-8で保存すると，
エディタが？を0xC2A5（円マーク）として
エンコードしやがるのが原因でした。申し訳ない。
0683rubyist@カラアゲうまうま02/11/07 21:20ID:???
循環参照があればリークするだろヴォケ
0684nobodyさん02/11/07 21:41ID:???
またきた　さびしんぼが
0685rubyist@カラアゲうまうま02/11/07 21:45ID:???
ヴォッケ
068661102/11/08 00:20ID:???
……
0687nobodyさん02/11/08 00:32ID:???
rubyistって･･･高校でてないの？
0688nobodyさん02/11/08 00:56ID:???
>>686うそついちゃいかん。消し忘れかね
0689デフォルトの名無しさん02/11/08 01:18ID:???
>>687
rubyistって･･･中学校もでてないと思うよ。

0690nobodyさん02/11/08 09:48ID:???
一応、ここで確認しときます。

ttp://www.amazon.co.jp/exec/obidos/ASIN/4899770413/qid=1036634229/sr=1-7/ref=sr_1_2_7/249-3840325-5917917
「やさしいPerl 表計算的処理編」

ExcelVBAが大嫌いな人のために、

「perlで表計算」というスレ立ててもいいですか？

そういうネタは育つかな？

0691６９０02/11/08 09:49ID:???
そうそう、
昔そういうスレありましたか？
0692nobodyさん02/11/08 13:13ID:???
370行のファイル、hoge.txt があります。
1..6と（最初の6行）
364..370(最後の７行）
がゴミ情報です。
perlの
for $i (7..363){}
とか使って、
ファイルの必要な部分だけを抜き出したいんですが、
どうすればいいでしょうか？

tail -364 hoge.txt|head -357
は計算するのが面倒です。
0693nobodyさん02/11/08 13:14ID:???
>>690
「ExcelVBAが大嫌いな人」ですが、ｘｌｓをＣＳＶで保存、
後は、Ｐｅｒｌでさくさくやってます、または、Ｐｅｒｌ
でさくさく、ＣＳＶにしてＥｘｃｅｌに読ましてますが、
それ以上の高度なことができるってことでしょうか。
0694nobodyさん02/11/08 13:18ID:???
もち、Ｅｘｃｅｌファイルでデータ交換しなきゃならない場合だけどね。
普通は、ＣＳＶ２ＴｅＸできれいに出力。
0695nobodyさん02/11/08 13:20ID:???
>>692
if (6 < $. && $. < 364) {
print;
}
でどうよ。
0696nobodyさん02/11/08 14:13ID:???
693さんが使ってらっしゃる
ＣＳＶ２ＴｅＸ
は何処にあるＣＳＶ２ＴｅＸでしょうか？

すごく興味あります。ﾊｧﾊｧ。

0697nobodyさん02/11/08 16:10ID:???
>>696
あなたなら５〜６分でできるであろうような、自作Ｐｅｒｌ
スクリプトです。期待に添えずスマソ

0698nobodyさん02/11/08 21:55ID:???
>>695

>>692はちょっとわかりにくいけど、
> tail -364 hoge.txt|head -357
> は計算するのが面倒です。
っていうからにはいろんなファイルに対してそういう処理をするから
そのたびに計算するが面倒だってんじゃないの？

perl -i.bak -ne 'unshift@a,$_;print$a[7]if$.>13' でどう？
0699デフォルトの名無しさん02/11/08 22:20ID:???
>>698
へー、最後のところ読み飛ばしてレスしちゃった。
それにしても、あんたの案は頭いいね。もしかして、
あんた天才？

070069802/11/08 22:38ID:???
>>699
あはっ、そうだったら良かったんだけどね。
こういうの考えるのって楽しいよね。
0701nobodyさん02/11/08 23:15ID:???
ちと失敬。
配列を1個の変数にするにはどうすればいいんでしたっけか？
0702nobodyさん02/11/08 23:19ID:???
>>701
意味不明
0703デフォルトの名無しさん02/11/08 23:20ID:???
>>701
$scalar="@array";
$scalar=join("", @array);
とかさ。

070470102/11/08 23:22ID:???
>>702
他に説明のしようがござらん。
>>703
なるほど。ありがとうござる。
0705rubyist@カラアゲうまうま02/11/08 23:28ID:???
頭の不自由な人ですか？
0706nobodyさん02/11/08 23:34ID:???
おっ！ 今夜も寂しんぼうがやってきた。

したーのほうにあったスレをご丁寧にあちこち探しまわってやっと見つけた

このスレにカキコですか・・・
0707rubyist@カラアゲうまうま02/11/08 23:38ID:???
20番前後で「したーのほう」とは随分目が悪いんだな(w
厨房質問ばかりなのがいかにもPerｌスレらしい
0708rubyist@カラアゲうまうま02/11/08 23:41ID:???
何でk身うj食う入れjyr！
こて手見せる！
0709nobodyさん02/11/08 23:44ID:???
rubyは興味あるけど
こんな人間になっちゃうんなら触らない方がいいかな
0710nobodyさん02/11/08 23:50ID:???
いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

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

1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
0711rubyist@カラアゲうまうま02/11/08 23:51ID:???
>>710
1:Perlコミュニティの壊滅
2:取りあえず2chで煽ってみた
3:あんまりまともに相手にされない
0712nobodyさん02/11/08 23:56ID:???
上下フレーム式の2ショットチャットCGI作ってるんですが、
相手が入室した時に、上フレーム内に相手の名前を表示させるために
1回だけリロードさせたいんですが、
下のフレームだけがリロードされて上のフレームはリロードできないんです。
Location:　以外で、上のフレームだけをリロードさせる方法無いでしょうか？
0713nobodyさん02/11/08 23:59ID:???
>>712
もうちょい詳しくね。
ソースの関係あるとこ見せてみ。
0714nobodyさん02/11/09 00:04ID:???
>>712targetの問題でわ
071571202/11/09 00:07ID:???
説明しにくくてすみません・・

上のフレーム：　発言窓と参加者リスト
下のフレーム：　発言ログ

で、
相手が参加した時の動き

上のフレーム：　参加者リストに相手の名前追加
下のフレーム：　相手の入室サイン

となるようにしたいのですが、
下のフレームはMETAタグが仕込まれているのでRefresh時間を0にするだけで
リロードは即時に出来るんです。
しかし上のフレームは発言窓で固定のため、METAタグを仕込めず、
リロード出来ないのです。
この「相手が参加した時の動き」のサブルーチンは、
下フレーム内のリロードの処理だけ入ってるんです。
0716nobodyさん02/11/09 00:08ID:ohpSmuMz
/home/foo/bar/hoge/fuga.txt
/home/foo/bar/hoho.txt
というリストから、*.txtを削除する方法はありませんか？
071771202/11/09 00:08ID:???
>>714
METAタグにはtarget効きませんでした。
0718nobodyさん02/11/09 00:12ID:???
>717
JavaScript使え。
0719nobodyさん02/11/09 00:13ID:???
>>712=715
言ってることがよくわからん。混乱してない？

そもそも、
＞相手が参加したときの動き
って、リロードする前に相手が参加したかどうかはわからないよね。
で、なんでまたMETAでリロードする必要があるの？
0720nobodyさん02/11/09 00:14ID:???
>>716
s/[^\/]+\.txt$//;
072171902/11/09 00:16ID:???
あ、上フレームをリロードするため？そりゃ無理だ。
それなら、やっぱり>>718の言うとおりJavaScriptだね。
ただ、入力欄のあるフレームを勝手にリロードすると大変
使いにくいチャットになると思われるので、その辺注意して。
つーか、なんでリストを下のフレームに表示しちゃいけないの？
0722nobodyさん02/11/09 00:17ID:2uRXoRQG
現在、メール送信のプログラムを書いているのですが、
sendmailじゃなくて、smtpで送りたいんです。
ただ、サーバがモジュールが使えないので、
モジュールなしでのsmtpサーバ経由のメールの
送り方をご存じの方ご教授願います
072371202/11/09 00:18ID:???
>>721
Javascriptで1回きりリロードって出来ます？Perlスレなのにすみません・・。

下のフレームにリスト表示したくないんです。
0724nobodyさん02/11/09 00:19ID:???
参加者リストは下フレームに置くのが一般的。
上に1回だけ表示させてもいなくなった人は消えないし後から来た人が追加されることもない。
0725nobodyさん02/11/09 00:20ID:ohpSmuMz
>>720
ありがとうございます。感謝です。
0726nobodyさん02/11/09 00:24ID:???
御願いします。

cat -n で複数ファイルを番号つきで見ています。
下のようにするとファイルの境界がなくなって見ずらいです。

-------------------
とか入れることできないでしょうか？

$ for i in `seq 1 2`;do cat -n vba.$i;done
1 With ActiveSheet.UsedRange
2 Set r = .Rows(.Rows.Count).Offset(1, 0)
3 For Each c In r.Cells
4 c.FormulaR1C1 = "=SUM(R[-" & c.Row - 1 & "]C:R[-1]C)"
5 Next
6 End With
7 End Sub
1 With ActiveSheet.UsedRange
2 Set r = .Rows(.Rows.Count).Offset(1, 0)
3 For Each c In r.Cells
4 If c.Column <> 1 Then
5 c.FormulaR1C1 = "=SUM(R[-" & c.Row - 1 & "]C:R[-2]C)"
6 End If
7 Next
8 End With
9 End Sub
0727nobodyさん02/11/09 00:28ID:???
---------------------- の内容のファイルを用意し（仮に line.txt)

% cat -n xxx line.txt
■ このスレッドは過去ログ倉庫に格納されています