CGIに依存しないPerlの話題一般/Part2

**nobodyさん** · 02/08/29 00:30

そんなスレ

**nobodyさん** · 03/02/18 15:14

3つ目の選択肢。
・気がついていて言わないのか？

**nobodyさん** · 03/02/18 15:16

なんでPerlのスレなのに逆の意味になるんだYO アフォ

**nobodyさん** · 03/02/18 18:39

CGIに依存しない、Perlの話題。これでわからないか?

**nobodyさん** · 03/02/18 19:22

>>168はPerlをCGI専用の言語だと思ってるのかな？

**nobodyさん** · 03/02/18 19:38

ＣＧＩってのはライブラリか何かだと？

**nobodyさん** · 03/02/18 22:39

一般と書いたら、一般にしないといけないそうです。

**nobodyさん** · 03/02/19 09:32

やっぱ話題のレベルが下がると俄然伸びるなぁ。

**山崎渉** · 03/03/13 17:14

（＾＾）

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

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で書いてます。

**マリモーマ** ◆r6PDGT6Xd2 · 03/03/31 05:02

>>177
そりゃ　両方成り立ってるからでは？

**nobodyさん** · 03/03/31 05:11

まあひとつ言えることはおそらく板違いだということ。
プログラム技術板にPerlスレあるだろ。
WebProgに依存しないと言ったら確実に板違いだな。

**nobodyさん** · 03/03/31 08:59

>>179

Perl・CGI／レンタルサーバ板からPerl・CGIがPHP板に移動してきて出来たのがWebProg板なので板違いではありません

4 · 03/03/31 16:29

>>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とでる？

**nobodyさん** · 03/03/31 19:18

>>179
177が板違いなのは間違いないがスレ自体が板違いの可能性大

スレタイの日本語からしておかしいが
WebProg版のスレなのだからPerlに依存しないCGI一般の話題と解釈するのが普通

100歩譲ってCGIに限定しないPerlの話題一般と解釈するならばこのスレ自体が板違い

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

>>182

昔からPerlはプログラム板とは独立してレン鯖板にあって、
それがココに移ってきたから板違いじゃない。

新参者は出て行けと言うつもりはないが、昔からの慣習を無知のまま勝手な事言うのは勘弁。

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

>>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がわからないです。

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

>>184件のスクリプトをテストしてみたが
スクリプトの漢字コードeucで保存してる？
スクリプトの漢字コードが
Jisなら1だけ
Shift-Jisなら1,2
EUC-JPなら1,2,3
が出力されておるのだが・・・

\xa4\xa2 はEUC-JPのコードだからSJIS JISでまっちしないというのはりかいできるだろうけど
Jisならば KI KOが入るから　\Qあ\E　のパターンマッチは失敗してるってかんじでないかい？

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

てめえらperlのコンパイル手順について詳しく、超詳しく書いてあるサイト教えやがれ。
日本語のな。

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

>>186
自分で出来ねーんだったらエラそーにすんな
大体OSもいわねーのに手順も糞もあるかボケ

4 · 03/04/04 02:36

>>186
$ perlcc foo.pl

話題にのって質問。
perlを無料でwindowsのexeにコンパイルできないだろうか?
贅沢言うとTk.pmも使いたいのですが。
ActivePerlのperlccは単体では使えないもよう。

**184** · 03/04/04 02:39

>>185
下のスクリプトから123が出てくるのは期待通りなんですが，
上から1しかでてこないのが理解不能なんです。

use encodingの使い方間違ってる？

**251** · 03/04/04 02:42

>>188
perl2exe
ttp://www.indigostar.com/perl2exe.htm
がexeにできるけどシェアウェアか・・・
どうせおもちゃだし・・・

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

>>189
encodingプラグマを理解していないんじゃない？
>>185で回答してもらっているでしょ

なんのためにencoding使おうとしている？

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

>>183

だから、それならプログラム版に移ればよかっただけの話だろ

大量の２ｃｈ系掲示板郡が散在していて、
それぞれの掲示板がそれぞれの流儀でカテゴライズするのはかまわないが
板が増えてくれば、それなりにカテゴライズされた法則にしたがって運用しなけりゃ
ただのごみため場と化すのが自然の理

別鯖の板をどこかに移動するなら移動先のカテゴライズにしたがわなきゃダメだろ

移動するときプログラム版が許容量いっぱいで無理だったとかか？
それなら、移動する時期を誤ったか　無理せずもとの場所で存続するか
元の場所が閉鎖せざるを得ないとかの問題があったなら、ここ以外の他の場所探せばよかっただけだろ？

少なくとも、移ってきたから板違いじゃないっていうのは見当違い

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

>>192

よーするにだ。後から出てきて勝手な講釈たれんなﾎﾞｹナス。

そー言う事。

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

よーするにだ。最初からあったこのスレの内容がﾜｹﾜｶ。

そー言う事。

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

WebProgだけ別にした管理者が馬鹿。

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

それだけWebプログラム関連の負荷が大きかったって事だろ

まぁ、板作るなら WebProgじゃなく NetProg だろ・・とは思うけどな

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

だってム板にたてたらおっぱらわれるじゃん…

**デフォルトの名無しさん** · 03/04/08 10:41

もうるびキティいなくなったから大丈夫だよ。

**nobodyさん** · 03/10/31 01:47

テストかきこ

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

随分落ちてるなage

**nobodyさん** · 03/11/06 23:56

perlのパイプってのは非同期なのでしょうか？

b.pl　　　　　　　　　---------------------------------処理終了
|パイプ開始　　|パイプクローズ
a.pl-----------------------------処理終了

パイプでデータを一通り渡し終えた後、b.plの処理が終わる前にa.plが死んでも問題ないでしょうか？
また、b.plが終了するまでa.plのパイプクローズがブロッキングされたりはしないのでしょうか？

答えてもらえたら前代未聞の2ch閲覧環境の開発を開始します。

**nobodyさん** · 03/11/07 12:29

そりゃあ前代未聞だ

**nobodyさん** · 03/11/08 22:34

>>201
確かに前代未聞だ。
答え。やってみれば良い。理論上は、close処理をしっかりすれば動作するはずだが。

**nobodyさん** · 03/11/08 23:12

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){}

なスクリプトにパイプでデータ送ったら見事にブロックしてくれやがりました。
開発中止。

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

普通は同期を想定しているパイプで*パイプを同期で扱うスクリプト*を使って試せば、それは*同期な結果*しか帰って来ないだろう、頭悪い。
非ブロッキングにしたかったらちゃんとおぷちょん書きなさい。

**nobodyさん** · 03/12/15 06:33

>>205
> 普通は

普通でない場合について詳しく教えてください。

**nobodyさん** · 03/12/15 22:28

>>205
一ヶ月前のレスを煽ってるのも大概だと思われ。

**nobodyさん** · 03/12/17 12:28

あれれ、5.8.2が出たのか
めんどくさいなあ

**nobodyさん** · 04/05/20 13:10

perl 5.005 を使っていますが、
このような古い環境で UTF-8 → Shift JIS (EUC でも可) の
変換方法がありましたらお教え願えますか?

**nobodyさん** · 04/05/20 13:57

>>209
http://search.cpan.org/~dankogai/Jcode-0.83/
http://openlab.ring.gr.jp/Jcode/index-j.html
http://pc5.2ch.net/test/read.cgi/php/1081148490/
http://pc5.2ch.net/test/read.cgi/tech/1079114157/

**209** · 04/05/20 14:07

>>210
jcode.pl の方ばかりを気にしていたので.pm の方をすっかり失念していました。
スレ汚しすいませんでした。

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

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と実装できますか？
できるのでしたらどのように実装するのでしょうか？

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

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.org/~gsar/Alias-2.32/Alias.pm

どっちにしてもあまりメリットは感じないが。

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

sub new
{
　my $pkg = shift;
　bless
　{
　　name => shift,
　　age => shift
　　equips => undef
　}, $pkg;
}

ここでequipsを配列にしたいのですが、
そのような事は可能でしょうか？
push($self->{equips}, $object);
$self->{equips}->[1]->getEffect();

($objectは別のクラスオブジェクトでgetEffectはそのメソッド)
みたいな感じで使いたいのですが。

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

equips を配列へのリファレンスにすることならできる

sub new
{
　my $pkg = shift;
　bless
　{
　　name => shift,
　　age => shift,
　　equips => []
　}, $pkg;
}

としておいて

push(@{$self->{equips}}, $object);
$self->{equips}->[1]->getEffect();

**nobodyさん** · 04/08/09 19:13

巷のスクリプトを見るとPerlでサブルーチンにプロトタイプ宣言を行っていない
ものがほとんどなのですが、なぜプロトタイプ宣言を行っていないのでしょうか？
プロトタイプ宣言を行うと低速化したりという弊害等があるのでしょうか？

sub func($$@)　#プロトタイプ宣言あり
sub func　　　　　#プロトタイプ宣言無し

**nobodyさん** · 04/08/09 20:38

>>216
反対に、宣言しなくてもいいのにわざわざ宣言するメリットって何?
その「巷のスクリプト」とやらはサブルーチン呼び出すのに &
つけてたり、メソッドとして呼び出してたりしてないか?

あと Perl 関係のメインスレは以下なので以後はそちらに。
http://pc5.2ch.net/test/read.cgi/php/1089779036/
http://pc5.2ch.net/test/read.cgi/tech/1090889189/

**nobodyさん** · 04/08/09 21:35

>>217
コンパイルタイムの型チェックと最適化がされるらしいので、
より効率的でより安全だと思うのですが。

**nobodyさん** · 04/08/20 07:16

らしいじゃなぁ
PerlOPみて調べて自分で考えろ

**nobodyさん** · 04/08/31 01:56

>>219
要するにあなたは何も知らないんですね ;-)

**山崎渉** ◆hG4XfSMGTg · 2006/02/17(金) 13:07:09

ブヒャヒャヒャヒャｗｗｗｗｗｗｗ

**nobodyさん** · 2007/02/10(土) 21:36:53

簡単にお金稼ぎ！！！

以下の手順でやれば、無料でお金稼ぎができます。
企業も広告の宣伝になるから、お金をくれるわけです。
最初の１日目で 2000 円～3000 円は確実に稼げます。
実際の作業は数十分程度、１時間はかかりません。

(1) http://sinsetsu.lxl.jp/#.2ch.net
　　↑このアドレスからサイトに行く。
(2) ゲットマネー登録サイトに移動するので、
　そこで無料会員登録をする。
　※フリーメールアドレスでもＯＫ。
(3)ポイントを稼ぎます。
　懸賞の応募や無料会員登録をすればするほど、
　ポイントが貰えます。
　他にも沢山種類があるので、１日目で
　約 20000 ポイントは GET できます。
(4) 10000 ポイントから、現金に交換できます。
(5)キャッシュバックという所がありますので、
　そこから交換をしましょう。

これで現金を稼ぐといいですよ！！！

無料会員登録はこちらから↓
http://sinsetsu.lxl.jp/#.2ch.net

**nobodyさん** · 2007/03/23(金) 07:33:44

>>168
お前頭悪いなｗｗｗ
ばああああああああああああああああああああかｗｗｗｗｗｗｗｗｗｗｗｗ
死ねクズｗｗ

**nobodyさん** · 2008/03/23(日) 14:02:54

>>168
どっちかっつ～と「CGIに特化しないPerlの話題一般」だな
突っ込んどいて間違えてるお前はマヌケ

**nobodyさん** · 2008/10/15(水) 15:20:02

>>224
きっかり最後のレスから1年後だな。

**nobodyさん** · 2008/11/14(金) 22:28:04

５年前の書き込みに突っ込むなんてイケてるよなあ。

**nobodyさん** · 2008/11/15(土) 17:16:00

たとえばPerlスクリプトが$ENV{HTTP_REFERER}を期待していた場合、そのＰｅｒｌスクリプトは、
ＣＧＩに依存してる。

use CGI;はＣＧＩに依存してる。

だからスレタイ通りで何も間違いはない。

**nobodyさん** · 2008/11/16(日) 03:11:38

forkする前にhttpヘッダから取得した値を環境変数にセットしPerlはそれを読み出しているだけです。
環境変数は標準入出力と並んで主要なデータやり取りの手段でGUI、CUIといった区別無くC、Java、PHP等様々な言語で利用されています。
CGIがこのやり取りの手段を提供しているのは事実ですがCGIに依存しているという言い方は誤解を招くと思います。

**nobodyさん** · 2008/11/16(日) 14:12:20

>>228
最初の2行と最後の1行が全然繋がらないな。
CGIに依存したPerlに関する話題なんていくらでもあるだろ。

**nobodyさん** · 2008/11/17(月) 01:13:46

もっと簡単に言うのであればCGIは環境変数へアクセスする仕組みを用意しているが環境変数を
使ったからといってCGIかもしれませんしtcl windowsアプリかもしれませんしunix cuiアプリかもしれないのです。
また
> use CGI;はＣＧＩに依存してる。
> だからスレタイ通りで何も間違いはない。
CGIに依存しているのであればスレタイに反し間違いです。
この読解力には驚くべきものがありますがあまりにも高度すぎる罠かもしれません。

**nobodyさん** · 2008/11/17(月) 03:50:32

>>230
いや、CGI:が何かはいや過ぎるほど知っているのだが。別に知識披露しなくていいよ。

「スレタイが間違ってる」という指摘に対し「何も間違ってない」と答えたまで。

**nobodyさん** · 2008/11/17(月) 05:48:59

>>230
凄いコミュニケーション能力ですね。
仕様書読めてますか？

**nobodyさん** · 2008/11/17(月) 07:01:06

>>232
自分の知識をひけらかして相手を圧倒することで、
コミュニケーション能力の欠如を補うタイプだね。
そんな中途半端なCGI豆知識いらんっつの。

つーかさ、>>228、forkする前セットしたら親もセットされたままになるだろ。
forkの後、execの前が正しいんじゃないか？
あと当時はコマンドライン引数も主要なデータやりとりの手段だったんだぜ。

**nobodyさん** · 2008/11/17(月) 17:40:35

過去レス見てるとこのスレはCGI/Perl以外のPerlの話題で
板違いという風に言ってるように思えるんだけど
ここはCGIに依存するPerlを語るスレなの？

**nobodyさん** · 2008/11/18(火) 19:37:05

>>231
use CGIしてもCGIには依存しませんよ。CGIを良く知っている人の発言とは思えませんが。

**nobodyさん** · 2008/11/19(水) 07:45:25

>>235
当たり前だろ。禅問答かよ。CPAN::CGIの存在そのものがCGIに依存してるんだよ。
それで揚げ足取ったつもりかｗ

**nobodyさん** · 2008/11/19(水) 11:33:48

>>235
仕様書を縦読みして客に迷惑かけてそう。

**nobodyさん** · 2008/11/19(水) 22:56:05

>>236
揚げ足を取ったつもりはないのですが不快にさせてしまったようで申し訳ありません。
私の不勉強のためCPAN::CGIというものが何であるか分かりませんでした。
CGIに詳しい貴方様にCPAN::CGIが何であるのかご教示頂ければ幸いです。

**nobodyさん** · 2008/11/20(木) 05:59:48

>>238
そんなもん実在しない。スラング。
で、CPAN::CGIの話が思いっきりｽﾚﾁになることが
分かってないな君はｗ

さすが仕様書読めない君。

**nobodyさん** · 2008/11/20(木) 10:04:58

ありがとうございます。
・CGI::CPANはCGIに依存しているので「CGIに依存しない話題」スレで話す事はスレ違い
という事は分かりました。結論で言うと貴方が初めに仰った
・use CGI;はCGIに依存しているので「CGIに依存しない話題」スレで話す事はスレタイ通り
というのは間違っているという私の指摘通りで合ってますでしょうか？

**nobodyさん** · 2008/11/20(木) 10:34:38

>>240
あ、そんなとこで引っ掛ってたの。

俺は「スレタイが日本語として間違っている。言い直すべき」という指摘に対して
「スレタイの日本語は間違っていない。今のスレタイ通りでいい」と言ったまでなんだが。

やってくれるわ仕様書読めない君。

**nobodyさん** · 2008/11/20(木) 16:03:54

Moose 使い始めてみたのだけど、
今まで Class::Data::Inheritable を使っていたクラス変数みたいなのは
どうやってやればいいのん？

**242** · 2008/11/20(木) 16:44:25

自己レス。
Moose ではできないんだね。
自分の場合、一部動作は異なるけど、MooseX::ClassAttribute を使えば何とかなりそう。

**nobodyさん** · 2008/11/21(金) 07:50:35

>>241
いえ、貴方のスレタイ通りという主張は分かっています。
結論を裏付ける例示が間違っていてもなお結論は揺るがないという事を言いたいのであれば
「use CGI;はＣＧＩに依存してる。」というのは間違っていたがスレタイ通りという主張は変わらない
と言えば済んだ事ですね。
苦し紛れに「CPAN::CGIの存在そのものがCGIに依存してる」等という意味不明な事を言うからおかしなことになっただけです。

**nobodyさん** · 2008/11/21(金) 10:52:20

読解力ないなあ。
まあいいや、そこは俺にも非があるし。
素直にCPANのCGI.pmって書けば良かったってことだな。

**nobodyさん** · 2008/11/21(金) 10:54:56

どうでもいいけど、>>233で恥かいたから取り戻したくて必死なのは
お見通しだよ。

ロジックの根本的な勘違いをたかが文言の解釈の問題で誤魔化そう
なんて虫が良すぎるんじゃない？

**nobodyさん** · 2008/11/21(金) 16:14:59

>>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に依存していない」
であると考えます。
レスは誤解を生む表現を避け私のような読解力のない者でも分かるようにしていただけると助かります。

**nobodyさん** · 2008/11/21(金) 17:53:48

>>247
だんだん日本語が壊れてきてるぞ。簡潔に書く努力を。
依存の定義の違いだな。
CGI.pmはCGIを介さなくても動く。つまり依存していない。
しかし、CGI.pmはCGIが存在するから存在する。つまり依存している。

**nobodyさん** · 2009/05/04(月) 05:08:41

ここまで追い詰めて放置かよｗ

**nobodyさん** · 2009/12/30(水) 10:40:08

なんかすごいことになってるな。

CGI.pmって、QUERY_STRINGをバラす機能を持ってなかったか？
だとするとCGI使用前提のモジュールだと思うが。

「依存」とか場違いな単語出すから話が混乱するんだろ。
CGIが世から消えてもCGI.pmは何かしらの用途には使えるだろうから、
そういう意味では依存してないし、CGI前提のモジュールという観点からは
依存してるし、どっちも間違えてないから話がループしてるだけということに気づけ。

**nobodyさん** · 2010/03/20(土) 22:43:10

ところでperlをC++で書き直すといったプロジェクトがあったと
思いますが、どうなったかご存知の方いますか？

あとJavaで書かれたperlインタプリタを使っている人がいたら
使い心地など教えてもらえるとにっこりします。

**nobody** · 2010/10/07(木) 01:02:59

>>251
いません

?PLT(12079) · 2012/11/23(金) 12:36:16.32

Part3はなさそうだな

**nobodyさん** · 2013/05/02(木) 01:11:54.47

CPAN::CGIがスラングとかｗｗｗ
CGI.pmにCPANは全く関係ないし名前空間も分かってないんだろーなこいつは。
スラングの意味すらも分からない白痴だから仕方ないか

**nobodyさん** · 2014/12/14(日) 00:34:24.57

ぬるぽ

**nobodyさん** · 2017/12/30(土) 12:54:59.53

誰でも簡単にネットで稼げる方法など
参考までに、
⇒　『半藤のブブイウイウレレ』というサイトで見ることができます。

グーグル検索⇒『半藤のブブイウイウレレ』

PCD2ILNH18

**nobodyさん** · 2022/03/27(日) 20:52:58.37

ほしゆ(・ω・)

**nobodyさん** · 2023/08/16(水) 09:14:54.51

で、結局何が言いたいんですか？