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

1 名前：nobodyさん [02/08/29 00:30 ID:IO82UwTT] そんなスレ 159 名前：(･∀･)p mailto:(･∀･) [03/01/05 16:54 ID:???] WINでDOS窓消して、バックグラウンドで実行する方法って無いでつか？ WHSよりPERLの方が使い慣れてるので･･･ 160 名前： ◆hMJAPH9PWA mailto:sage [03/01/05 19:16 ID:???] >>158 用途が違うのでいいとか悪いとかは無いよ。 やりたい事が実現できるのならどっちでもいいと思う。 >>159 wperl script.pl で。 ただしSTDERRの出力先は開けといた方がいいかも。 161 名前：(♥・∀・） mailto:sage [03/01/05 20:21 ID:???] おおー　　有難う御座います　>>◆hMJAPH9PWA さま wperl(とVER付きの実行ファイル)は自分でも何となく試したのですが、パスの指定が間違えて居た様です。 拡張子を関連付けたら上手く行きますた STDERRは適当にリダイレクトして使いたいと思います。 侍のVBSを色々弄ってるんですが、文字列の扱いに辟易してたんです これで正規表現パワー炸裂できます やっぱりPERLはｲｲ(･∀･)!! 多謝!! 162 名前：nobodyさん mailto:sage [03/01/08 01:05 ID:???] >>153 Netscape enterprise server ならNSAPIでPerl組み込めばイイじゃん。 search.cpan.org/author/BSUGARS/nsapi_perl-0.24/ Netscape::Registry とか色々あるよ。 163 名前：nobodyさん mailto:sage [03/01/08 01:08 ID:???] >>158 ぃえす。pack()/unpack()で気持ち良くなれます。 ただ32bit以上の大きめな桁で論理演算しようとすると悲しいことが起こるので、 そーいうときは分割して処理するかMath::BigIntをつかうかXSで書くとよろし。 164 名前：158 mailto:sage [03/01/08 23:50 ID:???] >>160 >>163 仕事が忙しくて来れませんですた。。 レスさんきぅです。やぱしpack、unpackがラクでいいですね。 それと、話ついでの質問で恐縮ですが、 時刻合わせのためにNTPサーバに接続して タイムスタンプを取得しますよね。 そんで自分のPCをサーバに同期させる、 というようなプログラムを作ってるんですが、 DOSに取得した時刻を渡すことってできるんでしょうか？ 自PCがWinXPなので system("C:\windows\cmd.exe"); でDOSを開くところまでは行ったんですがそのあとが分かりません。。 pack、unpackと全く関係ない質問で申し訳ないですが(;´д`)A 165 名前：nobodyさん [03/01/10 11:50 ID:deTFlKvI] 腐れﾏｶｰのみんな、CamelBonesで、Perl + Cocoaしよう。 RealBASICが買えないチミにおすすめですよ。 sourceforge.net/projects/camelbones/ 166 名前：山崎渉 mailto:（＾＾）sage [03/01/15 13:34 ID:???] （＾＾） 167 名前：nobodyさん [03/02/17 16:45 ID:sH+lSeTa] Delegateでない、普通の串をPerlで作りたいんですが、無理ですか？ Proxomitronに限界を感じる… 168 名前：nobodyさん [03/02/18 13:07 ID:AzMunH4n] みんな気がついてないのか？ 気がついていていえないのか？ どうみてもスレタイ日本語変だろ？ Perlに依存しないCGIの話題一般　っていうなら日本語になってるｗ 169 名前：nobodyさん mailto:sage [03/02/18 15:14 ID:???] 3つ目の選択肢。 ・気がついていて言わないのか？ 170 名前：nobodyさん mailto:sage [03/02/18 15:16 ID:???] なんでPerlのスレなのに逆の意味になるんだYO アフォ 171 名前：nobodyさん mailto:sage [03/02/18 18:39 ID:???] CGIに依存しない、Perlの話題。これでわからないか? 172 名前：nobodyさん mailto:sage [03/02/18 19:22 ID:???] >>168はPerlをCGI専用の言語だと思ってるのかな？ 173 名前：nobodyさん mailto:sage [03/02/18 19:38 ID:???] ＣＧＩってのはライブラリか何かだと？ 174 名前：nobodyさん mailto:sage [03/02/18 22:39 ID:???] 一般と書いたら、一般にしないといけないそうです。 175 名前：nobodyさん mailto:sage [03/02/19 09:32 ID:???] やっぱ話題のレベルが下がると俄然伸びるなぁ。 176 名前：山崎渉 mailto:（＾＾） [03/03/13 17:14 ID:???] （＾＾） 177 名前：nobodyさん [03/03/30 18:00 ID:Okt0zbYe] 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で書いてます。 178 名前：マリモーマ ◆r6PDGT6Xd2 [03/03/31 05:02 ID:opWXfh3V] >>177 そりゃ　両方成り立ってるからでは？ 179 名前：nobodyさん mailto:sage [03/03/31 05:11 ID:???] まあひとつ言えることはおそらく板違いだということ。 プログラム技術板にPerlスレあるだろ。 WebProgに依存しないと言ったら確実に板違いだな。 180 名前：nobodyさん mailto:sage [03/03/31 08:59 ID:???] >>179 Perl・CGI／レンタルサーバ板からPerl・CGIがPHP板に移動してきて出来たのがWebProg板なので板違いではありません 181 名前：4 [03/03/31 16:29 ID:i9DdbQyy] >>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とでる？ 182 名前：nobodyさん mailto:sage [03/03/31 19:18 ID:???] >>179 177が板違いなのは間違いないがスレ自体が板違いの可能性大 スレタイの日本語からしておかしいが WebProg版のスレなのだからPerlに依存しないCGI一般の話題と解釈するのが普通 100歩譲ってCGIに限定しないPerlの話題一般 と解釈するならばこのスレ自体が板違い 183 名前：nobodyさん mailto:sage [03/04/03 11:58 ID:???] >>182 昔からPerlはプログラム板とは独立してレン鯖板にあって、 それがココに移ってきたから板違いじゃない。 新参者は出て行けと言うつもりはないが、昔からの慣習を無知のまま勝手な事言うのは勘弁。 184 名前：nobodyさん [03/04/04 00:08 ID:tjlK2qT8] >>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がわからないです。 185 名前：nobodyさん mailto:sage [03/04/04 00:28 ID:???] >>184件のスクリプトをテストしてみたが スクリプトの漢字コードeucで保存してる？ スクリプトの漢字コードが Jisなら1だけ Shift-Jisなら1,2 EUC-JPなら1,2,3 が出力されておるのだが・・・ \xa4\xa2 はEUC-JPのコードだからSJIS JISでまっちしないというのはりかいできるだろうけど Jisならば KI KOが入るから　\Qあ\E　のパターンマッチは失敗してるってかんじでないかい？ 186 名前：nobodyさん [03/04/04 01:00 ID:???] てめえらperlのコンパイル手順について詳しく、超詳しく書いてあるサイト教えやがれ。 日本語のな。 187 名前：nobodyさん mailto:sage　釣りか? [03/04/04 01:14 ID:???] >>186 自分で出来ねーんだったらエラそーにすんな 大体OSもいわねーのに手順も糞もあるかボケ 188 名前：4 [03/04/04 02:36 ID:QX5gDFpX] >>186 $ perlcc foo.pl 話題にのって質問。 perlを無料でwindowsのexeにコンパイルできないだろうか? 贅沢言うとTk.pmも使いたいのですが。 ActivePerlのperlccは単体では使えないもよう。 189 名前：184 [03/04/04 02:39 ID:tjlK2qT8] >>185 下のスクリプトから123が出てくるのは期待通りなんですが， 上から1しかでてこないのが理解不能なんです。 use encodingの使い方間違ってる？ 190 名前：251 mailto:sage [03/04/04 02:42 ID:???] >>188 perl2exe ttp://www.indigostar.com/perl2exe.htm がexeにできるけどシェアウェアか・・・ どうせおもちゃだし・・・ 191 名前：nobodyさん mailto:sage [03/04/04 03:24 ID:???] >>189 encodingプラグマを理解していないんじゃない？ >>185で回答してもらっているでしょ なんのためにencoding使おうとしている？ 192 名前：nobodyさん mailto:sage [03/04/04 04:49 ID:???] >>183 だから、それならプログラム版に移ればよかっただけの話だろ 大量の２ｃｈ系掲示板郡が散在していて、 それぞれの掲示板がそれぞれの流儀でカテゴライズするのはかまわないが 板が増えてくれば、それなりにカテゴライズされた法則にしたがって運用しなけりゃ ただのごみため場と化すのが自然の理 別鯖の板をどこかに移動するなら移動先のカテゴライズにしたがわなきゃダメだろ 移動するときプログラム版が許容量いっぱいで無理だったとかか？ それなら、移動する時期を誤ったか　無理せずもとの場所で存続するか 元の場所が閉鎖せざるを得ないとかの問題があったなら、ここ以外の他の場所探せばよかっただけだろ？ 少なくとも、移ってきたから板違いじゃないっていうのは見当違い 193 名前：nobodyさん mailto:sage [03/04/04 08:53 ID:???] >>192 よーするにだ。後から出てきて勝手な講釈たれんなﾎﾞｹナス。 そー言う事。 194 名前：nobodyさん mailto:sage [03/04/04 13:55 ID:???] よーするにだ。最初からあったこのスレの内容がﾜｹﾜｶ。 そー言う事。 195 名前：nobodyさん mailto:sage [03/04/04 19:33 ID:???] WebProgだけ別にした管理者が馬鹿。 196 名前：nobodyさん mailto:sage [03/04/07 06:35 ID:???] それだけWebプログラム関連の負荷が大きかったって事だろ まぁ、板作るなら WebProgじゃなく NetProg だろ・・とは思うけどな 197 名前：nobodyさん mailto:sage [03/04/08 00:48 ID:???] だってム板にたてたらおっぱらわれるじゃん… 198 名前：デフォルトの名無しさん [03/04/08 10:41 ID:ibnCgWfp] もうるびキティいなくなったから大丈夫だよ。 199 名前：nobodyさん mailto:sage [03/10/31 01:47 ID:???] テストかきこ 200 名前：nobodyさん [03/11/04 16:26 ID:ZhxpP0UW] 随分落ちてるなage 201 名前：nobodyさん [03/11/06 23:56 ID:GvRKtYWY] perlのパイプってのは非同期なのでしょうか？ b.pl　　　　　　　　　---------------------------------処理終了 |パイプ開始　　|パイプクローズ a.pl-----------------------------処理終了 パイプでデータを一通り渡し終えた後、b.plの処理が終わる前にa.plが死んでも問題ないでしょうか？ また、b.plが終了するまでa.plのパイプクローズがブロッキングされたりはしないのでしょうか？ 答えてもらえたら前代未聞の2ch閲覧環境の開発を開始します。 202 名前：nobodyさん mailto:sage [03/11/07 12:29 ID:???] そりゃあ前代未聞だ 203 名前：nobodyさん mailto:sage [03/11/08 22:34 ID:???] >>201 確かに前代未聞だ。 答え。やってみれば良い。理論上は、close処理をしっかりすれば動作するはずだが。 204 名前：nobodyさん [03/11/08 23:12 ID:U/fdC1Uy] 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 名前：nobodyさん [03/12/15 05:04 ID:Scf5jbcR] 普通は同期を想定しているパイプで*パイプを同期で扱うスクリプト*を使って試せば、それは*同期な結果*しか帰って来ないだろう、頭悪い。 非ブロッキングにしたかったらちゃんとおぷちょん書きなさい。 206 名前：nobodyさん mailto:sage [03/12/15 06:33 ID:???] >>205 > 普通は 普通でない場合について詳しく教えてください。 207 名前：nobodyさん [03/12/15 22:28 ID:qGs1Vqs+] >>205 一ヶ月前のレスを煽ってるのも大概だと思われ。 208 名前：nobodyさん mailto:sage [03/12/17 12:28 ID:???] あれれ、5.8.2が出たのか めんどくさいなあ 209 名前：nobodyさん mailto:sage [04/05/20 13:10 ID:???] perl 5.005 を使っていますが、 このような古い環境で UTF-8 → Shift JIS (EUC でも可) の 変換方法がありましたらお教え願えますか? 210 名前：nobodyさん mailto:sage [04/05/20 13:57 ID:???] >>209 search.cpan.org/~dankogai/Jcode-0.83/ openlab.ring.gr.jp/Jcode/index-j.html pc5.2ch.net/test/read.cgi/php/1081148490/ pc5.2ch.net/test/read.cgi/tech/1079114157/ 211 名前：209 mailto:sage [04/05/20 14:07 ID:???] >>210 jcode.pl の方ばかりを気にしていたので.pm の方をすっかり失念していました。 スレ汚しすいませんでした。 212 名前：nobodyさん [04/05/26 11:48 ID:3xdgk57n] 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 名前：nobodyさん mailto:sage [04/05/26 17:14 ID:???] 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とかな。 search.cpan.org/~gsar/Alias-2.32/Alias.pm どっちにしてもあまりメリットは感じないが。 214 名前：nobodyさん [04/08/08 10:03 ID:Ejd6WZ6r] 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 名前：nobodyさん mailto:sage [04/08/08 13:06 ID:???] equips を配列へのリファレンスにすることならできる sub new { 　my $pkg = shift; 　bless 　{ 　　name => shift, 　　age => shift, 　　equips => [] 　}, $pkg; } としておいて push(@{$self->{equips}}, $object); $self->{equips}->[1]->getEffect(); 216 名前：nobodyさん mailto:sage [04/08/09 19:13 ID:???] 巷のスクリプトを見るとPerlでサブルーチンにプロトタイプ宣言を行っていない ものがほとんどなのですが、なぜプロトタイプ宣言を行っていないのでしょうか？ プロトタイプ宣言を行うと低速化したりという弊害等があるのでしょうか？ sub func($$@)　#プロトタイプ宣言あり sub func　　　　　#プロトタイプ宣言無し 217 名前：nobodyさん mailto:sage [04/08/09 20:38 ID:???] >>216 反対に、宣言しなくてもいいのにわざわざ宣言するメリットって何? その「巷のスクリプト」とやらはサブルーチン呼び出すのに & つけてたり、メソッドとして呼び出してたりしてないか? あと Perl 関係のメインスレは以下なので以後はそちらに。 pc5.2ch.net/test/read.cgi/php/1089779036/ pc5.2ch.net/test/read.cgi/tech/1090889189/ 218 名前：nobodyさん mailto:sage [04/08/09 21:35 ID:???] >>217 コンパイルタイムの型チェックと最適化がされるらしいので、 より効率的でより安全だと思うのですが。 219 名前：nobodyさん mailto:sage [04/08/20 07:16 ID:???] らしいじゃなぁ PerlOPみて調べて自分で考えろ 220 名前：nobodyさん mailto:sage [04/08/31 01:56 ID:???] >>219 要するにあなたは何も知らないんですね ;-) 221 名前：山崎 渉 ◆hG4XfSMGTg mailto:sage [2006/02/17(金) 13:07:09 ID:???] ブヒャヒャヒャヒャｗｗｗｗｗｗｗ 222 名前：nobodyさん mailto:sage [2007/02/10(土) 21:36:53 ID:???] 簡単にお金稼ぎ！！！ 以下の手順でやれば、無料でお金稼ぎができます。 企業も広告の宣伝になるから、お金をくれるわけです。 最初の１日目で 2000 円〜3000 円 は確実に稼げます。 実際の作業は数十分程度、１時間はかかりません。 (1) sinsetsu.lxl.jp/#.2ch.net 　 　↑このアドレスからサイトに行く。 (2) ゲットマネー登録サイトに移動するので、 　そこで無料会員登録をする。 　※フリーメールアドレスでもＯＫ。 (3)ポイントを稼ぎます。 　懸賞の応募や無料会員登録をすればするほど、 　ポイントが貰えます。 　他にも沢山種類があるので、１日目で 　約 20000 ポイントは GET できます。 (4) 10000 ポイントから、現金に交換できます。 (5)キャッシュバックという所がありますので、 　そこから交換をしましょう。 これで現金を稼ぐといいですよ！！！ 無料会員登録はこちらから↓ sinsetsu.lxl.jp/#.2ch.net 223 名前：nobodyさん mailto:sage [2007/03/23(金) 07:33:44 ID:???] >>168 お前頭悪いなｗｗｗ ばああああああああああああああああああああかｗｗｗｗｗｗｗｗｗｗｗｗ 死ねクズｗｗ

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef