-
WebProg
-
CGIに依存しないPerlの話題一般/Part2
-
UPLIFTで広告なしで体験しましょう！快適な閲覧ライフをお約束します！
そんなスレ - コメントを投稿する
-
パールのパ： パールだねぇ
パールのル： ルビーじゃないよねぇ -
糞スレ。
-
コギャル動画像が無料で
より下なのはかわいそうなので age
-
なんとやる気のない続スレだ。
-
前スレつかいきってないバチだ！
-
前スレがどう終わったのか知らんのだが、、
-
>>7
あるじゃん！ -
なぜ前スレはいきなりdate逝きになったのだろう？？？
-
>>8
２ちゃんねる Viewer 落としてまで見れって？ -
>前スレ
スレッド一覧にはあるように見えるのが謎。なんでだろう？ -
Swig: http://www.swig.org/
XS日本語マニュアル: http://www.kt.rim.or...erl5.005/perlxs.html
【P6】
Perl6: http://dev.perl.org/perl6/
Exegesis 2の日本語訳: http://bulknews.net/...ja/exegesis2.ja.html
JavaVM -> ParrotVM: http://archive.devel...rl.org/msg03864.html
: http://www.astray.com/
Perl6 RFC: http://dev.perl.org/rfc/
-
（＾＾）
-
ネタ不意ｒ
-
ここに、Perlで英単語の音節数を数えようとしたことある
ﾔｼいないですか？ -
>>17
あっ、ひょっとして・・・暗号解析？ -
オカズにするなら、有料より『無料』！！
そんな貴方のために、できました⇒無料サイト♪
近親相姦・SM・人妻あります！！
http://www.traffimag...7MMLZCA/comein/JPMVS -
ファイルディスクリプタは my でローカル変数にできますか？
-
my と localの違いと関連する言葉をもう一度勉強しなおしてください。
-
Perlはファイルハンドルって言うんだっけ？
-
ファイルディスクリプタ単なる整数だよ？
myと何の関係が…とかﾎﾞｹていいですか。 -
うーん、
ソモソモPerlのスクリプトからファイルディスクリプタにアクセスする手段なんて
標準では用意されてない故、質問自体が謎って問題が有るのだが。
# 内部API経由で取れたと思ったけど
Cで言うところのauto変数的なイメージなら別にmyで良いし、
一時的にスタックに退避させて(Perlではこーいう表現しないけど)
別のファイルハンドルを保持したいって話ならlocalで良いし。
で、一番つまんないオチが
open HANDLENAME, $path_to_file;
とかで作ったファイルハンドルHANDLENAMEをスカラ変数に格納したいってのかしら。
my $handle = \*HANDLENAME;
なり、IO::Fileなりで好きにして。 -
いや、Perlでファイルディスクリプタを得ることは出来るし、
open()関数でCのfdopen()相当のことも出来るよ。
$fd = fileno(STDIN);
open STDIN2, "<&=$fd"; -
ぎゃふん。
なるほどfileno()ですか。
% perldoc -f open
If you specify "'<&=N'", where "N" is a number, then Perl will
do an equivalent of C's "fdopen" of that file descriptor; this
is more parsimonious of file descriptors. For example:
open(FILEHANDLE, "<&=$fd")
でも
Note that this feature depends on the fdopen() C library
function. On many UNIX systems, fdopen() is known to fail when
file descriptors exceed a certain value, typically 255. If you
need more file descriptors than that, consider rebuilding Perl
to use the "sfio" library.
ってビミョーですな。 -
ナンでも聞け
-
>>27
perl5.9って出るんですか？ -
>>32
5.10に決まってるじゃん。 -
開発バージョンだと何か問題でも？
うんこあああああああああ
-
>>30-32
まとめて氏ね -
悔しかったら俺みたいに開発バージョンのPerl6をハックできるんだぞ。
-
>>36
日本語おかしいよ。 -
(´ー`)y-~~
-
ヽ(´∀｀)ﾉ
（ へ）
ヽ
-
>>36
（ ´,_ゝ`） ﾌﾟｯ ちっぽけですね -
内部APIでもナンでも答えてくれ！！！
-
上級者向けに相応しい質問を募集中
-
＞悔しかったら俺みたいに開発バージョンのPerl6をハックできるんだぞ。
悔しいのか。
そうか、がんばれよ。 -
jperlも[^２バイト文字]の場合、1バイト単位で処理するんですね。
sjisでは、全角記号は、ほとんど（全部？）\x81から始まっているので、
/[^※]+/とすると全角記号が入っている場合は合致しないんです。
この理解で合っていますか。
-
上級者の俺がナンでも子ｔらえる
-
ナンでも聞いてくれ。
-
偉そうに「聞いてくれ」ていうんだから、44に答えてやれよ。
41では「答えてくれ」って言ってるし、ナンの上級者かわかったもんじゃねぇな -
上級者に相応しい質問しか答えないからな！
-
ある人がPerlについて分からないことがあったのでLarryにメールを送って聞いてみたらしいのですが、それについてどう思いますか？
-
Perl Foundationに寄付をたくさん払ったなら許せる。
"私たちはLarryを気を散らすことなくPerl6に集中させることが
できることを喜んでいます"と、Perl Foundationの理事長であ
り創設者でもあるKevin Lenzoは語りました。"
（http://member.nifty....po2000/perlfound.htm）
それで、Ｌａｒｒｙから返事は来たの？
-
>>49
ある人って誰？ Larryの兄弟とか？ -
>>51
◆4XfSMGTgだろ -
>>52
ぼくにはそんな根性ないよ -
日本語化パッチ作った斉藤さんとか渡辺さんだったら許せる。
-
XSやParrotの話題を募集中
-
おいおい、誰にも相手にされない寂しいﾔｼがいるぞ
-
XSで俺を越えてみろ！
-
何か言えよ(w
-
「CGIに依存しないPerl」ってどういうこと？
-
>>59
簡単にいえばプログラム技術板向けの板違いスレってこと。 -
>>60
削除依頼よろしく -
前スレが立った時は、プログラム板のPerlスレが軒並み荒らされてたから、
それなりに存在意義はあった。
こんな糞レスが続くようなら削除が一番じゃないのかね。
-
Perlに関してはWebProgでやってくれ。隔離板だからな。二度お出手くるん
-
◆4XfSMGTgのだけ削除してほしい。
-
何か面白い話題はないかね。
-
ねぇよ禿
-
（ ´,_ゝ`） ﾌﾟｯ みなさんレベルが低いですね
-
知能程度の低い馬鹿どもが集うスレ
-
----------------------------------------------------------------
終了
----------------------------------------------------------------
-
XSでもParrotでも内部APIでもなんでも聞け。
-
お
-
（ ・∀・ ）ﾆﾔﾆﾔ
#kusokote=◆4XfSMGTg=基地外 -
せっかく「なんでも聞け」と言っているのだから聞いてやれ(w
-
>>74
コイツは使えないから無視しよう -
parrotのわだいぼしうちう
-
#!/usr/local/bin/perl
open yourheart, and listen to me, quietly;
wait, and teach or tell me truth;
-
age
-
ｒｔひゅい８ｋ：っっっっっっっっｐ
-
↑
な、なんだっつんだこの野郎！
-
このスレはRubyキティにずいぶん荒らされちゃったね。
他のPerlスレは、防御が堅かったからあいつ退散したよ。
-
なんで、Rubyの人ってPerlの事きらいなんでしょう？
-
RubyistがPerlerを嫌いというよりも、Perlが嫌いな者がRuby厨を騙ってるんだと思いますけどね。
-
今日は、プログラム板のPerl質問箱がさんざん荒らされてる。
こいう奴、抹殺できないもんかね。
-
なあ、XSでもPerl6でも何でも聞いてくれ。誰か答えると思うし。
-
>>85
まぁまず"実用Perlプログラミング"か perlxs.podでも読め。 -
perl -e "print hex('1E0')" でいいじゃん。何が不満なの？
-
あげてすまない
このスレのPart1は何処に行ったか探してるんだが
DATが見つからないんだ
誰か知らないだろうか
-
糞固定が自己満足で立てた糞スレだから、見る価値のあるレスなんてありません。
早く死ねよ禿 -
（ ´,_ゝ`） ナンデスカコノ ｱﾌｫは
-
Perlをののしり、Perlスレの進行を妨害している粘着基地外のRubyユーザがいます。騙されたり煽られたりした人がたくさん出ています。マジレスしないようにしよう。
-
Perlって意識して組まないと
ソースが読みにくくなると感
じておられる方いませんか？
-
>>96 プププ。ここまで来ると、読みにくいというか、読めまそん。
-
っっっっっっっっっっｐ
-
またruby基地外の荒らしだ。
いいかげんにしないとrubyスレが危ないぞ！
二度と来るな。
-
Perlってさァ、よくRuby厨にいじめられるけど、実際のところ
処理速度を比べるとどうなの？ Rubyやったことないし、今後やることもないだろうし -
どんな言語でも書き手次第だろ。
-
>>103
書き手に依存しない、同じような処理をする関数ごとの処理速度を聞きたい -
レス先まちがえますた。>>104ですた。スマソ
-
>>106
ありがとうございました。たいへん満足するサイトでした。 -
ちょっと聞きたいんだけどここにいる人ってどの程度のレベル？
perl5.6(or 5.8)のregexp+utf8のバグ直せる人いるかな？ -
スレタイに沿ったまともな会話がみつからない。
一応そってるって言えばそってるけど、
雑談スレかい？これ。 -
ベタな突っ込みありがとう。
俺は、これはこれでけっこう良スレだと思ってます。
ﾏﾀｰﾘしたのもいいですな。
-
ム板の「Perlについての質問箱」がruby基地外によって潰されました。
心ある人は、rubyスレにお礼参りしてください。
-
>>110
"\xc0\x80\xc0\x81\xc0\x82" =~ /\xc0\x80(.)\xc0\x82/; print $1,"\n";
"\xe0\x80\x80\xe0\x80\x81" =~ /\xe0\x80\x80(.)/; print $1,"\n";
"\xe0\x80\x80\xe0\x80\x81" =~ /(.)\xe0\x80\x81/; print $1,"\n"; -
ANhttpdとActivePerlをインストールしました。
DOSプロンプトではPerlが動いているのを確認できました。
IEでhtmlを見るのにローカルのアドレスを指定してもサーバーがみつかりませんと怒られますた。
アドレスバーに打ち込んだのこれです
http://localhost/~HTTPD以下のフォルダ名/ファイル名
どうしたら見れるでしょうか？
どなたか教えてください。
おながいします。
-
>>116
localhostではなくて、127.0.0.1とした時に動くなら、
IEオプション-接続-LANの
「ローカルアドレスにはプロキシサーバーを使用しない」
をチェックする。
IPアドレスで接続できないなら、AN HTTPDの設定がおかしい。 -
http://www.thinkgeek...l-camel-source.shtml
いつ見ても感動するなあ、これ。 -
むむ。これは驚いた…
=code
sub f{
print "@_\n";
}
f $x, ($x = 'foo');
=end
いや〜、"foo foo"と出力されるとは思わなかった。
よく考えればPerlの関数の引数は参照渡しだからこうなるのも頷けるんだけど、
tieされたハッシュでFETCHすら呼ばれないのは困るね。
ok $h{foo}, delete $h{foo}; がnot okになって小一時間ほどはまったよ。
-
引数の順に左右される可能性のあるコードなんか、まともな奴は書かない。
-
まあ、またーりいこうや。
人少ないんだしさ。 -
asf86we785f78wqtrf7wqgfrutewiftd97s6tcft8sdgof
しねやｈにおｄｂｓｃｊ -
正規表現の構造を図にして出力してくれるライブラリって
どこにあったっけ？
たしか海外のサイトでそんなのを見かけたんだけど・・。 -
http://www.cc.rim.or...-p/RegexDiagram.html
これの使い方を教えてホスィ！であります！
>>130
CPAN は既に検索しました。でも↑これがベターっぽい？です。 -
↑Win では tgif のヴューワがないらしい？
というわけで
http://bourbon.cs.umd.edu:8001/tgif/
ここから Linux 用の tgif を DL して、
Linux 上で PDF に変換してから Win に持ってきて使うことにしますた。 -
Cygwin + Xサーバ入れればtgif使えるよ。
-
tju6y7i78i78i78o89p98p;09;p09;p0p0p0p0p0p0p;
-
@AAA = <OUTDATA>;
って感じで、ハンドルの内容を取得してるのだが、めちゃくちゃ遅い（汗）
高速化する方法知ってる人いません？ -
$i=0;
for(;$AAA[$i]=<OUTDATA>;$i++){;}
速くなるとはおもえんが。 -
$AAA= `cat file`;
-
配列にぶち込んでる時点で負け。
allocするコストがでかいから、1行単位に読んだ方がはやかったりするよ。 -
Wordのデータファイルをperlでプレーンテキストだけ出したいんですけど
Wordのデータファイルの構造がのっているサイトとかありませんか? -
２５歳。
去年まで金無し君だったけど、オンラインカジノとパチンコで
二年で３５０万貯めた。一度やってみなよ。
初回のみだけど、１ドル以上のチップを買えば３０ドル（４０００円くらい）貰える。
もらうだけもらってプレイせずに換金することもできるし、ルーレットで赤か黒に
思い切って賭けてしまえば５０パーセントで二倍になる。
金なきゃオフラインでゲームすればいいだけ。暇つぶしになる。
ビデオポーカーとかスロとか色々あるのでマジでお勧め。
http://www.imperialc....com/~1kl5/japanese/
-
２５歳。
去年まで菜食主義だったけど、吉野家の牛丼並で
二年で３５０杯食った。一度行ってみなよ。
牛丼の日のみだけど、１杯以上の並を買えばスピードくじ貰える。
もらうだけもらって外れても味噌汁か玉子に換金することもできるし、
思い切って特盛にすれば５５０円で二倍になる。
金なきゃお茶飲んで帰ればいいだけ。店員にマークされる。
ねぎだくとか牛鮭とか色々あるのでマジでお勧め。
-
今使ってるperlソースの本体が大きいため、パフォーマンス向上の為に
dump label;
label：
を使用してundumpで取り出したソースを使えないかと相談されました。
なんでも実行時のperlソースのコンパイルが一番時間がかかるらしい。
これって要するに変数の使用領域とかずっと固定になると思うんです
が、大丈夫なもんなんですか？ もしパフォーマンスが上がって安全
であれば、もっと一般的な手法になってそうなので。要は動作させるた
めの安全性を知りたいわけです。使用してるperlのverは5.6です。
-
ageてみる。
>147
別に使用領域は固定ではなかろう？ -
>>147
ソースを書き直すとかCで書き直すとかの選択はなしですか? -
ソース修正はありですが、期間とコストの問題で全面改修は無理との事です。
dumpのほかにperlccを使用することも検討しているようなのですが。 -
>>150
Apache::Registry 使うのがてっとり早くていいでしょう。 -
んでPerl6はいつでますの？
大方
JavaVM=ParrotVM
Jave+Perl+Python=Perl6
みないなもんだろうけど -
にちゃんねるの鯖監視所みたいな鯖監視やってみたいんですが
URLを設定して
それがGET出来た場合1を返すプログラムってどんな感じなるんでしょうか？ -
Perlでネットワーク関連のおもちゃ作ってるんですが
バイナリデータの処理はやっぱpackやunpackでいいんですかね
ビットフィールドの扱いはvec関数がいいとかは聞いたんですが。。 -
WINでDOS窓消して、バックグラウンドで実行する方法って無いでつか？
WHSよりPERLの方が使い慣れてるので･･･
-
おおー 有難う御座います >>◆hMJAPH9PWA さま
wperl(とVER付きの実行ファイル)は自分でも何となく試したのですが、パスの指定が間違えて居た様です。
拡張子を関連付けたら上手く行きますた
STDERRは適当にリダイレクトして使いたいと思います。
侍のVBSを色々弄ってるんですが、文字列の扱いに辟易してたんです
これで正規表現パワー炸裂できます
やっぱりPERLはｲｲ(･∀･)!!
多謝!!
-
>>153
Netscape enterprise server ならNSAPIでPerl組み込めばイイじゃん。
http://search.cpan.o...ARS/nsapi_perl-0.24/
Netscape::Registry とか色々あるよ。 -
>>158
ぃえす。pack()/unpack()で気持ち良くなれます。
ただ32bit以上の大きめな桁で論理演算しようとすると悲しいことが起こるので、
そーいうときは分割して処理するかMath::BigIntをつかうかXSで書くとよろし。 -
>>160
>>163
仕事が忙しくて来れませんですた。。
レスさんきぅです。やぱしpack、unpackがラクでいいですね。
それと、話ついでの質問で恐縮ですが、
時刻合わせのためにNTPサーバに接続して
タイムスタンプを取得しますよね。
そんで自分のPCをサーバに同期させる、
というようなプログラムを作ってるんですが、
DOSに取得した時刻を渡すことってできるんでしょうか？
自PCがWinXPなので
system("C:\windows\cmd.exe");
でDOSを開くところまでは行ったんですがそのあとが分かりません。。
pack、unpackと全く関係ない質問で申し訳ないですが(;´д`)A -
腐れﾏｶｰのみんな、CamelBonesで、Perl + Cocoaしよう。
RealBASICが買えないチミにおすすめですよ。
http://sourceforge.n...projects/camelbones/
-
（＾＾）
-
Delegateでない、普通の串をPerlで作りたいんですが、無理ですか？
Proxomitronに限界を感じる… -
みんな気がついてないのか？
気がついていていえないのか？
どうみてもスレタイ日本語変だろ？
Perlに依存しないCGIの話題一般 っていうなら日本語になってるｗ
-
3つ目の選択肢。
・気がついていて言わないのか？ -
なんでPerlのスレなのに逆の意味になるんだYO アフォ
-
CGIに依存しない、Perlの話題。これでわからないか?
-
>>168はPerlをCGI専用の言語だと思ってるのかな？
-
ＣＧＩってのはライブラリか何かだと？
-
一般と書いたら、一般にしないといけないそうです。
-
やっぱ話題のレベルが下がると俄然伸びるなぁ。
-
（＾＾）
-
Perl 5.8なんですが，
use encoding 'euc-jp';
$a = 'あ';
print '1' if $a eq 'あ';
print '2' if $a =~ /あ/;
だと「1」が出力されます。
use encoding 'euc-jp', Filter=>1;
$a = 'あ';
print '1' if $a eq 'あ';
print '2' if $a =~ /あ/;
だと「12」が出力されます。
どうしてでしょう？ スクリプトはEUCで書いてます。
-
>>177
そりゃ 両方成り立ってるからでは？ -
まあひとつ言えることはおそらく板違いだということ。
プログラム技術板にPerlスレあるだろ。
WebProgに依存しないと言ったら確実に板違いだな。 -
>>177
12とでるのは、print '1';print '2'だから、12と思う。
ここは分かってるよね？
$a = 'あ';
print '1' if $a eq 'あ';
print '2' if $a =~ /\Qあ\E/;
というのはどうだろうか？
しかし、EUCなら/あ/で通ると思うが..
$a = 'あ';
print '1' if $a eq "\xa4\xa2";
print '2' if $a =~ /\xa4\xa2/;
で、12とでる？ -
>>179
177が板違いなのは間違いないがスレ自体が板違いの可能性大
スレタイの日本語からしておかしいが
WebProg版のスレなのだからPerlに依存しないCGI一般の話題と解釈するのが普通
100歩譲ってCGIに限定しないPerlの話題一般 と解釈するならばこのスレ自体が板違い
-
>>182
昔からPerlはプログラム板とは独立してレン鯖板にあって、
それがココに移ってきたから板違いじゃない。
新参者は出て行けと言うつもりはないが、昔からの慣習を無知のまま勝手な事言うのは勘弁。 -
>>181
#!/bin/perl
use encoding 'euc-jp';
$a = 'あ';
print '1' if $a eq 'あ';
print '2' if $a =~ /\Qあ\E/;
print '3' if $a =~ /\xa4\xa2/;
からは1が出力され，
#!/bin/perl
$a = 'あ';
print '1' if $a eq 'あ';
print '2' if $a =~ /\Qあ\E/;
print '3' if $a =~ /\xa4\xa2/;
からは123が出力されます。
いまいちEncode.pmがわからないです。
-
>>184件のスクリプトをテストしてみたが
スクリプトの漢字コードeucで保存してる？
スクリプトの漢字コードが
Jisなら1だけ
Shift-Jisなら1,2
EUC-JPなら1,2,3
が出力されておるのだが・・・
\xa4\xa2 はEUC-JPのコードだからSJIS JISでまっちしないというのはりかいできるだろうけど
Jisならば KI KOが入るから \Qあ\E のパターンマッチは失敗してるってかんじでないかい？
-
てめえらperlのコンパイル手順について詳しく、超詳しく書いてあるサイト教えやがれ。
日本語のな。 -
>>186
$ perlcc foo.pl
話題にのって質問。
perlを無料でwindowsのexeにコンパイルできないだろうか?
贅沢言うとTk.pmも使いたいのですが。
ActivePerlのperlccは単体では使えないもよう。 -
>>183
だから、それならプログラム版に移ればよかっただけの話だろ
大量の２ｃｈ系掲示板郡が散在していて、
それぞれの掲示板がそれぞれの流儀でカテゴライズするのはかまわないが
板が増えてくれば、それなりにカテゴライズされた法則にしたがって運用しなけりゃ
ただのごみため場と化すのが自然の理
別鯖の板をどこかに移動するなら移動先のカテゴライズにしたがわなきゃダメだろ
移動するときプログラム版が許容量いっぱいで無理だったとかか？
それなら、移動する時期を誤ったか 無理せずもとの場所で存続するか
元の場所が閉鎖せざるを得ないとかの問題があったなら、ここ以外の他の場所探せばよかっただけだろ？
少なくとも、移ってきたから板違いじゃないっていうのは見当違い
-
よーするにだ。最初からあったこのスレの内容がﾜｹﾜｶ。
そー言う事。 -
WebProgだけ別にした管理者が馬鹿。
-
それだけWebプログラム関連の負荷が大きかったって事だろ
まぁ、板作るなら WebProgじゃなく NetProg だろ・・とは思うけどな
-
だってム板にたてたらおっぱらわれるじゃん…
-
もうるびキティいなくなったから大丈夫だよ。
-
テストかきこ
-
随分落ちてるなage
-
perlのパイプってのは非同期なのでしょうか？
b.pl ---------------------------------処理終了
|パイプ開始 |パイプクローズ
a.pl-----------------------------処理終了
パイプでデータを一通り渡し終えた後、b.plの処理が終わる前にa.plが死んでも問題ないでしょうか？
また、b.plが終了するまでa.plのパイプクローズがブロッキングされたりはしないのでしょうか？
答えてもらえたら前代未聞の2ch閲覧環境の開発を開始します。 -
そりゃあ前代未聞だ
-
ActivePerlで試したよ。
local($from,$to,@data) = @_;
unless(open(DELI,"| " . $deliveryprocess . " " . $from . " " . $to)){
return 0;
}
print DELI @data;
close(DELI);
return 1;
てなコードで、
#! /usr/bin/perl
print $ARGV[0] . "\r\n";
print $ARGV[1] . "\r\n";
while(<STDIN>){
print;
}
while(1){}
なスクリプトにパイプでデータ送ったら見事にブロックしてくれやがりました。
開発中止。 -
普通は同期を想定しているパイプで*パイプを同期で扱うスクリプト*を使って試せば、それは*同期な結果*しか帰って来ないだろう、頭悪い。
非ブロッキングにしたかったらちゃんとおぷちょん書きなさい。 -
>>205
一ヶ月前のレスを煽ってるのも大概だと思われ。 -
あれれ、5.8.2が出たのか
めんどくさいなあ -
perl 5.005 を使っていますが、
このような古い環境で UTF-8 → Shift JIS (EUC でも可) の
変換方法がありましたらお教え願えますか? -
use strict;
sub new {
my $that = shift;
my $class = ref($that) || $that;
my $self = { a=>{A=>'A',B=>'B'}, b=>[qw/A B/] };
bless ($self, $class);
return $self;
}
sub method {
my $self = shift;
my $a = $self->{'a'};
my $b = $self->{'b'};
}
$a,$bをデリファレンスして利用するのではなくて
型グロブで選択的別名定義して%a,@bと実装できますか？
できるのでしたらどのように実装するのでしょうか？ -
sub method{
my $self = shift;
our(%a, @b); # or use vars pragma
local *a = $self->{a};
local *b = $self->{b};
$a{foo} = 1;
push @b, 'foo';
}
またはAlias.pmとかな。
http://search.cpan.o.../Alias-2.32/Alias.pm
どっちにしてもあまりメリットは感じないが。 -
sub new
{
my $pkg = shift;
bless
{
name => shift,
age => shift
equips => undef
}, $pkg;
}
ここでequipsを配列にしたいのですが、
そのような事は可能でしょうか？
push($self->{equips}, $object);
$self->{equips}->[1]->getEffect();
($objectは別のクラスオブジェクトでgetEffectはそのメソッド)
みたいな感じで使いたいのですが。 -
equips を配列へのリファレンスにすることならできる
sub new
{
my $pkg = shift;
bless
{
name => shift,
age => shift,
equips => []
}, $pkg;
}
としておいて
push(@{$self->{equips}}, $object);
$self->{equips}->[1]->getEffect(); -
巷のスクリプトを見るとPerlでサブルーチンにプロトタイプ宣言を行っていない
ものがほとんどなのですが、なぜプロトタイプ宣言を行っていないのでしょうか？
プロトタイプ宣言を行うと低速化したりという弊害等があるのでしょうか？
sub func($$@) #プロトタイプ宣言あり
sub func #プロトタイプ宣言無し -
>>216
反対に、宣言しなくてもいいのにわざわざ宣言するメリットって何?
その「巷のスクリプト」とやらはサブルーチン呼び出すのに &
つけてたり、メソッドとして呼び出してたりしてないか?
あと Perl 関係のメインスレは以下なので以後はそちらに。
http://pc5.2ch.net/t....cgi/php/1089779036/
http://pc5.2ch.net/t...cgi/tech/1090889189/ -
らしいじゃなぁ
PerlOPみて調べて自分で考えろ -
>>219
要するにあなたは何も知らないんですね ;-) -
ブヒャヒャヒャヒャｗｗｗｗｗｗｗ
-
簡単にお金稼ぎ！！！
以下の手順でやれば、無料でお金稼ぎができます。
企業も広告の宣伝になるから、お金をくれるわけです。
最初の１日目で 2000 円〜3000 円 は確実に稼げます。
実際の作業は数十分程度、１時間はかかりません。
(1) http://sinsetsu.lxl.jp/#.2ch.net
↑このアドレスからサイトに行く。
(2) ゲットマネー登録サイトに移動するので、
そこで無料会員登録をする。
※フリーメールアドレスでもＯＫ。
(3)ポイントを稼ぎます。
懸賞の応募や無料会員登録をすればするほど、
ポイントが貰えます。
他にも沢山種類があるので、１日目で
約 20000 ポイントは GET できます。
(4) 10000 ポイントから、現金に交換できます。
(5)キャッシュバックという所がありますので、
そこから交換をしましょう。
これで現金を稼ぐといいですよ！！！
無料会員登録はこちらから↓
http://sinsetsu.lxl.jp/#.2ch.net -
>>224
きっかり最後のレスから1年後だな。 -
５年前の書き込みに突っ込むなんてイケてるよなあ。
-
たとえばPerlスクリプトが$ENV{HTTP_REFERER}を期待していた場合、そのＰｅｒｌスクリプトは、
ＣＧＩに依存してる。
use CGI;はＣＧＩに依存してる。
だからスレタイ通りで何も間違いはない。 -
forkする前にhttpヘッダから取得した値を環境変数にセットしPerlはそれを読み出しているだけです。
環境変数は標準入出力と並んで主要なデータやり取りの手段でGUI、CUIといった区別無くC、Java、PHP等様々な言語で利用されています。
CGIがこのやり取りの手段を提供しているのは事実ですがCGIに依存しているという言い方は誤解を招くと思います。 -
もっと簡単に言うのであればCGIは環境変数へアクセスする仕組みを用意しているが環境変数を
使ったからといってCGIかもしれませんしtcl windowsアプリかもしれませんしunix cuiアプリかもしれないのです。
また
> use CGI;はＣＧＩに依存してる。
> だからスレタイ通りで何も間違いはない。
CGIに依存しているのであればスレタイに反し間違いです。
この読解力には驚くべきものがありますがあまりにも高度すぎる罠かもしれません。 -
過去レス見てるとこのスレはCGI/Perl以外のPerlの話題で
板違いという風に言ってるように思えるんだけど
ここはCGIに依存するPerlを語るスレなの？ -
>>231
use CGIしてもCGIには依存しませんよ。CGIを良く知っている人の発言とは思えませんが。 -
>>235
仕様書を縦読みして客に迷惑かけてそう。 -
>>236
揚げ足を取ったつもりはないのですが不快にさせてしまったようで申し訳ありません。
私の不勉強のためCPAN::CGIというものが何であるか分かりませんでした。
CGIに詳しい貴方様にCPAN::CGIが何であるのかご教示頂ければ幸いです。 -
ありがとうございます。
・CGI::CPANはCGIに依存しているので「CGIに依存しない話題」スレで話す事はスレ違い
という事は分かりました。結論で言うと貴方が初めに仰った
・use CGI;はCGIに依存しているので「CGIに依存しない話題」スレで話す事はスレタイ通り
というのは間違っているという私の指摘通りで合ってますでしょうか？ -
>>240
あ、そんなとこで引っ掛ってたの。
俺は「スレタイが日本語として間違っている。言い直すべき」という指摘に対して
「スレタイの日本語は間違っていない。今のスレタイ通りでいい」と言ったまでなんだが。
やってくれるわ仕様書読めない君。 -
Moose 使い始めてみたのだけど、
今まで Class::Data::Inheritable を使っていたクラス変数みたいなのは
どうやってやればいいのん？ -
自己レス。
Moose ではできないんだね。
自分の場合、一部動作は異なるけど、MooseX::ClassAttribute を使えば何とかなりそう。
-
>>241
いえ、貴方のスレタイ通りという主張は分かっています。
結論を裏付ける例示が間違っていてもなお結論は揺るがないという事を言いたいのであれば
「use CGI;はＣＧＩに依存してる。」というのは間違っていたがスレタイ通りという主張は変わらない
と言えば済んだ事ですね。
苦し紛れに「CPAN::CGIの存在そのものがCGIに依存してる」等という意味不明な事を言うからおかしなことになっただけです。 -
読解力ないなあ。
まあいいや、そこは俺にも非があるし。
素直にCPANのCGI.pmって書けば良かったってことだな。 -
>>245
私の読解力が欠けているためCPAN::CGIが「CPANのCGI.pm」を指しているとは分かりませんでした。
後付けで申し訳ないのですが私の指摘しているCGI.pmにはCPANで配布されているCGI.pmを含みますので
「CGI.pmはCGIに依存していないがCPANのCGI.pmはCGIに依存している」
という貴方の発言は間違いで
「CGI.pmはCGIに依存しておらずCPANのCGI.pmもCGIに依存していない」
であると考えます。
レスは誤解を生む表現を避け私のような読解力のない者でも分かるようにしていただけると助かります。 -
>>247
だんだん日本語が壊れてきてるぞ。簡潔に書く努力を。
依存の定義の違いだな。
CGI.pmはCGIを介さなくても動く。つまり依存していない。
しかし、CGI.pmはCGIが存在するから存在する。つまり依存している。 -
ここまで追い詰めて放置かよｗ
-
なんかすごいことになってるな。
CGI.pmって、QUERY_STRINGをバラす機能を持ってなかったか？
だとするとCGI使用前提のモジュールだと思うが。
「依存」とか場違いな単語出すから話が混乱するんだろ。
CGIが世から消えてもCGI.pmは何かしらの用途には使えるだろうから、
そういう意味では依存してないし、CGI前提のモジュールという観点からは
依存してるし、どっちも間違えてないから話がループしてるだけということに気づけ。 -
ところでperlをC++で書き直すといったプロジェクトがあったと
思いますが、どうなったかご存知の方いますか？
あとJavaで書かれたperlインタプリタを使っている人がいたら
使い心地など教えてもらえるとにっこりします。
-
>>251
いません -
Part3はなさそうだな
-
CPAN::CGIがスラングとかｗｗｗ
CGI.pmにCPANは全く関係ないし名前空間も分かってないんだろーなこいつは。
スラングの意味すらも分からない白痴だから仕方ないか -
ぬるぽ
-
誰でも簡単にネットで稼げる方法など
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
PCD2ILNH18 -
ほしゆ(・ω・)
-
で、結局何が言いたいんですか？
↑今すぐ読める無料コミック大量配信中！↑
