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

**nobodyさん** · 04/05/26 16:48

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

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

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

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

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

**nobodyさん** · 04/05/26 16: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 初心者の質問 Part8　▼▽
http://pc5.2ch.net/test/read.cgi/php/1078568723/
【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/05/26 16:50

**nobodyさん** · 04/05/26 16:50

**nobodyさん** · 04/05/26 16:51

[ひまぢん氏のミラー]
Part1　http://www.angelfire.com/ak5/2ch-web-program/kako/957208980.html
Part2　http://www.angelfire.com/ak5/2ch-web-program/kako/971817087.html
Part3　http://www.angelfire.com/ak5/2ch-web-program/kako/979894521.html
Part4　http://www.angelfire.com/ak5/2ch-web-program/kako/984430156.html
Part5　http://www.angelfire.com/ak5/2ch-web-program/kako/988728069.html

[総合]
　・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/05/26 16:52

　[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/05/26 17:13

PostgreSQLで、
createuser hoge with password hogeでhogeというゲストユーザを追加し、
権限を持つユーザで、testdbというデータベースに入って、
grant select on testtable to hoge;
で読み取り権限のみを与えたのですが、
DBD::Pgで、このデータベースに接続しようとすると、
DBI connect('dbname=testdb','hoge',...) failed: (no error string)
と言われて繋がりません。
IDとパスを権限を持っているユーザのものに書き換えると繋がるのですが…。
原因がわからず困っています。どなたか知恵を貸してください。
Perl5.6.1、PostgreSQL1.4.2です。

**nobodyさん** · 04/05/26 17:23

ｽﾚﾀｲ100回音読汁

**nobodyさん** · 04/05/26 17:39

PerlでのCookieで質問です。
ﾌｫｰﾑにﾃｷｽﾄﾌｨｰﾙﾄﾞが3つあり、POST時にCookieに取り込み、再びﾌｫｰﾑのﾍﾟｰｼﾞを表示させるとあらかじめ値が入るようにしています。

 $vaild = ("Tue, 31-12-2030 23:59:59 GMT");
 $cookie_data = "name\:$name<>mail\:$mail<>color\:$color";
 print "Set-Cookie: $title=$cookie_data; expires=$vaild\n";

このようにしているのですが、この状態ですと3つの値が同一のCookieに取り込まれます。
有効期限（この場合は$vaild）も同一ですので、期限が切れれば全部の値が無効になりますが、
この中で特定の値（例えば$colorだけなど）の有効期限を変更するということはできるのでしょうか。
Cookie取得後は3つのﾌｨｰﾙﾄﾞに値が入っていた状態を、一定期間後にﾌｫｰﾑのﾍﾟｰｼﾞを見ると2つのﾌｨｰﾙﾄﾞのみに値が入るようにしたいのです。

**nobodyさん** · 04/05/26 17:44

>>9
クッキー別にすればいい。

**nobodyさん** · 04/05/26 23:44

>PostgreSQL1.4.2

釣りか？

**nobodyさん** · 04/05/27 11:19

Possible attempt to put comments in qw() list
という警告が出てしまいます。

もちろん use strict しているのですが、はずしても出ます。
動作上は問題ないのですが、出来れば出ないようにしたいと思ってます。
警告内容は qw() で記述した配列内に # の文字があるのでこれが
コメント文字とバッティングするということだと思います。
どうしても配列要素が膨大で、いちいちクウォートするのを回避できれば
と思っています。
もちろん、no warnings すれば出ないのですが、もっといい方法がない
でしょうか？

12 · 04/05/27 11:27

すいません、解決しました。 # の要素順番を変えたら出なくなりました。

12 · 04/05/27 11:29

すいません、やっぱり出ました。もうわからなくなりました。
じぶんがなにものかさえも・・・

12 · 04/05/27 12:27

何だか直ったりおかしくなったりの繰り返しです。
何がいけないのでしょうか・・・

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

>>12
素直にno warnings使うのがいいと思うがな。そのためのもんだし。
不安ならブロックの中に閉じ込めてno warnings "qw"とかすれば
他の警告への影響も最低限になるだろう。

あるいは

@a = split(/\s+/, <<QW);
foo baa
foo#bar abc
xyz
QW

とかする手もなくはないがそこまでする?

**nobodyさん** · 04/05/27 13:25

>>16
5.005 辺りまではそういう風に実装されてたよ。

#--- test.p ---
my @array = qw(a b c d e);
__END__

> perl5.005 -MO:Deparse test.p
my(@array) = split(/\s+/, 'a b c d e', 0);

> perl5.8.3 -MO:Deparse test.p
my(@array) = ('a', 'b', 'c', 'd', 'e');

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

>>17
ごめん。 s/-MO:/-MO=/g

**nobodyさん** · 04/05/27 20:42

質問です。
Net::Telnetを使ってroot権限で作業をしたいのですが
suでのログインがうまくいきません。

timed-outになるので恐らくパスワード待ちの状態でタイムアウトしてると
思うのですが正しいコマンドを知っている方いましたら教えてもらえないでしょうか？

my $host = 'host';
my $user = 'user';
my $pass = 'pass';
my $prompt = '/\[.+\]/';
my $supass = 'supass';

my $telnet = new Net::Telnet(
Timeout => 10,Prompt => $prompt,);

$telnet->open($host);
$telnet->login($user, $pass);

$telnet->cmd("su");
$telnet->waitfor(/Password: /);
$telnet->cmd("$supass");

**nobodyさん** · 04/05/27 20:46

質問です。
Net::Telnetを使ってroot権限で作業をしたいのですが
suでのログインがうまくいきません。

timed-outになるので恐らくパスワード待ちの状態でタイムアウトしてると
思うのですが正しいコマンドを知っている方いましたら教えてもらえないでしょうか？

my $host = 'host';
my $user = 'user';
my $pass = 'pass';
my $prompt = '/\[.+\]/';
my $supass = 'supass';

my $telnet = new Net::Telnet(
Timeout => 10,Prompt => $prompt,);

$telnet->open($host);
$telnet->login($user, $pass);

$telnet->cmd("su");
$telnet->waitfor(/Password: /);
$telnet->cmd("$supass");

**nobodyさん** · 04/05/27 20:46

質問です。
Net::Telnetを使ってroot権限で作業をしたいのですが
suでのログインがうまくいきません。

timed-outになるので恐らくパスワード待ちの状態でタイムアウトしてると
思うのですが正しいコマンドを知っている方いましたら教えてもらえないでしょうか？

my $host = 'host';
my $user = 'user';
my $pass = 'pass';
my $prompt = '/\[.+\]/';
my $supass = 'supass';

my $telnet = new Net::Telnet(
Timeout => 10,Prompt => $prompt,);

$telnet->open($host);
$telnet->login($user, $pass);

$telnet->cmd("su");
$telnet->waitfor(/Password: /);
$telnet->cmd("$supass");

**19-21** · 04/05/28 01:38

悪気はなかったんです・・＿|￣|●
書き込んだらサーバーエラーになってCtrl+F5押しても
書き込まれてなかったのでうっかり・・・

本当に申し訳ないです。

できれば解答をお願いしたいです

**nobodyさん** · 04/05/28 01:48

>>19-22
- $telnet->waitfor(/Password: /);
+ $telnet->waitfor('/Password: /');

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

$telnet->cmd("su"); → $telnet->print("su");
cmdはプロンプトを待つ。
デバッグするならDump_Logぐらい取れよ。

**nobodyさん** · 04/05/28 15:08

http://www.kokobbs.com/ahhan/right/right01.html
アッハンという２ちゃん型掲示板を使っているのですが
トリップ設定部分でパスワードを○○と入力→コテが表示
と言う機能を使う際、コテ名を漢字にするとスクリプトエラーに
なってしまいます。
\マークを入れても同様です、どうすればよいでしょうか？

**nobodyさん** · 04/05/28 16:02

聞く場所間違ってるぞ。
配布元にサポートBBSがあるじゃないか。

２５ · 04/05/28 23:44

すいません私の勘違いでした。

**nobodyさん** · 04/05/29 14:19

質問です、

１．あるサイトを運営しているのですが、顧客管理のｃｇｉ（画面）で、顧客をある条件（性別や年齢）
等で抽出し、そのヒットした顧客を画面に表示し、さらに、チェックボックスでチェックされた
顧客に対してのみsendmail にてお知らせメールを送る機能を追加しようとしています。

２．それで、抽出した顧客の一覧（チェックボックス付き）の画面出力まではできたのですが、
sendmailプログラムにチェックボックスにチェックされたユーザの一覧データがうまく送信されません。

３．エラーはでないのですが、チェックされた顧客が１０人あっても一人分しかメール送信されません。

具体的に言いますと

form method=post action=cgi
input type=checkbox name=mail_to value=a
input type=checkbox name=mail_to value=b
/form

で、タイプをチェックボックスとして、cgiに渡します。
この場合、cgiで受け取るデータはどの様な形式で入ってくるのでしょうか？
name　が同一の名前なので、　配列　$mail_to[0] $mail_to[1]
かと思ったのですが、違うようですし、データの内容がカンマで区切られて入ってくるでもないようですし・・

尾永井します

**nobodyさん** · 04/05/29 14:23

>>28
スレタイ嫁

**nobodyさん** · 04/05/29 14:30

全角は(ry

**nobodyさん** · 04/05/29 14:33

>28
標準入力を変数に変換している部分による。
同一の名称のフォームオブジェクトのデータを受け取りたいならその部分を修正しなければならない。
その部分のコードが読めるならなぜ一つしか受け取れないかもわかるはず。
なお、Perlで受け取る時点では「mail_to=a&mail_to=b」などの形で入っている。

ちなみに、こういう場合は同一名称のチェックボックスにならないように工夫する方が一般的。

28 · 04/05/29 14:35

>>31

さすが、プロ詳しいですね。
今日は、眠れそうです。サンクスコ

**nobodyさん** · 04/05/29 15:00

>>32
標準(?)のCGI.pmならparamをリストコンテキストで呼べば
複数の値を受け取れたと思う。

@mail_to = $cgi->param('mail_to');

**nobodyさん** · 04/05/29 16:40

普通は同じ名前は避けるべきだろ

28 · 04/05/29 17:17

>>33
検索したら、そおゆうのがありました。
サンクス

**nobodyさん** · 04/05/29 17:54

>>34
普通に使うよ。使わない理由も無いし。

**nobodyさん** · 04/05/29 19:01

open (IN, $file) or die "$!";

while (<IN>) {
# 各行をカンマ区切りで分割
@body = split(/,/, $_);
@data = split(/:/, @body);

ファイルを開いて、カンマで区切った後、それをさらに：で区切ろうと思ったのですがうまくいきません。
どうしたらいいですか？

**nobodyさん** · 04/05/29 19:18

>>37
http://flex.ee.uec.ac.jp/texi/perl/perl_56.html
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlre.html

my @data = split /[,:]/;

**nobodyさん** · 04/05/29 19:37

>>38
ありがとうございます。
そんな技があったとですね

**nobodyさん** · 04/05/29 20:08

>>36
いや、ネタはいいから

**nobodyさん** · 04/05/29 20:21

>>40
普通使うぞ。
きちんと配列に格納すれば値をいくつ渡しても配列でらくらく操作。

**nobodyさん** · 04/05/29 20:23

普通の基準を聞きたいな。
少なくとも俺は使わない。
今までは使っているソースを見たこともない。

**nobodyさん** · 04/05/29 20:28

配列を使わない方が普通と言わんとばかりの煽りだな(ﾌﾟ

**nobodyさん** · 04/05/29 20:36

まぁ、使う場合は使うよな。普段はそんなに使わないが

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

ifの文章でなら書けるのですがもっと簡単に書ける方法がないか教えてください。

if ($pass eq aa ) { $name = "ああ";}
if ($pass eq bb ) { $name = "いい";}
if ($pass eq cc ) { $name = "うう";}
if ($pass eq dd ) { $name = "ええ";}
　・
　・
みたいなのがずっと続くんですが。。

**nobodyさん** · 04/05/29 21:23

my $name_list = {'aa' => 'ああ' , 'bb' => 'いい' , 'cc' => 'うう' , 'dd' => 'ええ'};
$name = $name_list->{$pass};

**nobodyさん** · 04/05/29 22:12

>>45
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsyn.html#Basic_BLOCKs_and_Switch_Statemen

**nobodyさん** · 04/05/29 22:39

>>42
CGI.pmが許しているというのは普通の基準にはならないかね。

**nobodyさん** · 04/05/29 22:44

>>42みたいに経験が乏しかったり勉強不足の奴が見たことないとか言ってもなぁ・・・

**nobodyさん** · 04/05/29 23:04

そんなにいじめるなよ
初心者はこうして一つ一つ知識を蓄えていくんだから生暖かく見守ろうぜ

**nobodyさん** · 04/05/29 23:05

>>42を翻訳機に通してみた。

普通の基準は俺。
少なくとも俺は使い方が分からないから使えない。
今まで他人のソースを見たこともない。

**nobodyさん** · 04/05/29 23:07

checkboxのnameにせっせと異なる名前を付けているのはある意味滑稽だな。

**nobodyさん** · 04/05/29 23:13

URL入力のフォームにデフォルトのvalueで「http://」を入れてます。
それしかなかった場合に変数$homeに「URL」を、
http://の後ろに入力されてた場合$homeにアンカー付きの「<a>URL</a>」を入れたいと思ってます。

【書いたソース】
if ($in{'url'} == "http://") { $home = "URL"; }
else { $home = "<a href=\"$in{'url'}\" target=\"_blank\">URL</a>";}

こうすると、http://の後に入力していてもアンカー無しの「URL」が表示されてしまいます。
間違いをご指摘ください　おねがいします！

**nobodyさん** · 04/05/29 23:19

>>53
演算子について学ぼう

**nobodyさん** · 04/05/29 23:21

>>53
http://www5a.biglobe.ne.jp/~n_rieko/perl/5.htm#5-4

**nobodyさん** · 04/05/29 23:34

>>54-55
＿|￣|●　お恥ずかしい

if ($in{'url'} eq "http://")
で解決しました。
ありがとうございました！

**nobodyさん** · 04/05/29 23:44

>>52
それが普通

**nobodyさん** · 04/05/29 23:52

>>57 無知を指摘されたからってそんなむきにならなくてもいいんジャマイカ。

**nobodyさん** · 04/05/30 00:19

使わないって言ってる人は理由があるの？
必要ないからっていうのは無しね。
使うことによって、楽になる場面はいっぱいあるんだし。

**nobodyさん** · 04/05/30 00:22

checkboxにまで無理して噛み付く奴の知識ってどの程度なのだろう。
htmlもろくに出来ないのにプログラミングですか。
それはそれで凄いですね。

**nobodyさん** · 04/05/30 00:34

あれでしょ、今ごろHTMLの仕様とか読んで自分の誤りに
気づいて顔真っ赤にしてるんでしょ。

**nobodyさん** · 04/05/30 00:54

ちょっとみなさんバカなボクに知恵をかしてください

カウンタのような役目をしている変数$winというのがあるんですが
この$winが100の倍数ごとにある処理をしています。

そこで$win_nextという変数で次の100までの回数を表示したいのです。
例えば$weが48だと$we_nextが52となったり、281だったら19になったり、といった風な感じです。

いろいろやってみましたが何回やってもできません。

↓例えばこういう風なのとか・・・
$win_next=($win+100-($win-($win/100*100)))-$win;

**nobodyさん** · 04/05/30 01:00

>>62 お前も演算子に付いて学ぼう

**nobodyさん** · 04/05/30 01:14

>>34=>>40=>>42=>>57で合ってるよな？
恥ずかしいやつが一人しかいなくてよかったよ・・・

**nobodyさん** · 04/05/30 01:15

>64
少なくともその一つだけ俺だから違う。

**nobodyさん** · 04/05/30 01:24

二人も居たのか？
それはそれで兵共が集うスレですね。

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

>>62
$win % 100 は100で割った余りに相当する。

**nobodyさん** · 04/05/30 01:50

>>65
そうか、どいつなのかはわからんが。
個人的趣味で異なる名前を付けるならそういうコーディングスタイルなのだろう。
でも避けるべきとか普通は使わないとか見たことないとかは明らかに
無知あるいは応用が利かないとしか言えないな。
もうちょっといろいろ勉強したほうがいいね。

**nobodyさん** · 04/05/30 01:51

>>59
きっと、KENTやレスキューが使ってないからだよ。

**nobodyさん** · 04/05/30 02:00

>>68
いつまで粘着してんだ？
ｷﾓｲぞ

**nobodyさん** · 04/05/30 02:04

レス番間違えたの？
それとも粘着の意味を取り違えてるの？

**nobodyさん** · 04/05/30 02:08

うわ。。。
痛すぎる
自分が粘着してることに気づいてない粘着は一番嫌われるよ。
まぁ、リアルでそうなんだろうが

**nobodyさん** · 04/05/30 02:09

>>68=>>71
もういいよ

**nobodyさん** · 04/05/30 02:10

>>71
これを機に、日本語学んでみてはいかがでしょうか？

**nobodyさん** · 04/05/30 02:12

まぁ餅付け

**nobodyさん** · 04/05/30 02:13

75 名前： nobodyさん [sage必死に当り散らしてるなｶﾅﾘｲﾀｲ] 投稿日：04/05/30 02:12 ID:???
まぁ餅付け

いや、お前が一番痛いよ・・・
ﾒﾙ欄引っ掛けとかｷﾓ杉

**nobodyさん** · 04/05/30 02:14

>>76
>>75は誰か引っかかると思って書いてるんだよ
メル欄晒しはもう少し待ってやるべきだった。
今>>75ないてるぞ・・・
俺知らない

**nobodyさん** · 04/05/30 02:15

>>68=>>71=>>75
もういいよ

**nobodyさん** · 04/05/30 02:15

877 ：nobodyさん：04/05/30 02:02 ID:???
perlを勉強中です。

CGI呼出し時にurlの引数に配列を直接入れる事は可能でしょうか？

PHPでは出来ると聞いて、perlでやってみてるのですが上手くいきません。

具体的には、以下の様にしました。
hoge.cgi?huga%5B%5D=1&huga%5B%5D=2&huga%5B%5D=3

また、この方法が無理な場合は、$huga=1,2,3で代入して送って
受け取ったCGIで@huga=(1,2,3)で代入したいのですが、urlの
; / ? : @ & = + $ ,
以上は特別な意味を持つようなのですが、
, を %2Cにエンコードして送信すれば問題有りませんでしょうか？

おまえらにタイムリーな話題ですよ
http://pc5.2ch.net/test/read.cgi/php/1078568723/l50

**nobodyさん** · 04/05/30 02:16

納得させられる説明ができなくて粘着どうこうしか言えないのはかなりｲﾀｲな。

**nobodyさん** · 04/05/30 02:16

>>80
だからいつまで粘着してるの？

**nobodyさん** · 04/05/30 02:17

checkboxの変数名ごときでここまで荒れる>>80が素敵☆
付き合おうよ★

**nobodyさん** · 04/05/30 02:22

>>81
だからいつまで粘着してるの？

**nobodyさん** · 04/05/30 02:23

今度は顔真っ赤にしてオウム返しか
典型的な厨房だな。
宿題して寝ろよ

**nobodyさん** · 04/05/30 02:25

とりあえず言えること

checkboxを学べ
それは板違いだ

お前ら板違いの話題で良くここまで盛り上がれるな。

**nobodyさん** · 04/05/30 02:26

>>80=>>85
傍観者側に回ったフリ乙

**nobodyさん** · 04/05/30 02:27

>>86
だな

＞お前ら板違いの話題で良くここまで盛り上がれるな。
ｺﾚは仕掛けた本人が必ずといって良いほど言う

**nobodyさん** · 04/05/30 02:29

と説明できないやつが必死に叩こうとしてるｗ

**nobodyさん** · 04/05/30 02:37

もういいよ
ｗ=必死

**nobodyさん** · 04/05/30 02:44

>>89
やっと自分の間違いを認めたか。
わかったよ。

**nobodyさん** · 04/05/30 02:48

>>90
レス番間違えたの？
それとも日本語を理解できてないの？

**nobodyさん** · 04/05/30 02:52

>>91
これを機に、日本語学んでみてはいかがでしょうか？

62 · 04/05/30 03:14

％を忘れてました＿|￣|〇
愚問ｽﾏｿ

**nobodyさん** · 04/05/30 04:31

perlでスクリプト組んでいて、Flashのサイズを取得するためにPHP+GDを使いたいんですが
perlからサイズ取得スクリプト(PHP)を実行して帰って来た結果をperl側で取得することは不可能でしょうか？
教えて下さい。お願いします。

**nobodyさん** · 04/05/30 04:36

可能

はい、終わり。
後はグーぐるでね

**nobodyさん** · 04/05/30 11:27

　　　　　／＼⌒ヽﾍﾟﾀﾝ
　　　／　／⌒)ﾉﾍﾟﾀﾝ
　 ∧＿∧ ＼（(　∧＿∧
　（； ´Д｀））'　））（・∀・；）＜餅つけ
　/　　⌒ノ　（ ⌒ヽ⊂⌒ヽ
.（O　　ﾉ　)￣￣￣(）__ 　）
　）_）＿）（;;;;;;;;;;;;;;;;;;;）（＿（

**nobodyさん** · 04/05/30 17:22

>>94
こんなモジュールを見つけたよ。
http://search.cpan.org/~ysas/SWF-File-0.33/lib/SWF/Parser.pm
&headersubコールバックを定義しておけば、perlだけで情報が取れそう。

94 · 04/05/30 17:43

>>97
``;でコマンドラインからPHPを実行してサイズ取得できました。
そのモジュールも検討してみます。
ありがとうございました。

**nobodyさん** · 04/05/30 20:27

思い通りにいきません。エラーが出ます。。
どのように書き直せばいいのでしょう？

$i1,$i2 = split("_",$name);
$name = $i1$i2;

**nobodyさん** · 04/05/30 20:31

>>99
安いのでいいから一冊本買った方がいい

**nobodyさん** · 04/05/30 20:43

>>99
検索で調べることもできないような人の来るところではありません。

**nobodyさん** · 04/05/30 20:49

>>99
スレの趣旨には合っているがあまりに酷すぎる。>>100の言うとおりに教科書買え。

($i1,$i2) = split("_",$name);

99 · 04/05/30 21:48

>>100-102
すいません。一応教科書など持ってます。
()は完全にわすれてました・・。
が、（）をつけてもエラーが出ます。。

**nobodyさん** · 04/05/30 21:50

じゃあ、別の場所でエラーが出てるんだろ。
エラーログをよく見ろ。

99 · 04/05/30 22:07

Scalar found where operator expected at ../bbs/bbs.cgi line 651, near "$i1$i2"
(Missing operator before $i2?)
syntax error at ../bbs/bbs.cgi line 651, near "$i1$i2"
../bbs/bbs.cgi had compilation errors.

なんですが。

**nobodyさん** · 04/05/30 22:07

>>103
学校でせんせーに聞いてこい。

$name = $i1 . $i2;

**nobodyさん** · 04/05/30 22:47

はずかしいな

**nobodyさん** · 04/05/30 22:53

2行にバグ2個も書くな。

**nobodyさん** · 04/05/31 00:25

まあスレタイに相応しい質問だけどな（ｗ

**nobodyさん** · 04/05/31 01:09

ここは初心者が自信を持てるインターネットですね。

**nobodyさん** · 04/05/31 06:12

たまに日本語すら危うい質問があるから、それに比べたら…

**nobodyさん** · 04/05/31 22:39

質問
list.txtの、一番上の行にテキストを追加したいのですが

open(OUT, ">> list.txt");
@list = <OUT>;
unshift (@list,"追加の行 \n");
print(OUT "@list");
close(OUT);

このようにやると、一番下の行に追加されます。
どこが間違ってるのでしょうか？

**nobodyさん** · 04/05/31 22:45

ここ＞＞open(OUT, ">> list.txt")

**nobodyさん** · 04/05/31 22:45

openの使い方を学べ

**nobodyさん** · 04/05/31 22:52

2、3のレスで解決する質問ばかりでのどかだな～

**112** · 04/05/31 23:05

おかげさまで！
open(IN, "list.txt");
@list = <IN>;
unshift (@list,"追加の行 \n");
close(IN);
open(OUT, "> list.txt");
print(OUT "@list");
close(OUT);

できましたぁー！
読み込みと書き出しは同時にできないってことでしょうか？

**nobodyさん** · 04/05/31 23:08

>>116
>>114

**nobodyさん** · 04/05/31 23:08

>>116
できますからもっとよく調べてください

**112** · 04/05/31 23:12

>>118
ありがとう・・・
しらべるっち！！

**nobodyさん** · 04/05/31 23:41

今、CGI本片手に掲示板を作っているのですが、
特定の状況？（原因が不明）で下記のエラーが出てしまいます。

Illegal division by zero at C:\www\home\bbs.cgi line 2020.

エラーが出ない場合は普通に書き込めるのですが・・・。
自分なりに原因を探ってはみたのですがお手上げです。
何卒ご教授下さい。宜しくお願いします。

**nobodyさん** · 04/05/31 23:44

>>120
スレ違い。
つーか、どこで聞いても同じ。
なぜエラーメッセージを読まない？

**nobodyさん** · 04/05/31 23:58

いつも通り

英　語　が　読　め　な　い　ん　で　す

とかじゃねーの
どちらにせよ典型的な真性厨ですな

**nobodyさん** · 04/05/31 23:58

>>120は、割り算ってケーキを人の数で割ることだから
ケーキを0人で割ると誰にも分けなくていいから全部わたしのもの、とか考えてるツルペタ。

**19-22** · 04/06/01 00:18

>>23-24

できました！ありがとうございます。
レス遅くなってすみません。

**112** · 04/06/01 00:46

すいませーん追加で質問です。
>>116のようにして書き足していったlist.txtを覗くと、データが

追加の行 
　追加の行 
　　追加の行 
　　　追加の行 

のようにヘンなインデントがついてるんです
なぜでしょうか？

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

<q cite="http://www.kt.rim.or.jp/%7ekbk/perl5.005/perldata.html#Scalar_value_constructors">
配列変数は、ダブルクォート文字列中で、配列のすべての要素を変数 $"
(Englishでは $LIST_SEPARATOR) 中に示す区切り文字 (デフォルトは
スペース) でつなげて展開されます。以下は同値です:

　　$temp = join($", @ARGV);
　　system "echo $temp";

　　system "echo @ARGV";
</q>

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

なんでprintするときリストを""で囲むかね。
たぶんスカラー変数を""で囲むのを普段から何の疑いも無くやっていて、その延長で
リストを囲んだらおかしくなったってパターンなんだと思うけど。
そうやれ！とか書いてある参考書でもあるの？

**nobodyさん** · 04/06/01 07:54

答えろよ

**nobodyさん** · 04/06/01 10:22

print "@data"と
print @data
はPerlだと挙動が違うんだよねぇ
勉強しろよ

**112** · 04/06/01 11:58

>>127-129
ありがとうございました。勉強になりました。
ソースは他人のソースを参考に書きました。

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

イメージ検索エンジンを作ろうとしているんですが、
画像に埋め込まれているメタデータとキーワードが一致しているかどうかで、
検索をしているイメージ検索エンジンってありますか？

<img src="map.jpg" alt="地図" title="日本地図">
↑のaltやtitleの部分や画像周りのテキスト、ファイル名などを
検索するのがGoogleだと思うんですけど、
画像に組み込まれている日付だとか著者とかをキーワードと一致するか、
検索するシステムが無ければ作ろうと思うのですが、
どなたか上記のような検索システムがあれば、教えてください。
無ければトライしてみようと思います。

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

>>131
スレ違い

**nobodyさん** · 04/06/04 07:10

varatermを使ってるんですが、シェル(bash)の標準入力ではbackspaceで
後の1文字を消せるんですが、スクリプトで<STDIN>で入力する時に、
backspaceを使うと、^Hが表示されて文字を消すことができません。
どうすれば文字を消せるようになるのでしょうか。
Perl 5.6.1、Debian 3.0を使っています。

**nobodyさん** · 04/06/04 07:25

>>133
それはソフトの問題じゃないのか？

**nobodyさん** · 04/06/04 07:33

>>133
^H返すのってわりと普通の動作じゃないんですか？よく聞くんですけど
俺のスクリプト使う奴は全員backspaceコードに^H使うな！
とは言えないので…。

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

>>133
それ、Debianのせいじゃない？
どのバージョンでどうなのかは知らんけど。
ttp://www.fastwave.gr.jp/diarysrv/mad-p/200205c.html#20020525-1
Linux板のほうがいいかも。

**nobodyさん** · 04/06/04 10:24

>>136
あー、なるほどそうだったんですか…。
どうもありがとうございました。

**nobodyさん** · 04/06/05 07:36

今170行ほどのプログラムを書いたのですが、可視性が悪いので処理ごとにサブルーチンかしようかと思うのですが
それだと処理の重さ軽さなどは変わりますか？

**nobodyさん** · 04/06/05 07:47

ベンチマークとってみれ

**nobodyさん** · 04/06/05 09:45

>>139
どうやるの？

**nobodyさん** · 04/06/05 09:49

use benchmark;

**nobodyさん** · 04/06/05 13:37

ひらがなをカタカナに変換したいのですが、以下のようにするとなぜか"アゥ"と出力されます。何故なんでしょうか？
(UNIX, perl v5.8.0)

#!/usr/bin/perl
$str = "あい";
$str =~ tr/あいうえお/アイウエオ/;
print $str;

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

ひらがなやカタカナがマルチバイトだから。

**nobodyさん** · 04/06/05 14:41

>>142
解決策1: Jcodeモジュールのtrを使う

use Jcode;
$str = "あい";
print Jcode->new($str)->tr('あいうえお','アイウエオ');

解決策2: unicode機能を使う

use utf8;
use encoding 'euc-jp', Filter=>1;

$str = "あい";
$str =~ tr/あいうえお/アイウエオ/;
print $str;

use encodingのとこのeuc-jpは適当に自分が使っている
コードにあわせてくれ。

**未承諾広告※** ◆TWARamEjuA · 04/06/05 15:05

>>144
5.8.0 環境とのことですので後者の方ですね。

**nobodyさん** · 04/06/05 15:06

フォームを使わずに、POSTでデータを送る事は出来ませんか？

04/06/05 15:21

プロ固定金土日こと星山成寿(李明煕/イ・ミョンヒ）
の２ちゃんねるワンポイントアドバイスの時間です。

長年プロ固定してますので、削除とか他人のIP抜き取り個人情報調べ、
２ちゃんねるのアングラの仕事など西村博之の右腕として広範囲な仕事を
任されております。一般に２ちゃんねるは、収益を上げてない個人管理の掲示板
かのように思われていますが、各トピックごとに様々な人間がアクセスしてくる
ため、それらのIPで個人情報を調べた名簿を企業に売買しすることにより、
裏側では巨大な収益をあげております。DHCの裁判でいきなり５億円もの損害賠償
を請求されているのも、彼らの独自の調査によって２ちゃんが裏側で稼いでいる
情報がばれているからにほかなりません。２ちゃんねるでも、ほんの一部の幹部
しかしらない情報としましては、「薬・違法掲示板」の名簿を、覚醒剤の売買
組織に、売り捌いていることです。これに関しては、アングラマネーなので当然
税金もかからず、実は一番の巨大な利益は「薬・違法掲示板」で集まった
シャブ中連中の個人情報を組織に転売することにより得ています。
最近それらの情報に警察や公安が気づき始めたため、西村博之の実家には何度も
ガサ入れ（家宅捜査）に入られており、逮捕への証拠固めとして、国家権力が
動き始めて、かなり立場的には危険になったことは確かです。ですので、
以前ほど堂々と、そのような行為もできなくなってきているので、私も住居を
転々としている次第です。あっ、このことについては、本当に危ない話
なので、他言しないでくださいね。もしばれた場合は、ネタ情報として
逆にでたらめな似通った情報をたくさんネット上に流すことにより、煙に
まいてください。大抵の場合、ガセの情報をたくさん流せば、またネタが
始まったと、冗談で終わります。以前オウム真理教が毒ガスサリンを
自分たちが作っているのに、毒ガスで命を狙われたなどと自作自演した
作戦と同じ手口ですね。よろしくお願いします。

**nobodyさん** · 04/06/05 15:21

>>146
できます

**146** · 04/06/05 15:39

>>148
良かったらやり方を教えていただけませんでしょうか。

**nobodyさん** · 04/06/05 15:52

そんな質問をしているぐらいなら教えてもわからんだろ。
何をしたいか詳しく書け。

**146** · 04/06/05 16:11

パスワードを使ってログインしてファイルを編集する
というCGIなのですが、編集時にもう一回パスワード照合したいんです。
もう一回パスワード入力するのも面倒なのでログイン時に入力したパスワードを
編集用のCGIに渡したいんですが、どうすれば良いでしょうか。
分かりにくくてすみません。

**nobodyさん** · 04/06/05 16:19

>>151
それならフツーは hidden で渡すんじゃないの？
別にCookieを食わせてもよいけどさ。

**nobodyさん** · 04/06/05 16:25

>>151
フォームを使わずにっていうから何かと思ったらそんなことかよ・・・
そんな単にページ変移毎にパスワードを必要とするありふれた仕組みぐらい
工夫して書けよ。
ほとんどどんなスクリプトでもやってることだろ。
そんなことならスレ違いだし他のスクリプトでも見て勉強してちょうだい。

**nobodyさん** · 04/06/05 20:33

すみません質問です。

Perlにてファイル内の特定文字を検索するにはどういうコードを書けばいいでしょうか？
ファイルの中身を全部配列に入れてjoinして強引に検索出来そうな気もしますが
もっとスマートな方法あったら教えてもらえますでしょうか？

**nobodyさん** · 04/06/05 21:35

>>154
ここはコーディングスレなんだからまずは自分で書いてみろ。

**nobodyさん** · 04/06/05 23:00

>>154
whileで一行ずつ読み込んではパターンマッチかけるとか

つか、どういうのを「スマート」と想像してるかの方に興味がある

**nobodyさん** · 04/06/06 00:41

>>144
有り難うございます。
そういう方法しかないのですね。それでやってみます。

**nobodyさん** · 04/06/06 17:31

Perl5.6.1で変数がスカラーかどうかを判断するにはどうすればいいですか？

**nobodyさん** · 04/06/06 17:34

>>158
$名前ってのがそうです。

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

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

**158** · 04/06/06 17:49

説明不足ですみません。
変数に代入されている値がスカラーかハッシュへのリファレンスかで
処理する内容を変えたいのですが，プログラム内部でそれを判断する
方法はないでしょうか？

**nobodyさん** · 04/06/06 17:49

下記のようなごく初歩のプログラムがあるんですけど
$noって=$filenameですよね？
なぜ$filenameを$noで再度置き換える必要があるのでしょうか？
後、print "$no";で一度記述してるのに
後にif文で再度同じ事をしてるのはなぜですか？

#! /usr/local/bin/perl

# ログファイル名
$filename = "count.txt";

# ファイルを開く
if (!open(FP,"$filename")) { # 失敗
$no = 0;
} else { # 成功
$no = <FP>;
close(FP);
}

# １つ増やす
$no++;

print "$no";

if (!open(FP,">$filename")) { # 失敗
print "ファイル $filename がオープンできませんでした ($!)\n";
}else{
　print FP $no;
close(FP);
}

**nobodyさん** · 04/06/06 18:01

>>161
> $noって=$filenameですよね？
既にこの時点で（略

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

>>160
ref <変数> でリファレンスかそうでないかがわかるよ。
リファレンスじゃないなら偽。
リファレンスなら、種類によってARRAYとかHASHとかが返される。

**nobodyさん** · 04/06/06 18:56

フォームのテキストボックスに「にほんご」と入力し送信したところ、
「\x{0082}ﾉ\x{0082}ﾙ\x{0082}\x{00f1}\x{0082}ｲ」
と、表示されてしまいました。

「use encoding 'shift_jis';」を指定しており、
もし「use encoding 'shift_jis';」の一行を取り除くと、
ちゃんと「にほんご」と表示されます。

「use encoding 'shift_jis';」を指定した場合も、、
「にほんご」と表示されるようにするには、どうしたらよいでしょうか。

環境
ActivePerl 5.8.3 Build 809
Windows XP Pro SP2, IIS

**164** · 04/06/06 18:57

受信のソースです
--- ここから ---
use CGI;
use encoding 'shift_jis';

$cgi = CGI::new();
$text1 = $cgi->param('text1');

print <<EOM;
Content-type: text/html

<HTML>
<BODY>
$text1 
</BODY>
</HTML>
EOM
--- ここまで ---

**160** · 04/06/06 19:09

>>163
うまくいきました。ありがとう。
XML::Simpleで取り出したデータ構造が，同じ階層でスカラだったり，
ハッシュだったりしたので困ってました。

漏れが買った本には載ってなかったけど新しい関数だからかな？

<参考>
ttp://www.futomi.com/cgi-bin/lecture/perl5ref.cgi?MODE=CATEGORY&CATENO=21
ttp://www.futomi.com/cgi-bin/lecture/perl5ref.cgi?MODE=DISP&FUNC=ref

**１６１** · 04/06/06 20:05

この部分イフの前にプリントしてる
のに後にイフで再度書き込もうとしてるのはなぜですか？

print "$no";

if (!open(FP,">$filename")) { # 失敗
print "ファイル $filename がオープンできませんでした ($!)\n";
}else{
　print FP $no;
close(FP);
}

**nobodyさん** · 04/06/06 20:18

なぜですかと聞かれても、必要があるからじゃないですか？としか答えられないの。私。

print "$no";

if (!open(FP,">$filename")) { # 失敗
print "ファイル $filename がオープンできませんでした ($!)\n";
}else{
　print FP $no;
close(FP);
}

print "$no";

したらどうよ。

**nobodyさん** · 04/06/06 20:20

>167
後ろの方には FP が入ってるわけですが、そこんとこどうよ？

**nobodyさん** · 04/06/06 20:35

print "$no"; がhtmlへの書き込みを示してて、
print FP $no; がcount.txtへの書き込みという事ですか？

**nobodyさん** · 04/06/06 20:38

おっ、上達してきたぞ。

**nobodyさん** · 04/06/06 20:39

ちょっと違うな。
とりあえずファイルハンドルを知れ。

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

ファイルハンドルとはファイルにつける
固有名詞で通常大文字で記述する。
print FP $no;
のような形式はファイル自身に書き込むこと。

ですよね？
あれ？なんでファイルハンドルつける必要あるのですか？

**nobodyさん** · 04/06/06 21:04

すみません。
benchmark.pmを使った際の出力結果
例えば
0 wallclock secs ( 0.02 usr 0.00 sys + 0.02 cusr 0.01 csys = 0.05 CPU)
というのは何を表すのでしょうか(処理時間であるということぐらいはわかりますが）
wallclock secs,usr,sys,cuser,csys,cpuってそれぞれなんなんですか？
usrはユーザ側の処理時間？？

あと同じCPUでも
0 wallclock secs ( 0.02 usr 0.00 sys + 0.02 cusr 0.01 csys = 0.05 CPU)
2 wallclock secs ( 0.02 usr 0.00 sys + 0.03 cusr 0.00 csys = 0.05 CPU)
のようにwallclock secsに大きな違いが出るのは何故なんでしょうか？

**nobodyさん** · 04/06/06 21:20

wallclock secs: 実時間(起動してから終わるまでの時間)
usr: (そのプログラム自身が)ユーザモードで消費したCPU時間
sys: (そのプログラム自身が)カーネルモードで消費したCPU時間
cusrとcsysはそのプログラムから起動された子プロセスが消費した分
最後のx.xx CPUはそれらの合計。

実時間は他のプログラムが動いていたり、IOの待ちがあったりすると
かなり変動する。

**nobodyさん** · 04/06/06 21:49

>>174 ついでに有効桁も学習しとけよ

**nobodyさん** · 04/06/06 22:43

糞の>>160のはいなくなったか。
二度と来るなよ。　(　ﾟдﾟ)､ﾍﾟｯ

**nobodyさん** · 04/06/06 23:24

ほっ、俺じゃなかった。

**nobodyさん** · 04/06/06 23:33

>>178
で、理解できたのか？

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

>>164
S-JISで書いていないんじゃないのか？

**nobodyさん** · 04/06/06 23:47

>>179
もう一回参考書読んできます。
いまいちファイルハンドルの意味自体わかってない気がするので。

**nobodyさん** · 04/06/06 23:53

>>181
ファイルハンドルはどうでもいいんだけど、最初の「if文で再度同じ事をしてる」は
書き方がヘタなだけだろう。

**nobodyさん** · 04/06/06 23:56

>>182
あのスクリプト自身があまりうまく出来てないと言うことですかね、
と言うことは私の疑問もあってるんでしょうか。
一応参考書の例文なのですが。

**nobodyさん** · 04/06/07 00:05

参考書じゃああいう書き方で説明することはあるのかもな。

疑問とは？

＞$noって=$filenameですよね？
これか？違う

＞print "$no"; がhtmlへの書き込みを示してて、
これか？違う

＞print FP $no; がcount.txtへの書き込みという事ですか？
これか？そう

**nobodyさん** · 04/06/07 00:49

３万個ほどファイルがあるディレクトリを開いて、readdirでリストを取得すると、
数十～数百個ほど取りこぼしがあるのですが、これって既出ですか？

もしそうならすいません。確実に取得できる方法はありますか？

ファイル名でソートしてちゃんと時系列で処理をしたいのですが、この問題のために
作れなくて困っています。

**nobodyさん** · 04/06/07 00:59

>>185
そのコードを見てみたいものだな。

**nobodyさん** · 04/06/07 01:04

>>184
１個目、２個目なのですがまず１個目は
$filenameから読み込んだ数値を$noとするということでしょうか？
２個目だけはどうしても必要とは思えないのですが。
その後、ifで再度書き込まれるわけですし。

**nobodyさん** · 04/06/07 01:13

>>185
これに引っかかってる?
http://homepage1.nifty.com/nomenclator/perl/shiftjis.htm#file

**nobodyさん** · 04/06/07 01:36

>>187
＞$filenameから読み込んだ数値を$noとする
そう。ファイルハンドルをスカラ変数に代入は1行読み込み。

＞２個目
print "$no";　は標準出力へ$noの値を出力。
print FP $no;　はファイルへ$noの値を出力（書き込み）。

必要あるなしなんて書いたやつがそうしたかったのだろうよ。

**nobodyさん** · 04/06/07 01:39

>>187
名前に元質問のレス番を入れろ。
コーディングスレなんだから「私の疑問も・・・」とか「１個目、２個目」なんて
書かずにどのコードについてなんなのかもうちょっと文章を考えて書け。

**nobodyさん** · 04/06/07 04:40

ものすごく基礎的な事なんですけど……。
どこがおかしい、もしくは基本的に間違いと言う所をご指摘願います。

#行数・項目数（, 区切り）とも不確定のCSVファイルを読み込み、
#@page2 に $page[n行目][n項目] と言った感じの2次元配列で格納したい

open (IN, "./link.csv");
my @page = (<IN>);
close (IN);

my (@line, $i, @page2);
$i = 0;
foreach (@page){
@{$line[$i]} = split(/,/);
push(@page2, @line);
}
print $page2[3];

#@page2 の中の3行目を表示したいけど、結果は ARRAY(0x155c7c8) と出る
#$page[3][3] とすると、最後の行の目標項目が表示される

**nobodyさん** · 04/06/07 05:02

>>164
しっかりファイル頭でuse宣言してる？

**nobodyさん** · 04/06/07 05:53

>>191
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perllol.html
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perldsc.html

**191** · 04/06/07 06:53

>>193
ありがとうございます。
まさに知りたかった事が載ってました。
ここ読んで、やり直してみます。

**nobodyさん** · 04/06/07 08:45

>>175さん
ありがとうございました。

>>176
有効桁は・・・昔ＢＡＳＩＣをやってたときに＃をつけると倍精度とか・・・
（よくわかってないんで自分で調べてみます）

**164** · 04/06/07 12:47

>>180 >>192
ようやく解決できました。

>>165 のように書いてしまっていたので、指摘の通り、
「use encoding 'shift_jis';」をまずはじめに書くように直しました。

なおかつ、それでも化けていたのですが、
「use encoding 'shift_jis';」に「Filter=>1」を加えたところ、
ようやくきちんと「にほんご」と表示できました。
どうもです。

**nobodyさん** · 04/06/07 13:27

質問です。
サブルーチンの呼び方に関してなのですが、例えばjcodeですと
jcode'convert (*value, "sjis");　　←　Perl4
jcode::convert (\$value, "sjis");　　←　Perl5
などの書き方ができますよね。
Perl5ならどちらの記述でも動きますが、
Perl4にも対応させるなどの汎用性という面では、
常にPerl4の記述で書いたほうがいいのでしょうか？

**nobodyさん** · 04/06/07 13:39

使わなきゃいいじゃん。

↑　>>197がいいこと言った！

**nobodyさん** · 04/06/07 13:49

CGIとして配布するならともかく、
わざわざ古い書式を使うこともあるまい。

**nobodyさん** · 04/06/07 13:50

>>197
君が赤ラクダを持っているならともかく、今時 Perl4 で
問題なく動くスクリプトを書く方が難しいと思うがな。

jcode'convert(*value, "sjis"); # ×
&jcode'convert(*value, "sjis"); # ○

ま、自己満足以外のメリットは殆どないが、やりたきゃご自由に。
http://flex.ee.uec.ac.jp/texi/perl/perl_toc.html