【Perl】初心者コーナー Part17
■ このスレッドは過去ログ倉庫に格納されています
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あたりを見よう。
0566564
02/11/05 13:43ID:???確認のため再度行ってみたところ↓の分が表示されました。(先程までは何も起こりませんでした
KKCFUNC が組み込まれました.
マイクロソフトかな漢字変換 ﾊﾞｰｼﾞｮﾝ 2.51
(C)Copyright Microsoft Corp. 1992-1993
Can't locate IO/Select.pm in @INC (@INC contains: c:/usr
djgpp/lib/perl5/site c:/usr/djgpp/lib/perl5/site .) at r
BEGIN failed--compilation aborted at rotoold.pl line 3.
これは正常に起動していると考えてもokなのでしょうか？
ちなみに先程まではCドライブにrotooldフォルダを置いて起動していましたがDに移動してみたところ、この表示がでました
0568564
02/11/05 14:24ID:???Select.pmモジュールについてですがC:JPL5005\LIB\PERL5というフォルダにはいっているのを確認しましたが
モジュールを探し損ねてる場合どういった処置を行えばよろしいでしょうか？
0569&rlo;こんう&lro;
02/11/05 16:04ID:???0570nobodyさん
02/11/05 16:26ID:???undef $/;
や
$/="";
は便利だけど、
----------
みたいなものを読み取る時の区切りにする方法ってありますか？
あれば教えてください。
0571nobodyさん
02/11/05 16:57ID:???ファイルＡの中に
require'ファイルＢへの相対パス';
--------------------------------------
ファイルＢの中に
require'ファイルＢからファイルＣへの相対パス';
--------------------------------------
と書いてあって、
ファイルＡを実行した場合、
ファイルＣが正常に読み出せる術ってありますか？
0572nobodyさん
02/11/05 17:01ID:???絶対パスで書けば即解決。
0573nobodyさん
02/11/05 18:37ID:???=~ s/[\n\r]//g;
上は分かるのですが下の意味が分かりません。
これはどういう動作なのでしょうか？教えて下さい。
0575nobodyさん
02/11/05 19:02ID:???\rとは一体どういう働きをするのかお聞きしたかったのです。
聞き方が悪くてごめんなさい。
0579nobodyさん
02/11/05 19:44ID:???0580nobodyさん
02/11/05 19:48ID:???perl はモジュールのパスを @INC という配列で覚えている。
ここにお望みのパスが登録されていなければ、スクリプト上で
モジュールを読み込む前に、パスを加えてやればいい。
BEGIN { unshift @INC, 'C:/JPL5005/LIB/PERL5' }
use IO::Select;
これと同じ事は
use lib 'C:/JPL5005/LIB/PERL5';
でもできるが、当然 lib.pm が見つからなければエラーになる。
>>571
require もファイル名だけ指定すれば @INC から探してくれる。
require 'jcode.pl'; # パスを明示しない
ファイル B や C がライブラリかモジュールなのなら、
@INC に登録されているディレクトリに置くか、
上述のようにパスを示してやればいい。単に設定ファイルを
ロードするような目的なら、絶対パス指定を薦める。
0581570
02/11/05 20:16ID:???私にもレスください
0583rubyist@カラアゲうまうま
02/11/05 20:28ID:???正規表現は指定できない。awkならできる。
Ruby >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> awk >>> perl
0584nobodyさん
02/11/05 20:34ID:???0585名無しさん
02/11/05 21:41ID:Bk/NbLLYruby最強ruby最強ruby最強ruby最強ruby最強ruby最強ruby最強
ruby最強ruby最強ruby最強ruby最強ruby最強ruby最強ruby最強
ruby最強ruby最強ruby最強ruby最強ruby最強ruby最強ruby最強
ruby最強ruby最強ruby最強ruby最強ruby最強ruby最強ruby最強
0586nobodyさん
02/11/05 22:13ID:???0587nobodyさん
02/11/05 22:18ID:???対応するソースとか機能の紹介してくれれば
比較のやりようもあるんだけど、全然教えてくれないし。
0588nobodyさん
02/11/05 22:20ID:???興味はあるんだけどなかなか気がすすまない
0589nobodyさん
02/11/05 22:33ID:FHcnSReB他のサーバーにあるライブラリをcgiに読みこませたいんですけど、
単に
require "http://www.〜省略〜/test.pl";
と書いても読めません。
読みこめる方法はないでしょうか？
よろしくお願いします。
0590鮎川
02/11/05 22:35ID:???1995 ＢＢ軍
1995 ＣＣを考える会
1998 ＤＤの協力会
1999 ＥＥ観察の会
1999 ＦＦに親しむ会
1999 ＧＧを守る会
2000 ＨＨを探る会
2000 ＩＩネットワーク
-------------------
を下のようにしたい。
-------------------
1995 ＡＡ倶楽部,ＢＢ軍,ＣＣを考える会
1998 ＤＤの協力会
1999 ＥＥ観察の会,ＦＦに親しむ会,ＧＧを守る会
2000 ＨＨを探る会,ＩＩネットワーク
-------------------
そこで、イメージとしては
for $i (1995 1998 1999 2000){
@year=$i;
push @year $_;
}
print @year;
のようなリズムで書きたいですが、これ以上、手が動きません。
だれか私を助けてください。
0592鮎川
02/11/05 23:16ID:???while (<>){
($name,$year)=split /:/;
$years{$year}=$name;
}
for $year (keys %years){
print "$year",$years{$year},"\n";
}
0593nobodyさん
02/11/05 23:35ID:???さぁPerlの話に戻そうか。
0594nobodyさん
02/11/05 23:46ID:+eUS3bf8$ref=[];
$ref=1; <-何かで上書きして参照を抹殺
↓
メモリリーク？
0597594
02/11/06 01:50ID:???とりあえず、”ガベージコレクション”を検索してキマッス！(;ﾟДﾟ)
0598nobodyさん
02/11/06 09:17ID:???CPANってなんて読むのですか？
0599nobodyさん
02/11/06 09:22ID:???0600nobodyさん
02/11/06 10:03ID:???ワンライナーでperlのgrep関数を使いたい時って、どんな時ですか？
0601nobodyさん
02/11/06 11:47ID:???1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
0602nobodyさん
02/11/06 12:11ID:???0603nobodyさん
02/11/06 13:59ID:3zAQzaHu$eigyou_jikan{'土'} = "09:00-13:00";
$eigyou_jikan{'月火水木'} = "09:00-19:00";
$eigyou_jikan{'金'} = "09:00-21:00";
こういった連想配列のkeyを曜日順にソートして
書き出すにはどうしたらよいでしょうか？
曜日順ソートルーチンを作ったほうがよいのでしょうか？
0604nobodyさん
02/11/06 14:33ID:???宛先が存在しないとfromに設定したアドレスに failure notice とかいう
メールが自動で来ますよね。
こういう風にアドレスが存在しない時cgi側で判断するにはどうしたらいいんですか？
0605nobodyさん
02/11/06 14:38ID:???行頭に持ってくるワザってないですかね。
0609nobodyさん
02/11/06 15:33ID:???0612莫迦
02/11/06 15:49ID:???してみました。&で繋がれて出てきました。
>>611
はい。同グループのチェックボックスの値はどうやって取り出すのかなーと思って・・・。
0613nobodyさん
02/11/06 15:58ID:???データは届いてるんだから考えれば出来ることだろ。
何でもかんでも人に頼ろうとするな！
0615莫迦
02/11/06 16:00ID:???ひとつ考えたのは、データの受け取り時にname(=$key)が前の$keyと同じだったらなんかやって取り出す、
みなさんどうしますか？
>>613
そんな怒らないでくださいよ。最良の方法はなにかなーと思ってるだけですよ。
0616nobodyさん
02/11/06 16:26ID:???($key,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/"/"/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\r\n|\r|\n//g;
$value =~ s/\,/，/g;
if($key eq "チェックボックスのname"){
push(@checkbox_name,$value);
}else{
$FORM{$key} = $value;
}
}
こうだったっけな、とにかくそれだけは取得する時にnameを見て別の配列に入れればよかったんだと思う。
0617nobodyさん
02/11/06 16:34ID:???同じグループ(複数回答可の選択式質問など)だとしてもnameをq1-1とか付ければ良いだろ。
Perlが録に出来ないのならHTMLで工夫しろよ。
0618nobodyさん
02/11/06 16:45ID:???やっと自分でもわかる質問が来たからここぞとばかりにしゃしゃりでましたって勢いだな
0619nobodyさん
02/11/06 16:59ID:???>>617は、Perl使ったこと無いのがばればれです。
0621nobodyさん
02/11/06 17:12ID:7IPFijFP0622621
02/11/06 17:14ID:7IPFijFP0623nobodyさん
02/11/06 17:15ID:???ローカル側では全データ読み込めるのにサーバー側では最後の行しか読み込めません。
何が原因なのでしょうか？
0626nobodyさん
02/11/06 17:26ID:???つけあがった態度しか取れない厨房はまず日本でのコミュニケーションの仕方を学んでおいで
>>621
CGIはperlに限らない
>>623
改行コードでしょうな
0628nobodyさん
02/11/06 17:33ID:???0629（￣ー￣）y-.。o○
02/11/06 17:36ID:???0630nobodyさん
02/11/06 17:38ID:???初心者のみなさんはこんな真似はしないようにね。
スクリプトをちょっとだけ省略できるかもしれないけど、
チェックボックスはnameが違うことが重要な意味を
持つので、これを同じにして後で困るのは非常に
おばかさんのすることですよ。
0631nobodyさん
02/11/06 17:38ID:???0634619
02/11/06 18:09ID:???http://www.w3.org/TR/html401/interact/forms.html#checkbox
を読んでください。
英語が読めないなら
１つのFORM内で多くのcheckboxが同じcontrol nameを共有してよいと書いてあります。
0635nobodyさん
02/11/06 18:09ID:???CGI::では名前がぶつかるとリストで格納していたと思ったが、今確認できる状況に無い。
0636619
02/11/06 18:17ID:???１つのnameに１つのvalueだったらradiobuttonがあります。
0637nobodyさん
02/11/06 18:27ID:???0638619
02/11/06 18:42ID:???本当に複数選択の場合に一個一個、別のnameつけてるんですか。
意味がないというか、よけい無駄な処理が増えるだけのような気がするんですけど。
同じnameにした方がすっきりするので私は好きです。
0639(´ー｀)y━~~
02/11/06 18:54ID:???0640しつこくてスマソ
02/11/06 19:00ID:???> @turned_on = $query->param('group_name');
で、同じ name のチェックボックスの値を取れる
と書いてあります。
cgi-lib.pl だと、"\0" で区切られるんだっけ？
0641ｘ
02/11/06 19:03ID:???と思うな。 値を２の巾乗にしてさ。
0642nobodyさん
02/11/06 19:15ID:???場合による。君みたいに一方的に決め付けるのは危険すぎる。
0643nobodyさん
02/11/06 19:17ID:???0644nobodyさん
02/11/06 19:24ID:???最初の質問者は受け取り方分からないんだからname別々にすりゃいいんでねぇの？
0646nobodyさん
02/11/06 20:25ID:???0648592
02/11/06 21:50ID:???埋もれてしまった
0649592
02/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";
}
0650592
02/11/06 23:02ID:???ＡＡ倶楽部:1995
ＢＢ軍:1995
ＣＣを考える会:1995
ＤＤの協力会:1998
ＥＥ観察の会:1999
ＦＦに親しむ会:1999
ＧＧを守る会:1999
ＨＨを探る会:2000
ＩＩネットワーク:2000
惜しいけど今ひとつ足りない
# ちなみにそれは配列のハッシュではなくハッシュの配列ね。
$years{$year} = [$name];
これは次のコードに相当するんだよ
@{$years{$year}} = ($name);
これじゃ配列に要素を追加しているとは言い難いでしょ。
0652623
02/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:???> とかやってたんですけど、SolarisだとOSの都合で読み取りオープン時は
> 排他ロックが掛けられない(共有ロックは可)らしいし、
やっぱりそうなんだ。漏れは知らなくて、flock() を
コメントアウトしたまま動作してるプログラムが一つ
あるよ（ｗ
UNIX ドメインソケットを使ってプログラムの実行を
逐次化する話は、何かで見たような気がする。ブロッ
クしちゃうかな。
0655nobodyさん
02/11/07 01:30ID:???素人意見で申し訳ないんだけど、
漏れならダミーファイル作ってそいつがあったら強制終了、なかったら通常通り起動ってするな・・・。
素人だからそれくらいしか出来ないって突っ込みな無しで・・・。
0657nobodyさん
02/11/07 02:59ID:???1 while s///;
の1なんですが、
マッチしなくなるまでループを続けるらしいですが、
一体どこでマッチしないって見切りをつけてるんでしょうか？
質問の意味もよく分かりませんね・・。
0658nobodyさん
02/11/07 05:18ID:???見切りをつける場所がなければ延々とループし続けてやがてマシンが落ちる
0659592
02/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";
}
おめでとう。特に無駄な処理はしていないし、いいと思うよ。
強いてあげれば
($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:???0665nobodyさん
02/11/07 14:06ID:???$hogedir = 'C:\Documents and Settings\Administrator\デスクトップ\hoge\';
こうやって、最後に\を入れるとエラーになります。
$hogedir = 'C:\Documents and Settings\Administrator\デスクトップ\hoge';
最後の\を取ると正常になります。
最後の\は付けちゃいけないルールなんでしょうか。
■ このスレッドは過去ログ倉庫に格納されています