Perl コーディング初心者質問コーナー Part33

**nobodyさん** · 04/03/01 02:46

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

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

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

過去ログやお勧めサイトは >>2-10

**nobodyさん** · 04/03/01 02:49

関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
★三　【スクリプト改造工房 PART 8 】　★三
http://pc2.2ch.net/test/read.cgi/php/1077525387/
【スクリプト改造依頼スレ】(丸投げ)
http://pc2.2ch.net/test/read.cgi/php/1076831972/
△▲　WebProg 初心者の質問 Part7　▼▽
http://pc2.2ch.net/test/read.cgi/php/1073460282/
【Perl】ファイルロック(排他処理)について語ろう
http://pc2.2ch.net/test/read.cgi/php/1024795138/
★負荷軽減対策委員会（Perl、PHP)★
http://pc2.2ch.net/test/read.cgi/php/1034645635/
【Perl】掲示板を使ろう！
http://pc2.2ch.net/test/read.cgi/php/988890976/
Perlモジュールについて
http://pc2.2ch.net/test/read.cgi/php/997829243/
CGIに依存しないPerlの話題一般/Part2
http://pc2.2ch.net/test/read.cgi/php/1030548610/

**nobodyさん** · 04/03/01 02:49

**nobodyさん** · 04/03/01 02:50

**nobodyさん** · 04/03/01 02:51

[総合]
　・http://www.excite.co.jp/world/ # 英文のページ多いから一応
　・Perl Com: http://www.perl.com/
　・CPAN.com: http://search.cpan.org/
　・ActivePerl: http://www.activestate.com/
　・CGI-ML:http://forest.ne.jp/cgi-ml/

[お薦め]
　・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm　★読んどけ
　・Perl Recipes: http://www.effectiveperl.com/recipes/ # 死んでるか?
　・Randal's WebTechniques columns: http://www.stonehenge.com/merlyn/WebTechniques/
　・Perlの部屋: http://www.cc.rim.or.jp/~midorin/mad-p/perl/index.html
　・Perl初心者の部屋：http://www.harukaze.net/~mishima/perl/
　・Perlリファレンス：http://www.big.or.jp/~mio/ga/pl/plref/pl_ref.htm
　・Perlのページ：http://homepage1.nifty.com/nomenclator/perl/

**nobodyさん** · 04/03/01 02:53

　[Document&Tutorial]
　・Home - Japanized Perl Resources Project: http://perldocjp.sourceforge.jp/
　・Perl Monks: http://www.perlmonks.org/
　・use Perl; : http://use.perl.org/
　・Learn Perl - Perl Education: http://www.devdaily.com/perl/edu/index.shtml
　・Perldoc.com: http://www.perldoc.com/
　・Using Perl5 in Web: http://docs.rinet.ru/Using_Perl5_in_Web/
　・Rex Swain's Home Page: http://www.rexswain.com/
　・Robert's Perl Tutorial: http://www.netcat.co.uk/rob/perl/win32perltut.html
　・Perl Tuts: http://savage.net.au/Perl-tutorials.html
　・Beginning Perl Tutorials: http://www.pageresource.com/cgirec/index2.htm
　・jcode.pl の私的な解説書: http://www.mikeneko.ne.jp/~lab/kcode/jcode.html
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/
　・The Perl Archive : http://www.perlarchive.com/
　・Perl6 & Parrot VM についての情報: http://dev.perl.org/perl6/
　・use Object; : http://perl.infoware.ne.jp/

**nobodyさん** · 04/03/01 03:36

前スレはけっこうキレイに終わりましたね。

**nobodyさん** · 04/03/01 04:21

今年もよろしく

**nobodyさん** · 04/03/01 04:45

今月もよろしく

**nobodyさん** · 04/03/01 09:06

今週もよろしく

**nobodyさん** · 04/03/01 11:13

今日もよろしく

**nobodyさん** · 04/03/01 15:07

質問です。
現在GIFカウンタ作っています。
QUERY_STRINGの値で、昨日・今日・合計の三つの数値のどれを呼び出すかを決めています。
例えば<img src="counter.cgi?total">と書けば、カウントが1増えた合計値が表示されるのはいいのですが、
<img src="counter.cgi?total"><img src="counter.cgi?today">などと書いた場合、
?totalで+1された後に、さらに?todayで+1されてしまい、カウントが2つ上がってしまいます。
どのような記述をすれば回避できますでしょうか？

**nobodyさん** · 04/03/01 15:55

また糞スレ盾やｶﾞｯ他・・・

**nobodyさん** · 04/03/01 15:58

Perlをかけない>>13がいるｽﾚはここですか？

**nobodyさん** · 04/03/01 16:32

>>12
Todayがカウントアップする時にTotalもカウントアップするのは問題ないのでは。
Totalが+1でTodayが+2とか言うのは問題だが。

**nobodyさん** · 04/03/01 17:10

>>12
1:全部セットで使うと決めて、Total(today)でのみカウントアップにする
2:アドレスでカウントアップを制限する

**nobodyさん** · 04/03/01 17:18

>>12です。

>>15氏
お言葉有難うございます。
totalのみを表示するときには、totalがカウントアップするときにはtodayもきちんとカウントアップします。
また、todayのみを表示するときには、todayがカウントアップするときにはtotalもきちんとカウントアップします。
問題となっている点は、今日と合計のアクセスを表示する場合、
<img src="counter.cgi?today"><img src="counter.cgi?total">
と記述しているのですが、二回CGIを呼び出すため、カウントが2つ回ってしまうということです。

例えば、合計カウントが1000、今日のカウントが200の場合、
<img src="counter.cgi?today"> だけならば、合計1001、今日201となります。
同じく、<img src="counter.cgi?total"> だけならば、合計1001、今日201となります。

しかし、
<img src="counter.cgi?today"><img src="counter.cgi?total">
このように両方呼び出した場合、
1つめのCGIの呼び出しで合計1001、今日201となり、表示するのは201なのですが、
totalの値を呼ぶ際にもう一度CGIを呼ぶことによって合計1002、今日202となり、合計の表示が1002となってしまうのです。

ロジックの問題なので、WebProg 初心者の質問 Part7に行ったほうがいいですかね。

**nobodyさん** · 04/03/01 17:21

連稿失礼します。

>>16氏
＞1:全部セットで使うと決めて、Total(today)でのみカウントアップにする
やはりこの方式が一番手っ取り早いでしょうか。
そちらのやり方も検討してみます。
わざわざレス有難うございました。

**nobodyさん** · 04/03/01 18:07

Perlで短くかつバカなプログラムを書いてください。↓どうぞ

**nobodyさん** · 04/03/01 18:46

>>12
ﾜﾗﾀ

**nobodyさん** · 04/03/01 19:07

>>12
おもろいネタだな

**nobodyさん** · 04/03/01 19:47

print qq(↓の数字で俺の運命が決まる！ \n);
printf qq(%d \n), int(rand $#Life);
my @Life = qw(溺死焼死轢死凍死瀕死
田中麗奈と恋人になる田中麗奈と結婚田中麗奈とSEX SEX後に腹上死 SEXなんて永遠に出来ず孤独死);

my $count = 0;
foreach (@Life){
　printf qq(%d %s \n), $count++, $_;
}

これでどうだ。

22 · 04/03/01 19:48

ブフー！流石に見直し無しで書いたら酷い間違い方だな。
まぁいいや。俺は4、5、6です。

**nobodyさん** · 04/03/01 20:10

半角数字0～9を全角数字０～９に変換したいんですがどうやるといいんでしょうか。
具体的には、変数に任意の数が入っていて、それを全角にしたいんです。
$data = 1234;
としてここで何か処理をして
$dataの値を"１２３４"としたいわけです。

自分では
$data =~ s/0/０/g;
$data =~ s/1/１/g;
　：
　：
$data =~ s/8/８/g;
$data =~ s/9/９/g;
というのを考えたんですがもっとうまい書き方はないかと思い質問してみました。

22 · 04/03/01 20:14

>>24
ttp://tohoho.wakusei.ne.jp/lng/199911/99110327.htm
こんな感じで検索。
http://www.google.co.jp/search?q=Perl+%E5%85%A8%E8%A7%92%E6%96%87%E5%AD%97+%E5%A4%89%E6%8F%9B&sourceid=opera&num=0&ie=utf-8&oe=utf-8

**未承諾広告※** ◆TWARamEjuA · 04/03/01 21:11

$data =~ s/\G(\d)/('０', '１', '２', '３', '４', '５', '６', '７', '８', '９')[$1]/eg; # (w

**nobodyさん** · 04/03/01 21:19

>>17

一定期間内において同一IPからのカウントアップ要求が
ダブらないようなチェックルーチンを入れればいいだけなんじゃ？

**nobodyさん** · 04/03/01 21:20

>>24

phpだと専用の関数がある。

**nobodyさん** · 04/03/01 21:31

いろいろやってみましたがどういう処理にしたら上手くいくのか分からないので
質問させてください。

「hoge.log」というファイルがあり中身は

3212421321,ほげ,1543443246,ほげ,ほげ
.
.
.
.
3546754134,ほげ,3224654724,ほげ,ほげ
2346567945,ほげ,6735432758,ほげ,ほげ
.
.
.
.
となっています。

つまり、[ランダムな10桁の整数],ほげ,[ランダムな10桁の整数],ほげ,ほげ
って感じのが改行されていっぱいあると思ってください。データはコンマ区切り。

そこで、サブルーチンで引数１「3546754134」と引数２「1234567890」を渡して、
引数１とマッチする行をhoge.logの先頭の行に持ってきて、さらに先頭に持ってきた
行の三番目のランダムな１０桁引数２に置換したいのです。

ご理解いただけるでしょうか。
だれかエライ人明解なコードを教えてください。

29 · 04/03/01 21:34

日本語が意味不明でした。

訂正
＃
そこで、サブルーチンに引数１「3546754134」と引数２「1234567890」を渡して、
引数１とマッチする行をhoge.logの先頭の行に持ってくる。

さらに先頭に持ってきた行の三番目の区切りの「ランダムな１０桁の整数」を
引数２に置換したいのです。
＃

**nobodyさん** · 04/03/01 22:04

sub hoge{
my($line,@line);
open(IN, "+<hoge");
while (<IN>){
/^$_[0],/o and ($line= $_,last) or push(@line, $_);
}
seek(IN, 0, 0);
$line=~ s/,\d{10},/$_[1]/;
print IN $line,@line;
close(IN);
}

３１ · 04/03/01 22:06

間違ってた試してないけど

sub hoge{
my($line,@line);
open(RW, "+<filename");
while (<RW>){
/^$_[0],/o and ($line= $_,last) or push(@line, $_);
}
seek(RW, 0, 0);
$line=~ s/,\d{10},/,$_[1],/;
print RW $line,@line;
close(RW);
}

29 · 04/03/01 22:23

>>31氏
すごい・・・。perl初めて一週間なのですが私にはこのような考え方は
一生生まれないのだろうな。配列の使い方ってこんな風に使えるのですね。
いっぱいコード書いて、たくさん練習します。

ちなみにまだよく>>31氏のコードを理解できてません。一生懸命徹夜で理解してみます。
なんでか知らないけど、思うように動いてしまった。
そんな感じの空虚さが頭でグルグル回ってます。あと何年勉強したらこういう
コードがすぐに書けるようになるのだろうか。がんばります。

＃私はCの知識もなければperlがはじめての言語なので、プログラムの感覚も
泡を握っているようでむなしいです。＃

とにかくありがとうございました。

**nobodyさん** · 04/03/01 22:45

>>24
my @numbers = qw(０１２３４５６７８９);
$data = join('', map{ $numbers[$_] } split(//, $data));
こんなでもいいんじゃない？

３１ · 04/03/01 23:02

>>34
処理速度・負荷がどうかわからんが、例えばＳＪＩＳの場合以下のように
したらどう？実行環境が今ないからベンチ採れないけど

tr/\x30-\x39/\x4f-\x58/;
s/(.)/\x82$1/g;

**nobodyさん** · 04/03/01 23:33

perlに限った話しではないですが、
複数行の文字列をprintする時、

print ( "hoge\n" );
print ( "hoge2\n" );
print ( "hoge3\n" );
とそのままやるのと、

$buffer .= "hoge\n";
$buffer .= "hoge2\n";
$buffer .= "hoge3\n";
print ( "$buffer" );
と変数に入れて最後にprintするのどっちがいいのですか。
見やすさ、スピード、慣習、などの観点から。

34 · 04/03/02 00:00

>>35
use Benchmark qw(:all);
my $result = timethese(-5, {
34=>sub{
my $data = 123456;
my @numbers = qw(０１２３４５６７８９);
$data = join('', map{ $numbers[$_] } split(//, $data));
},
35=>sub{
my $data = 123456;
$data =~ tr/\x30-\x39/\x4f-\x58/;
$data =~ s/(.)/\x82$1/g;
},
});
cmpthese($result);

Benchmark: running 34, 35 for at least 5 CPU seconds...
34: 4 wallclock secs ( 5.28 usr + 0.00 sys = 5.28 CPU) @ 27106.27/s (n=143155)
35: 5 wallclock secs ( 5.30 usr + 0.00 sys = 5.30 CPU) @ 37172.03/s (n=197186)
Rate 34 35
34 27106/s -- -27%
35 37172/s 37% --

# @numbersを外へ掃き出した場合。
Benchmark: running 34, 35 for at least 5 CPU seconds...
34: 4 wallclock secs ( 5.31 usr + 0.00 sys = 5.31 CPU) @ 36571.67/s (n=194287)
35: 4 wallclock secs ( 5.28 usr + 0.00 sys = 5.28 CPU) @ 37336.99/s (n=197186)
Rate 34 35
34 36572/s -- -2%
35 37337/s 2% --

# 正規表現の方が速いか。

**nobodyさん** · 04/03/02 00:06

Perlで出力したHTMLソース内でSSIを使うにはどうすれば良いんでしょうか

Print <<_EOF_;
Content-type:text/html

<html>
......(略)......


......(略)......
</html>

_EOF_

でやってみたのですが、SSIが単なるコメントとして扱われてしまいました。

eaoska047124.adsl.ppp.infoweb.ne.jp · 04/03/02 00:12

2chのfusianasanみたい↑に、
リモートホスト？
みたいなものを、取得したいんですが、
$ENV{'REMOTE_ADDR'};
と書いても、数字のIPしか取得できませんでした。

文字列取得するには、どうすればいいですか？

**nobodyさん** · 04/03/02 00:13

C言語みたいに
#define NUMBER

**nobodyさん** · 04/03/02 00:14

Perlは、
C言語みたいに
#define NUMBER 200
のように、定数を宣言できませんか？

**nobodyさん** · 04/03/02 00:14

>>40
お前のドコへのレスだよ

42 · 04/03/02 00:14

( ﾟдﾟ)ﾊｯ!

41 · 04/03/02 00:15

>>40
ごめんなさい、途中で書き込む押してしまったみたいです。

**nobodyさん** · 04/03/02 00:16

>>41
$NUMBER=200;
で$NUMBER使えばいいんじゃないの？

**nobodyさん** · 04/03/02 00:18

>>39
鯖によって、$ENV{'REMOTE_ADDR'}; がホスト返さないこともあるから、その場合は
$addr = $ENV{'REMOTE_ADDR'};
$host = gethostbyaddr(pack('C4',split(/\./,$addr)),2) || $_;}

って書こうとｵﾓﾀﾗ$ENV{'REMOTE_ADDR'};ですか。そりゃとれんよ・・・
$ENV{'REMOTE_HOST'}な

**nobodyさん** · 04/03/02 00:20

ﾐｽﾀ

×$ENV{'REMOTE_ADDR'}; がホスト返さないこともあるから
×$ENV{'REMOTE_HOST'}; がホスト返さないこともあるから

**nobodyさん** · 04/03/02 00:20

>>47ｲ㌔

>>38

41 · 04/03/02 00:22

>>45
それだと、packageにしたとき、使えないみたい

と思ったらいけました。
ごめんなさい。

それでいけました。
失礼しました。

**nobodyさん** · 04/03/02 00:24

ここは、ドジッ娘がいっぱいで、ほのぼのとしたインターネットですね。

**nobodyさん** · 04/03/02 00:38

sub NUMBER () {200}

これでコンパイラはサブルーチンではなく定数と認識する。
呼び出す時は、「&」とか「()」とか付けずにやる。
でも名前空間はサブルーチンのあれ使ってるからダブルクウォートで展開出来ないよ。

**nobodyさん** · 04/03/02 00:42

>>38

**nobodyさん** · 04/03/02 00:57

>>36
cmpthese結果だけ。($bufferはmyで確保)
Rate $buffer="hoge" print("hoge\n") print <<"HERE"
$buffer="hoge" 646465/s -- -56% -84%
print("hoge\n") 1454545/s 125% -- -65%
print <<"HERE" 4129032/s 539% 184% --
# ヒアドキュメントを使いましょう。

>>38
出力するHTMLを静的ファイルにして、CGIの結果をSSI取り込むとか。
または静的ファイルを出力して、Locationするとか。

>>41
use constant NUMBER => 200;

>>51と本質は同じなんだけど…。
print "@{[NUMBER]}";
で展開ー。

**nobodyさん** · 04/03/02 11:50

ドジッ男て聞かんなあ・・・

**nobodyさん** · 04/03/02 12:26

すいません質問です。
カウンタや掲示板のログを読み出すときの、
open(DATAA,"$log");
この部分の$logの前に>や+<とか色々ありますけど、
この辺を詳しく説明してくださる人いませんか？
どれを使っても読めるんで、違いが良くわからないのですが。

36 · 04/03/02 13:09

暇な人お願いします。

**nobodyさん** · 04/03/02 13:21

>>36
文字列連結するほうは、メモリ確保、開放を繰り返し行うが、その程度なら
たいしたことではない、好きにしろ、俺はヒアドキュメント使う。

**nobodyさん** · 04/03/02 13:25

セッションクッキーを書きこんで内容を参照すると、二番目の値の
先頭に半角のブランクがはいって困っています。連想配列に格納して
参照しようとすると先頭の半角もキーにしているためにマッチしません。
半角を入れずにクッキーを書きこめますか？だめなら、取り込んだ後で
半角を取り去るいい方法がありますか？？

書きこんでいるコードはこれだけ :
print "Content-type: text/html\n";
$cmax=0;
print "Set-cookie:m_lng_max=$cmax\n";
print "Set-cookie:AVR=1\n\n";

クッキー表示用のCGIで表示させると、
m_lng_max=0; AVR=1
となって、;とAの間に半角スペースがはいります。

**nobodyさん** · 04/03/02 13:43

２バイト文字（ひらがなとか）を逆に並べるにはどうしたらいいんですか？
１バイト文字では、reverse関数を使えば実装できるのは確認したんですが、

$str = "あいうえお";
print join('' , reverse(split(// , $str)));
とやっても、文字が化けて読めません。

もしかして、できないんでしょうか・・・？

**nobodyさん** · 04/03/02 13:48

>>55
>では読めんだろう。空になるはず。

**nobodyさん** · 04/03/02 13:54

>>58
$cookie_data = "name\:$name\,mail\:$mail";
print "Set-Cookie: hoge=$cookie_data;\n";

こんな感じで一つの変数にまとめて突っ込んで、あとから取り出すのじゃダメなん？

**nobodyさん** · 04/03/02 14:03

>>59
Perlメモのプログラムを見たら、一応出来た。

$str = "あいうえお";
$ascii = '[\x00-\x7F]';
$twoBytes = '[\x8E\xA1-\xFE][\xA1-\xFE]';
$threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]';
@chars = $str =~ /$ascii|$twoBytes|$threeBytes/og;

print join('' , reverse(@chars));

62 · 04/03/02 14:04

参照元はここね。上のプログラムはEUC前提。
http://www.din.or.jp/~ohzaki/perl.htm#JP_Split

58 · 04/03/02 14:19

>>61さん
それで全然オッケーです、やってみます。ありがとう。

でも、どうして二番目以降の先頭にブランクがつくのかなあ。
仕様ということにしとこ。

**nobodyさん** · 04/03/02 15:55

>>55
http://www.rfs.jp/sitebuilder/perl/02/08.html#ファイル入出力記号の一覧

少しは探せよ

**nobodyさん** · 04/03/02 23:15

open FILE, "+<test.txt";
@chinko = ("しりとり\n","りんご\n","ごりら\n","らっぱ\n","ぱんつ\n","つまようじ\n");
print FILE "@chinko";
close FILE;

このようにしてtest.txtを覗くと

しりとり
　りんご
　ごりら
　らっぱ
　ぱんつ
　つまようじ

このように2行目以降の先頭に半角スペースが入ってしまいます。
だれか原因と対策を教えていただけませんか。

**nobodyさん** · 04/03/02 23:19

age

**nobodyさん** · 04/03/02 23:32

>>66
ﾈﾀ？釣り？ﾏｼﾞﾚｽしていいの？

**nobodyさん** · 04/03/02 23:34

マジレスおながいします。

**nobodyさん** · 04/03/02 23:39

>>66
\nのけろ

**nobodyさん** · 04/03/02 23:48

ぃゃ改行させたいんです。掲示板のログを作成する部分でログファイルもパっとみてわかる書式で保存したいんです。
掲示板のログが件名からリモホから本文から全部1行でまとまってると見るに耐えないので。
2行目以降の頭の半角スペースが憎いんです。
ループさせて１行ずつ保存するしかないんですかね。

**nobodyさん** · 04/03/02 23:53

>>66
しりとり
りんご
ごりら
らっぱのマークの正露丸

**nobodyさん** · 04/03/02 23:54

やっぱり釣りか・・・

**nobodyさん** · 04/03/02 23:56

>>66
open FILE, "+<test.txt";
@chinko = ("しりとり\n","りんご\n","ごりら\n","らっぱ\n","ぱんつ\n","つまようじ\n");
print FILE @chinko;
close FILE;

3行目
print FILE "@chinko";
の@chinkoの
""を取ればok

**nobodyさん** · 04/03/02 23:58

暇な俺が微妙に不親切に教えてやろう。
まずは単純に配列にデータ突っ込んで、
print @chinko;
とだけやれ。

答えはそこにある。

**nobodyさん** · 04/03/03 00:01

ほんとは
print "@chinko\n\n";
としたかったんだけどね。ありがとう。
\n\nは分けてやります。

**nobodyさん** · 04/03/03 00:05

>>76
それって意味あんの？
配列の最後に改行が２回入るだけじゃん・・・

**nobodyさん** · 04/03/03 00:07

>>76
・・・
悪いことは言わない。
Perl止めろ

**nobodyさん** · 04/03/03 00:07

２行空けると見やすくなる。っていうだけ。

**nobodyさん** · 04/03/03 00:18

>>79
ファイルの終端から2行空けて何の意味があるんだ？

**nobodyさん** · 04/03/03 00:20

>>79
open FILE,"+<test.txt";
@chinko = ("しりとり\n","りんご\n","ごりら\n","らっぱ\n","ぱんつ\n","つまようじ\n");
print FILE @chinko;
print FILE "\n";
close FILE;

こうしれば？
一応期待どうりになるよ

**nobodyさん** · 04/03/03 00:23

配列・リスト・スカラーをわかってやってるんか？こいつは。

**nobodyさん** · 04/03/03 00:27

>>80
新規のログを@new_logにぶっこんでファイルに出力して２行改行いれて
配列に\n\nいれてもいいけどいまさらいじるのめんどくさい。
ぃゃちょっとだけど。
その次の行からあらかじめ保存してある@temp_logをぶっこむ。
最終的に期待道理になればなんでもえーじゃないの。

**nobodyさん** · 04/03/03 00:30

print foreach(@chinko);

**nobodyさん** · 04/03/03 00:31

ﾊｧ？

だから、データの後に意味のない改行入れてどういう効果があるんだ？
お前はファイルの中身の最後とエディタの縁の間に空白がないと嫌なのか？

**nobodyさん** · 04/03/03 00:36

@temp_logの最後には記事番号の現在地が格納されてるのでエディタの縁との間隔は０です。
新規書き込みの時は一番上に今の記事番号が格納されることになるけど、
レスとか含めてログファイルには記事番号の順番にログが格納されるわけじゃないんですよ。
なのでtemp_logの最後においとくとpopで取得して++したらpushで格納できるから便利なのですよ。
ログの続きで改行あけずに格納すると視認性悪そうですしねー。

**nobodyさん** · 04/03/03 00:38

ていうかageてたごめん。

**nobodyさん** · 04/03/03 00:40

No<>名前<>記事
No<>名前<>記事
No<>名前<>記事
No<>名前<>記事
・・
・・
・

って普通にするんじゃいかんのか？

**nobodyさん** · 04/03/03 00:48

1.　comment
2.　1
3.　七資産
4.　mail@domain.com
5.　http://www.unko.cojp/chinchin/
6.　無題テキスト
7.　となりの 柿は よく 客食う 柿だ。
8.　何月何日何時何分難病
9.　モジラなんとかかんとか
10.　リモホ
11.　IPアドレス
12.　削除キー
13.　
14.　
15.　　　　res
16.　　　　2
17.　　　　1（親記事番号）
18.　　　　七資産
19.　　　　mail@domain.com
20.　　　　http://www.unko.cojp/chinchin/
21.　　　　タイトル
22.　　　　本文
23.　　　　何月何日何時何分難病
24.　　　　モジラとか
25.　　　　リモホ
26.　　　　IP
27.　　　　削除キー
28.　　　　
29.　
30. 2
EOF

**nobodyさん** · 04/03/03 00:49

ログがこうなってると見やすくてよくない？

**nobodyさん** · 04/03/03 00:55

>>89
プログラム的に面倒・・・

**nobodyさん** · 04/03/03 00:57

うん。超面倒。でもまあそうしたいからがんばるよ。

**nobodyさん** · 04/03/03 00:58

>>89
なんていうか、ド素人というか・・・
ログファイルの見た目なんかどうでもいいやろ。。
簡単にコード組めるか、のほうが大事やろ

**nobodyさん** · 04/03/03 01:00

別にいいじゃん。俺は見やすいのがスキなんだよ。
趣味でやってんだから細部まで凝りに凝りたいじゃん。

**nobodyさん** · 04/03/03 01:00

ある問題が解けなくて困っています。
問題↓

ファイル xy-data.dat には，カンマで区切られた２つの整数データが並んだ行が何行か格納されている．
各行の最初の整数値をx，次の整数値をyとしてx-y座標上の点(x.y)をファイルの行数個考える．これらの点のうちで、原点が(4,7)、半径4の円の内側(円周上は除く)に含まれる点の数を出力するプログラムを作成せよ.

画面には、結果である数以外の出力をしないこと.

ファイルは
open("IN_FILE","<xy-data.dat");
としてopenし，このファイルからデータを読み出す時は，

$xy=<IN_FILE>
$xy =~ /(\d+)\D+(\d+)/;
$x = $1;
$y = $2;

として読み出せばよい．(まず変数$xyにファイルから１行読み出し，次に$xyの内容をカンマで区切られた前半と後半に分けて，前半を変数$xに後半を変数$yに代入する）
また，読み出しが終わったら，
close(IN_FILE);
としてクローズすること．

どうすればいいのか見当がつきません。お願いします

**nobodyさん** · 04/03/03 01:08

>>94
@chinko = ("しりとり\n","りんご\n","ごりら\n","らっぱ\n","ぱんつ\n","つまようじ\n");
open FILE,"+<test.txt";
@unko=<FILE>;
unshift @unko,@chinko;
truncate(FILE,0);
seek(FILE,0,0);
print FILE @unko;
print FILE "\n";
close FILE;

96 · 04/03/03 01:12

スマン

open FILE,"+<test.txt";
@unko=<FILE>;
unshift @unko,"しりとり\n","りんご\n","ごりら\n","らっぱ\n","ぱんつ\n","つまようじ\n","\n";
truncate(FILE,0);
seek(FILE,0,0);
print FILE @unko;
close FILE;

**nobodyさん** · 04/03/03 01:20

@chinko = ("しりとり\n","りんご\n","ごりら\n","らっぱ\n","ぱんつ\n","つまようじ\n");
open FILE, "+<test.txt";
@unko=<FILE>;
unshift @unko,"\n";
unshift @unko,@chinko;
truncate(FILE,0);
seek(FILE,0,0);
print FILE @unko;
close FILE;

**nobodyさん** · 04/03/03 01:30

>>98
ラスト4行はこの方がいいんじゃないのか？

seek(FILE, 0, 0);
print FILE @unko;
truncate(FILE, tell(FILE));
close(FILE);

**nobodyさん** · 04/03/03 01:43

ログの整形表示は、それようのプログラムを別に作るのが普通じゃないでしょうか？
と言ってみるtest

**nobodyさん** · 04/03/03 01:44

>>99
tellって関数、ググッタりして見てもよく分からないんだが
バカにもわかりやすく教えてもらえんかねぇ？

**nobodyさん** · 04/03/03 01:59

>>100
サブルーチンにはしてあるけどね。
まだ作ってない機能とかもあるし、最終的にいくつかの機能を別プログラムにしようかなとは考えてる。
最後まで作ったら１０００ステップぐらいいきそうな勢いなので。

**nobodyさん** · 04/03/03 02:00

>>96関連
今日はもう疲れたので明日リファレンス見ながら理解してみます。ありがとう。

**nobodyさん** · 04/03/03 02:44

メール送信に関して質問です。抜粋していますが、フォームから入力したデータを
入力者に確認メールを送信すると言うプログラムです。
$mailにはフォームの「メールアドレス」の項目の内容が入り、あとは以下のとおりです。

質問は確認メールが送信されたメールを見ると、送信者の欄が
test@localhost.localdomainになっています。サーバのホスト名が入ってしまいます。
これをtestだけにしたいのですが、どうしたらいいのでしょうか？

$from= "test";
$subject "アンケート";

## 入力者に確認メールを送信
open (MAIL,"| /usr/sbin/sendmail -t");
print MAIL "To: $mail\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-type:text/plain\n\n";
print MAIL "送信しました。\n\n";
close(MAIL);

**nobodyさん** · 04/03/03 03:05

>>104
$from= "test";
$adrress= "test@mail.not";

print MAIL "From: $from $adrress\n";

だったよな・・・

**104** · 04/03/03 03:15

>>105
それでは無理でした。。↓になります。
test.test.not@localhost.localdomain

**nobodyさん** · 04/03/03 04:16

＞最後まで作ったら１０００ステップぐらいいきそうな勢いなので。
！！！！！！！！！！！

この俺に突っ込めと言うのかっ・・・

**nobodyさん** · 04/03/03 06:42

連想配列を連結するには foreachなどを使って一個一個代入していくしかないのでしょうか？

**nobodyさん** · 04/03/03 07:27

%aaa = (%aaa, %bbb);

**nobodyさん** · 04/03/03 08:09

>>109
ありがとうございます

**nobodyさん** · 04/03/03 09:11

>>89
そういうことしたいなら俺定義XMLでログ記録して、
XSLで整形表示とかのほうが効率良さげと思うんだけど。

**nobodyさん** · 04/03/03 09:18

>>111
もうそいつには構うなって。

>>101
tellだけに教えて君ですか。そんなｴｻに俺様以下略。

**nobodyさん** · 04/03/03 12:03

>>111
こいつの辞書には｢効率｣って文字はねぇんだよきっと
どうせどんな助言与えても聞くきねぇんだから、うち等から言える事はもう無いさ

24 · 04/03/03 17:34

>>24の質問に答えてくれた方々

皆さんありがとんございました。
>>34を使おうと思います。

**104** · 04/03/03 19:04

すみません、やっぱり>>104は解決しません。。

**nobodyさん** · 04/03/03 19:17

質問でつ。

$hash{$key}{'このキー'};

上のような連想配列で 'このキー' のキーの一覧を得るには
どうすればよいのでしょうか？
よろしこおながいします。

**nobodyさん** · 04/03/03 19:39

>>116

keys %{$hash{$key}}

**nobodyさん** · 04/03/03 19:57

>>95
my $cnt = 0;
open(IN_FILE, "xy-data.dat") or die $!;
while(<IN_FILE>){
my ($x, $y) = /(\d+)\D+(\d+)/;
( *円内側の領域を表す式* ) and $cnt++;
}
close(IN_FILE);
print $cnt;
exit;

>>101
ファイルハンドルが参照しているファイルの位置
(ファイル先頭からのバイト数)。

>>104
$from = "test <test@example.net>";

**nobodyさん** · 04/03/03 19:57

>>117
おお、有難う御座います。

**nobodyさん** · 04/03/03 20:46

>>115
いつまでもスレ違いの話題するな。
perl以前にsendmailについて勉強しろ。

**nobodyさん** · 04/03/03 21:55

>>118
> $from = "test <test@example.net>";

@はエスケープしろよ

$from = "test <test\@example.net>";

**nobodyさん** · 04/03/03 22:13

>>120のリアル厨房よ
分からないのなら黙ってろよ（ｗ

**nobodyさん** · 04/03/03 22:19

>>122
じゃ特別に教えてやるよ。
sendmail -tやめてsendmail -bsでSMTP叩けばFrom: testで出せるよ。
馬鹿には使いこなせないだろうけどな。

**118** · 04/03/03 22:50

>>121
失念してました。

その上、元の質問はfromを詐称したいって話だったのね…。
吊ってきます。

**nobodyさん** · 04/03/03 22:58

>>123
分かんのなら初めっから素直に答えとけや（ｗ
その方法はしらねーけど、設定によってだけどほとんどのとこで使えないぞｗｗｗ
使えねえ答えでは意味が無い

**nobodyさん** · 04/03/03 23:16

>>125
大抵は使えるはずだ、つーか、これを禁止する設定は知らん、多分無いだろう。
お前には使いこなせないだろうがな。

**nobodyさん** · 04/03/03 23:20

>>126
もうバカは相手にすんなって
ほっとけばいなくなるから

**nobodyさん** · 04/03/03 23:34

>>125のI.Qを測る関数ってありますか？

**nobodyさん** · 04/03/03 23:38

>>128
sin()

**nobodyさん** · 04/03/04 00:19

>>125
＞設定によってだけど

何と言うか、頭悪そうな発言だな。
「この鯖にはsendmailを入れてはいけない設定になっております」
こういうのでも納得しそうな>>125を晒しage

**nobodyさん** · 04/03/04 00:38

>>128
測るまでも無いほどIQ低いよ

**nobodyさん** · 04/03/04 00:40

>>128
iq();

sub iq{ return 0;}

◆gperlqJurM · 04/03/04 01:37

test

**nobodyさん** · 04/03/04 02:00

perlプログラムから、Webサーバにアクセスしてhtmlを
取得したいと考えています。
どのモジュールを使うのが一番手っ取り早いですか？

一応探してみて、LWPというのがよさそうだと思ってます。
http://member.nifty.ne.jp/hippo2000/perltips/LWP.html

**nobodyさん** · 04/03/04 02:13

http://www.cj-c.com/cgi_s/access.htm
ReverseAccess

http://saya.kiy.jp/cgi/ftlink.html
このＣＧＩは「CJ-Clubさんの ReverseAccess 」を改造したものを再配布条件に基づき再配布しています。

上記の本家版だとserverステータスで "cgiヘッダーが出力されない" が出ます。
下の改造バージョンだと正常に動作します。
スクリプト構造の一番の違いはjavascriptで外部表示出来るか否かです。
元スクリプトのバージョンも違うので一概に言えません。
環境は
XPpro
04server
perl
です。

本家スクリプトもとりあえず動作はしますが一定時間がたつとログがリセットします。
下の改造版だとすべて正常に動作します。

原因が分からず困っています。
助言をお願いします。

**nobodyさん** · 04/03/04 02:16

>>135
作者に聞いて。
それにここはそういう質問のスレじゃないので。

**nobodyさん** · 04/03/04 02:23

サブルーチンの中から__DATA__や__END__を<DATA>で読もうとすると
Can't call method "****" without a package or object reference
と言うエラーが出ますが、どうすれば出なくなるのでしょうか。

**nobodyさん** · 04/03/04 02:28

>>134
で？

**nobodyさん** · 04/03/04 02:38

>>137
君の言う通りなら以下のスクリプトでエラーが再現する筈だが。

#!/usr/local/bin/perl
sub read_data { print <DATA> }
read_data();
__DATA__
foo bar baz

エラーメッセージをよく読もう。

**nobodyさん** · 04/03/04 02:44

>>137
間違って書かなきゃ別に出ないけど。
どうやって書いてエラーにしてるわけ？

**nobodyさん** · 04/03/04 03:02

output{
　　print "Content-Type:text/plain;charset=UTF-8\n\n";
　　defined(<DATA>) ? print <DATA> : print '';
}

....

output();

__END__

(文字)

#-------------------

と、このようにしています。
サブルーチンの外に出せばエラーは出なくなります。
また、Can't call method ～と同時に他のエラーが出ることもありません。

テスト環境は Win2K + Apache2.4.08 + ActivePerl5.8 です。

**nobodyさん** · 04/03/04 03:09

>141
sub output {}
#書き込み時ミス

**nobodyさん** · 04/03/04 03:11

と思ったらスクリプトのミスでした(「sub」忘れ)。
お騒がせしました……。

#まさかポカミスで一日悩むとは。

**nobodyさん** · 04/03/04 03:30

＞　defined(<DATA>) ? print <DATA> : print '';

この書き方に一体何の意味があるのだ？
print <DATA>;だけと同じだろうよ
まあ質問用に書いたのかもしれないが

**nobodyさん** · 04/03/04 03:47

>>144
defined(<DATA>) ? print <DATA> : print '';
はバグっぽいが、わかってないのはバカっぽいな。

**nobodyさん** · 04/03/04 03:53

それは何と言うか、色々やっていた時の名残です。
ここに書く時直前では
(略):print 'nodata';
とか書いてたので中を消してそのまま出してしまいました。

**nobodyさん** · 04/03/04 04:10

defined で１行目読んで、print してるのは２行目なんだけど。
書きミスじゃなくて、バグっぽい。
$/ = undef; なんてやってたら、はまりそ。

**nobodyさん** · 04/03/04 04:23

言ってる意味が今解りました。
実は __END_ _直下の行が消えるのは何故だろうかと疑問に思いつつ
そう言うものなのだと思ってました。

と言う事は、__END__ 以下があるか無いか調べるにはどうしたら良いのでしょうか。

**nobodyさん** · 04/03/04 05:16

>>148
__END__ 以下に何が書いてあるかプログラマが把握できない
状況というのは健全でない気がするが。

単純にやるなら
if (my @data = <DATA>) { ... } else { ... }
なり
local $/ = undef;
if (length(my $data = <DATA>)) { ... } else { ... }
なりご自由に。

**nobodyさん** · 04/03/04 11:13

defined(my $data = <DATA>) ? print $data : print '';

**nobodyさん** · 04/03/04 12:42

どうも昨日違うスレで質問して怒られたのでこちらに移動します。

perlをインストールしてソースを書いてブラウザに表示させたところ
ソースコードがすべて出てきてしまいました。#!usr/local/bin～__END__まで
すべて表示されました。

単刀直入にいってどの部分がおかしいとこういう現象になるんですか？自分ではどこがわるいのかわかりません

**nobodyさん** · 04/03/04 12:45

>>151
AddHandler cgi-script .cgi

**nobodyさん** · 04/03/04 12:49

>>151
ローカルで動かせる環境ってことだよな。
OSがMIMEタイプを誤認識してtext/plainになってるとか。
もしくは、ちゃんとttp://localhost/とかでアクセスしてる？
まずｲﾝｽｺはちゃんとできてるかを確認するために、
ｺﾏﾝﾄﾞﾗｲﾝを叩いてみることを勧める。

**151** · 04/03/04 12:54

>>152
どうもありがとうございます。その解説部分の＃はちゃんとはずしてあります。

>>153
私にはちょっとむずかしそうですが、パソコンはいじってないのでtext/plainとかには
なっていないように思います。localhost/sample.cgiとしてアクセスしていますし、ドキュメントルートにちゃんとファイルは置いています。
コマンドラインでも確かめてみようと思います。親切にありがとうございました。

**nobodyさん** · 04/03/04 13:23

質問させてください。

readdirでファイル名一覧を取得した場合、
必ず「.」「..」は最初の二つに出てくるものなんですか？
例えば、取得したファイル名を配列に突っ込んだ後でファイル名を取り出そうとする場合、
配列の添え字は[2]からアクセスすれば問題無いですか？
自分の環境では問題無いのかもしれませんが、
他の環境でもこのような「.」「..」のものも必ず取得するのでしょうか？

**nobodyさん** · 04/03/04 13:54

>>155
サブディレクトリには必ず存在するもの。（ファイルシステムによるが）
ファイル名を取得する際、「.」と「..」なら無視するようにしてみては。

**151** · 04/03/04 14:02

perlのヴァージョンを調べようと思い、コマンドラインからperl-vとうってみたんですが
ダメでした。パールのパスはインストール時にちゃんととおってました。

windows2000を使っているんですが、インストーラをヴァージョン２にしてから、
パールをインストールしたんですが、やたらインストールに時間がかかったので、
うまくインストールできてないんでしょうか？

だれか分かる人がいたら教えてください。よろしくお願いします。

**nobodyさん** · 04/03/04 14:05

>>154
ドキュメントルートのOptionに+ExecCGIがないとかでは？

>>155
先頭が「.」なファイルも除外していいんなら
my @filelist = grep( /^[^.]/, readdir(DIR) );
とか。ディレクトリを省きたいっつーんなら
my @filelist = readdir(DIR);
foreach (@filelist){
next if( -d );
#処理
　　　}
とかがお手軽。

**nobodyさん** · 04/03/04 14:07

>>157
「　perl[半角スペース]-v　」だぞ？
まず入れたPerlの入手先とかはどこだ？
Activestate？
ｺｰﾃﾞｨﾝｸﾞｽﾚだとｽﾚ違いっぽくなってきたのだが。

△▲　WebProg 初心者の質問 Part7　▼▽
http://pc2.2ch.net/test/read.cgi/php/1073460282/

こっちに移動しとくと叩かれないかも。

**nobodyさん** · 04/03/04 14:18

>>158

>>155です。
ファイルテスト演算子の-dを忘れていました。
next if (-d);
を利用しようと思います。
ご親切に有難う御座いました。

**151** · 04/03/04 15:17

>>159
半角入れたらできました。。

どうもすれ違いなようですので、教えてくださったスレに移動しようと思います。
ありがとうございました。

**nobodyさん** · 04/03/04 20:05

>149-150
ありがとうございます。
外のファイルに出してる方が確かに良いのですが、
どうせ数行程度の文しか使わないような感じなので
態々外のファイルを読むよりも中に書いて置こうという事になったのです。

**nobodyさん** · 04/03/04 23:52

>>155
FATのルートには"."と".."は無い。

**nobodyさん** · 04/03/05 00:13

>>155です。

>>163
情報ありがとうございます。
開発環境がWin2000と2003 Serverなので、当分問題は無いでしょうけど、
その辺も考慮してコーディングしていきたいと思います。
わざわざレス感謝です。

**nobodyさん** · 04/03/05 01:12

ところでさ、俺、perl経験はあんまなくて、
win98でActivePerl使ってて、ダブルクリックでpl動かしてるんだけど、
コンパイルエラー行を出す時、
他のファイルに

open FILE, 'エラーファイル名';
while(<FILE>){
$aaa .= $_;
}
eval $aaa;
print "$@ \n";
sleep(10);

ってな記述してエラーメッセージ出してんだけど、
これって非常識？
もっと手っ取り早いやりかたあんのかな？

**nobodyさん** · 04/03/05 03:00

普通はコマンドプロンプトを起動させて「perl hoge.pl」
エディタで起動させて同時にカレントディレクトリを移動させたりすれば便利

**nobodyさん** · 04/03/05 03:04

>>165
いまいちなにがしたいのかよくわからないけど、
スクリプトの文法チェックならperl -c hoge.plで可能。

**nobodyさん** · 04/03/05 03:41

なんと、あの記述はコマンドめんどくさいってアホな理由から生まれたのです！
俺の根性がびーーーん。

エディタで起動ってなんのエディタだろう？？
無知ですんません。

>>167
＞いまいちなにがしたいのかよくわからないけど、
単にダブルクリックしたいだけです。エッヘン！

**168** · 04/03/05 03:48

＞エディタで起動ってなんのエディタだろう？？
あ。意味分かった。
今までperlをエディタから起動した事なかったf(^_^;)

**nobodyさん** · 04/03/05 03:59

コマンドめんどくさいだけの理由で変な我流の書き方すんのはやめておいた方がいいよ。

俺はEmEditor使ってるけど、エディタから直接ボタン一個でプロンプト起動して
自動で走らせるようにしてある。この方法だとdieで終了しても閉じないから
エラー内容もちゃんと見れる。

**nobodyさん** · 04/03/05 04:27

>>170
ありが㌧！
俺も秀丸からボタン一つで新規秀丸ファイルに出力されるようにしてきた。
evalしてた俺ってなんて馬鹿MAXなんだろう。。。＿|￣|○

**nobodyさん** · 04/03/05 07:21

ヴぁかMXA

**nobodyさん** · 04/03/05 13:13

なんでわざわざファイルに出すんだろう…

**nobodyさん** · 04/03/05 23:51

変数名の文字列を知る方法を教えてください。
$test=1
だったら、
$hoge{'test'}=1
にしたいのです。「test」の部分は未知の場合にどうやったらいいかわかりません。
よろしくです。

**nobodyさん** · 04/03/05 23:59

>変数名の文字列を知る方法

Perlソースは読めるから未知な場合がどういう場合なのか・・・

**nobodyさん** · 04/03/06 01:52

例：

　　@pairs = split (/&/, $buffer);

　　foreach $pair (@pairs) {

　　　　($name, $value) = split(/=/, $pair);

　　　　$FORM{"$name"} = $value;

　　}

**nobodyさん** · 04/03/06 01:57

BBS系の使い方だな。

**nobodyさん** · 04/03/06 09:33

このあいだperlを始めてようやく自力で掲示板を作れるようになりました。
次のステップとして
たとえば、発言一覧などをいちいちアクセスされるたびにＣＧＩがＨＴＭＬソースを吐くようではサーバに負担が掛かるので
発言一覧のような閲覧頻度の高いものはＨＴＭＬファイルに出力して変更があった場合更新するようにすれば負荷が軽減されるように思うのですが
他のスレで

146 名前：nobodyさん投稿日：2004/03/04(木) 01:31 ID:???
なんでHTMLへ書き出したいんだ？
メリットだけじゃなくてデメリットもあることを承知の上でか？

と言うような書き込みを見つけました
具体的にデメリットとしてはどのようなことが挙げられるでしょうか

**nobodyさん** · 04/03/06 09:43

>>178
cookieとか使ってた場合、HTMLにすると意味がなくなるからな。
JavaScript使えばできないことはないが、切られるとどうしようもないしな。

**nobodyさん** · 04/03/06 10:16

>>178
次のステップとして自力で作った掲示板スクリプトを他人に評価してもらうのがいいぞ。

もう廃れてしまったスレだがな。
自作CGIを評価するスレ
http://pc2.2ch.net/test/read.cgi/php/1049514428/l50

**未承諾広告※** ◆TWARamEjuA · 04/03/06 11:14

>>176
1 行にしてみるてすと
%FORM = map { (split /=/)[0,1] } split /&/, $buffer;

**nobodyさん** · 04/03/06 14:15

>>178
HTML書き出しのデメリット
　設置できる条件が厳しくなる(CGIディレクトリに置いたHTMLへアクセスできないとダメ。とかね)
　リアルタイムに更新されない(だれかが書き込むまでずっと「最新」マークが表示されっぱなし。とかね)

まぁ、掲示板の場合はそれ以上にメリットはあるよ。
全部HTMLな掲示板つくってみたけど、表示負荷をあまり考慮しなくて済むからかなり無茶ができる。

**nobodyさん** · 04/03/06 14:35

ファイルハンドルが存在するかしないかを調べるにはどうしたら良いのでしょうか。
というか、ファイルが既に開かれているかいないか、の方が
自分の考えてる事にニュアンスが近いです。

**nobodyさん** · 04/03/06 15:56

tell(FH) >= 0

これで

**nobodyさん** · 04/03/06 19:36

>>181
%FORM = split /[&=]/, $buffer;

まぁ実用的なコードほどこんなハッタリじみた事はせず、
堅実にサニタイズしているもんだがな。

>>183
http://perldoc.com/perl5.8.0/pod/func/fileno.html

**nobodyさん** · 04/03/06 22:13

質問です。
my変数を使うことのメリットって何ですか？
グローバル変数だけだと不具合とかってあるんですか？

**nobodyさん** · 04/03/06 22:16

大きなコードになるほど重要性が増してくる。
複数人での開発になったら必須。
最大のメリットは保守性。

**nobodyさん** · 04/03/06 22:29

>>186
いつかあなたにもmyの必要性がわかるときが来るよ。

**nobodyさん** · 04/03/06 22:33

>>186
myもしてないコードって読めたもんじゃないよ
基本は、処理はことごとく関数化して変数は全部myする姿勢で。

**nobodyさん** · 04/03/06 22:56

スクリプトがでかくなると特に重要やね。
あまり大きくなく保守が楽な規模のものでも、
例えばブロック毎に変数名使い回せるとかいうのは
日曜すくりぷたな人にとっても結構嬉しい事なんじゃないだろうか。

まあ使って損は無いし(あっても得の方が大きい)
特に理由が無い限りmy宣言はした方が良いと思うよ。

**nobodyさん** · 04/03/06 23:01

「特に理由が無い限り」どころか「特殊な事情が無い限り」使うべきだと思うが。< my
あ、use strictと組み合わせること前提ね。

**nobodyさん** · 04/03/06 23:57

use strictの無いPerlスクリプトなんて金玉の無い男みたいなもんだ。

**nobodyさん** · 04/03/07 00:15

>>186です。
色々なご回答有難うございました。
どうやら金玉の無い男みたいですので、もう少し色々と勉強してみます。

**nobodyさん** · 04/03/07 01:08

ちょっと質問です
ディレクトリのリネームをしたいんですが、CGIを実行するディレクトリのリネームってできないんでしょうか？
例えば
http://hoge.com/aaa/rename.cgi
というのを実行して
http://hoge.com/bbb/rename.cgi

といったようなリネームがしたいんですが・・・
rename関数でもFile:copy moveでも無理でした

何かいい方法があればお願いします

**nobodyさん** · 04/03/07 01:16

一度通る事を確認したら僅かな負荷を気にして
useしないようにするという場合もありそうな気がしますが、
チェック時だけではなく常にuse strictする理由って何かありますか。
例えば、局所変数のチェックをするついでに何かしらのエラーチェックをしてくれるとか。

**nobodyさん** · 04/03/07 01:42

>>179
>>180
>>182
ご回答ありがとうございました
誰かが更新しないと更新されないというのは重要なポイントですね。

**nobodyさん** · 04/03/07 02:15

>>194
#!/usr/local/bin/perl
use strict;
(my $now_dir = $ENV{'SCRIPT_FILENAME'}) =~ s|/[^/]+$||;
(my $base_dir = $now_dir) =~ s|[^/]+$||;

print "Content-Type: text/plain\n\n";

$ENV{'QUERY_STRING'} =~ /^(\w+)/;
length $1 or error('No assigned new dir name.');
my $new_dir = $base_dir . $1;
-e $new_dir and error("$new_dir already exists.");

chdir $base_dir or error($!);
rename $now_dir => $new_dir or error($!);
chdir $new_dir or error($!);
print 'ok.';

sub error {
　　print "Not changed: @_";
　　exit;
}

>>195
http://perldoc.com/perl5.8.0/lib/strict.html

**nobodyさん** · 04/03/07 02:36

>>197さん
どうも素早い返信ありがとうございます～
さっそく試してみたいと思います

それにしてもchdir使えばいけるとは・・・思いもつきませんでした
危うくcpでフォルダ全コピーして削除する方法をするとこだったし

**nobodyさん** · 04/03/07 05:46

モジュールの話かコーディングの話か良くわからなかったのでこちらに。

例えば、JcodeのOOは
　Jcode->new(\$str)->utf8;
の様にすれば良く、これは
　$char = 'utf8';
　Jcode->new(\$str)->$char;
でも良いようなのですが、
　%char(UTF-8 => 'utf8');
　Jcode->new(\$str)->$char{'UTF-8'};
のようにハッシュを使うと構文エラーと言われます。
ハッシュを使うにはどうすれば良いのでしょうか。

**nobodyさん** · 04/03/07 10:57

>>195
実行時チェックはシンボリックリファレンス(${'var_name'}のようなやつ)の禁止だけなので、
厳密にいうとデバッグがすんだらuse strict 'refs'のみにしてもかまわない。
が、本当に些細な負荷でしかない(しかも、コンパイル時チェックなので実行速度には影響しない)ので
敢えてそこまでする意味はない。っつか、黙ってuse strictしとけ。

>>199
$enc = $char{'UTF-8'};
Jcode->new(\$str)->$enc;
または
Jcode->new(\$str)->${ \$char{'UTF-8'} };

しかし意味も無くメソッドを変数にするのはお勧めできない。読み難い。
Jcode::convert(\$str, $char{'UTF-8'})とするのが普通だと思うぞ。