CGIに依存しないPerlの話題一般/Part2 (258ﾚｽ)
上下前次1-新
203: 03/11/08 22:34 ID:??? AAS
>>201
確かに前代未聞だ。
答え。やってみれば良い。理論上は、close処理をしっかりすれば動作するはずだが。
204: 03/11/08 23:12 ID:U/fdC1Uy(1) AAS
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(2): 03/12/15 05:04 ID:Scf5jbcR(1) AAS
普通は同期を想定しているパイプで*パイプを同期で扱うスクリプト*を使って試せば、それは*同期な結果*しか帰って来ないだろう、頭悪い。
非ブロッキングにしたかったらちゃんとおぷちょん書きなさい。
206: 03/12/15 06:33 ID:??? AAS
>>205
> 普通は
普通でない場合について詳しく教えてください。
207: 03/12/15 22:28 ID:qGs1Vqs+(1) AAS
>>205
一ヶ月前のレスを煽ってるのも大概だと思われ。
208: 03/12/17 12:28 ID:??? AAS
あれれ、5.8.2が出たのか
めんどくさいなあ
209(2): 04/05/20 13:10 ID:??? AAS
perl 5.005 を使っていますが、
このような古い環境で UTF-8 → Shift JIS (EUC でも可) の
変換方法がありましたらお教え願えますか?
210(1): 04/05/20 13:57 ID:??? AAS
>>209
外部ﾘﾝｸ:search.cpan.org
外部ﾘﾝｸ[html]:openlab.ring.gr.jp
2chｽﾚ:php
2chｽﾚ:tech
211: 209 04/05/20 14:07 ID:??? AAS
>>210
jcode.pl の方ばかりを気にしていたので.pm の方をすっかり失念していました。
スレ汚しすいませんでした。
212: 04/05/26 11:48 ID:3xdgk57n(1) AAS
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と実装できますか？
できるのでしたらどのように実装するのでしょうか？
213: 04/05/26 17:14 ID:??? AAS
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とかな。
外部ﾘﾝｸ[pm]:search.cpan.org
どっちにしてもあまりメリットは感じないが。
214: 04/08/08 10:03 ID:Ejd6WZ6r(1) AAS
sub new
{
my $pkg = shift;
bless
{
name => shift,
age => shift
equips => undef
}, $pkg;
}
ここでequipsを配列にしたいのですが、
そのような事は可能でしょうか？
push($self->{equips}, $object);
$self->{equips}->[1]->getEffect();
($objectは別のクラスオブジェクトでgetEffectはそのメソッド)
みたいな感じで使いたいのですが。
215: 04/08/08 13:06 ID:??? AAS
equips を配列へのリファレンスにすることならできる
sub new
{
my $pkg = shift;
bless
{
name => shift,
age => shift,
equips => []
}, $pkg;
}
としておいて
push(@{$self->{equips}}, $object);
$self->{equips}->[1]->getEffect();
216(1): 04/08/09 19:13 ID:??? AAS
巷のスクリプトを見るとPerlでサブルーチンにプロトタイプ宣言を行っていない
ものがほとんどなのですが、なぜプロトタイプ宣言を行っていないのでしょうか？
プロトタイプ宣言を行うと低速化したりという弊害等があるのでしょうか？
sub func($$@) #プロトタイプ宣言あり
sub func #プロトタイプ宣言無し
217(1): 04/08/09 20:38 ID:??? AAS
>>216
反対に、宣言しなくてもいいのにわざわざ宣言するメリットって何?
その「巷のスクリプト」とやらはサブルーチン呼び出すのに &
つけてたり、メソッドとして呼び出してたりしてないか?
あと Perl 関係のメインスレは以下なので以後はそちらに。
2chｽﾚ:php
2chｽﾚ:tech
218: 04/08/09 21:35 ID:??? AAS
>>217
コンパイルタイムの型チェックと最適化がされるらしいので、
より効率的でより安全だと思うのですが。
219(1): 04/08/20 07:16 ID:??? AAS
らしいじゃなぁ
PerlOPみて調べて自分で考えろ
220: 04/08/31 01:56 ID:??? AAS
>>219
要するにあなたは何も知らないんですね ;-)
221: 山崎 渉 ◆hG4XfSMGTg 2006/02/17(金)13:07 ID:??? AAS
ブヒャヒャヒャヒャｗｗｗｗｗｗｗ
222: 2007/02/10(土)21:36 ID:??? AAS
簡単にお金稼ぎ！！！
以下の手順でやれば、無料でお金稼ぎができます。
企業も広告の宣伝になるから、お金をくれるわけです。
最初の１日目で 2000 円〜3000 円 は確実に稼げます。
実際の作業は数十分程度、１時間はかかりません。
(1) 外部ﾘﾝｸ[net]:sinsetsu.lxl.jp
↑このアドレスからサイトに行く。
(2) ゲットマネー登録サイトに移動するので、
そこで無料会員登録をする。
※フリーメールアドレスでもＯＫ。
(3)ポイントを稼ぎます。
懸賞の応募や無料会員登録をすればするほど、
ポイントが貰えます。
他にも沢山種類があるので、１日目で
約 20000 ポイントは GET できます。
(4) 10000 ポイントから、現金に交換できます。
(5)キャッシュバックという所がありますので、
そこから交換をしましょう。
これで現金を稼ぐといいですよ！！！
無料会員登録はこちらから↓
外部ﾘﾝｸ[net]:sinsetsu.lxl.jp
223: 2007/03/23(金)07:33 ID:??? AAS
>>168
お前頭悪いなｗｗｗ
ばああああああああああああああああああああかｗｗｗｗｗｗｗｗｗｗｗｗ
死ねクズｗｗ
224(1): 2008/03/23(日)14:02 ID:TJvGuwYX(1) AAS
>>168
どっちかっつ〜と「CGIに特化しないPerlの話題一般」だな
突っ込んどいて間違えてるお前はマヌケ
225: 2008/10/15(水)15:20 ID:??? AAS
>>224
きっかり最後のレスから1年後だな。
226: 2008/11/14(金)22:28 ID:SnXSZwdH(1) AAS
５年前の書き込みに突っ込むなんてイケてるよなあ。
227: 2008/11/15(土)17:16 ID:??? AAS
たとえばPerlスクリプトが$ENV{HTTP_REFERER}を期待していた場合、そのＰｅｒｌスクリプトは、
ＣＧＩに依存してる。
use CGI;はＣＧＩに依存してる。
だからスレタイ通りで何も間違いはない。
228(2): 2008/11/16(日)03:11 ID:??? AAS
forkする前にhttpヘッダから取得した値を環境変数にセットしPerlはそれを読み出しているだけです。
環境変数は標準入出力と並んで主要なデータやり取りの手段でGUI、CUIといった区別無くC、Java、PHP等様々な言語で利用されています。
CGIがこのやり取りの手段を提供しているのは事実ですがCGIに依存しているという言い方は誤解を招くと思います。
229: 2008/11/16(日)14:12 ID:??? AAS
>>228
最初の2行と最後の1行が全然繋がらないな。
CGIに依存したPerlに関する話題なんていくらでもあるだろ。
230(2): 2008/11/17(月)01:13 ID:??? AAS
もっと簡単に言うのであればCGIは環境変数へアクセスする仕組みを用意しているが環境変数を
使ったからといってCGIかもしれませんしtcl windowsアプリかもしれませんしunix cuiアプリかもしれないのです。
また
> use CGI;はＣＧＩに依存してる。
> だからスレタイ通りで何も間違いはない。
CGIに依存しているのであればスレタイに反し間違いです。
この読解力には驚くべきものがありますがあまりにも高度すぎる罠かもしれません。
231(1): 2008/11/17(月)03:50 ID:??? AAS
>>230
いや、CGI:が何かはいや過ぎるほど知っているのだが。別に知識披露しなくていいよ。
「スレタイが間違ってる」という指摘に対し「何も間違ってない」と答えたまで。
232(1): 2008/11/17(月)05:48 ID:??? AAS
>>230
凄いコミュニケーション能力ですね。
仕様書読めてますか？
上下前次1-新書関写板覧索設栞歴
あと 26 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.019s