【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あたりを見よう。
0508rubyist@カラアゲうまうま
02/11/04 00:10ID:???これまた低レベルな奴が現れたな。いちいち説明するのも面倒くさい。
perlapiのスタック管理の部分でも読め。貴様に理解できればな。
Perlの場合、関数はサブルーチンは戻り値を常に戻してるに決まってるだろ。
意味のある値とは限らないがな。
0509nobodyさん
02/11/04 00:13ID:???すまん、Perlには戻り値無しなんてないと思っていた(^_^;)
色々試してみたけど、最後にfor(;;){}なんてやると戻りに無しになるみたいだね。
頭が弱いわけじゃないとおもうが、Perlは弱いかも。
0512_gunzip ◆eiH/XdoCNg
02/11/04 01:28ID:???>484とか、sub func {} やら sub func { for(;;) {} } は内部でも何も返してないよ。
（というか、XSにXSRETURN_EMPTYマクロがあるのを見てもわかるのでは）
$retval = func(); やら defined func() とかで評価したときに、PL_stackに何も無いってんで、
PerlがしゃーねーなとNullsv（PL_sv_undefだったか？忘れた）を呉れるだけ。
「戻り値をくれっ」と言えば、Perlが気を利かして適当に見繕ってくれるけど、本来は何も無いよ、というお話。
不正確な点は指摘してくれると嬉しい。
0513nobodyさん
02/11/04 01:52ID:???さすがPerl(藁
そういうところが嫌いだ・・・
0514rubyist@カラアゲうまうま
02/11/04 02:00ID:???氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
0515nobodyさん
02/11/04 02:06ID:???rubyist@カラアゲうまうま←氏ね
rubyist@カラアゲうまうま←氏ね
rubyist@カラアゲうまうま←氏ね
rubyist@カラアゲうまうま←氏ね
rubyist@カラアゲうまうま←氏ね
rubyist@カラアゲうまうま←氏ね
rubyist@カラアゲうまうま←氏ね
rubyist@カラアゲうまうま←氏ね
rubyist@カラアゲうまうま←氏ね
rubyist@カラアゲうまうま←氏ね
rubyist@カラアゲうまうま←氏ね
0516rubyist@カラアゲうまうま
02/11/04 03:07ID:???0517デフォルトの名無しさん
02/11/04 06:49ID:dvOfgMXAすぐに松沢病院に帰るはずですから、無視、無視。
0519マリモーマ ◆jbBCmetwgw
02/11/04 10:06ID:DAK3WKCOfor($a=0;$a<@kou-3;$a++){
print "<select name=$kos[$aipo]>";
for($b=0;$b<@icon;$b++){
print "<option value=$b>$icon[$b]";
}
print "</select>";
なぜこれで送信できるんだ？
0520nobodyさん
02/11/04 10:11ID:BeYwgKh5この本では改行を／ｎと表記しているんですが
実際、使う場合は￥ｎですよね？
\nに置き換えて書けば動くんですが
どういう違い・意味合いがあるのでしょうか。
環境はWindows、用途はCGIです。
0521nobodyさん
02/11/04 10:32ID:???フィールド切り出しなどは、awkのほうがperlよりはやいんじゃ、ないでしょうか？
0523nobodyさん
02/11/04 10:44ID:???／nじゃなくて＼nじゃない？
（らくだ本みたことないんでわかんないけど）
それはフォントが違うだけ。日本語フォントでは、＼と同じコードに\を割り当ててる。
エディタでフォントが変えられるなら、試しになんでもいいから英文フォントにしてみれ。
0524nobodyさん
02/11/04 10:52ID:BeYwgKh5なるほど。
２人の説明でばっちりわかりました。
どうもありがとうございます。
0525nobodyさん
02/11/04 12:43ID:???UNIXとかそういう問題じゃないんだが・・・
>>520
英語圏の人が書いた本は、多分ほとんどがバックスラッシュになっていると思うよ。
0526nobodyさん
02/11/04 15:08ID:DJv3PW2n１階層のみ限定で。。。
0527nobodyさん
02/11/04 15:46ID:???opendir(DIR, "ディレクトリ名");
@name = readdir(DIR);
closedir(DIR);
foreach (@name) {
if (-d "$_") { push(@array, $_); }
}
@arrayに入るはず。
間違ってたらスマン
0528☆南幸☆
02/11/04 16:09ID:???これはどうよ？！いいんじゃない？
0529訂正
02/11/04 16:29ID:???$dir = "ディレクトリ";
opendir(DIR, "ディレクトリ名");
@name = readdir(DIR);
closedir(DIR);
foreach (@name) {
if (-d "$dir$_") { push(@array, $_); }
}
0530nobodyさん
02/11/04 17:42ID:???を取り込んで、指定された値aを掛けて、例えばa=0.5なら、
"#555d66"を返してもらえる関数を作りたいのよ、
でも
substrで文字列２文字づつ切り出すところはいいんだけど、
切り出した文字列を16進数の数として処理(変数に代入)するやりかたがサパーリわかりません、
どなたかご伝授ｷﾎﾞﾝﾇ
0532526
02/11/04 17:46ID:DJv3PW2nありがとうございます。
しかし>>529のだと@arrayには何も入らず、
>>527ならちゃんとディレクトリ名が入っているのですが。。。
何か問題があるのでしょうか。
0534526
02/11/04 18:06ID:DJv3PW2n>>527の方法で解決したと思ったんですが、
カレントディレクトリ以外を開くとディレクトリ名が取得できません。
開けなかった場合はエラーが出るようにしてあるので、開けてはいるようです。
色々試してみると、どうやら if(-d "./dir/") のようにすると取得されないようです。
ifを抜いてディレクトリ・ファイルの区別をしないとちゃんと取得されました。
やはりカレントディレクトリだとどちらでも取得できます。
原因はなんでしょうか。。。
0535nobodyさん
02/11/04 19:57ID:???アニメーションGIFかフツウのGIFか判別するには
どうすればいいんでしょうか？
0536名無しさん
02/11/04 20:57ID:EBTUNl6qそのヘッダの情報を読み込めばよいのでは？
0537名無しさん
02/11/04 21:00ID:EBTUNl6qGIFフォーマットの詳細
ttp://tohoho.wakusei.ne.jp/wwwgif.htm
>>535サンの役に立つと思います。
0538nobodyさん
02/11/04 21:06ID:???$dir = 'ディレクトリ';
opendir ( DIR, $dir );
@name = readdir ( DIR );
closedir ( DIR );
shift @name; #1
shift @name; #1
foreach ( @name ) {
push (@array, $_) if ( -d "$dir\/$_" );
}
こうでないか？
#1がないと、.と..も取得されてしまうが、その辺どうよ？
if文をこれにさしかえればいい。
0540nobodyさん
02/11/04 21:18ID:???readdirは必ず.と..を最初に返すの？
@name=grep !/^\.\.?$/,readdir DIR; #らくだ本より引用
この方がよくない？
0541nobodyさん
02/11/04 21:20ID:???0542526
02/11/04 21:59ID:DJv3PW2nできました、ありがとうございます！
ご迷惑おかけしました；
0544nobodyさん
02/11/04 22:37ID:???つくりいざうぷしようとしたらupload.cgiとjcode.plだけがなぜかうぷ
できない。ためしにindex.htmlとかをうぷしたら正常にうぷできた。FFFTP
を使っているのだが何か問題点ある？
0545デフォルトの名無しさん
02/11/04 22:55ID:???文字コードが違うんじゃない。統一しないとまずいよ。
あと、FFFTPだったらバイナリ送信に汁が吉。
コード指定しとくと変換しちゃうからね。
0547nobodyさん
02/11/04 23:02ID:???0548デフォルトの名無しさん
02/11/04 23:17ID:???第一さ、>>544の文章の読みにくさ、第二に、「うぷできない」って
物理的にアップできなかったのかどうか。ネタとも思える書き方。
漏れはさ、物理的うぷはできたが、動かそうとしたらうまくいかん
かったっていうことかとおもてレスしたんやけどな。
0549nobodyさん
02/11/05 01:07ID:???ご理解頂けたならご教授下さい。
変数$aには'あ'が入っており、
$a .= 'い'; を入れ、ログに記録します。
この時に時々、ログのデータが
あい
とならずに、
あ
い
と改行されて記録されてしまい、
データが壊れてしまう事で現在悩んでいます。
どうか助けて下さい。お願い致します。
0551nobodyさん
02/11/05 01:35ID:???遅レスだけどこれですっきりできたけどなぁ
chdir ($dir);
@name = glob("*");
foreach(@name) {
if (-d) {push(@array, $_); }
}
0552nobodyさん
02/11/05 01:41ID:???$DAT[$n] = "$nm,$pw,$a\n";
if(!open(OUT,">$nazofile")){ &error("ファイルに書き込めません。"); }
print OUT @DAT;
close(OUT);
という具合に記録してます。s/\n$//;などを$aに対して行っても、
効果が無くホトホト困り果てております。
更にログを見ると上記のように改行されているにも関わらず、
ＨＴＭＬで見ると普通に$aの『あい』が改行されずに見える場合もあります。
普通は『あ』しか表示されないと思うのですが…。
0554nobodyさん
02/11/05 02:05ID:???一度chopを使ったら$aの中身が全て消えてしまって…。
chompはchopと同じように使えば良いのですか？
私、chompの使い方があまり良く分かっていないもので…。
chomp $a; と言う具合で宜しいのでしょうか？
0555nobodyさん
02/11/05 02:56ID:???それってたぶん同じファイルから@DATに読み込んでsplitしていろいろやったあと
元に戻して書き戻すっていう流れかな？
もしそうなら最初にファイルを読んだときに全行chompしてしまうのが手っ取り早い。
そのままsplitすると最後のデータだけ改行がついたままになってしまっていろいろ面倒だから。
憶測で書いたんで違ってたらスマソ。
0556nobodyさん
02/11/05 02:57ID:???chopは末尾１文字を取り除く
0558nobodyさん
02/11/05 04:57ID:???アテにならないchompがちょと嫌い。
>>552
$param =~ s/^\s+//;
$param =~ s/\s+$//;
を試してみるのはいかが。
0559nobodyさん
02/11/05 08:18ID:???を
"$nm,$pw,$a,\n";
こうする。
0560nobodyさん
02/11/05 09:34ID:???なんかWindowsで\x0d\x0aじゃないと上手くいかなかったような。
0561nobodyさん
02/11/05 10:48ID:???ココ？http://www.din.or.jp/~ohzaki/perl.htm#CRLF_Unify
でもどこで使えばいいのかいまいちわかってない初心者な自分。
0562552
02/11/05 11:23ID:???とりあえず教えて頂いた方法を試してみたいと思います。
本当にありがとうございました。
0563nobodyさん
02/11/05 12:39ID:19J7tl020564nobodyさん
02/11/05 13:23ID:???に置いてあるPerlを動かそうと思い色々試しているんですが、質問があります。
Perlの勉強をしようと思い一週間でマスターするPerl for windowsという本を買い、
本に付いていたjperl for DOSを入れパス設定をすませPerlを実行できる環境は一応整ったんですが
上記のHPのPerlが動きません。もしかしてjperlでは動かないのでしょうか？
ActivePerlで動くとtopに書いてあるのですが、jperl,perl,ActivePerlの違いがいまいちわかりません。
どなたかご指導お願いしますm(_ _)m
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:???行頭に持ってくるワザってないですかね。
■ このスレッドは過去ログ倉庫に格納されています