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

くだすれPerl（超初心者用）

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2006/09/10(日) 13:33:48ID:???
このスレッドは、他のスレッドでは書き込めない超低レベル、  
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。  
Perl使いが優しくコメントを返しますが、  
お礼はPerlの布教と初心者の救済をお願いします。  
05775742007/12/19(水) 19:37:06ID:???
で、何がやりたいかと言いますと、これです↓
ttp://www.fenrir.co.jp/blog/2007/12/useraction_extension_3_1.html
つまずいたのは2のところです。
0578nobodyさん2007/12/19(水) 21:36:49ID:???
>>576
スレ違い
0579nobodyさん2007/12/19(水) 23:17:02ID:???
・ppmはActivePerlをインストールしただけでは使えない？
使える
・DBIとか落としてきてもどうやってインストールしたらいいのか分からない。
ppmを使う
・そもそもPerlの作業をどこで行ったらいいか分からない。
　（コマンドプロントでuseをしてもなんにも起こらない←間違っている？）
まずテキストエディタで書いて保存する
・つまるところプログラミングのイロハが分からない。
あっそ
0580nobodyさん2007/12/21(金) 01:37:26ID:???
>>574
WebProgramingに無関係。板違い。誘導。

Perlについての質問箱 33箱目
http://pc11.2ch.net/test/read.cgi/tech/1192463997/l50
05815742007/12/21(金) 21:47:22ID:???
>>580
ありがとうございます。
そちらにもスレがあったんですね。
ご迷惑をお掛けしました。
0582nobodyさん2007/12/22(土) 00:59:24ID:+1+1pRnk
こんちは

8 9 10　ってファイル読み込んで

8 9　　って出力するにはどう書けばよいですかね
0583nobodyさん2007/12/22(土) 01:26:23ID:???
ふむ
0584nobodyさん2007/12/22(土) 02:11:54ID:At3tOlJk
わかります？
0585nobodyさん2007/12/22(土) 03:40:10ID:???
10が必要ないのか二桁の物が必要無いのか
読み込んだファイルの三ツ目の物が必要無いのか
読み込んだファイルの最後の物が必要無いのか
条件が分からなければ判別のしようが無い
0586nobodyさん2007/12/22(土) 04:19:02ID:At3tOlJk
読み込んだファイルの最後の物が必要無い
です
ほんとありがとうございます(泣)
0587nobodyさん2007/12/22(土) 21:44:20ID:???
8 9 10ってのはファイルの内容か？ファイルの名前か？・・・まあ内容だろうな。
8 9 10ってのは毎回8 9 10なのか？・・・毎回同じってわけじゃないだろうな。
区切りはスペースだけ？タブも？ファイルの中に改行はあるの？

0588nobodyさん2007/12/22(土) 22:22:37ID:???
質問だけ見てもきみにゃPGは向いてないことが分かるからやめとけ
0589nobodyさん2007/12/23(日) 04:25:06ID:nSEv05U9
ごめんやめない　がんばる
8 9 10ってのはファイルの内容で
8 9 10ってのは毎回同じってわけじゃないです。
区切りはスペースだけ
0590nobodyさん2007/12/23(日) 05:02:25ID:???
自分で作る気があるなら、どこまで作ったか晒せ。

自分で作る気がないなら、仕様をまとめなおして、↓こっちで聞け。
Perlでリクに答えるスクリプトを作るスレ
http://pc11.2ch.net/test/read.cgi/tech/1086143976/l50
0591nobodyさん2007/12/23(日) 08:20:22ID:???
返答の意図が分かってないだろ。
まず基礎を学べ。
んですぐ人に答えを求めようとせず頭使って考えれ。
0592nobodyさん2007/12/23(日) 10:02:40ID:01+8BPxk
半年ぶりに書こうと思ったら驚くほどPerlに関する記憶が飛んでる
記憶をよみがえらせる方法を教えてくれ
0593nobodyさん2007/12/23(日) 10:05:44ID:???
とりあえずスクリプト眺めたり、ちょっと書いたりしてるうちによみがえるんじゃね？
それができないなら、アルツハイマ−かもしれないから病院に逝ったほうがいいな
0594nobodyさん2007/12/24(月) 01:41:03ID:yCHoznYX
漏れも吹き飛んだ
1からじゃ何も書けなくなったw
0595nobodyさん2007/12/24(月) 07:17:33ID:???
PerlとPHPで開発してると、やっぱりPerlの方が書きやすいな。
PHPなのに、気がついたら途中からPerlになってたよｗ
0596nobodyさん2007/12/24(月) 12:07:01ID:???
質問です。
ファイルをオープンし、それを一旦最後まで読み込んだ後、
またそのファイルを最初から読み取りを行いたい場合は、
一度ファイルを閉じるしか方法がないのでしょうか。
ファイルで閉じたり開いたりを多く行うと、処理が重くなったり、
ファイルの競合で問題が起きるので、出来れば避けたいのですが。

＜コーディングの例＞
# ファイルを開く
open ( FL, "dat.csv" );
# ファイルを最後まで読む。
while( $line = <FL> ){
# 何らかの処理
}
close( FL );
open ( FL, "dat.csv" );
# ファイルを最後まで読む。
while( $line = <FL> ){
# 何らかの処理
}
close( FL );
0597nobodyさん2007/12/24(月) 12:52:16ID:???
ファイルの競合で問題ってのが意味わからんが
やりたいことはseekでできる
05985962007/12/24(月) 13:19:13ID:???
>>597
seekで検索してみたところ、すぐに見つかりました。
ありがとうございました。

ファイルの競合で問題というのは、ファイルのロックで
解決することなので、ここでは関係ありませんでした。
0599nobodyさん2007/12/24(月) 16:29:55ID:???
Perl5からオブジェクト指向が導入されたということですが、
Perlのプログラマーは、オブジェクト指向プログラミングを
メインで行っているのでしょうか。
それとも、処理速度や安定性、多くの環境下で動く、Perl4互換の
構造化プログラミングをしているのでしょうか。

多くの方はどちらでやっているのかを知りたいです。
0600nobodyさん2007/12/24(月) 16:54:59ID:???
>それとも、処理速度や安定性、多くの環境下で動く、Perl4互換の
>構造化プログラミングをしているのでしょうか。
の部分が突っ込みどころ満載だが、それは使っていくうちに知ってもらうことにして、
とりあえず、Perl5が出てから10年以上たっているので、Perl4の互換性を気にする必要は全くない。
オブジェクト指向も、使いたくないなら使わなくていい。
0601nobodyさん2007/12/24(月) 17:02:48ID:???
>>600
ありがとうございました。
0602nobodyさん2007/12/24(月) 17:22:38ID:???
>>599
「多くの方」はダウソしたcgiをうｐしてパーミッション設定するだけだろ。
中途半端な知識でオブジェクト指向を目指すと余計に意味わかんないプログラムになる。

オブジェクト指向の考え方とPerlでのオブジェクト指向の実装方法を十分理解してないなら
オブジェクト指向に手を出さない方が良い。
0603nobodyさん2007/12/25(火) 10:20:04ID:???
>>602
レスありがとうございます。
ちょっと確認をしたくて質問なのですが、
PerlでCGIを行う場合に限定すると、サーバのメインメモリにいつまでも
情報が残るわけではないので、オブジェクト指向プログラミングは、
状態の保存などを生かしたものというより、モジュール化を行い、
関数名やグローバル変数名が競合するのを防ぐ程度の意味合いしかないように
思うのですが、この解釈はあっているのでしょうか。
0604nobodyさん2007/12/25(火) 11:34:27ID:???
それはオブジェクト指向プログラミングの利点の1つではあるが全てではない。
かといって全部ここに書いてるとキリが無いからググってこい。

っていうか結局何が知りたいんだ？ どんな答えが欲しいんだ？
0605nobodyさん2007/12/26(水) 06:07:36ID:???
サーバのメモリにいつまでもプロセスとして残る場合もあるよ。
0606nobodyさん2007/12/26(水) 12:46:37ID:SU+LBgfr
perlで最規模なCGIゲーム（有名な箱庭やFFA以上）を作ろうと猛勉強してるのですが
まったくの初心者なのでサーバーに対する負荷とかまったく考えていませんでした。

そこで疑問点が３つあります。
・MySQLが軽いとかよく聞くのですが、
　本気でCGIゲームを開発する場合サーバーの負担を抑えるためどういう勉強をしていったほうがいいのでしょうか？
・perlではなくphpのほうに切り替えたほうがいいのでしょうか？
・プログラムを書き終えてperl or phpを実践した後でもMySQLに対応するのは簡単なんでしょうか？
（難しそうなのでperl or php→MySQLではなくプログラムを書き終えた後にMySQLをやったほうが
モチベーションも保てるかと思って。）

phpの話題もでてますが、今はperlのほうを勉強していてこちらのほうが聞きやすいと思って。
よければご教授よろしくお願いいたします。
0607nobodyさん2007/12/26(水) 12:52:25ID:SU+LBgfr
×最規模→○大規模
0608nobodyさん2007/12/26(水) 14:37:40ID:9oL1uy7O
レンタル掲示板などで、
http://www.○○.com/?uid=▲▲▲
見たいなURLがあるのですが
これを
http://▲▲▲.○○.com/
にしたいと思っています。
これを実現するにはどのような手段が用いられるのでしょうか？
ご指導や参考URLを頂ければ幸いです。
よろしくお願いします。
0609nobodyさん2007/12/26(水) 18:35:59ID:8VJWqxjl
>>606
すいません
prog板初心者スレで聞いてみます、スレ違いだったかな
0610nobodyさん2007/12/26(水) 22:20:24ID:???
>>608
perlよりもウェブ鯖で変換した方がいい
apacheならmod_rewriteとかを使う
0611nobodyさん2007/12/27(木) 14:37:45ID:???
>>604
ありがとうございます。

聞きたかったのは、Apache + Perl でプログラムする際、
オブジェクト指向で組むと、利便性があがるかどうか、
という点です。
ネット上のサンプルソースでも、オブジェクト指向
で組まれていなかったので、何らかの理由があり、
さほど利便性がないのかと思ったのです。

できましたら、この、「何らかの理由」もあわせて
回答をいただけたらと思っています。
オブジェクト指向一般の利便性については、自分で調べますが。
0612nobodyさん2007/12/27(木) 14:43:25ID:???
>>605
それは、サーバのエラーや、Perlなどのプログラムミスによる
ものということですよね？

そのメモリに残ったプロセスを利用してということは
ないと解釈していたのですが。
0613nobodyさん2007/12/27(木) 15:08:55ID:???
>>612
mod_perl + DBI なんかでは、コネクションプーリング出来たりとか
そんなんじゃないのかね？
0614nobodyさん2007/12/27(木) 17:41:06ID:???
perlにて、「use strict」を書くとエラー（500）となってしまいます。
これをコメントアウトすると、正常に動いていますので、
パーミッションなどの設定が原因ではないと思います。
疑われる部分はどんなことがあるのでしょうか。
0615nobodyさん2007/12/27(木) 17:46:33ID:???
すみません。質問です。
package関連の記述方法についてです。
定義したクラスのメソッドにおいて、そのクラスがもつ別のメソッドを
呼び出すということは出来ないのでしょうか。

package ClassA;

sub funcA{
　print "test";
}

sub funcB{
　&funcA;
}

などと記述してみたのですが、エラーがでてしまいます。
&ClassA::funcA; としてもダメでした。
0616nobodyさん2007/12/27(木) 17:57:54ID:???
全角スペースでインデント（字下げ）したらエラーになるよ
0617nobodyさん2007/12/27(木) 19:24:37ID:???
>>614
error_logにみんな書いてある。
0618nobodyさん2007/12/27(木) 19:37:01ID:???
>>616
全角スペースでインデント（字下げ）してるのは、２ｃｈで
見やすくするためです。先頭に半角だと無視されますからね。
0619nobodyさん2007/12/27(木) 21:40:34ID:HdAuax/Z
>>593
うむ。書くしかないよな
0620nobodyさん2007/12/27(木) 23:08:07ID:???
>>615
最後に　1；　を書いてみ
0621nobodyさん2007/12/28(金) 00:51:11ID:???
>>620
レスありがとうございます。
最後に「1;」は書いてます。
メソッド呼び出し部分をコメントアウトすると
動作はするので、メソッド呼び出し部分がおかしいのでは、
と思うのです。
メソッド呼び出しを記述すると、動きはするのですが、
そこで停止してしまうのです。
念のための確認ですが、同じクラス内のメソッド呼び出しの
記述方法はこれであっているとみてよいのでしょうか。
それとも、「ClassA::funcA」などと記述すべきなのでしょうか。
0622nobodyさん2007/12/28(金) 02:36:45ID:???
>>621
ウチの環境で、上のコードそのままやってみたけど、
&funcB();
で、ちゃんと'test'と出力されたべ。

呼び出し側のスクリプトの問題じゃないのかな？
以下呼び出し側。

use ClassA;

ClassA::funcA();
ClassA::funcB();

---出力----
test
test

環境　WinXp SP2 ActivePerl 5.8.8-build822
This is perl, v5.8.8 built for MSWin32-x86-multi-thread
0623nobodyさん2007/12/28(金) 02:51:08ID:???
>>611
ていうかオブジェクト志向のメリット、デメリットを勉強すれば
ネット上のサンプルソースの例が少ない理由はすぐわかる。
0624nobodyさん2007/12/28(金) 13:27:40ID:???
質問です。
継承に関して、ネットを調べていると、コードの書き方が
２通りあるようですが、これはどういう解釈をしたらよいのでしょうか。

ClassAが継承もととなる場合
use base qw( ClassA );
@ISA = qw ( ClassA );

use base qw()を使う方法
http://www15.plala.or.jp/h-kihara-home/prog/perl/ooperl.html
http://www.rwds.net/kuroita/program/Perl_oo.html#base

@ISAを使う方法
http://www.rfs.jp/sb/perl/04/03.html
http://bulknews.net/lib/mailmag/22/mag.txt

一方の書き方が古いという類なのでしょうか。
それとも、継承においては特に出てこない、何か違う意味が
含まれているのでしょうか。

お願い致します。
0625nobodyさん2007/12/28(金) 14:37:39ID:???
今までVisual Basic や java をやってきていた者です。
Perlの場合以下のようにドキュメントとしてコーディング規約は
まとめられてないのでしょうか。
http://www.objectclub.jp/news/community/codingstandard/
0626nobodyさん2007/12/28(金) 18:56:10ID:???
>>624
perldoc base
>>625
ない
0627nobodyさん2007/12/29(土) 00:20:43ID:???
>>622
もう一度０からコードを書き直してやってみたら
動きました。
何が悪かったのだろう・・・
全角スペースが入ったりしていると、赤く表示が出る
エディタを使っているのですけどね。
原因が分かりませんが、質問の内容は解決しました。
ご迷惑をおかけしました。
0628nobodyさん2007/12/29(土) 09:32:18ID:???
>>623
Perlのオブジェクト指向を調べてみたのですが、なんだか
完全にオブジェクト指向に対応した言語ではなく、
package や ハッシュ を用いて工夫してオブジェクト指向を
実現してるみたいなものですね。
メンバやメソッドにも外部からのアクセス制限をかけたり
出来なさそうだし。

PerlをCGIでやる場合は、まず、GETやPOSTを取得して
どの関数に飛ぶのかを判定し、その関数を書いていくという
処理しかないので、構造化とさほどかわらないのかもと思いました。

ありがとうございました。
06296252007/12/29(土) 11:06:25ID:???
>>626
どうしてないのでしょうか。
Perlは歴史が長い分、何かノウハウを集めたものがあるかと思ったのですが。
0630nobodyさん2007/12/29(土) 11:19:00ID:???
>>629
オマエが作れよ
俺は無視するが
0631nobodyさん2007/12/29(土) 14:02:28ID:???
ハッシュを宣言し、それを関数に渡す処理をしたいのですが、
Perlのサイトにはそのサンプルが載っていなかったので、
自分なりにコードを書いてみました。
ttp://www.rfs.jp/sb/perl/02/05.html
ttp://www.site-cooler.com/kwl/perl/4.htm

関数に渡すときのコードの書き方や、受けるときのコードの書き方において、
これが偶然動いているだけなのか、不安になって質問してみました。
書き方は基本的にこれで良いのでしょうか。
やりたいことは、「ハッシュと数値を受け取り、処理を行う関数を
定義すること」です。

sub tt(){
my %t = @_;
print $t{"水"};
print "\n";
print $_[1];
}

%c;
$c{"月"} = 1;
$c{"火"} = 2;
$c{"水"} = 3;

&tt(%c,1);
0632nobodyさん2007/12/29(土) 15:00:37ID:CoF2fqIA
sub tt {
my ($t,$n) = @_;
print $t->{"水"};
print "\n";
print $n;
}

%c;
$c{"月"} = 1;
$c{"火"} = 2;
$c{"水"} = 3;

&tt(\%c,1);
06336312007/12/29(土) 15:52:15ID:???
>>632
すばやいレスありがとうございます。
いろいろ試してみて気づいたのですが、$_[1]としても、
２番目に指定した引数が取れるわけではないのですね。
今回は偶然$c{"月"}の1が表示されていただけなのには
気づきませんでした。
あと、ハッシュを関数に渡す場合は参照渡しの方が良いのですね。
非常に助かりました。
0634nobodyさん2007/12/29(土) 17:19:50ID:???
>>626さんくす
0635nobodyさん2007/12/29(土) 20:00:55ID:???
>>629
Perlベストプラクティス

0636nobodyさん2007/12/29(土) 20:26:23ID:???
>>629
理由は大まかに言って、
・ コーディングの自由度の高さこそがPerlの特徴
　 → コーディング規約で縛ったらPerlらしくない
・ Perlのコーディングスタイルとしてキーストロークをいかに減らすかを重視するスタイルが存在する
　 → キーストロークを減らす派にとってコーディング規約なんて邪魔以外のなにものでもない
・ スクリプト言語なので元の用途は自前のツールをお手軽に作る事だった
　 → 自分専用の道具を作るのにJIS規格とかを気にするヤツはいないのと同じでコーディング規約なんてｷﾆｼﾅｲ
・ スクリプト言語はコンパイラ言語と違って大規模開発に向いてないと信じられていた
　 → 小規模ならコーディング規約なんていらない。
って感じだな。

プロセッサも高性能化し、スクリプト言語でも十分に大規模開発が可能になったが、
・ 未だにキーストロークを減らす派の存在が大きい
・ CPANなど充実したライブラリの存在で実際にコーディングする量はそれほど増えてない
って理由から、わざわざコーディング規約を決めようとする動きも存在しないわけ。

使いたいものが、この世に存在しないなら自分で作ればいい。
もし、藻前さんがPerlのコーディング規約が欲しくて作るというなら、
目を通して意見を言うぐらいの手伝いはこのスレの人もやってくれると思う。

まあ、使う人がそんなにいるとは思えないが。
06376292007/12/30(日) 19:23:31ID:???
>>636
詳細な説明のレスありがとうございます。
自分でもPerlについて調べていたのですが、似たようなことが書いて
ありました。自由度の高さが売りなので、逆に規約が無いということ
ですね。納得しました。（TMTOWTDIと呼ぶみたいですね。）
スクリプト言語関連の部分は調べた範囲ではなかったので、非常に
参考になりました。歴史的な経緯もあるのですね。
私は今までVBなどをやっていたので、Perlの規約が無いのには違和感を
感じますが、自分がなれている独自の規約で書いていこうと思います。

こうなると、コーディング規約よりも「こういう場合はこういう
コードを書くと便利だ」といった、Tips系のものを集めた方が
よさそうな気もしました。

例：POSTで受け取ったデータは、foreachを用いてハッシュに入れると良い。
この方法のメリットは〜〜。デメリットは〜〜。

詳しく考えがまとまったらまた相談します。ありがとうございました。
0638nobodyさん2007/12/30(日) 20:27:22ID:???
>>637
use CGI;
my $q = new CGI;
print $q -> param( 'hoge' );
これよりも簡単に書けるなら使ってやる。
06396292007/12/30(日) 20:56:34ID:???
cgi.pmというのがあったんだ。知らなかった。
今まで読んでたサンプルソースにはそんなのが
なかったので知らずに全部コード自作してたよ。orz
0640nobodyさん2007/12/31(月) 10:57:08ID:???
CGIの実行を制限する方法についての質問です。
例えば、２ちゃんねるは、別のサイトやローカルＰＣに保存したhtmlファイル
から「書き込む」をしてもエラーが出て受付けない仕様となっていますが、
こういった不正な入力を防ぐには、具体的にどういったコードを書いたら
よいのでしょうか。環境変数あたりで判断して行うのでしょうか。
0641nobodyさん2007/12/31(月) 15:09:23ID:???
一番簡単な方法は環境変数だわな
if ($ENV{'HTTP_REFERER'} !~ m!^\Qhttp://俺のサーバ/cgiのパス\E!) {
　　# 外部から書くな氏ねハゲ池沼ボダ抱いて
}
みたいなかんじで
0642nobodyさん2007/12/31(月) 15:48:47ID:???
先ほどスレ違いをしてしまったので
.cgi　.plのスクリプトを使いたいのですが
どうすれば実行されるのですか？
クリックしても.exe .batみたいに動かないし…

やり方を教わったのですが　意味がわからないし…
教えてください　お願いします
0643nobodyさん2007/12/31(月) 15:51:39ID:???
>>642って何？いろんなところにコピペしてるのかな？
http://pc11.2ch.net/test/read.cgi/php/1187729623/443
06446402007/12/31(月) 19:09:34ID:???
>>641
レスありがとうございます。
書き込みをみて、$ENV{'HTTP_REFERER'}をキーワードで
検索をしてみたのですが、書き方は何種類かパターンが
あるのが分かりました。

$site = "http://俺のサーバ/cgiのパス";
if($ENV{'HTTP_REFERER'} !~ /$site/i)
if($ENV{'HTTP_REFERER'} !~ /^$site/)

この書き方においては、これが一番いいなという結論のような
ものはないのでしょうか。
改行コードの変換の仕方の解説で、こういったサイトを
読んだことがあるので、ちょっと不安になって聞いてみました。
ttp://www.din.or.jp/~ohzaki/perl.htm#CRLF_Unify
06456382008/01/02(水) 18:35:41ID:???
>>639
まぁ、おいらも最初は自作してたんだし。
それに、自作したからこそ理解できた部分もあるだろう？

心配するな。みんな同じ道を歩んできた。

>>640
参照元は偽装できるから、セッション利用するのがいいかもね。
06466402008/01/04(金) 00:25:33ID:???
>>645
ヒントありがとうございます。調べてみます。
0647nobodyさん2008/01/04(金) 14:22:05ID:???
確認ですが、CGI.pm のモジュールでは、FORMタグを書いた際に
改行されないようにするのが出来ないですよね？

具体的には、↓これをFORMタグ内に記述したりするものです。
style="float:right"

改行されるのが嫌ならば、FORMタグをTABLEタグの外で記述すれば
いい話ではありますが、デザインの都合上でそれが出来ないケースの話です。
0648nobodyさん2008/01/04(金) 15:55:01ID:???
>>647
馬鹿じゃないの？
0649nobodyさん2008/01/04(金) 15:56:37ID:???
かなり初級的な質問ですが、お願い致します。
Perlの場合は、配列と数値を引数で渡すことは出来ないのでしょうか。
例えば、以下のような感じで、@a を @n1 へ、そして、$i を $n2 で
受け取りたいのですが、$n2 値が表示されないのです。

sub FuncA(){
my( @n1, $n2 ) = @_;
print "@n1[0]\n";
print "@n1[1]\n";
print "@n1[2]\n";
print "$n2";
}

@a = ( "aaa", "bbb", "ccc");
$i = 3;
&FuncA( @a, 3 );
0650nobodyさん2008/01/04(金) 16:19:57ID:???
リファレンス
0651６４９2008/01/04(金) 16:42:27ID:???
>>650
レスありがとうございます。
以下のように書き直してみたら、ちゃんと３が表示されましたが、
こういう渡し方をするしかないという意味合いですよね？

sub FuncA(){
my( $n1, $n2 ) = @_;
print "$n1->[0]\n";
print "$n1->[1]\n";
print "$n1->[2]\n";
print "$n2";
}

@a = ( "aaa", "bbb", "ccc");
$i = 3;
&FuncA(\@a,3);
0652nobodyさん2008/01/04(金) 17:41:36ID:???
他にもやりようあるけど
それがいちばん簡単じゃない？
0653６４９2008/01/04(金) 20:24:38ID:???
>>652
他のやりようとはどんなものなのでしょうか？
キーワードのヒントでもいいのでお願いいたします。m(_ _)m
0654nobodyさん2008/01/04(金) 20:38:02ID:???
すみません質問です。
「Perlは時代遅れだ。」という書き込みを読んでちょっと不安になったのですが、
Perlは本当に時代遅れなのでしょうか？

レンタルサーバのサービスでは、低価格でもPerlは確実にサポートしているので、
システムを組む時や、別のサーバにシステムを移項するのには非常に
やりやすいものであります。
COBOLがすたれたのは、Excelが出たからというのが一つの要因ですが、
私には、PerlにとってのExcelにあたるものが見当たりません。

なので、PerlはWebプログラミングとしては、まだまだ十分に
活用できる言語だと思っています。
もし、本当にPerlが時代遅れだとすると、PHPやJavaが特有で持っている機能が
必須となるわけですが、それらは具体的にどういう機能なのでしょうか。
よろしくお願い致します。
0655nobodyさん2008/01/04(金) 22:34:46ID:zn9OWNdo
>>653
>>652じゃないけど
プロトタイプでできるよ
sub hoge ($@) {
　my $foo = shift;
　my @bar = @_;
}
hoge($foo,@bar);

たぶんこんな感じだと思う

普通に配列を後で渡せば受け取れるけどね。
$_[0]をshiftしちゃえば同じ事だと理解できればぉk
0656nobodyさん2008/01/04(金) 22:39:39ID:zn9OWNdo
>>654
PHPに出来てPerlに出来ない事は無い。
たとえばPHPならDBとの連係が良いとか。
でも、web専門だったり。
javaは規模や対象から違う。

要は目指す所の違いだと思う。

Perlが汚いと思うならRubyやPythonをやれば良い
0657nobodyさん2008/01/05(土) 01:11:38ID:???
アンチPerlの人は、時代遅れとか言って叩く。
06586542008/01/05(土) 02:15:25ID:???
>>656
>>657
ご回答ありがとうございます。
目指すところの違いがあるんですね。
アンチは具体例を出さずにすぐに一般化して
否定しますしね。
安心しました。ありがとうございます。
0659６４９2008/01/05(土) 14:25:20ID:???
>>655
レスありがとうございます。プロトタイプ使えばよさそうですね。
こちらでいくらかプログラムを書いてみたのですが、配列は
必ずあとじゃないとダメみたいですね。
FuncA($@)　これだと動くのですが、　FuncA(@$)　これだとダメでした。
0660nobodyさん2008/01/05(土) 18:18:51ID:???
質問です。
ナビゲーションバーが<li>タグで
フォームがテーブルタグで囲む形で
出力されるテンプレートエンジン。

これは今風ではないでしょうか？
出力されたHtmlを読むと可読性が良さそうなので
これで行こうと思っています。用途はテンプレート
エンジンの勉強がてら簡易wikiでも自作してみよう
と思ってます。どうぞよろしくお願い致しますm(__)m
0661nobodyさん2008/01/06(日) 01:12:32ID:4ZDHflzT
ActivePerlにcpan Perl::Tidyしました
cygwinからActivePerlを使っているのですが、
$ perltidy
としてもcommand not found になります。
どうしたわけでしょう。
cygwin用のperltidyもあるときき、Cygwinからもcpan Perl::Tidyで入れてみましたが、
依然として
$ perltidy
command not found
です。アドバイスください。ヒントでもいいのでお願いします。
0662nobodyさん2008/01/06(日) 05:36:20ID:???
昔俺もやった。確か bin にパスが
通ってないだけだったと思うけど。
0663nobodyさん2008/01/06(日) 11:16:43ID:???
>>660
htmlタグの書き方について質問をしたいのであれば、
WebProg板ではなく、Web製作板の方へどうぞ
0664nobodyさん2008/01/06(日) 13:57:41ID:4ZDHflzT
>>662
うまくいきました。ありがとうございます。
0665nobodyさん2008/01/06(日) 15:48:56ID:srAiPMxF
関数に配列を渡そうとしているのですがうまくいきません。

呼び出し側
p_html_kotaivew_kekkawrite
($name, @status, $ks, @han1, @han2, @sta1, @sta2);
関数側
sub p_html_kotaivew_kekkawrite{
local($name, @status, $ks, @han1, @han2, @sta1, @sta2) = @_;
〜〜以下略

このような感じにやると、渡した$name以降の配列がすべて@statusに格納されてしまいます。
アドバイスお願いします
0666nobodyさん2008/01/06(日) 16:21:21ID:???
リファレンス渡しにしろ
0667nobodyさん2008/01/06(日) 16:47:29ID:XbpFSz7R
>>666
リファレンス渡しをしてみましたが、やはり@statusに以降の配列がすべて格納されてしまいます。
0668nobodyさん2008/01/06(日) 17:03:52ID:???
>>667
p_html_kotaivew_kekkawrite
($name, \@status, $ks, \@han1, \@han2, \@sta1, \@sta2);

sub p_html_kotaivew_kekkawrite{
　local $name = @_[0];
　local @status = @{$_[1]};
　local $ks = @_[2];
　local @han1 = @{$_[3]};
　local @han2 = @{$_[4]};
}
　local @sta1 = @{$_[5]};
　local @sta2 = @{$_[6]};
}
0669nobodyさん2008/01/06(日) 17:04:32ID:???
>>668
ブレスミスすまそ
0670nobodyさん2008/01/06(日) 17:26:06ID:???
>>669
なるほどそのように記述すればよろしいのですね。
本当にありがとうございました
0671nobodyさん2008/01/06(日) 19:10:38ID:???
>>668ですでに回答は書いてあるけれど。。。
他の言語を先にやったものだと違和感を感じるものだが、perlの場合は、
関数は、スカラを先に書いて、配列を後に書いた方がいいというルールが
あるようだ。
0672nobodyさん2008/01/06(日) 19:20:03ID:???
ま、スライスを理解すればそれが普通に・・
0673nobodyさん2008/01/06(日) 19:21:39ID:???
すみません。質問です。
Perlで検索結果一覧を出すまでや、ファイルへ書き込みをした場合に
要した時間を計り、表示させたいのですが、どのような関数を
使用したらよろしいのでしょうか。
0674nobodyさん2008/01/06(日) 19:50:13ID:???
>>673
my $t = time;
〜 #計測したい処理
my $t2 = time;
my $sec = $2 - $1;
print "$sec秒だったです";
0675nobodyさん2008/01/06(日) 19:51:41ID:???
訂正
×　my $sec = $2 -$1;
○　my $sec = $t2 - $t1;
0676nobodyさん2008/01/06(日) 19:58:47ID:???
>>674->>675
すばやい回答ありがとうございました。
■ このスレッドは過去ログ倉庫に格納されています