2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Perlについての質問箱 52箱目

1 :デフォルトの名無しさん:2012/05/06(日) 10:21:12.81
CGI についての質問は板違いです。WEB プログラミング板でどうぞ。
CGI と Perl の区別がつかない人も WEB プログラミング板に行ってください。
(WEB プログラミング板: http://hibari.2ch.net/php/ )

このスレでは(CGI 以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。

"The duct tape of the Internet" こと、Perl についての質問箱です。
"There's more than one way to do it" ということで、
Perl の奥深さについて皆で語り合い、追求してまいりましょう。

http://www.perl.org/get.html
Download Latest Stable Source (5.14.2)

▼ 前スレ
Perlについての質問箱 51箱目
http://toro.2ch.net/test/read.cgi/tech/1330666216/

リンク集は >>2-3
Perl 日本語処理の基礎の基礎 >>4

2 :デフォルトの名無しさん:2012/05/06(日) 10:22:12.27
[プログラミング自体の経験が無い奴はまずココを読め]
Perl プログラミング講座: ttp://www.site-cooler.com/kwl/perl/

[本]
リャマ: ttp://www.oreilly.co.jp/books/9784873114279/
駱駝: ttp://www.oreilly.co.jp/books/4873110963/
Effective Perl: ttp://www.amazon.co.jp/Effective-ASCII-Addison-Wesley-Programming/dp/4756130577
クックブック: ttp://www.oreilly.co.jp/books/4873112028/
Perl ベストプラクティス: ttp://www.oreilly.co.jp/books/4873113008/
Perl Hacks: ttp://www.oreilly.co.jp/books/9784873113142/

[オンラインマニュアル]
最新のドキュメント: ttp://search.cpan.org/dist/perl/
perldoc.jp: ttp://perldoc.jp/
perldoc.perl.org: ttp://perldoc.perl.org/


3 :デフォルトの名無しさん:2012/05/06(日) 10:23:02.18
[モジュール]
CPAN.com: ttp://search.cpan.org/
河馬屋二千年堂: ttp://homepage3.nifty.com/hippo2000/

[テクニック]
Perl メモ: ttp://www.din.or.jp/~ohzaki/perl.htm
Perl のページ: ttp://homepage1.nifty.com/nomenclator/perl/
Perl の小技: ttp://homepage3.nifty.com/hippo2000/perltips/index.htm

[Perl 5.8 Unicodeメモ]
ttp://www.rwds.net/kuroita/program/Perl_unicode.html
ttp://www.namazu.org/~tsuchiya/perl/perl-5.8.html
ttp://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html


4 :デフォルトの名無しさん:2012/05/06(日) 10:24:07.76
# [Perl 日本語処理の基礎の基礎]
# このレスは、Windows の ActivePerl で日本語処理を行う場合のテンプレートです。
# このレスの内容をそのまま、UTF8 形式のソースファイルに保存して下さい。
# 入出力ともシフト JIS 形式のファイルまたは DOS 窓を想定しています。
# まず、以下の行を先頭に入れて下さい。
use utf8;
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)"; # ※1
use Encode;
# 次に、あなたが実行したい処理の内容を入れて下さい。
$file = 'C:/なんたら/かんたら.txt';
open my $fh, '<', encode("cp932", $file) or die $! ; # ※2
print <$fh>;
# 以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
# おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。
# 【注】※1. の行を入れると、DOS 窓への日本語出力は簡便になりますが、
# ソースファイル名に非 ANSI 文字が含まれる場合に die 文の出力が失敗します。
# ※2. OS に渡す文字列(ファイル名,dos コマンドのオプションなど)は、
# この例のように cp932 でエンコードする必要があります。


5 :デフォルトの名無しさん:2012/05/06(日) 10:25:39.72
Encodeモジュール (現在のPerl文字コードの標準)
http://search.cpan.org/dist/Encode/

UNICODEでわからなくなったらここを読め
http://perldoc.jp/docs/perl/5.8.1/utf8.pod
http://perldoc.jp/docs/perl/5.10.0/perlunifaq.pod


6 :デフォルトの名無しさん:2012/05/06(日) 10:42:42.35
ゴミスレ立てるな

7 :デフォルトの名無しさん:2012/05/06(日) 10:43:10.34
このスレッドは天才チンパンジー「アイちゃん」が
言語訓練のために立てたものです。

アイと研究員とのやり取りに利用するスレッドなので、
関係者以外は書きこまないで下さい。

                  京都大学霊長類研究所

8 :デフォルトの名無しさん:2012/05/06(日) 10:45:30.71
  ∧∧
  ( ゚Д゚ )∩
 ⊂   ノ
  /  0
  し´
えっ…と、
ここかな…、と
 ∧∧ ∧∧
∩゚Д゚≡゚Д゚ )
`ヽ     |)
  | __ |〜
  ∪  ∪
      ドスッ
  ∧∧.ミ. _
  (   )┌┴┴┐
  /   つ.終了│
〜   ./ └┬┬┘
 ∪∪    ││_ε3
     ゛゛゛゛

9 :デフォルトの名無しさん:2012/05/06(日) 12:38:28.54
前スレ>>985だけどありがとう。

>>986 >>993 >>998
次々に新商品が出てくる中で従業員に負担をかけず(追加入力作業なし)
やりたいというのが絶対条件にあるんです。
私がいつ死んでも半永久的に大丈夫ですみたいな。

シャトー<->CHのような既知で予想されるワードなら初期の段階で入力しておける
のですが・・

>>997
区切り文字で区切られない場合もあるのでワードを細切れで分割できない場合が
あるのです

>>989
ちょっと難しいです

>>994 >>995 >>996
ヤフーのキーフレーズ抽出サービスみたいなのしか思いつかないのですが
たしかにもうちょい文章量がないと難しいですね

10 :デフォルトの名無しさん:2012/05/06(日) 12:59:43.32
まじめにやろうとするなら、こっちのお題だね。

自然言語処理スレッド その3
http://toro.2ch.net/test/read.cgi/tech/1235129481/l50

でも、レスを見る限り、この手のことにかまけるより本業で稼いで誰かに作ってもらった方が良いと思う。

11 :デフォルトの名無しさん:2012/05/06(日) 18:08:33.41
for(1...100){
$n = rand;
print "<INPUT TYPE=\"checkbox\" NAME=$n VALUE=\"on\">";
}

このようにnameを乱数で作ったチェックボックスを100個作るとする
このときチェックされたチェックボックスのnameだけを
配列@check_name_listに格納するやり方を教えてください
モジュールは使わないやり方でお願いします。

12 :デフォルトの名無しさん:2012/05/06(日) 18:11:36.82
さすがゴミスレ

13 :デフォルトの名無しさん:2012/05/06(日) 18:21:57.05
for(1..100){
  $n = rand;
  push @check_name_list, $n;
  print "<INPUT TYPE=\"checkbox\" NAME=$n VALUE=\"on\">";
}

<!-- 100個全部 on みたいなので -->

14 :デフォルトの名無しさん:2012/05/06(日) 18:25:58.41
まちがえました valueの指定はなしです
print "<INPUT TYPE=\"checkbox\" NAME=$n>";
です

15 :デフォルトの名無しさん:2012/05/06(日) 21:03:16.08
my @check_name_list = ();
# 100個全部 on じゃないみたいなので

16 :デフォルトの名無しさん:2012/05/06(日) 21:15:21.03
CGIの質問だからって意地悪はいけないよ

17 :デフォルトの名無しさん:2012/05/06(日) 22:29:52.97
CGIの質問は、ただの釣りだから

18 :デフォルトの名無しさん:2012/05/06(日) 22:31:28.16
もっと言うと答えてるヤツは自演だから

19 :デフォルトの名無しさん:2012/05/07(月) 00:06:11.11
>>11
・乱数じゃなくて決まっている名前の場合
・100個ではなくて1個の場合
これらが個別にできるレベルでないと解決できないと思われ
(おんなのこであることを期待しつつレス)

20 :デフォルトの名無しさん:2012/05/07(月) 00:36:19.56
>>15
チェックボックスのこと知らないんだろうな
VALUEを指定しないチェックボックスをチェックするとonになるよ

21 :デフォルトの名無しさん:2012/05/07(月) 02:05:57.91
じゃあ、チェックしなければoffであってる?
my @check_name_list = ();

22 :デフォルトの名無しさん:2012/05/07(月) 23:43:39.09
use strict;

のstrictのパッケージはなんですか?

23 :デフォルトの名無しさん:2012/05/07(月) 23:46:41.55
いいえ、ケフィアです

24 :デフォルトの名無しさん:2012/05/08(火) 00:27:02.25
自分のstrict.pmには先頭に package strict; と書いてありました。
>>23 さんも自分の環境のstrict.pmをお読みになることをおすすめ
します。

25 :デフォルトの名無しさん:2012/05/08(火) 00:27:41.84
>>22さんの間違いでした

26 :デフォルトの名無しさん:2012/05/08(火) 12:57:16.49
正規表現のパターンの中に$a[$i]みたいなのを書きたい時はどうすれば

27 :デフォルトの名無しさん:2012/05/08(火) 13:17:27.64
ああ、普通にやればできてた
中身に [ とかが入ってたのが問題だった

28 :デフォルトの名無しさん:2012/05/08(火) 13:25:53.32
変数の中に含まれてるメタ文字をパターンの中で展開した時に、
メタ文字をただの文字として認識させるみたいなオプションって無かったっけ

29 :デフォルトの名無しさん:2012/05/08(火) 14:15:18.97
aru

30 :デフォルトの名無しさん:2012/05/08(火) 14:58:28.54
オプションで指定できたらメタキャラクタ一切使用不能ということで、
そんなもんは正規表現じゃねえ
要らない部分だけ\Q \Eで括るんだよ

31 :デフォルトの名無しさん:2012/05/08(火) 20:06:13.25
$s = "name=val;"のようにセミコロンが付く時と
$s = "name=val" のように終端になる時
同時に一回でvalの文字列部分を切り出す方法を教えて下さい

32 :デフォルトの名無しさん:2012/05/08(火) 20:41:11.36
=(.*?);?


33 :デフォルトの名無しさん:2012/05/08(火) 23:09:55.35
for("name=val;", "name=val"){
  if(/=(.*?);?$/){
    print "($_)($1)\n";
  }
  else{
    print "($_)(undef)\n";
  }
}
__END__
試さないと正しい回答は無理だね

34 :デフォルトの名無しさん:2012/05/09(水) 01:53:24.44
ダメなperlって何?

(name=val;)(val)
(name=val)(val)

This is perl 5, version 12, subversion 3 (v5.12.3) built for MSWin32-x86-multi-thread
Binary build 1204 [294330] provided by ActiveState http://www.ActiveState.com


35 :デフォルトの名無しさん:2012/05/09(水) 02:43:52.80
ヒント: >>32 の回答は $ が指定されていない
    (インタプリタのバージョンのせいではない)

36 :デフォルトの名無しさん:2012/05/10(木) 22:08:30.05
use feature 'say';
$str = "DEFxkdmeABCidkDEFledxaoDEFasdDEF";

say "gr\t: ", $str =~ s/((?<=ABC).*?)DEF/\1def/gr;

$tmp = $str;
1 while ($tmp =~ s/((?<=ABC).*?)DEF/\1def/g);
say "while\t: $tmp";

ABCより後ろのDEFをdefにする正規表現なのですが、上記を実行すると
gr   : DEFxkdmeABCidkdefledxaoDEFasdDEF
while : DEFxkdmeABCidkdefledxaodefasddef
となります。何故grの方はgオプションをつけているにも関わらず一度しか置換されないのでしょうか?

37 :デフォルトの名無しさん:2012/05/10(木) 23:06:34.52
grの方は1回しか実行されないからだお。

38 :デフォルトの名無しさん:2012/05/11(金) 10:33:38.29
UTF16文字コードの、「\u3066\u3059\u3068」このような文字列を
UTF8変換で「てすと」と表示させるにはどうすれば良いのでしょうか

39 :デフォルトの名無しさん:2012/05/11(金) 15:31:38.72
>>36
r オプションて何?

40 :36:2012/05/11(金) 16:09:04.62
rオプションの付いている時はgオプションが無効になるのかと思いましたが違いました。以下は上手く動きます。

use feature 'say';
$str = "aaabbyzxoiuyaoaaaaoiuyerpza";
say $str =~ s/a/_/gr;
say $str;

# 出力
___bbyzxoiuy_o____oiuyerpz_
aaabbyzxoiuyaoaaaaoiuyerpza


非破壊的な置換です。この例で言うと$str自体に変更がされません。>>39

41 :デフォルトの名無しさん:2012/05/11(金) 16:34:27.77
gは置換え後のポジションから継続するので後読み言明がマッチしないんだお。
先頭から s/// をもう一回するのとは違うんだお。

42 :デフォルトの名無しさん:2012/05/11(金) 17:30:50.66
画像を扱いたいのですが、画像のフォーマットやサイズが簡単に取得できるモジュールを教えてください。

43 :デフォルトの名無しさん:2012/05/11(金) 18:50:21.69
>>36
use 5.14.0;
use warnings;
use re 'debug';

my $str = 'DEF ABC DEF DEF ABC DEF';
$str =~ s/(?<=ABC)(.*?)DEF/$1def/g;
say $str;

こんなんで分かるんじゃないのん。

>>39
http://perldoc.jp/docs/perl/5.14.0/perl5140delta.pod#Non-destructive32substitution
5.14以降らしい。

>>42
http://search.cpan.org/~rjray/Image-Size-3.230/lib/Image/Size.pm

44 :デフォルトの名無しさん:2012/05/11(金) 19:27:25.28
オレ様ならimagamegick入れて
systemとか``を使う

identify -format "%w %h" a.jpg


45 :デフォルトの名無しさん:2012/05/11(金) 19:35:01.01
print "ぁ";
sleep(5);
print "ぁ";
sleep(5);



これだけ書いた.plファイルをクリックしたら、


5秒経過してから「ああ」と出てきて消えるんですが、理由はなぜですか?

46 :デフォルトの名無しさん:2012/05/11(金) 19:39:32.68
local $|=1;

47 :デフォルトの名無しさん:2012/05/11(金) 19:40:37.73
バッファとかフラッシュ(flush)について勉強しといで

48 :デフォルトの名無しさん:2012/05/11(金) 19:57:02.19
>>46-47
すいません教えられた言葉でググれば解決しそうです。


なんか変わった仕様(?)なんですね
面白いです

ありがとうございました。

49 :デフォルトの名無しさん:2012/05/11(金) 20:30:38.00
>>43-44
ありがとう

50 :デフォルトの名無しさん:2012/05/11(金) 22:28:38.06
mysqlから受け取ったutf8エンコードの文字列がsjisに出来ません

ソースをUTF8で扱い,普通に変数代入したものをsjisにencordすると正しく画面に出力されますが
mysqlから受け取ったものをencordすると「????」と文字化けが起こります

$s = "文字列";
print "$s\n";#UTF8の状態で画面に出力

print encode('Shift_JIS', $s);#「文字列」と、正しく画面に出力される
print "\n";

---

while(@row = $sth->fetchrow_array){
print "$row[0]\n"; # UTF8で出力される
print encode('Shift_JIS', $row[0]); #「???〜」となってしまう
print "\n";
}

cgiにしてHTMLをUTF8に設定して出力するとブラウザ側では正しく表示されるので
sqlからの文字列はUTF8として正しいものと思われます

51 :デフォルトの名無しさん:2012/05/11(金) 22:34:32.28
UTF8フラグが云々なので、そこはfrom_to()を使ってください

52 :デフォルトの名無しさん:2012/05/11(金) 22:40:22.05
ソースコードに日本語を書くのであれば、
use utf8が必要

53 :デフォルトの名無しさん:2012/05/11(金) 22:42:05.94
DBI接続するときにmysql_enable_utf8オプションつければ他はそのままでいんじゃね

54 :デフォルトの名無しさん:2012/05/11(金) 22:45:04.88
DBI->connect($db, $user, $pass, {
mysql_enable_utf8 => 1,
on_connect_do => [
'SET NAMES utf8',
'SET CHARACTER SET utf8',
],
});

55 :デフォルトの名無しさん:2012/05/11(金) 23:42:42.53
まだハローワールドのレベルの人間なのですがちょっと質問させていただきたいと思います。
環境はWindows7 32Bit StrawberryPerlです。
出力結果として日本語が出てくるプログラムを書いた時にえらく文字化けしてしまうのですが、何か読み込まなければいけないモジュールなどあるのでしょうか?
ソースのエンコードはCp932(Shift-jis?)で書きました。
書きましたといってもAcme::Oppaiを使ってニヤニヤしてみたかったのでネット上のソースをそのまま引っ張ってきています。
!/perl
 use Acme::Oppai;

print "
";

print Acme::Oppai->Oppai->Oppai->Oppai->Oppai;

このような内容です。
>>1に書いてあるようなutf8~というのも試したのですがやっぱりうまく出力できません。
Windwosでは無理なのでしょうか・・・・

56 :デフォルトの名無しさん:2012/05/11(金) 23:59:21.29
sqlからの情報を文字数単位で正規表現を使いたいので
出力時のみsjisにしたいですがどうやらsqlからのデータがutf8の扱いになっていないようなんですが
そのフラグというのはどう立てるんでしょうか

57 :デフォルトの名無しさん:2012/05/12(土) 00:04:02.53
50のヤツはどうなったのか
まずそれを書けよアホ


58 :デフォルトの名無しさん:2012/05/12(土) 00:56:48.27
>>55
コードはutf8で書いて、下のを使うのがオススメだお。
http://search.cpan.org/~xaicron/Win32-Unicode-0.34/lib/Win32/Unicode/Console.pm

59 :デフォルトの名無しさん:2012/05/12(土) 01:07:44.10
どうだろ

60 :デフォルトの名無しさん:2012/05/12(土) 01:33:49.71
こないだの竜巻はこいつか

61 :デフォルトの名無しさん:2012/05/12(土) 07:58:14.91
ふと思った。
Webサーバマシン上で動き、cronなり手動なりで呼び出される「HTML生成プログラム」は、このスレの範疇なのだろうか

62 :デフォルトの名無しさん:2012/05/12(土) 08:49:11.10
>>61
二度手間質問。
Perlの動きの質問なら、ここでいいんじゃねーの?
質問してみれば?違えば誘導されるだけ。

63 :デフォルトの名無しさん:2012/05/12(土) 08:52:25.51
それもそうだな。
特に現状で質問があるわけではないんだ。すまんかった。

64 :デフォルトの名無しさん:2012/05/12(土) 10:25:54.22
>>55
utf8フラグ付きの文字列を返させるためにAcme::Oppaiのオプションにuse_utf8を付ける。
後はワイドキャラクタ文字列として処理。

use 5.12.0;
use warnings;
use Acme::Oppai;
use open qw(:encoding(cp932) :std);

my $oppai = Acme::Oppai->new('use_utf8' => 1);
say $oppai->oppai;

65 :デフォルトの名無しさん:2012/05/12(土) 18:26:02.02
>>58 >>64
お返事ありがとうございます!
CentOSで試したら先のソースだけで動いたので安心しきってましたがWindowsだと色々手間が必要なんですね・・・
そもそもWindowsでやることが間違いなのかしらw
何はともあれこれでAcme::Oppai以外にも色々試せそうです。

66 :デフォルトの名無しさん:2012/05/12(土) 18:28:30.09
eucで動いてるknoppixとか試すのカンタンだから試してみりゃあいい


67 :デフォルトの名無しさん:2012/05/12(土) 20:05:11.38
昔の Linux は euc
今の Linux、Mac は utf8
ういんどーず は CP932 (SJIS の方言)
OS9 の頃は知らん

68 :デフォルトの名無しさん:2012/05/12(土) 20:06:29.55
>>65
cmd.exeだとcp932で出力しなきゃならない。
最近のcygwinのmintty.exeだと、utf8出力で大丈夫。
確かにwindowsだと、そのへん考慮しなくちゃならないね・・・でも逆にその辺だけかな。

69 :デフォルトの名無しさん:2012/05/12(土) 20:44:31.68
簡単な質問なのかは分かりませんが、
@ スクリプトを実行すると、エクスプローラが起動し、ファイルを指定
A ファイル選択後スクリプトを実行
B 読み込みファイル名.re.txt で書き出し
スクリプト処理
読み込みファイル内から
[android半角スペース] を検索 [android半角スペース100半角スペース] に置き換え
[iphone半角スペース] を検索 [iphone半角スペース200半角スペース] に置き換え

のように、検索と書き換え処理を多段処理したいのですが、テキスト置き換え以外やったこと無いので、書き方等おしえていただけませんか?

70 :デフォルトの名無しさん:2012/05/12(土) 20:50:04.22
perl/tkとかいう愉快なモンを使う必要がある
その「エクスプローラ」てのが
ファイル選択ダイアログのことなら ね
そうでないならSIRAN


71 :デフォルトの名無しさん:2012/05/12(土) 22:25:23.81
>>69
explorer.exeの起動じゃなくて、ファイルダイアログかドラッグ用のウィンドウを出して処理がオススメ!
WxPerlでカコヨクできるよ。

72 :デフォルトの名無しさん:2012/05/13(日) 14:43:46.05
PerlってどれくらいできればPerlできますって言っていいんですか><

73 :デフォルトの名無しさん:2012/05/13(日) 14:52:51.64
printf が出来れば

74 :デフォルトの名無しさん:2012/05/13(日) 17:52:35.81
書いてみたいスクリプトがあってPerlとRubyとPythonを試していて、どれでも書けるんですが、
この中で一番汎用性が高いのはどれなんでしょうか?

PHPはWeb限定っぽいし、PerlはそもそもWebではなくてテキスト処理に使われたらしいのでPerlかな?と思ったんですが
Perlだと、ローカルのファイル名を全て変更したり、ファイルの更新日付を見てバックアップを取ったりとかもできますか?

75 :デフォルトの名無しさん:2012/05/13(日) 18:22:37.41
どれでも書けるなら自分の好きなものでどうぞ

76 :デフォルトの名無しさん:2012/05/13(日) 18:54:02.90
とりあえずgithubでどうぞ

77 :デフォルトの名無しさん:2012/05/13(日) 19:20:35.27
自前アプリにスクリプトを実装したいなら Python かな

そうでなきゃ Perl、Ruby かな

PHP は WEB 意外ではクソ

78 :デフォルトの名無しさん:2012/05/13(日) 22:50:56.22
以前回答を待つ前に大丈夫でしたと書いてしまったのですが
全然大丈夫でなかったので質問しなおさせてください。

以下のようなWeb処理をPerlで書いたのですが、処理時間が長すぎるのか
画面の出力が行われません

@ファイルをまとめてアップロード
Aアップされたファイルの中から画像を選別しImageMagickで繰り返し処理
B処理が終わった旨メッセージ出力

ファイル数が少ないときはメッセージ出力がきちっと行われるのですが、
ファイル数が多いとメッセージの出力がなされず真っ白な画面が
返ってきたりします。その場合も処理の受付はなされているのか
白い画面(ブラウザ)を閉じてしまっても時間が経てばAはちゃんと完了します。

@の処理が終わった段階でもうメッセージを出してしまうか
Aの処理が終わるまできちんと待って確実にメッセージを出力したいのですが
なにか方法がございますでしょうか

79 :デフォルトの名無しさん:2012/05/13(日) 22:58:21.99
Ajaxでプログレスバーを表示する

80 :デフォルトの名無しさん:2012/05/13(日) 22:58:59.11
fork でググれば幸せになれるかも

81 :デフォルトの名無しさん:2012/05/13(日) 23:14:05.82
ありがとうございます!

>>79
今の状態だといつまでもプログレスバー出してるだけになるっぽいので
ちょっと難しいかもしれないと思いました。

>>80
こんなものが!ありがとうございます!試してみます

82 :デフォルトの名無しさん:2012/05/13(日) 23:44:38.03
>>75-77
ありがとうございました。

83 :デフォルトの名無しさん:2012/05/14(月) 18:18:56.09
【祭り】安価でアフィブログ炎上させる【会場】
http://hayabusa.2ch.net/test/read.cgi/news4vip/1336983773/

84 :デフォルトの名無しさん:2012/05/15(火) 18:23:05.89
cpanでモジュールインストール
こころみてるけど怒られるお。
なんでだお。

admin:~ admin$ sudo cpan
Password:
Terminal does not support AddHistory.

cpan shell -- CPAN exploration and modules installation (v1.9456)
Enter 'h' for help.

cpan[1]> install Math::Vector::Real
Going to read '/Users/admin/.cpan/Metadata'
Database was generated on Tue, 15 May 2012 03:31:03 GMT
Running install for module 'Math::Vector::Real'
Running make for S/SA/SALVA/Math-Vector-Real-0.08.tar.gz
Checksum for /Users/admin/.cpan/sources/authors/id/S/SA/SALVA/Math-Vector-Real-0.08.tar.gz ok
Scanning cache /Users/admin/.cpan/build for sizes
............................................................................DONE



85 :デフォルトの名無しさん:2012/05/15(火) 18:25:19.76
CPAN.pm: Going to build S/SA/SALVA/Math-Vector-Real-0.08.tar.gz
Checking if your kit is complete...
Looks good
Writing Makefile for Math::Vector::Real
cp lib/Math/Vector/Real.pm blib/lib/Math/Vector/Real.pm
Manifying blib/man3/Math::Vector::Real.3pm
SALVA/Math-Vector-Real-0.08.tar.gz
/usr/bin/make -- OK
'YAML' not installed, will not store persistent state
Running make test
PERL_DL_NONLAZY=1 /opt/local/bin/perl5.12 "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/Math-Vector-Real.t .. ok
t/pods.t .............. skipped: Only the author needs to check that POD docs are right
All tests successful.
Files=2, Tests=13, 0 wallclock secs ( 0.03 usr 0.01 sys + 0.05 cusr 0.01 csys = 0.10 CPU)
Result: PASS
SALVA/Math-Vector-Real-0.08.tar.gz
/usr/bin/make test -- OK
Running make install
Manifying blib/man3/Math::Vector::Real.3pm
Appending installation info to /var/root/perl/lib/darwin-multi-2level/perllocal.pod
SALVA/Math-Vector-Real-0.08.tar.gz
/usr/bin/make install -- OK

cpan[2]> quit
Terminal does not support GetHistory.
Lockfile removed.
admin:~ admin$ perldoc -l Math::Vector::Real
No documentation found for "Math::Vector::Real".


86 :デフォルトの名無しさん:2012/05/15(火) 20:19:18.87
パ・パ・パパッパ・Perlライス

87 :デフォルトの名無しさん:2012/05/15(火) 20:33:48.04
>>84
複数のPerlをインストールしていて、
ユーザとrootで使うPerlが別物になってるとか。

88 :デフォルトの名無しさん:2012/05/15(火) 20:55:17.49
>87

cpanplus でインストールしてみたらできました。

それは多いにありえますねー原因はまだ不明ですが

89 :デフォルトの名無しさん:2012/05/15(火) 21:01:28.17
>>86
おっさんwwwww

90 :デフォルトの名無しさん:2012/05/16(水) 19:40:50.32
おっさんを笑う者もまた、おっさんなのだ・・・

91 :デフォルトの名無しさん:2012/05/17(木) 17:43:25.27
ある perl のプログラムを実行すると
.out ファイルが生成される。
これは何を意味しているのか?
抽象的ですまん。

92 :デフォルトの名無しさん:2012/05/17(木) 17:54:51.74
.outファイルは
大抵はcコンパイラが吐き出した実行ファイル

それかただの出力されたテキストファイル
バイナリエディタかテキストエディタに送るのが常套


93 :デフォルトの名無しさん:2012/05/17(木) 18:57:34.57
>>92
.safeファイルが出来るまで繰り返し実行しろ、とか
そういう返しを期待していたんだが

94 :デフォルトの名無しさん:2012/05/17(木) 18:58:16.86
.auto

95 :デフォルトの名無しさん:2012/05/17(木) 19:39:51.44
文字列を渡すと他になにも指定しなくても
日付文字列を探していい感じにparseしてくれるモジュールない?

RubyのTime.parseみたいなやつ。

96 :デフォルトの名無しさん:2012/05/17(木) 22:01:07.70
どこの部分で時間が掛かってるか調べるモジュールあったよね?
そのモジュールが吐き出すファイルの拡張子が .out だった気がする

97 :デフォルトの名無しさん:2012/05/17(木) 22:12:26.43
プロファイラか。確かに。

98 :デフォルトの名無しさん:2012/05/17(木) 22:31:50.24
use strict;
use warnings;

use Time::Piece;
use Date::Parse;

my $str = 'Thu May 17 22:21:00 JST 2012';
my $time = localtime str2time($str);

print $time->year. '年' . $time->mon . '月' . $time->mday . '日';

__END__

>>95
Ruby知らんけどこういうの?

99 :デフォルトの名無しさん:2012/05/18(金) 00:02:53.74
>>98
$strに日付以外の文字列が混ざってても日付文字列を探して
いい感じにparseして欲しいです。

100 :デフォルトの名無しさん:2012/05/18(金) 00:49:59.88
>>99
よくばりなやっちゃな。元の文字列と取り出したい日付の例が無いと。
「『元禄』がパースできません」とか言われても困るで。


use strict;
use warnings;

use Regexp::Common qw/time/;
use Data::Dumper;

my $str = 'あれはそう。2002/03/24の出来事だ。私は当日の2:30pmに駅へと向かったのだ。';
my @times = $str =~ /($RE{time}{ymd}|$RE{time}{hms})/g;
print Dumper \@times;

__END__

$VAR1 = [
'2002/03/24',
'2:30pm'
];


101 :デフォルトの名無しさん:2012/05/18(金) 07:13:14.97
>>100
これっぽい。THX
parserで探しても見つからなかったけど正規表現で対応するのか。

102 :デフォルトの名無しさん:2012/05/18(金) 08:31:07.52
パーサじゃねぇモン
見つかるわけねーだろボケ



103 :デフォルトの名無しさん:2012/05/18(金) 09:24:57.09
Can't locate auto/Math/Libm/autosplit.ix in @INC

こんなモジュールあるの?


104 :デフォルトの名無しさん:2012/05/18(金) 15:35:12.76
検査対象のリストがあって、検査項目のリストがある
対象の中に項目の文字列が含まれているかどうかが検査内容で、
普通にfor文を二重にして、パターンマッチさせているけれど、どうにも遅い

何かの工夫で速度が改善できませんか
複数の項目にヒットする可能性は考慮する必要はありません
パターンマッチに正規表現は使いません(固定文字列)

105 :デフォルトの名無しさん:2012/05/18(金) 16:54:37.34
リストの両方で
$hash{$word}++
をして

カウント2回以上を抽出


106 :デフォルトの名無しさん:2012/05/18(金) 17:05:22.48
# 検査対象
my @list = qw /a s d f/;
# 検査項目
my @check = qw/a f/;

my %is_exists = ();
@is_exists{ @list } = ();
grep { exists $is_exists{ $_ } } @check;

107 :デフォルトの名無しさん:2012/05/18(金) 17:06:20.16
項目は対象の部分文字列です

108 :デフォルトの名無しさん:2012/05/18(金) 17:47:03.10
正規表現使って
my $pattern = join('|', チェック項目のリスト);
対象文字列 =~ /$pattern/ and 処理;

109 :デフォルトの名無しさん:2012/05/18(金) 18:03:39.29
一括のパターンを作るのは考えたのですが、
かなり長いパターンになるし、やってることは大して変わらないので、
手を出してませんでしたが、試してみたら10倍くらい高速化しました

パターンが静的になったのも大きいと思います

110 :デフォルトの名無しさん:2012/05/18(金) 19:47:07.31
>>102
日付文字列をparseしたいんだからparserで検索するだろ
そしたらそんな気の利いたモジュールは無くて
正規表現で自分で抽出してからparseする方法しかなかったと

つか>>98はいい感じと思ったけどYMDとかDMYしか対応してなくて
rfc2822の日付とか拾えないじゃん
なんだかなあ

111 :デフォルトの名無しさん:2012/05/18(金) 20:04:29.51
すみません散々既出じゃないかと思うのですが、
push(@array, $tmp);
としたものをあとから、
print "$array[$i]\";
としても
ARRAY(0x8303718)
のように出力されてしまって$tmpの値が
取れないのですが、pushの方で間違っているのでしょうか、
$array[$i]の書き方がだめなのでしょうか。お教えください。

112 :デフォルトの名無しさん:2012/05/18(金) 20:09:36.45
print "$array[$#array]\n";
でどうだ


113 :デフォルトの名無しさん:2012/05/18(金) 20:20:02.44
リファレンスわかってないだけだろ

114 :デフォルトの名無しさん:2012/05/18(金) 20:56:24.44
push(@array, $tmp);を
push(@array, $tmp);print"tmp=$tmp\n";
にでもするとどうなる?

115 :デフォルトの名無しさん:2012/05/18(金) 20:56:43.34
>>112
やはり ARRAY(0x******)でしたorz
>>113
分かっていないのは確かです… 調べてみないといくつあるか分からない
データを収集して、あとから一つ一つにアクセスするにはどうしたら
いいのでしょうか。ここ読めでもいいので教えてください。よろしくお願いします。

116 :デフォルトの名無しさん:2012/05/18(金) 21:04:17.47
>>114
$tmpは本当はマッチの結果の$1だったのですが、
マッチしてませんでした、っていうか今実装してるのに
過去の保存したデータがあるものとして書いていたので、
一回落ち着いて全体見直して、まだ疑問があったらまた来ます。
失礼しました。

117 :デフォルトの名無しさん:2012/05/18(金) 21:35:13.68
push(@array, @{$tmp});


118 :デフォルトの名無しさん:2012/05/19(土) 15:07:08.73
>>110
何がしたいのか形にしてから出直しなよ。
メールの送信日時を抜き出したいってんなら、>>98じゃダメだ。


use strict;
use warnings;

use Email::Date;
use Data::Dumper;

my $email = <<'__EMAIL__';
Subject: foo
From: foo@example.com
Bar: bar@example.com
Date: Sat, 19 May 2012 14:59:34 +0900

bar
__EMAIL__

my $time = find_date($email);
print Dumper $time->ymd;

__END__

$VAR1 = '2012-05-19';


119 :デフォルトの名無しさん:2012/05/20(日) 00:11:14.38
このへんでいーんじゃねーの?? http://search.cpan.org/perldoc?Date::Parse

120 :デフォルトの名無しさん:2012/05/20(日) 00:20:03.26
初歩的な質問ですいません。
::というのは、正規表現でしょうか?
意味がどうしても分からないので、宜しくお願いいたします。

121 :デフォルトの名無しさん:2012/05/20(日) 00:22:56.83
それだけじゃ分からんけど、違うんじゃね。

122 :デフォルトの名無しさん:2012/05/20(日) 00:32:39.02
>>121
うちにレスですか?ありがとうございます。
使い方が分からなくて、検索しても出てきませんでした。

上のほうでもサンプルがあるのですが、いまいち理解出来ません。

123 :デフォルトの名無しさん:2012/05/20(日) 00:33:43.92
>>100
use Regexp::Common qw/time/;
use Data::Dumper;

この部分ですね。

124 :デフォルトの名無しさん:2012/05/20(日) 00:35:18.98
PATH の区切り
深くは考えない
「そう書くしかないし、そうゆうもんだ」 で良いかと

125 :デフォルトの名無しさん:2012/05/20(日) 00:36:06.52
ぐぐったら、ありました。^^;
use モジュール読む込むときに使うんですね。

http://itpro.nikkeibp.co.jp/article/Reference/20080930/315792/

126 :デフォルトの名無しさん:2012/05/20(日) 09:13:05.38
$str = "abde";
if($str =~ /ab(c|)de/){#ヒットしない


上記のような状況で、正規表現を使い「b,d」間に「c」が在る、または、何もない
この条件にするにはどうすればいいですか

127 :デフォルトの名無しさん:2012/05/20(日) 09:16:51.89


128 :デフォルトの名無しさん:2012/05/20(日) 09:17:03.86
/abc*de/

129 :デフォルトの名無しさん:2012/05/20(日) 11:14:28.93
>>118
だからメールだけ対応しててもダメなんだって。
なんで>>100の理解から後退してんの。

思いつく日付フォーマットをリストアップして
ぞれぞれのフォーマットをparseできるモジュールを探して
それらのモジュールをuseして
これにマッチしたらこのモジュールでparse、これにマッチしたらこのモジュールでparse
ってしなきゃならんのか。

130 :デフォルトの名無しさん:2012/05/20(日) 12:31:43.49
>>129
で、結局何がしたいの?

メールの送信日時が知りたいのならメール本文から日付とっちゃダメだし、
iPhoneみたいにメール本文から日付情報とってiCalと連動させたいってんなら
メールの送信日時をとっちゃまずいだろ。

あんたの言う思いつくフォーマットってヤツに太陰暦は含まれるか?皇紀は?
後から小出しでもいいし、見せられないところは伏せていいから、
グダグダ言わずに元のテキストと取りたい日付ってのを見せてみろよ。

131 :デフォルトの名無しさん:2012/05/20(日) 12:49:00.18
>>126

use strict;
use warnings;

my $regexp = qr/b.*c.*d/;

/$regexp/ && print("$_: match\n") || print("$_: unmatch\n") for qw{
abde
abcde
a
ab
abc
abcd
abcde
};

__END__

abde: unmatch
abcde: match
a: unmatch
ab: unmatch
abc: unmatch
abcd: match
abcde: match


132 :デフォルトの名無しさん:2012/05/20(日) 18:14:03.81
>>126
$str =~ /abc?de/

http://perldoc.jp/docs/perl/5.10.1/perlre.pod#Quantifiers

133 :デフォルトの名無しさん:2012/05/21(月) 21:09:30.25
文字列の出現数をカウントしたいのですが何かいい方法はありませんか?

例えば、配列の中に一つ一つの単語が格納されており
以下のようであった場合に
配列[0] = 牛乳
配列[1] = いちごミルク
配列[2] = コーヒー牛乳
配列[3] = 牛乳
配列[4] = 牛乳
配列[5] = コーヒー牛乳

「牛乳」と「コーヒー牛乳」という単語の出現回数について調べたいのですが、
「牛乳」について調べる時に「コーヒー牛乳」の中の「牛乳」には
マッチさせたくないという場合どのような記述方法があります?

つまり、上記では
「牛乳」 = 3
「コーヒー牛乳」 = 2
という感じです。

わかりにくくて申し訳ありませんが、よろしくお願いします。


134 :デフォルトの名無しさん:2012/05/21(月) 21:15:54.33
$hash{$_}++


135 :デフォルトの名無しさん:2012/05/21(月) 21:59:50.45
>>133の者です

すいません。間違えていました。
配列[0] = 牛乳 コーヒー牛乳
配列[1] = いちごミルク コーヒー牛乳
配列[2] = コーヒー牛乳 フルーツ牛乳 牛乳
配列[3] = 牛乳 コーヒー牛乳
配列[4] = 牛乳 いちごミルク フルーツ牛乳
配列[5] = コーヒー牛乳 フルーツ牛乳

というような配列で、
「牛乳」 = 4
「コーヒー牛乳」 = 5
といった感じです!

136 :デフォルトの名無しさん:2012/05/21(月) 22:06:35.77
空白でsplitしてから
hashでカウント


137 :デフォルトの名無しさん:2012/05/21(月) 22:17:17.54
>>135

use strict;
use warnings;

use Data::Dumper;

my @ar;
$ar[0] = [qw/牛乳 コーヒー牛乳 /];
$ar[1] = [qw/いちごミルク コーヒー牛乳 /];
$ar[2] = [qw/コーヒー牛乳 フルーツ牛乳 牛乳/];
$ar[3] = [qw/牛乳 コーヒー牛乳 /];
$ar[4] = [qw/牛乳 いちごミルク フルーツ牛乳/];
$ar[5] = [qw/コーヒー牛乳 フルーツ牛乳 /];

my %wc;
$wc{$_}++ for map { @{$_} } @ar;
print Dumper \%wc;

__END__

$VAR1 = {
'いちごミルク' => 2,
'フルーツ牛乳' => 3,
'牛乳' => 4,
'コーヒー牛乳' => 5
};


138 :デフォルトの名無しさん:2012/05/21(月) 22:20:01.73
だからお前は誰なんだよ

139 :デフォルトの名無しさん:2012/05/21(月) 22:25:18.43
Data::Dumperさんちーっす

140 :デフォルトの名無しさん:2012/05/21(月) 22:43:36.12
wcってトイレかっつーのwww

141 :デフォルトの名無しさん:2012/05/21(月) 22:51:52.53
UNIXのツールの一つにwcてのがあるんだよ
そんくらいしっとけ低能ゴミカス

142 :デフォルトの名無しさん:2012/05/21(月) 22:52:54.63
>>137
ありがとうございます。
ただ、実際はもっとデータ数が多いので、一つ一つは記入してられないです。

一つ一つのデータをqw//で囲って配列に格納するためにはどうしたらいいでしょうか?

頭悪くてすいません。お願いします。

143 :デフォルトの名無しさん:2012/05/21(月) 23:05:27.87
テキストファイルにキーワードを列挙して読み込めばいい

144 :デフォルトの名無しさん:2012/05/21(月) 23:08:40.60
@array = <$fh>;


145 :デフォルトの名無しさん:2012/05/21(月) 23:12:32.23
>>143

open(MILK,"milk.txt") || die "Can't open milk: $!\n";
while ($line = <milk>){
push(@ar,$line);
}

ということでしょうか??

146 :デフォルトの名無しさん:2012/05/21(月) 23:14:36.00
<milk> → <MILK>ですね。

147 :デフォルトの名無しさん:2012/05/21(月) 23:18:26.99
@array = <$fh>;

148 :デフォルトの名無しさん:2012/05/21(月) 23:25:03.02
>>142
アプリオリアルゴリズムかなんか履修してる学生さん?

続くプログラムでも個々のバスケットを維持したいなら力技かな。
元データがテキストファイル(data)で1行1バスケットなら>>136の言うように代入部分を

while (<>) { push @ar, [split] };

にしてtest.plで保存、コンソールからパイプ通して

$ cat data | perl test.pl

みたいなのが楽かも。dataもtest.plもとっかえひっかえするんでしょ?多分。

149 :デフォルトの名無しさん:2012/05/21(月) 23:51:52.90
>>148
解決しました!ありがとうございました。

情報系の学生で、研究で利用するために今勉強中という感じです!



150 :デフォルトの名無しさん:2012/05/22(火) 02:37:42.07
>>148
すごい洞察力だ・・

151 :デフォルトの名無しさん:2012/05/22(火) 06:42:13.63
WindowsのPerlもこちらで質問いいのかな・・・
2点質問があります。
1.Net::Twitterを使ってコマンドラインでツイートするスクリプトを書きました。
投稿自体は問題なくできてるのですが、ランチャーなどからスクリプトを呼んでツイートするときにコマンドプロンプトがぴょこっと出てきてちょっと邪魔です。
なのでバックグラウンドで投稿(サイレント的な?)剃る方法はありませんでしょうか?
2.ツイート文は@ARGVで読み取っているのですが、文の間にスペースが入るとそこで区切られて投稿されます。
これをスペース込みで一文として投稿することはできないでしょうか?

わかりにくいかと思いますが、ご教示いただけると幸いです。

152 :デフォルトの名無しさん:2012/05/22(火) 06:48:24.79
1. wperl.exe
2. join(" ", @ARGV)

153 :デフォルトの名無しさん:2012/05/22(火) 08:26:35.41
>>152
朝早くから返信有難う御座います!
とりあえずWperlで実行するように関連付けと拡張子を変えてみました。
やっぱりほんの一瞬だけプロンプトが出ますが、Perl.exe出実行するより断然短かったのでこれで行こうと思います。
Joinもスクリプトに書いてみたところ上手く分割されずにできてました!
半角スペースと全角スペースの分で2列書くことになりましたけど満足です。
ありがとうございましたm(_ _)m

154 :デフォルトの名無しさん:2012/05/22(火) 13:18:33.12
start /b cmd /c c:\perl\bin\wperl とかって使えるのかな?

155 :デフォルトの名無しさん:2012/05/22(火) 14:00:45.95
なんでやってみないのw インストールしてない??

156 :デフォルトの名無しさん:2012/05/22(火) 15:01:41.25
今使ってるパソコンでは試せないの。家に帰ってからでないと

157 :!ninja:2012/05/24(木) 12:48:14.92
華氏から摂氏への温度変換や、割り勘精算のプログラムが乗っているサイトや本はありますか?
その他色々なプログラムの見本が乗っているものがほしいです。

158 :デフォルトの名無しさん:2012/05/24(木) 13:26:08.68
>>157
>>2-3やgoogle検索は?

159 :デフォルトの名無しさん:2012/05/24(木) 15:39:54.91
質問です。
Net::FTPで

$ftp->get(target,local);

とやってダウンロードせずに、targetの中身をそっくり変数(たとえば$temp)にぶち込む方法ってありませんか?
対象は4kbほどのテキストファイルです。


よろしくお願いします。

160 :デフォルトの名無しさん:2012/05/24(木) 16:32:36.93
use IO::All;
use IO::All::LWP;
print io("ftp://ftp.freebsd.org/pub/FreeBSD/ports/amd64/packages-8-stable/INDEX.bz2.md5")->all;


161 :デフォルトの名無しさん:2012/05/24(木) 16:32:54.81
>ダウンロードせずに


162 :デフォルトの名無しさん:2012/05/24(木) 16:43:47.43
>>2-3の半分ぐらいはもう腐った情報なんだが
スレ立てる奴が誰一人気にしないという恐怖

163 :デフォルトの名無しさん:2012/05/24(木) 17:13:12.98
>>162
そしてオマエに「オレが書きなおしてやる!」という気概がない
という恐怖


164 :デフォルトの名無しさん:2012/05/24(木) 17:14:30.56
>>160
ありがと。
難しいな…


>>161
ごめん。
× ダウンロードせずに
○ ファイルとして保存せずに

165 :デフォルトの名無しさん:2012/05/24(木) 17:38:00.94
よぉぉし、ではこれでどうだ。
use Net::FTP;
my $ftp = Net::FTP->new("ftp.freebsd.org");
$ftp->login("anonymous",'-anonymous@');
my $temp = do {
my ($rfh, $wfh);
pipe($rfh, $wfh);
$ftp->get("/pub/FreeBSD/ports/amd64/packages-8-stable/INDEX.bz2.md5", $wfh) or die "get failed ", $ftp->message;
close $wfh;
local $/;
<$rfh>;
};
print $temp;


166 :デフォルトの名無しさん:2012/05/24(木) 17:55:50.94
よくわからんが俺なら
どうしてもHDDを経由したくなければRAMDISK
それもいやならSTDOUTに吐いてもらうスレッド別個に走らせて
パイプ介して受け取るとか試すかなあ
可能性や容易性とかさっぱり予測つかんが

167 :デフォルトの名無しさん:2012/05/24(木) 19:07:06.68
>>158
調べてはみましたが自分では欲しい情報が見つからなかったので質問させてもらいました

168 :デフォルトの名無しさん:2012/05/24(木) 21:23:30.73
>>159
open(my $fh, '>', \(my $temp)) or die $!;
...
$ftp->get($path, $fh) or die("get failed ", $ftp->message);
$ftp->quit;
$fh->close;

print $temp;

169 :デフォルトの名無しさん:2012/05/25(金) 00:02:49.64
難しいことしなくても LWP の get で出来そうな気もするが

170 :デフォルトの名無しさん:2012/05/25(金) 00:28:05.21
俺もFTPにこだわる必要性がないように思った

171 :165:2012/05/25(金) 01:01:27.45
>>168 負けました・・・

ポトペタしたコードに変更を加えるには「難しい」ということでしょ。

172 :デフォルトの名無しさん:2012/05/25(金) 14:14:00.44
>>165
ありがとう。
doの使い方、いろんな本読んだ中で、これが一番わかりやすい気がする…


>>166
大きいファイルの時(アクセスログなど)の時は一度ファイルに書き出してからそれを開いているのですが、十分に小さいから直接やりたいなって。


>>168
ありがとう!

> '>', \(my $temp)
がわからなくて、何度やってもうまくいかなかった。


>>169
>>170
このファイルのパーミッションが600。
そして置いているのはドキュメントルートの外。
一般には読みだされたくない情報ファイルなのよ。


みんなありがとう。がんばってみます。

173 :デフォルトの名無しさん:2012/05/25(金) 14:19:08.66
>>172
な?どんな本よりもこのスレの方がはるかに役に立つだろ?

174 :デフォルトの名無しさん:2012/05/25(金) 16:27:58.28
人のプログラムだけど
<=>
てのがあった。
ぐぐっても無かった。

どうゆう(演算子)?

175 :デフォルトの名無しさん:2012/05/25(金) 16:32:04.20
cmp


176 :デフォルトの名無しさん:2012/05/25(金) 16:38:55.04
>>174
>>175で大体おk。ただし==とかと同じく数値で比較。

で、こういう演算子系はperldoc perlopで調べるもの今後覚えておくべし。
ttp://perldoc.jp/docs/perl/5.14.1/perlop.pod

177 :デフォルトの名無しさん:2012/05/25(金) 17:02:31.17
>>175,176

ソートで使う系か

thx

178 :デフォルトの名無しさん:2012/05/25(金) 22:24:45.20
decodeとencodeの違い、使い分け方を教えて下さい

179 :デフォルトの名無しさん:2012/05/25(金) 22:27:17.00
>>178
decode:文字列を内部形式に変換
encode:内部形式の文字列をいろんなエンコードに変換

180 :デフォルトの名無しさん:2012/05/25(金) 23:56:31.64
デcode は点々がつくのでフラグが点く。
エンcode は点々が点かないのでフラグが落ちる。
煩わしい場合は全部フラグなしで通しても構わない。
その場合はencode、decodeの使い分け方に悩まずに済む。

181 :デフォルトの名無しさん:2012/05/26(土) 00:20:03.92
標準で trim 関数が欲しいと

182 :デフォルトの名無しさん:2012/05/26(土) 20:23:21.24
()の入ってる文字列が正規表現Sオプションで置換できないんですがどうすればいいんでしょ

183 :デフォルトの名無しさん:2012/05/26(土) 20:28:45.72
バックスラッシュでなんとかする
日本なら¥でなんとかする


184 :デフォルトの名無しさん:2012/05/26(土) 20:34:22.76
[(] もね

185 :デフォルトの名無しさん:2012/05/26(土) 20:37:19.48
円マーク入れても置換されないんですよね…
\(を他の一文字に変えて代入すると正しく置換されるんですが

$s = "foo\(bar\)";
$b = "foo\(bar\)";

$s =~ s/$b/replace/;
print "$s\n";

出力結果:foo(bar)

186 :デフォルトの名無しさん:2012/05/26(土) 20:44:38.56
$s = "foo(bar)";
$b = "foo\(bar\)";
$s =~ s/$b/replace/;
print "$s\n";

または

$s = "foo\(bar\)";
$b = "foo\\(bar\\)";
$s =~ s/$b/replace/;
print "$s\n";


187 :デフォルトの名無しさん:2012/05/26(土) 20:45:23.01
適当なサンプルでも $a $b は使わないようにしませう。

188 :デフォルトの名無しさん:2012/05/26(土) 20:56:17.91
>>185
http://ideone.com/29qU1

>>186
2番目は合ってる

>>187
ごめんなさい

189 :デフォルトの名無しさん:2012/05/26(土) 20:58:36.88
試してくれよう...

$pee = "foo[(]bar[)]";


190 :デフォルトの名無しさん:2012/05/26(土) 22:02:45.21
まじすみません。昨日書いたばっかりのプログラムが意味不明になりました。
一応全て自分で考えて書いた物です。(なぜ1日で分からなくなるんだ?)。
数学的知識が必要と思われます。誰か解説して下さい。
※書き込むために全書くスペースを使ってます。コピーで動作しません。

my ($xx, $yy, $rr_2) = (256, 256, 253); #xとyは円の中心位置。rは半径。
foreach my $rr ( 0 .. $rr_2){              #0から指定された半径の大きさの円までを全て描く
 foreach my $vv ( 0 .. int ($rr / 1.4142 + 0.5) ){  #1.4140 < n < 1.4146, nは不明数値を少なくすれば問題は起きない。
  my $vv2 = int( sqrt(($rr ** 2) - ($vv ** 2)) +0.5 );  #1pixづつずらして計算する要素
  #1/8づつ円周を描画
  $::image->[$xx + $vv]->[$vv2 + $yy] = 2;        #x軸をずらした場合のyの位置を描画
  $::image->[$xx - $vv]->[$vv2 + $yy] = 3;  
  $::image->[$xx + $vv]->[0 - $vv2 + $yy] = 4;
  $::image->[$xx - $vv]->[0 - $vv2 + $yy] = 5;

  $::image->[$vv2 + $xx]->[$yy + $vv] = 6;        #y軸をずらした場合のxの位置を描画
  $::image->[$vv2 + $xx]->[$yy - $vv] = 7;
  $::image->[0 - $vv2 + $xx]->[$yy + $vv] = 8;
  $::image->[0 - $vv2 + $xx]->[$yy - $vv] = 9;

 }
}

半径を1pxずつずらして指定の大きさまでの円を重ねて書くプログラムです。動作します。
数学的知識が全然ないまま手探りで作りました。質問事項は三つです。

1.4142が2の平方根に見えます。自分で探し出した数値なんですかこれはなんですか?
$vvはなにを意味してますか?
$vv2はなんですか?

自分で書いたコメントがついてるにも関わらず、すでにコメントの意味がわからないです。
プログラムの全容が必要なら全部書きますが、分からない箇所はここだけです。

191 :デフォルトの名無しさん:2012/05/26(土) 22:59:54.41
>>190
無責任にコメント

#1/8づつ円周を描画
にある通り、円を八等分して描画しているんだろう

そんでもって上下左右からはじまって、徐々に斜め方向に
進んでいくんだが斜めの座標は
直角二等辺三角形の辺の比が1:1:√2であることから
√2が関わってる

例えば中心から右少し上の領域はこうなっているわけだ

                          ○←描画点
                          ┃ }$vv 0 〜 半径÷√2
●━━━━━━━━━━━━┛
↑中心点   ↑の長さが$vv2

…当然、右少し下、上少し右、上少し左、左少し上、左少し下、
下少し左、下少し右の残りの7点も似た感じで描画しているんだろう

+1/2はマス目の中心を格子点ではなく格子点の間に置いているイメージなのかな

眠くて頭働いてないから豪快に間違ってるかもしれん

192 :デフォルトの名無しさん:2012/05/26(土) 23:37:58.45
>>190
三平方の定理(r**2 = x**2 + y**2)が成り立つ点P(x,y)の集合を描画すれば半径rの円が描ける。
円を8等分して描いてるので、x=0から始めてr**2 = x**2 + x**2を満たすxの位置までを描けばいい。

193 :190:2012/05/27(日) 00:04:44.52
>>191
本当にありがとうございます!
私のプログラムなのに私より詳しい!!

√2は、1/8づつ描画するため、直角二等辺三角形になるまでループしろと言うことだったんですか。
よくわからずに適当に数値を打ち込みながら1.4142を出してました。

vv と vv2 は描画するのが真円だから、x軸 でも y軸でもどうでも良かったんですね。
それで x や y を使わないでも v から座標が出るし、
v を x や y だと固定しないことで一回のループから 8個の描画が出来ると…。


なんで私がこんな合理的な処理を作れたんだろう…。
しかも覚えてないわ、自分でも意味分かってないわ、なのに…。
数式の意味も分からないまま、記述だけを見て処理や記述をカットして短く出来そうな所を短くしていった記憶だけはあるんですが。

本当にありがとうございました。助かりました。

>>192
ありがとうございます。数学的に説明されると意味が分かるような分からないような。

194 :デフォルトの名無しさん:2012/05/28(月) 13:10:15.84
LWP::UserAgent について質問です。

my $ua = LWP::UserAgent->new();
$ua->max_redirect(3);
$ua->agent('firefox12 の UA');
my $req = GET('http://www.youtube.com/');
my $res = $ua->request($req);
my $html = $res->decodec_content( charset => 'utf-8') || '';

このようにして HTML を取得しているのですが、URL Snooper2 で監視してたら、
ページ内にある <img> などにもアクセスを行っていました。

ページ内の src などにはアクセスさせず、純粋に HTML のみが欲しいのですが、
これを抑止する方法は無いのでしょうか?

195 :デフォルトの名無しさん:2012/05/28(月) 13:20:46.74
その$htmlをどうしているのか

196 :デフォルトの名無しさん:2012/05/28(月) 13:21:29.13
>>194
それ以前にそのコード動くんですか?
先頭に「use LWP::UserAgent;」を追加しても、こんなエラーが出ます。
Undefined subroutine &main::GET called at ./194.pl line 7.


197 :デフォルトの名無しさん:2012/05/28(月) 13:28:47.76
HTTP::Request::Common の GET() でしょ

198 :196:2012/05/28(月) 14:07:14.94
>>197
ありがとう
use HTTP::Request::Common;
も追加したら動きました

で、確認してみたんですが、このスクリプトから
img srcを解析してアクセスしている様子はみられませんでした
別のブラウザが動いていたのでは?と思うのですが…

199 :デフォルトの名無しさん:2012/05/28(月) 14:11:36.99
>>196
すみません。>>197 さんが書いてる通りです。

>>195
while($html =~ s/<div id="hoge">(.+?)><\/div>//is){ 〜 }
このように、正規表現で必要なところを抜き取るためだけに使用してます。


200 :デフォルトの名無しさん:2012/05/28(月) 14:14:38.11
>>198
OS 起動
URL Snooper2 を起動
スクリプトを走らせる
といった最小限の行動でも、うちでは URL Snooper が検知しました。

人様に渡す予定のあるものなので、「他の URL にアクセスしてるんだけど」
といったことを言われないようにしたいので、今回 URL Snooper2 で調べたら
他の URL もアクセスしてたので気になって質問させて貰っている次第です。

201 :デフォルトの名無しさん:2012/05/28(月) 14:47:14.55
細かいけど、$res->decodec_content(...)は$res->decoded_content(...)だな。
同じくイメージファイルにアクセスは無かった。Wiresharkで確認。

202 :デフォルトの名無しさん:2012/05/28(月) 14:59:23.78
URL Snooper が取得したコンテンツの URL に反応してるだけなんですかねぇ。
ん〜

>>201 さんが使ってる TCP/IP Snoop のソフトが反応してないだけだし、
問題無さそうですね。


ありがとうございました。


203 :デフォルトの名無しさん:2012/05/28(月) 21:46:42.93
LWPによるアクセスも、アフィリのリンク先にアクセスした場合カウントされると思いますか?
UAやリファラの偽装は前提とします。

204 :デフォルトの名無しさん:2012/05/28(月) 23:44:18.10
10年前ならともかく今は無理。
単発ならWWW::Mechanizeでいけるかもね。

205 :デフォルトの名無しさん:2012/05/29(火) 01:16:39.84
>>204
ありがとうございます。さすがに・・ですよね。

プロキシのリストとりつつアクセスしていくみたいなのありかなと思ったので・・
もちろん締め出しこわいので実際にはやりませんが

206 :デフォルトの名無しさん:2012/05/31(木) 00:01:00.45
バイナリファイル内から、特定の数バイトが存在する場所を
探すプログラムを書いているんですが、最終的な検索がうまく
いきません。

ファイルをopenして、一定の長さのデータを読み込んでから、
unpack()で16進文字列(?)に変換して、index()で検索している
のですが、テスト用のデータで確かに検索対象の16進文字列
があるはずなのに、index()の戻り値が-1になってしまいます。

my $seach = "ffffffffff";
read(IN,$buf,$size);
my $data = unpack("H*",$buf);
my $pos = index($data,$search);

みたいな感じで、$data内には"ffffffffff"が見えるのですが、
$pos=-1で戻されてしまいます。

unpackで変換した$dataは文字列として解釈されてないので
しょうか?

207 :デフォルトの名無しさん:2012/05/31(木) 02:11:31.61
binmode してないだけとか・・・

208 :デフォルトの名無しさん:2012/05/31(木) 07:28:45.00
>>207
若干省きましたが、binmodeにはなってます。

209 :デフォルトの名無しさん:2012/05/31(木) 08:09:51.00
openやreadにエラートラップを付けて、ファイルを読めてるかを確認。
次に$dataの中身を目で確認。

210 :デフォルトの名無しさん:2012/05/31(木) 08:28:51.99
>>209
そのへんもデバッガモードで動かしてみましたが、
問題ないようでした。

$dataも16進文字列(と思われるもの)がずらっと
並んでいるのを確認できます。

見た目、p $dataした中に"ffffffffff"が見えて
るのですが、次のステップに進むと$pos=-1で
返されていて、???という状態です。

当初、いくつかのサイトで$searchのほうをpack
したり、"\xff\xff\xff…"みたいな書き方でバイ
ナリのままindex()で検索するサンプルコードを
見つけたので、それを基に作っていたのですが、
どうしてもヒットしないので、読み出したデータ
のほうを文字列化してから検索すれば問題なかろ
うと思って、前のコードにしてみましたが、結局
あまり状況に変化がありませんでした。

ちなみに、変数に直接16進数でバイナリを突っ込
みたい場合は、↑に書いたように1バイトごとに
分けてから、\xを付加して代入でいいんですよね?


211 :デフォルトの名無しさん:2012/05/31(木) 08:36:29.21
>>208
「若干省きましたが」

212 :デフォルトの名無しさん:2012/05/31(木) 09:42:06.29
>>210
my $search = "ffffffffff";
my $buf = "\x20\x20\x20\xff\xff\xff\xff\xff\x20\x20";
my $data = unpack("H*", $buf);
my $pos = index($data, $search);
print $pos;

実験してみて、6が出るか確認。
出ればreadか、省いた部分に問題がある。

213 :デフォルトの名無しさん:2012/05/31(木) 14:46:24.22
>>212
ちゃんと6と出ました…

いろいろ試行錯誤した結果、
>省いた部分に問題がある。
がビンゴのようです、、、orz.

実際検索するバイト列の$searchは、複数設定したかったので、
冒頭で別のテキストファイルを読み込んで配列にいれていたの
ですが、ここがガンだということがわかりました。

my $list = shift;
open(IN, $list);
my @search = <IN>;
close(IN);

というような感じで、>>206の"my $pos = index($data,$search);"
を@searchの個数分だけ回していたのですが、これを入れるとダメ
になります。上記のファイルオープンを無くして、

my $search = shift;

にして、検索文字列の個数分ループを外したら、とたんに検索
がヒットするようになりました。

リストファイルは普通に16進数文字列が数行書いてあるだけの
テキストファイルなのですが、何か文字コードや改行関係で
最初のリスト読み込みのコードだと問題あるのでしょうか?

perlが動いているマシンはlinux(EUC)で、テキストファイルは
たしかにwindowsでも触った覚えはあるのですが、デバッガモード
で$search[x]で見る分には、普通の文字列に見えていたのですが…?

214 :デフォルトの名無しさん:2012/05/31(木) 15:14:31.87
最初っから全部あげてりゃ
15時間もムダにならなかった、
せいぜい1時間くらいで解決できた
こうやってデスマーーーーーーーーーーーーーーーーーーーーーーチが生まれる

一番のガンはお前だ


215 :デフォルトの名無しさん:2012/05/31(木) 15:45:40.14
おっちゃんの若いころはfreebsd-jp-mlで鍛え上げられたもんだ。

216 :デフォルトの名無しさん:2012/05/31(木) 16:03:51.82
>>213
chompを忘れてるとエスパーしてみる。

217 :デフォルトの名無しさん:2012/05/31(木) 19:22:05.98
>>214
サーセン <(_ _)>

>>216
多分、ビンゴっぽいのですが、若干修正してもまだ動かないので、知恵を貸して下さい。

サンプルと助言をいろいろつぎはぎして、↓のようなコードになりましたが、相変わらずこれだと検索できません…

218 :デフォルトの名無しさん:2012/05/31(木) 19:22:23.35
my $list = shift;
open(IN, $list) || die 'cant open list file';
chomp(my @search=<IN>);
close(IN);
my $BUFFER_SIZE = 1024 * 4;
foreach my $file (@ARGV){
if(! -f $file){ next; }
print "$file\n";
open my $FH, "<", $file || die 'cant open file';
binmode($FH);
my $buf;
my $data;
my $totalread = 0;
my $readlength = 0;
while($readlength = read($FH, $buf, $BUFFER_SIZE)){
foreach (@search){
my $data = pack("H*", $_);
my $pos = -1;
while( 1 ){
$pos = index($buf, $data, $pos + 1);
last if $pos == -1;
printf("\toffset:%x", $totalread + $pos);
print " -> ", unpack("H*", $data), "\n";
}
}
$totalread += $BUFFER_SIZE;
}
close $FH;
}

219 :デフォルトの名無しさん:2012/05/31(木) 19:23:22.46
>>213で書いたように、最初の引数をリストファイルにせず、
検索文字列を1個だけとって、@searchのループをしないように
するときっちり検索できるのですが…

・diff結果
5,9c5
< my $list = shift;
< open(IN, $list) || die 'cant open list file';
< chomp(my @search=<IN>);
< close(IN);
<
---
> my $search = shift;
24c20
< foreach (@search){
---
> #foreach (@search){
26c22
< my $data = pack("H*", $_);
---
> my $data = pack("H*", $search);
35c31
< }
---
> #}

まだ、文字列の取り扱いをミスっているのでしょうか?

220 :デフォルトの名無しさん:2012/05/31(木) 20:03:37.39
ファイルはCRLFでchompしてもLFしか取れてないとか

221 :デフォルトの名無しさん:2012/05/31(木) 20:15:35.57
あるクラスのすべてのインスタンスから
いじれるような変数を生成するためには
どこにどのように宣言したらよいでしょうか?


222 :デフォルトの名無しさん:2012/05/31(木) 20:22:00.39
chompでハマったことあったなぁ
chompの代わりにこれつかうといいよgはなくてもいい
$line =~ s/\x0D?\x0A?$//g;

223 :デフォルトの名無しさん:2012/05/31(木) 20:28:58.09
>>221
package Foo;
my $shared;
sub shared_var {
if (@_) { $shared = $_[0]; }
$shared;
}

224 :デフォルトの名無しさん:2012/05/31(木) 20:35:01.45
>>223

ありがたや!
この場合のmy $shared;
てゆうのはどのタイミングで宣言されるの?

要は、最初だけ初期化して
あとはインスタンスのやつらがその変数をいじりたおすってこと
したいんだけど。

225 :デフォルトの名無しさん:2012/05/31(木) 20:59:19.46
グローバルなら our の方が好き

226 :デフォルトの名無しさん:2012/05/31(木) 21:08:23.63
>>224
コードが読み込まれて実行される時。
あれが Foo.pm に書かれてて他のファイルから use Foo とかするならその時。
サブルーチン Foo::shared_var がいつ定義されるかってのと同じ。

カプセル化が必要なければもちろん our でよし。

227 :デフォルトの名無しさん:2012/05/31(木) 22:34:34.17
>>220
>>222
リストファイルのほうをod -tx1してみたら、見事に0d0aが
入ってました、、、orz.

日頃はshellとawkばっかりなので、改行の扱いとかルーズ
でしたが、こんなにハマるものとは…

結局、リストの読み込み部分を、>>220さんの指示通り、
my @search;
my $list = shift;
open (IN, $list) || die 'cant open list file';
while(<IN>){
s/\x0D?\x0A$//g;
push(@search, $_);
}
close(IN);

とすることで、無事に複数の文字列を検索させることが
できました。

ありがとうございました〜


228 :227:2012/05/31(木) 22:51:12.56
あ、>>222さんのサンプル通りでした、スマソ

229 :デフォルトの名無しさん:2012/05/31(木) 22:57:34.67
結局改行か

230 :デフォルトの名無しさん:2012/05/31(木) 23:33:11.84
Perlでページをリロードした際、一部のテンプレートな出力だけ再読み込みしないで
表示したままにすることはできますでしょうか?

いったん画面が白くなるより、なにか見せてたほうがユーザがストレスに
感じないように思うんです。

prototype.jsとかのお話になってしまったら恐縮です。

231 :デフォルトの名無しさん:2012/06/01(金) 00:02:55.88
CGI についての質問は板違いです。WEB プログラミング板でどうぞ。
CGI と Perl の区別がつかない人も WEB プログラミング板に行ってください。

232 :デフォルトの名無しさん:2012/06/01(金) 07:57:10.65
>>230
つ[javascript]

233 :デフォルトの名無しさん:2012/06/01(金) 11:50:56.28
めんどくさいなら iframe w

234 :デフォルトの名無しさん:2012/06/01(金) 12:11:13.19
>>232
ありがとうございます。やはりjavascriptでやるしかないですか・・・

>>233
それでいいかもと思うようにちょっとなりましたw

235 :デフォルトの名無しさん:2012/06/02(土) 08:49:50.70
文字列内のAタグ内に「.jpg」と末尾についたURLを置換しようとすると
「.jpg」が末尾にないものは消去されてしまいます
解決策教えて下さい



$s = "<a href=\"url\" target=\"_blank\">url</a><a href=\"http://foo.jpg\" target=\"_blank\">foo</a><a href=\"http://bar.jpg\" target=\"_blank\">bar</a>";
$s =~ s/<a href="(.*?)\.jpg"/<a href=\"replace\"/g;
print "$s\n";


"<a href=\"url\" target=\"_blank\">url</a>"
↑この部分なくなる
</a>まで消えるんですが一体どういうカラクリで・・・?

236 :デフォルトの名無しさん:2012/06/02(土) 09:20:28.94
これもうテンプレ入れろよ

.*?がどこにマッチしてるかを考えろ


237 :デフォルトの名無しさん:2012/06/02(土) 09:58:32.41
俺の股間にマッチしてるぜ!

238 :デフォルトの名無しさん:2012/06/02(土) 10:04:56.28
>>235
use v5.14;
my $s = q{<a href="url" target="_blank">url</a><a href="http://foo.jpg" target="_blank">foo</a><a href="http://bar.jpg" target="_blank">bar</a>};
say $s =~ s/<a href="(.*?)\.jpg"/<a href="replace"/gr;
say $s =~ s/<a href="([^"]*)\.jpg"/<a href="replace"/gr;

<a href="replace" target="_blank">foo</a><a href="replace" target="_blank">bar</a>
<a href="url" target="_blank">url</a><a href="replace" target="_blank">foo</a><a href="replace" target="_blank">bar</a>

問題が発生した原因は、「(.*?)」が「.jpg"」が出てくるまで全部マッチしたためですね

>>236
落ち着け

239 :デフォルトの名無しさん:2012/06/02(土) 10:38:14.80
この手のヤツはもう全部パーサつかって
バラバラに分解したほうが早いんじゃあないかな

web::scraperとか
firefoxいれてるならfirebugも併用するとか


240 :デフォルトの名無しさん:2012/06/03(日) 21:49:44.05
forでループ処理をしているのですが、
ループの回数が増えるほどメモリを喰って処理が遅くなっていきます。
それぞれの変数が確保してるメモリの量を見る方法はないでしょうか?

241 :デフォルトの名無しさん:2012/06/03(日) 22:25:46.21
複数の改行をひとつの<br>にするにはどうすればいいのでしょうか?
$hoge =~ s/\n*/<br>/g;
ではできませんでした。

242 :デフォルトの名無しさん:2012/06/03(日) 22:44:37.72
$hoge =~ s/(\x0D\x0A|\x0D|\x0A)+/<br \/>/g;


243 :デフォルトの名無しさん:2012/06/03(日) 22:45:08.52
>>241
1)改行が「\r\n」だと無意味
2)てか\n*だと全文字の間に<br>が入っちゃうよ?

てことで
$hoge =~ s/(\r?\n)+/<br>/g;
でどう?

244 :243:2012/06/03(日) 22:46:49.17
>>242さんの見てちょっと直してみた
$hoge =~ s/(\r?\n|\r)+/<br>/g;

245 :デフォルトの名無しさん:2012/06/03(日) 22:48:58.11
ちょっとまて。

複数の改行とは書いてあるが
複数の連続する改行とは書いてないぞ。

246 :デフォルトの名無しさん:2012/06/03(日) 22:53:56.52
s/\n+/<br>/mg;

247 :241:2012/06/03(日) 23:26:42.09
ありがとうございました!
無事できました!

248 :245:2012/06/04(月) 00:15:13.24
どういたしまして。

249 :240:2012/06/04(月) 00:18:02.48
事故解決
Devel::Sizeでできました。

250 :245:2012/06/04(月) 00:22:25.53
どういたしまして。

251 :デフォルトの名無しさん:2012/06/04(月) 04:18:44.32
5.10から\Rも使えるよー

252 :デフォルトの名無しさん:2012/06/04(月) 05:51:32.77
>>245
相当悔しかったようだが、そのタイミングではもう無理

253 :デフォルトの名無しさん:2012/06/04(月) 23:12:46.30
xxxx/xx/xx(x) xx:xx:xx
↑こういう、この2ちゃんねるにもあるような日時の文字列を、
time関数が返す1970/1/1 からの秒数に変換するにはどうしたらいいですか??


254 :デフォルトの名無しさん:2012/06/04(月) 23:32:49.88
posixつかう


255 :デフォルトの名無しさん:2012/06/05(火) 01:01:02.06
ちったぁ探せやw


時間 秒 変換

256 :デフォルトの名無しさん:2012/06/05(火) 01:23:50.57
たーいむろーかるでやっちゃう

257 :デフォルトの名無しさん:2012/06/05(火) 01:45:49.70
Time::Piece->strptime

258 :デフォルトの名無しさん:2012/06/05(火) 02:18:32.11
>>253
257 も紹介しているが Time::Piece->strptime だけでできた。

$ perl -MTime::Piece -e '$d="2012/06/04(月) 23:12:46";print Time::Piece->strptime($d,"%Y/%m/%d(%a) %H:%M:%S")->epoch'
1338851566

# 曜日はちゃんと処理されないけど、今回は関係ない

259 :デフォルトの名無しさん:2012/06/05(火) 11:21:18.76
Error parsing time at C:/Perl/lib/Time/Piece.pm line 469.

260 :デフォルトの名無しさん:2012/06/05(火) 11:44:12.73
>>258の環境は Time::Piece v1.17以前、かつ LANG が ja_JP と見た
そうでなきゃ>>259になるはず

Time::Piece で行くなら
・最新版使う
・曜日とか余計なもんは strptime に食わせる前に削ぎ落としておく
・文字列が日本時間(ローカル)なら Time::Piece->strptime でなく localtime->strptime にする
以上を厳守で

261 :デフォルトの名無しさん:2012/06/05(火) 15:50:01.50
>>253
256に同意

use Time::Local;
my ($year, $mon, $mday, $hours, $min, $sec) = '2012/06/04(月) 23:12:46.30' =~ m|(\d{4})/(\d\d)/(\d\d).*(\d\d):(\d\d):(\d\d)|;
my $time = timelocal($sec, $min, $hours, $mday, $mon - 1, $year - 1900);

262 :デフォルトの名無しさん:2012/06/05(火) 17:07:10.18
Time::Piece物凄く嫌われてるな…

263 :デフォルトの名無しさん:2012/06/05(火) 19:16:53.80
便利なのにねー

264 :デフォルトの名無しさん:2012/06/05(火) 19:38:16.50
Time::Piece好きだけどな。とりあえずここはDateTimeで。
エイプリルフールネタで2chが3月32日とかやる場合あるけどそういうのは勘弁して。

use strict;
use warnings;

use DateTime;
use DateTime::Format::Strptime;
use utf8;

my $str = '2012/06/04(月) 23:12:46.30';
my $strp = DateTime::Format::Strptime->new(
pattern => '%Y/%m/%d(%a) %H:%M:%S',
locale => 'ja',
time_zone => 'Asia/Tokyo',
on_error => 'croak',
);

print $strp->parse_datetime($str)->epoch;

265 :デフォルトの名無しさん:2012/06/05(火) 19:40:37.24
ucfirst()の動作についてなんですが、
ucfirst 'FOO' #=>'FOO'
勝手に余計な変更を加えられるのも困る気はするけど、直感的には'Foo'になりそうなもんです。
キャメルケースへの変換のためには常に↓のように書くようになりますか?
ucfirst lc 'FOO'

266 :デフォルトの名無しさん:2012/06/05(火) 19:53:20.63
>>265
ヒトコブラクダでいいならね。

267 :デフォルトの名無しさん:2012/06/05(火) 20:58:57.97
>>266
そうですか。コブが複数の場合はucfirstの範疇ではないんでおkです

268 :デフォルトの名無しさん:2012/06/05(火) 23:38:34.82
lowerCamel を UpperCamel にするのとかにも使えるのが ucfirst なのに
ucfirst 'fooBar' の結果が 'Foobar' だったら困るわ

269 :デフォルトの名無しさん:2012/06/06(水) 01:22:44.77
Time::Pieceは標準モジュール
さすがに標準モジュールを使わない理由はないよw

270 :デフォルトの名無しさん:2012/06/06(水) 01:29:00.82
>>269
まだ5.8使ってるサーバだと標準じゃない

271 :デフォルトの名無しさん:2012/06/06(水) 01:51:35.99
5.14 より前の perl に標準装備の Time::Piece は v1.15 と古く、
わりと致命的なバグとかローカル時間の扱いで嵌りどころがあるので最新版入れるべき

272 :デフォルトの名無しさん:2012/06/06(水) 01:53:21.04
でも5.8でTime::Piece使えるでしょ?

標準モジュールなのはわかっていて
別のを使う理由なんてあんの?

レガシーコードが残ってるならわかるけど。

273 :デフォルトの名無しさん:2012/06/06(水) 01:55:47.99
>>271
興味深いね。どのバージョンで修正されたもの?

そういう情報こそ重要だよ。

http://cpansearch.perl.org/src/MSERGEANT/Time-Piece-1.20/Changes
Changes置いておくのでよろしく。


274 :デフォルトの名無しさん:2012/06/06(水) 02:38:34.00
いや、重要というなら「最新版を使え」ということをこそ強調したかったんだけど。それならとりあえず鉄板なんだし。
俺はもはや最新版しか使ってないし過去のバージョンのバグなど考慮したくないわ。

275 :デフォルトの名無しさん:2012/06/06(水) 03:01:20.35
5.8使わされてる人もいるんですよ?

276 :デフォルトの名無しさん:2012/06/06(水) 07:14:22.30
嫌われてるとかじゃなくて、>>253にTime::Piece使うと、ちょっと面倒だからでしょ。
use 5.14.0;
use warnings;
use utf8;
use Time::Piece;

my $d = "2012/06/04(月) 23:12:46";
my $time = Time::Piece->strptime($d =~ s/\((?:月|火|水|木|金|土|日)\)//r, '%Y/%m/%d %T')->epoch;
say $time;

277 :デフォルトの名無しさん:2012/06/06(水) 08:38:09.10
>>276
Time::Piece以外の方が面倒じゃねーかw

278 :デフォルトの名無しさん:2012/06/06(水) 09:31:21.58
>>260でも軽く触れたけど、>>276だと *標準時の* 2012/06/04(月) 23:12:46 のエポックになる。
*日本時間の* 2012/06/04(月) 23:12:46 のエポックを求めるのなら
localtime->strptime(...)->epoch とする(タイムゾーンは日本時間になってるのが前提)か、
Time::Piece->strptime(...)->epoch - 9*60*60 などとして GMT からずらさなければいけない。
ただし、v1.15 では前者の方法でもローカル時刻扱いにはならない。なので何度も言うけど使うなら最新版。
もっとも、今回は最終的に Time::Piece のオブジェクトが必要なわけじゃないのだから後者の方法で問題ないけど。

279 :デフォルトの名無しさん:2012/06/06(水) 09:40:44.81
>>278
そこを突っ込むなら、Shift_JISでなく、UTF-8で処理してる部分にも突っ込んでおいてくれ。

280 :デフォルトの名無しさん:2012/06/06(水) 12:52:44.15
45万行(100MB)近くのテキストファイルから行単位で範囲抽出したいんだけどどうしたら良い?
開始行と終了行は正規表現で判定したい。

開始行:最初に05/Jun/2012が出てきた行
終了行:06/Jun/2012が最初に出た行の一行手前、もしくはEOF

抽出する行数はざっくり言うと数百行になる
普通にファイル開いて配列にぶちこんでforeachで回しながら正規表現とか泥臭い方法ならいくらでもできるんだけど
このスクリプトは毎日一回動かすからなるべく軽い方法でやりたい

281 :デフォルトの名無しさん:2012/06/06(水) 13:25:22.74
>>280
俺はそういう場合は「配列にぶちこんでforeachで回しながら正規表現」ではなく
「文字列にして正規表現」にしてるけど、そんなでかいファイルでやったことない
からうまくいくかわからんなw

282 :デフォルトの名無しさん:2012/06/06(水) 13:40:32.94
そこまで行ったら巨大すぎるから
昔ながらのUNIXのツールを使えばいいんじゃあないかと
awkとか

/Hello/,/Bye/ {
print $0;
}

"Hello" を含む行から、"Bye" を含む行まで(その行を含む)

とかだってさ


283 :デフォルトの名無しさん:2012/06/06(水) 13:50:16.87
>>280
perl -ne 'print if m{05/Jun/2012}..m{06/Jun/2012} and not m{06/Jun/2012}' ...
ワンライナーでなければwhile(<>){ ... }でくるむ。

284 :デフォルトの名無しさん:2012/06/06(水) 20:32:08.32
今時、100MB なんて巨大の範疇には入らんだろが。

百歩譲って、283氏の例の様な範囲演算子を知らんでも、
perl -lne '$h = m{05/Jun/2012} ? 1 : m{06/Jun/2012} ? undef : $h ; print if $h'
とかで、丁寧にフラグ立てすりゃメモリも使わんし何の問題もない。


285 :280:2012/06/06(水) 21:45:04.51
>>281-284
ありがとう
ちょっとやってみる

286 :デフォルトの名無しさん:2012/06/07(木) 00:41:59.36
1日1回くらいの頻度じゃ大した負荷にはならんと思うけどなあ…
これが毎分1回とかなら多少は考慮も必要だろうけど。

287 :デフォルトの名無しさん:2012/06/07(木) 02:26:10.10
nice!

288 :デフォルトの名無しさん:2012/06/07(木) 21:39:11.83
標準は時空を越えてlocaltime。最新じゃないと使い物にならないとかまじ勘弁。

289 :デフォルトの名無しさん:2012/06/07(木) 23:04:18.70
新アニメ「ろ〜かる☆たいむ」

290 :デフォルトの名無しさん:2012/06/07(木) 23:04:55.75
新アニメ「えすぷんと☆えふ」

291 :デフォルトの名無しさん:2012/06/07(木) 23:05:59.99
漫談「パールのようなもの」


292 :デフォルトの名無しさん:2012/06/07(木) 23:15:14.06
>>288
Time::Pieceもlocaltimeだよw

293 :デフォルトの名無しさん:2012/06/08(金) 04:39:17.97
XML::Simpleを使用しXMLを解析しようとしています。
なぜか処理が成功するXMLファイルと失敗するXMLファイルがあるのですが、
何故結果にバラつきがあるのかついて教えていただけますと助かります、


my $parser = XML::Simple->new;
my $data = $parser->XMLin($html);

foreach my $Serv (@{$data->{'CompleteSuggestion'}}){

$aa = $Serv->{'suggestion'}->{'data'};
$bb = $Serv->{'num_queries'}->{'int'};

}


失敗したXML
http://www.google.com/complete/search?hl=ja&q=マジックジェミー&output=toolbar

成功したXML
http://www.google.com/complete/search?hl=ja&q=森永乳業&output=toolbar

294 :デフォルトの名無しさん:2012/06/08(金) 04:45:13.86
XML::Simpleの気分だろ

295 :デフォルトの名無しさん:2012/06/08(金) 06:09:27.02
utf8か単なるバイナリかのネタ?

296 :デフォルトの名無しさん:2012/06/08(金) 08:03:12.91
>>295
>>293 の話なら、たぶんそんなところだろうね。

297 :デフォルトの名無しさん:2012/06/08(金) 08:21:55.07
>>293
失敗しない。
問題があるとしたら、隠してる部分にある。

298 :デフォルトの名無しさん:2012/06/08(金) 10:41:17.99
>>293 - 297
ありがとうございます。

隠している部分たしかにございました!ループで20回連続でまわしております。
単体でマジックジェミーしたらたしかに動きました。

まわせるループの数が20回までいかずに途中でとまってしまいます。
いつも同じ回数でなく、今マジックジェミーだけで20回連続でまわしたら8回目で
停止いたしました。

@itemsには適宜違うワードがいろいろふくまれるのですが、今日の朝方は
3回目のループでマジックジェミーがきてて落ちてしまいました。
おっしゃるとおり気分としか思えない状態です。

時間をあけたりリファラーを変更してみたりしたのですが解決しません。

foreach (@items){
my $WORD = $_;
my $html2 = LWP::Simple::get("http://www.google.com/complete/search?hl=ja&q=$WORD&output=toolbar");

my $parser = XML::Simple->new;
my $data = $parser->XMLin($html);

   :

}

299 :298:2012/06/08(金) 10:55:15.31
追加です。

そして不思議なことに以下のfor文を抜くと17回、for文を入れると3回で落ちるのです。
2段階で連続でまわせない何かがあります。

 @lwpでの取得が20回ループに満たない
 Axml解析入れるとなおさら満たない

foreach my $Serv (@{$data->{'CompleteSuggestion'}}){

$aa = $Serv->{'suggestion'}->{'data'};
$bb = $Serv->{'num_queries'}->{'int'};

}


300 :298:2012/06/08(金) 11:03:12.01
すみません>>299は忘れてください。中身(与えるワードと取得したXMLの中身)が
動的に変わっているのでXML::simpleは関係ないようですです。

301 :デフォルトの名無しさん:2012/06/08(金) 11:13:51.75
さっさと全部あげろよアホ


302 :デフォルトの名無しさん:2012/06/08(金) 12:29:59.83
全部ここに上げたら著作権は2chのものになってしまうので他のサイトに貼り付けるべし

303 :298:2012/06/08(金) 13:39:52.47
>>301 >>302
すみません。解決いたしました。

あわせふためいてしまっていろいろ誤解しておりましたが、
LWPでのXML連続取得は成功しておりました。XML:Simpleが原因はわからないのですが、
解析対象によって途中で落ちてしまう状態になりました。

ですのでXML::Simple使わずに自力で解析の仕組みを作って対応することができました。
ありがとうございました。


304 :デフォルトの名無しさん:2012/06/08(金) 13:45:15.82
またXML::Simple以外のところが原因じゃないの?
というか、XML::Simpleにそういうバグがあるなら直したらいいのでは?
どうせCPANとかにソースごと置いてあるモジュールだろ?
それかもっと使いやすいやつを作って公開すれば人気者

305 :298:2012/06/08(金) 14:22:53.40
>>304
リアルタイムにXMLが更新されているので何回も実行しましたが、以降は
落ちないのです。今まではループのどっかしらでひっかかってうまくいきませんでした。

修正したのはXMLの解析部分だけ(>>293のfor文で解析しているところを自作の
ものに置き換え)なので、ほかのところが原因の可能性が薄いです。



306 :デフォルトの名無しさん:2012/06/08(金) 18:33:16.65
だから自分でモジュール作ってCPANにでもアップしたらクラスの人気者だって

307 :デフォルトの名無しさん:2012/06/08(金) 18:46:42.44
そう、せいぜいクラスの人気者どまり。
ここの人たちは誰も使わない。

308 :デフォルトの名無しさん:2012/06/08(金) 21:11:37.18
このプログラムを実行したとき、プログラムを終了するまでメモリが開放されないため、
容量の大きいページを開いたときに、大量のメモリ使ったままになってしまい不便です、
メモリを開放させる方法を教えて下さい、お願いします。
undefしてもスコープを外してもダメでした

sub hoge{
my $ua = LWP::UserAgent->new;
my $res = $ua->get("$url");

$res = $res->content;
$res =~ /hoge(.+)hoge/;

undef $ua;
undef $res;

return $1;
}


309 :デフォルトの名無しさん:2012/06/08(金) 21:37:16.84
サブルーチンの外で循環参照が発生してるんじゃない?

310 :デフォルトの名無しさん:2012/06/09(土) 00:32:26.34
聞けば聞くほどlocaltime一択。人柱の方、がんばってねw

311 :デフォルトの名無しさん:2012/06/09(土) 00:56:51.47
>>310
さすがに必死すぎるだろw
誰も話をしていない。

312 :デフォルトの名無しさん:2012/06/09(土) 02:00:58.57
>>311
たぶんbotだろ。放っとけ。

313 :デフォルトの名無しさん:2012/06/09(土) 02:45:34.34
perl のメモリの解放は、プログラム終了時のみだったはず

314 :デフォルトの名無しさん:2012/06/09(土) 05:01:04.67
>>308
OSを変える。Perlのせいじゃない。
と、ラリー氏がおっしゃってました。

315 :デフォルトの名無しさん:2012/06/09(土) 07:41:24.90
OS だけじゃなくて malloc の違いもあるよ。
perl のコンパイルの時 perl ビルトインの malloc を使うか
OS の malloc を使うか選択出来るし、メモリキープの挙動も
変る。

perldoc perlfaq3
[How can I make my Perl program take less memory?]

>>313
実際にコードをチェックしたことないの?

以下、 404 の所から大昔にメモったチェック方法
==============
perl でメモリのチェックをするのには
sub myps { print `ps ux $$` }
myps ;
# コード
myps ;
して差分を取る。

但し、表われるのは「実際の使用メモリ」ではなく、
「キープされて解放されていないメモリ」である事、
malloc に依存する事を念頭に。
==============


316 :デフォルトの名無しさん:2012/06/09(土) 12:10:48.68
>>308
OSにメモリが返されないのは仕方ないので、
hogeの処理をforkして別プロセスにするとか、
HTTP::Tinyを弄って、チャンクまたは行単位で処理するとか。

317 :デフォルトの名無しさん:2012/06/09(土) 16:52:16.50
hogeとかまだ使ってる池沼いるのかwwwwwwwwww
ダセェ老害wwwwwwwwwwwwwwwwwww

318 :デフォルトの名無しさん:2012/06/09(土) 16:53:05.26
じゃあ、hageにしよう。
つまりお前のことだ。

319 :デフォルトの名無しさん:2012/06/09(土) 16:58:49.61
普段はfoo, barが多いけど、
変数foo, barと関数Hoge…みたいに軸を分けるときはよく使うなあ、俺

320 :デフォルトの名無しさん:2012/06/09(土) 17:02:51.85
日本人なら、

mera, merami , merazoma
hoimi, behoimi ,behoma, behomara, behomazun

とかにしろよ。

321 :デフォルトの名無しさん:2012/06/09(土) 17:11:37.03
そんな変数なんて萌えキャラの名前とかでいいだろ

322 :デフォルトの名無しさん:2012/06/09(土) 17:15:05.86
kashiyuka、nocchi、archan

323 :デフォルトの名無しさん:2012/06/09(土) 17:16:51.50
&perfume( kasiyuka , notti );

324 :デフォルトの名無しさん:2012/06/09(土) 17:17:46.65
PHPはマジで糞

325 :デフォルトの名無しさん:2012/06/09(土) 17:23:38.85
ほら、スレタイ読めない奴が来たw
これから何をするのか、それとも逃げ帰るのかw

326 :デフォルトの名無しさん:2012/06/09(土) 17:42:34.77
phpってperlの劣化版ぱくりだろ。

327 :デフォルトの名無しさん:2012/06/09(土) 17:43:47.74
Socketで書くおれはメモリの解放問題の影響はなし

328 :デフォルトの名無しさん:2012/06/09(土) 17:48:52.67
圧倒的に古いfoo,bar,baz,quxを使うけど、老害とか言われても困る。
hoge,hage,piyoを知ったのは90年代以降だな。

329 :デフォルトの名無しさん:2012/06/09(土) 17:48:54.74
PHPのほうがPerlよりはるかに進化してる
Perl厨は現実を受け入れられずにしがみついてるだけ

330 :デフォルトの名無しさん:2012/06/09(土) 18:00:18.94
はいはい。よかったね。

331 :デフォルトの名無しさん:2012/06/09(土) 18:24:41.88
PHPはPerl4のコピーだから優れてるのは当然ってことで今日は帰っていいよ

332 :デフォルトの名無しさん:2012/06/09(土) 18:36:58.19
あれのどこがPerl4なんだ?

クラス定義とかインターフェースとかトレイトとか
C++、Java、Smalltalk あたりのコピーだろ。

333 :デフォルトの名無しさん:2012/06/09(土) 19:48:04.00
バカ発見 → >>331

334 :デフォルトの名無しさん:2012/06/09(土) 19:58:22.10
PHPはPerlに比べて実行速度がアホみたいに遅い。
そしてUDしまくるわセキュホはあるわで存在そのものが迷惑。

PerlとPHP両方使える環境でPHP選ぶのはマジキチだよ。
まぁPHP選んでる時点で情弱だって分かるから、システム開発のスキルも経験も期待できない。
PHPの存在価値なんてそういう情弱発見器的な部分だけだろ。

335 :デフォルトの名無しさん:2012/06/09(土) 20:01:38.64
PerlとPHPを比較とか意味不明w何でPerlとゴミを比較してんの?www

336 :デフォルトの名無しさん:2012/06/09(土) 20:02:11.07
>>334
>PHPはPerlに比べて実行速度がアホみたいに遅い。
kwsk

337 :デフォルトの名無しさん:2012/06/09(土) 20:04:39.75
>>334
証拠持ってきたよ。
これでご満足いただけるといいのですが。

http://module.jp/blog/cgi_php_servlet_modeprl_benchmark.html
http://www.itmedia.co.jp/enterprise/articles/0608/25/news053.html

338 :デフォルトの名無しさん:2012/06/09(土) 20:07:41.13
こちらへどうぞ。

【Perl,PHP】LL バトルロワイヤル 22【JavaScript,Python】
http://toro.2ch.net/test/read.cgi/tech/1336491087/


339 :デフォルトの名無しさん:2012/06/09(土) 20:48:49.83
携帯向けにHTMLメールを送るサービスを作っているのですが、
キャリア毎に適切なHTMLメールを構成してくれるモジュールはないでしょうか?

340 :デフォルトの名無しさん:2012/06/09(土) 20:49:44.69
絵文字の相互変換やりたいです
くらいにダイレクトに言えよw


341 :デフォルトの名無しさん:2012/06/09(土) 21:25:13.57
絵文字は使わないんで、
メアドとHTMLを渡せばmultipartとか文字コードとか適切に処理してくれればいいです

342 :デフォルトの名無しさん:2012/06/09(土) 21:28:53.97
>>337
2003年&2006年の情報持ってくるとか、ム板住人の鑑だな。

343 :デフォルトの名無しさん:2012/06/09(土) 22:57:42.88
そして最新の情報も持ってこないとか
やはrオマイも無板住人の鏡だ


344 :デフォルトの名無しさん:2012/06/09(土) 22:59:38.88
ム板の掃き溜め

345 :デフォルトの名無しさん:2012/06/09(土) 23:04:19.57
本当に情弱いてワラタ

346 :デフォルトの名無しさん:2012/06/11(月) 00:14:50.10
$a =~ /(\d+)/;
$a1 = $1;

を1行かけませんか?

347 :デフォルトの名無しさん:2012/06/11(月) 00:20:29.11
$a =~ /(\d+)/; $a1 = $1;


348 :デフォルトの名無しさん:2012/06/11(月) 00:30:07.63
そのセミコロンは卑怯だw

349 :デフォルトの名無しさん:2012/06/11(月) 00:33:23.82
($n)=$v=~/(\d+)/

350 :デフォルトの名無しさん:2012/06/11(月) 00:34:24.96
$a =~ /(\d+)/, $a1 = $1;

351 :デフォルトの名無しさん:2012/06/11(月) 00:37:19.51
>>348
卑怯だけど、現実的かつ簡潔ではあると思って目からセミコロンが落ちた

352 :デフォルトの名無しさん:2012/06/11(月) 00:37:21.34
my $n = ($v =~ /(\d+)/)[0];

353 :デフォルトの名無しさん:2012/06/11(月) 02:19:54.77
ワンライナーのスクリプトは暗号レベル

354 :デフォルトの名無しさん:2012/06/11(月) 03:37:22.65
perl 'print "Hello Work";'

355 :デフォルトの名無しさん:2012/06/11(月) 04:13:23.73
Can't open perl script "print "Hello Work";": No such file or directory

356 :デフォルトの名無しさん:2012/06/11(月) 04:40:53.97
>>346
my ($a1) = ($a =~ /(\d+)/);
定番だろ ていうか釣り?

357 :デフォルトの名無しさん:2012/06/11(月) 06:58:55.74
あまりワンラインにすることにこだわるとundefの警告を
出させないようにするところに困るよね?

358 :デフォルトの名無しさん:2012/06/11(月) 09:25:50.71
my $n = ($s =~ /(\d+)/)[0] // ''; # >>352氏のアイディアの利用
my $n = ($s =~ /(\d+)/ ? $1 : '');

>>356
m//をスカラコンテキスト縛りで使っていると、
リストコンテキストはピンと来なかったりするんじゃないだろうか。

359 :デフォルトの名無しさん:2012/06/11(月) 11:10:32.65
>>358
そーゆーもんかね
まだuse strict;もuse warnings;も知らず
for (0 .. 9)とかでなくfor($i=0;$i < 10;$i++)を普通に使い
サブルーチンコール全部に&つけてたくらい昔から
自分としては定番中の定番な書き方だったもんでつい釣りかと

360 :デフォルトの名無しさん:2012/06/11(月) 12:04:59.97
>>356は公式に推奨されてた気がする。
同封のマニュアルとラクダ本ではスタンダード形式みたいに扱われてた。

361 :デフォルトの名無しさん:2012/06/11(月) 13:15:35.14
()は一つ減らせる
my ($a1) = $a =~ /(\d+)/g;
これでもいける
my ($a1) = $a =~ /\d+/g;

362 :デフォルトの名無しさん:2012/06/11(月) 13:29:52.72
>>361
= の右辺の括弧を外すのはいいけど、
必要なのは最初のマッチだけなのに /g つけたら無駄な探索しちゃうよ

363 :デフォルトの名無しさん:2012/06/11(月) 15:40:36.22
Perlは左辺でコンテキストを決めて、演算子や関数とかが何を返すのかが徹底されてるけど、
それがピンと来てない人だと奇抜に映るのかもね。
それが不可能な一部のビット演算以外、一つ残らず全てそれで統一されてる。


364 :デフォルトの名無しさん:2012/06/11(月) 16:40:33.52
MySQLにforeachで複数回insertしようとすると
DBD::mysql::st fetchrow_array failed: fetch() without execute()
このようなエラーがでて途中で終わってしまいます。
このエラーはどのような時にでるのでしょうか?

365 :デフォルトの名無しさん:2012/06/11(月) 18:26:35.56
>>364
試してないので細かな条件は分からんけど、
クエリが実行されてないのにデータを取り出そうとした、というようなエラーに読める。

それはさておき、INSERTでfetchって使う?

366 :デフォルトの名無しさん:2012/06/12(火) 01:43:23.43
perl -v 'print "Hello Work";'

367 :デフォルトの名無しさん:2012/06/12(火) 02:42:45.14
一行に1つずつ数字があるファイルがあって、その前後の差分を表示させたいのですが、ワンライナーでできるでしょうか?
$ cat /tmp/file1
12345
12346
15440
100000
....
$ ワンライナー /tmp/file1
1
94
84560
....



368 :デフォルトの名無しさん:2012/06/12(火) 03:03:44.60
なぜワンライナーがいいのか知らないけど、
そんな質問したら変な記述がくるぞ

369 :デフォルトの名無しさん:2012/06/12(火) 03:14:12.59
>>367
Perlの仕事じゃないな

% awk 'NR>1{print $1-d}{d=$1}' /tmp/file1
1
3094
84560


370 :デフォルトの名無しさん:2012/06/12(火) 03:30:49.63
perlでやっちゃダメってこともない
perl -n -e "print $_ - $last, \"\n\" if $last; $last = $_;" /tmp/file1

371 :デフォルトの名無しさん:2012/06/12(火) 03:40:11.00
$ perl -nE '$.>1&&say$_-$t;$t=$_' /tmp/file1

372 :デフォルトの名無しさん:2012/06/12(火) 05:25:42.10
>>358
defined or を使わんでも
my $n = ( ($s =~ /(\d+)/), '' )[0] ;
my ($n) = ( ($s =~ /(\d+)/), '' ) ;
が常套手段だろ。

>>369
スレの題名読め

373 :デフォルトの名無しさん:2012/06/12(火) 05:35:32.18
横槍だが>>369の二行目はちゃんとPerlについての回答になってると思う俺
そんでもって四行目以下は二行目の補強だな

374 :デフォルトの名無しさん:2012/06/12(火) 05:44:24.51
>>282
でカチンと来てたから、たんにperlを知らないバカだと

つい…


375 :デフォルトの名無しさん:2012/06/12(火) 06:50:33.14
日本固有の領土

376 :デフォルトの名無しさん:2012/06/12(火) 16:31:46.73
チンコ収納可能ブリーフ

377 :デフォルトの名無しさん:2012/06/12(火) 21:14:13.00
それをビガーパンツと言う

378 :デフォルトの名無しさん:2012/06/13(水) 01:57:27.08
>>374
デカチン?

379 :デフォルトの名無しさん:2012/06/13(水) 23:42:07.29
strictやwarningsのメッセージを1文ずつ配列に入れるにはどうすればいいですか?

380 :デフォルトの名無しさん:2012/06/14(木) 01:48:04.48
一文ずつ区切って配列の後ろから追加すればいいだろ知能障害

381 :デフォルトの名無しさん:2012/06/14(木) 02:22:47.01
傍から見てると、標準エラー出力制御というPerlというよりはOSの質問に見える

382 :デフォルトの名無しさん:2012/06/14(木) 06:27:17.62
use strict ;
use warnings ;

my @dat ;
local $SIG{__WARN__} = sub { push @dat, $_[0] } ;
warn q{hoge} ;
print q{cap_} . $_ for @dat ;

die も $SIG{__DIE__} でキャプ



383 :デフォルトの名無しさん:2012/06/14(木) 10:51:31.35
ここはいつからソース乞食に餌を与える基地害が沸くようになったんだ?

384 :デフォルトの名無しさん:2012/06/14(木) 11:01:32.25
>>383
だったら「質問が来ても罵倒します」ってコンセプトのスレをてめえが立てろよ

385 :デフォルトの名無しさん:2012/06/14(木) 16:38:33.42
「だったら」で出てきた案が支離滅裂な件について。

386 :298:2012/06/14(木) 20:12:02.96
質問に対して必要なのは解答だ。

解答への道やガヤではない。

387 :デフォルトの名無しさん:2012/06/14(木) 23:20:57.93
真理

388 :デフォルトの名無しさん:2012/06/15(金) 06:59:00.42
>>386
だったら2chなんかに来るなよ青ガキ

389 :デフォルトの名無しさん:2012/06/15(金) 07:35:08.83
>>388
案外それが真理ついてるかもなw
もう2ch以外の方がまともな答えをもらえる時代になった

390 :デフォルトの名無しさん:2012/06/15(金) 08:07:44.80
「もう」も何もw

391 :デフォルトの名無しさん:2012/06/15(金) 10:27:17.84
使い方だよ。「お前らだったらこのくらいは分かるよな当然?」みたいな
煽り方してうまく誘導して、間違ってるヤツとかをボコボコにすると
マトモな答えがポロッと帰ってきたりする。

392 :デフォルトの名無しさん:2012/06/15(金) 13:00:30.36
ここも>>384みたいな病気持ちがレスするほど落ちぶれたか

393 :デフォルトの名無しさん:2012/06/15(金) 13:48:22.28
>>391
随分効率の悪いやり方だな
一般人の寿命の5倍くらいある人?

394 :デフォルトの名無しさん:2012/06/15(金) 14:02:14.28
>>393
会社の中に解答できない人が一人もいない状況で、俺より凄い人がポロッと
すごいことを言うのが2chの醍醐味だろ。効率とかじゃないよ。1か0の世界。
ぶっちゃけMLとか質問サイトみたいのにロクな人間は転がってない。

395 :デフォルトの名無しさん:2012/06/15(金) 14:05:24.87
>MLとか質問サイトみたいのにロクな人間は転がってない

396 :デフォルトの名無しさん:2012/06/15(金) 14:28:20.39
>>395
どうした?
グゥの音も出ないか?w

397 :デフォルトの名無しさん:2012/06/15(金) 15:18:50.36
MLや質問サイトが腐ってるのは事実だろ。今時MLで討議とかオワコンだし。
IRCは使えるとこあるけど、コテハンじゃなきゃ入っていけないからそこん
とこが2chと違ってうっとおしい。

398 :デフォルトの名無しさん:2012/06/15(金) 15:51:41.32
おまえら、5.16をチェックしたか?
unicode周りがややこしくなっとるぞ。

399 :デフォルトの名無しさん:2012/06/15(金) 16:15:01.59
これ以上ややこしくしないでくれ〜

400 :デフォルトの名無しさん:2012/06/15(金) 17:08:35.14
でもMLのほうが池沼率は低い

401 :デフォルトの名無しさん:2012/06/15(金) 17:44:11.55
>>394
日本語でおk
「会社の中に解答できない人が一人もいない状況」って合ってるのか?

402 :デフォルトの名無しさん:2012/06/15(金) 18:15:53.36
mlなら>>394みたいに日本語の不自由な奴は少ない。

403 :298:2012/06/15(金) 18:23:11.59
MLって何?まいくろろふと?

404 :デフォルトの名無しさん:2012/06/15(金) 18:46:35.59
>>403
なに?
それが面白いと思ったの?
頭悪そう

405 :デフォルトの名無しさん:2012/06/15(金) 19:11:38.88
あ?やんのか

406 :デフォルトの名無しさん:2012/06/15(金) 20:07:41.03
基地害同士仲良くしろよ

407 :デフォルトの名無しさん:2012/06/15(金) 20:47:31.26
パ・パ・パパッパ・Perlライス

408 :デフォルトの名無しさん:2012/06/15(金) 20:51:24.47
MLのほうが絶対いいよ
MLを使うってことはミールアドレスって個体識別できる2chで言うところのトリップ代わりになるものが基本的についてるから、池沼やくだらない言い争いを行う馬鹿も少ないしみんなここよりは自分の発言に責任を持ってる

409 :デフォルトの名無しさん:2012/06/15(金) 21:16:41.69
ミ−ルライス

410 :デフォルトの名無しさん:2012/06/15(金) 22:07:12.10
>>409
混ぜんなよw

411 :デフォルトの名無しさん:2012/06/16(土) 04:13:38.23
Perlを使っていると上で煽り合ってるような精神異常者になります
今すぐPHPに乗り換えましょう
最強のプログラミング言語PHPに移行するチャンスです

412 :デフォルトの名無しさん:2012/06/16(土) 07:52:55.18
>>411
PHP最強だよな。誰でも覚えられる。すぐ書ける。すぐ仕事が終わる。金もいい。
仕事が終わったら契約切って速効逃げる。これ最強。

知らない人がかいたスパゲティコードを読んでディスプレイに鉄拳入れそうに
なったことが何度もあるわ>PHP
perlはとりあえずuse strictとuse waringsを入れておけば少々スパゲティでも
何とかなるけどPHPは無理ゲ。

413 :デフォルトの名無しさん:2012/06/16(土) 08:24:34.84
Perlみたいに -d 一発でデバッグできれば使ってやるよw >PHP

414 :デフォルトの名無しさん:2012/06/16(土) 12:36:00.82
PHPが難しくて挫折したPerl厨が暴れとるわい。

415 :デフォルトの名無しさん:2012/06/16(土) 13:04:04.53
>>414
「PHP!進んでるゥ〜 Perl?遅れてるゥ〜」程度の
脳味噌しかないガキみたいだな。顔が赤いぞw
そもそもスレ違い、さっさと涙拭いてどっか行け

416 :デフォルトの名無しさん:2012/06/16(土) 13:35:08.43
>>415
満足したか?(・∀・)ニヤニヤ

417 :デフォルトの名無しさん:2012/06/16(土) 13:43:48.96
>>415
それよくあるな。

perlで作ったページみられて「おめーなんでまだPHPに変えてないの?」みたいなのいわれる。
変える意味がわからん。

418 :デフォルトの名無しさん:2012/06/16(土) 13:51:28.36
PHPはHTMLに直に埋め込めるPerlにはそんな芸当は無理

419 :デフォルトの名無しさん:2012/06/16(土) 13:53:26.14
別に適材適所でいいやん
ちょっとした雑用にはPerlは便利だけど
Perlでホームページ書くとコードが汚くなる

たいした手間じゃないんだからどっちも使えるようにしとけ

420 :デフォルトの名無しさん:2012/06/16(土) 13:56:09.28
perlも埋め込んでるのとあんま変わらない気がするんだけどきのせい?

421 :デフォルトの名無しさん:2012/06/16(土) 14:02:38.17
天下のmixi様はperl
なくても困らないゴミサイトはphp

422 :デフォルトの名無しさん:2012/06/16(土) 14:10:24.50
HTMLの中に「<?perl 〜 ?>」と書けるような仕組みを作った人も
いることはいるが、一般には普及していない。
テンプレートを使えば、そんなモノは必要ないからなw

423 :デフォルトの名無しさん:2012/06/16(土) 15:18:34.25
>Perlでホームページ書くとコードが汚くなる
お前のヘタレに起因するものをさも一般論のように言われてもだな・・・

424 :デフォルトの名無しさん:2012/06/16(土) 15:20:38.55
>>422
というかPHP自体が「凄ぇテンプレート」だよね

425 :デフォルトの名無しさん:2012/06/16(土) 16:46:19.04
PHPの糞な点

・勝手にHTTPレスポンスヘッダを付ける
・セキュリティホールのあるPHP本体をわざわざ鯖に入れてセキュリティが不安な状態にする必要がある
・設定ファイル()で文字コードが勝手に変換される。しない設定にもできるがデフォだと変換されるゴミ
・設定ファイル()でなぜかファイルアップロードを許可したうえに上限を設定する必要がある
・グローバル変数なのにサブルーチン内でわざわざ定義しなければならない糞仕様
・プログラム言語なのに設定項目多すぎ、そんなものはコーダがプログランム内で実装するのが普通。一括で全スクリプトに同じ設定が適用されるとか糞の極み
・Perlよりはるかに遅い
・PHPを使ってるというだけで人としての価値が疑われる

426 :デフォルトの名無しさん:2012/06/16(土) 17:02:09.25
>>424
PHP/F1はふつーに「テンプレートエンジン」を謳ってたぞww。
今やそのPHPがテンプレートエンジンを別に持ってるという矛盾を
いまだに解消できてない。ガチでテンプレートのなかにコード直書きみたいな
糞コードがその辺に普通に転がっている。

PHPは糞コードを書かない縛りがほとんどないが、Perlは元が糞コードでも
use strict書いてエラーが出なくなるまで頑張れば結構綺麗なコードに戻せる。

427 :デフォルトの名無しさん:2012/06/16(土) 17:02:34.48
どうでもいいんでLLバトルロワイヤルスレとかでやってください

428 :デフォルトの名無しさん:2012/06/16(土) 17:16:10.95
ワンライナーでもない限りuse strict;は基本付けるだろ。
付けないのはPHPあがりのマジキチくらい。

429 :デフォルトの名無しさん:2012/06/16(土) 21:38:16.33
Perlはまともな言語でPHPはゴミなのに何のバトルするんだ?
やる前から決着はついてる、というかそもそも次元が違う
言語とゴミを比較するとか意味が分からない

食べ物として、うどんがいいか、うんこがいいかを議論するようなもの

430 :デフォルトの名無しさん:2012/06/16(土) 22:04:30.80
> Perlはまともな言語でPHPはゴミなのに何のバトルするんだ?

え? トレイトを言語レベルで備えてるのはPHPの方だし、
C++に似ているのもPHPだろ?

431 :デフォルトの名無しさん:2012/06/16(土) 23:06:09.06
そうだね。だから板違いのレスはよそでやれよ。PHPはwebprog板だ。

432 :デフォルトの名無しさん:2012/06/16(土) 23:10:30.18
PHPのどこがC++に似てるんだよ

433 :デフォルトの名無しさん:2012/06/16(土) 23:14:47.39
Perlに比べて似ている所

・classがある。
・interfaceがある。
・メソッドがある
・privateスコープがある
・thisがある
・タイプヒンティングがある

434 :デフォルトの名無しさん:2012/06/16(土) 23:16:07.40
・例外がある

435 :デフォルトの名無しさん:2012/06/16(土) 23:35:14.86
悪い所かつ良い所
・幸にも、Perlではない


436 :デフォルトの名無しさん:2012/06/16(土) 23:41:22.92
入力から受け取った値が整数値であることを確認する場合のことなんですが
perlには型がないということでちょっと混乱しています。
アプリケーションの流れはこんな風です

1) ユーザ入力
2) アプリの入り口に共通フィルタがあり、値が数値文字列であれば数値に変換される
3) 個別のセッターメソッドに送られ、整数値であることを確認の上、値をセット

3)に送られたときはすでに数値文字列から数値に変換されています。
ですが'foo'などの文字列を受け取る可能性もあるので
チェックが必要ですが、例えばisInteger()/isString()のような関数はありません。
現在は正規表現で処理していますが(数値を渡してもエラーにならない)
数値であることを正規表現で確認というのが、どうにも変な気がします。
何か別のイディオムがあるとでしょうか?

437 :デフォルトの名無しさん:2012/06/16(土) 23:46:01.78
そのisIntegerの中身のソース
見れるなら見てみろよ
正規表現のオートマトンやってるはずだ

ちゅーか
それ以外にないじゃん


438 :デフォルトの名無しさん:2012/06/17(日) 00:14:16.88
型がない、ってだけでなぜそんなに混乱できるのか
不思議でしょうがない…
ゲーム脳ならぬ型脳か

439 :436:2012/06/17(日) 00:34:01.36
>>437
正規表現で妥当ですか。どうも

440 :デフォルトの名無しさん:2012/06/17(日) 00:38:09.40
>>436
こういうやつ?
http://toro.2ch.net/test/read.cgi/tech/1326823096/788
> 788 名前:デフォルトの名無しさん(sage) 投稿日:2012/02/19(日) 21:46:39.32
> (($_ ^ $_) eq '0') ? print "$_: numeric\n" : print "$_: string\n" for (1, '1');
>
> 1: numeric
> 1: string

http://toro.2ch.net/test/read.cgi/tech/1326823096/793
> 793 名前:デフォルトの名無しさん(sage) 投稿日:2012/02/20(月) 01:16:22.87
> ($_ ^ $_) =~ /^\x00*$/ でもいいか

441 :デフォルトの名無しさん:2012/06/17(日) 02:58:22.23
>>440
なるほど、ビットの比較で。文字列の比較や正規表現も今度はしっくりきます。
自分が書いてたのは $n =~ /^[0-9]+$/ といったものですが
コンテキストによって数値とも文字列とも扱えるわけだから
不思議もないわけですよね。参考になりました

>>438
あなたの自尊心を満足できたなら何よりです

442 :デフォルトの名無しさん:2012/06/17(日) 03:21:18.46
>>441
自尊心とか何言ってるかわからん
素で理解できないだけです

443 :デフォルトの名無しさん:2012/06/17(日) 07:21:12.60
あとは (0 + $s) eq $s ってのもあるよ、数値を返させてそれを文字列比較する方法
ただ個人的には正規表現でやるほうが多いかな
末尾に改行付きの文字列とか、頭に空白入ってるくらいは大丈夫、みたいな
微妙にユーザに寛容な仕様になったときもその正規表現の修正で済むから

>>442
まあ型脳で合ってると思うよ

444 :デフォルトの名無しさん:2012/06/17(日) 11:05:41.93
>>442
なにかと不思議だったり理解できなかったりわからなかったり
その都度わっかりましぇーんわっかりましぇーんと口にするのは

 何 脳 な の で しょ う か

理解できなかった旨をアピールすることであなたが癒されるのであれば何よりです。

445 :デフォルトの名無しさん:2012/06/17(日) 12:05:25.88
なんだ
ぼくのギモンへの回答以外は書き込み無用ってか

446 :デフォルトの名無しさん:2012/06/17(日) 12:06:05.00
>>436
($num + 0) == $num ? "numeric" : "string";

これでいんじゃね?

447 :デフォルトの名無しさん:2012/06/17(日) 12:07:33.66
になみにundefや空文字列の場合文字列とみなされちゃうから
都合が悪いなら>>446の式の前にチェックしてね。

448 :デフォルトの名無しさん:2012/06/17(日) 12:10:21.56
あと>>446だと、0.0や"1000yen"みたいのは通らないのでその辺も注意。

449 :デフォルトの名無しさん:2012/06/17(日) 12:11:23.56
と思ったけど0.0 == 0だからこっちは通るか。てことはだいたい>>446でいんじゃね?

450 :デフォルトの名無しさん:2012/06/17(日) 14:08:26.56
>いんじゃね?
確信ないなら回答するんじゃねぇよゴミクズ
ここはお前のカスみたいな自己顕示欲を満たすスレじゃねぇんだよ
ブログにでも書いてろマジキチ

451 :デフォルトの名無しさん:2012/06/17(日) 14:34:51.22
>>448
元の質問は“整数値”かどうかを問題にしてるんだから
0.0や1000yenは考慮に入れる必要ないんじゃないの。

452 :デフォルトの名無しさん:2012/06/17(日) 15:08:52.04
>>445
おい間抜け。
あなたは「俺には好きに言わせろ・反論するな」という意味のことを
相手に対して「回答以外の書き込みは無用か」と表現することで
デッドロックを引き起こしました。

 ゲ ー ム オ ー バ ー で す

あっという間でしたね。ステージを降りてください。

453 :デフォルトの名無しさん:2012/06/17(日) 15:23:54.67
>>446
それは常にnumericだろ

454 :デフォルトの名無しさん:2012/06/17(日) 16:50:01.89
まじで糞スレ
まともな書き込みがない

455 :デフォルトの名無しさん:2012/06/17(日) 18:05:45.43
オペレータがオーバーロードされる可能性もある。
素直に/^[+-]?\d*$/するよろし。

456 :デフォルトの名無しさん:2012/06/17(日) 18:10:44.32
>>454
だったらここよりまともなサイト挙げてみろよ
ひとつでも挙げられたらスレ終わらせてやってもいいぞ

457 :デフォルトの名無しさん:2012/06/17(日) 18:11:23.50
カンマ


458 :デフォルトの名無しさん:2012/06/17(日) 18:26:05.00
バックスラッシュ

459 :デフォルトの名無しさん:2012/06/17(日) 20:02:18.89
>>452
ステージを降りてくださいときたか
ここはオマエのお立ち台ってか

460 :デフォルトの名無しさん:2012/06/17(日) 20:09:00.42
> ゲ ー ム オ ー バ ー で す

「ゲーム」って…何のゲームをしているつもりなんだこいつは?


461 :デフォルトの名無しさん:2012/06/17(日) 20:27:21.44
この様子なら知恵遅れで質問してたほうがマシ。

462 :デフォルトの名無しさん:2012/06/17(日) 20:54:35.76
適当に見繕って試してみたよ。
http://ideone.com/BMiP5

463 :デフォルトの名無しさん:2012/06/17(日) 22:24:26.43
そもそもなにがどうデッドロックなのかさっぱりわからん。
元の質問者と同一人物だとすると、変な思い込みで思考の迷路に迷い込みがちな体質なのかもしれんな。

464 :デフォルトの名無しさん:2012/06/17(日) 22:51:17.64
>>418
亀かもしれんが、昔からPerlScriptと言うのがあってだな、
直接埋め込めるんだな、これが。
<HTML><BODY>
 <script type="text/perlscript">
 $window->document->write("Hello world!!");
 </script>
</body></html>


>>436
型は変数じゃなくて呼び出し元のコンテキストで見ろ。
+とか-の演算子なら数値コンテキストで要求してる。
正規表現で呼び出すと文字検索だから絶対文字になる。

(1+1) . "10";
数値で1が要求されて2になって、
文字連結で2か要求されて210が生成される。

型なんて数値か文字しかないから、Perlは今どっちの状態なのか自分で勝手に覚えてるだけだ。
今取ってる形式と違う型で呼ばれたら勝手に変換して出力される。
今どっちの常態かなんて知る意味はない。

Cは変数が型を決めてPerlはコンテキストが型を決めると覚えておけばいい。

465 :デフォルトの名無しさん:2012/06/17(日) 23:36:28.93
ヴァカはレスするなって

>型なんて数値か文字しかない
???

>常態
???

466 :デフォルトの名無しさん:2012/06/17(日) 23:40:36.30
ゲームオーバーとかステージとかリア厨だろ。

467 :デフォルトの名無しさん:2012/06/18(月) 00:43:49.27
>>455
use utf8 環境では、\d は全角にもマッチするから [0-9] で

468 :デフォルトの名無しさん:2012/06/18(月) 01:52:38.05
>>459
そういう意味ではまったくありません。
やはりあなたにはいろんなことが不思議で理解できないのです。

さて、あなたは自分にラベリングすることは避けているようなのでこちらで手続きしましょう。
冗談で書いたゲームやステージといったワードに律儀に反応している人たちは

 ポ ー ル ・ パ ッ カ ー 脳 で す

ちょっと素直すぎたでしょうか。

469 :デフォルトの名無しさん:2012/06/18(月) 02:09:04.64
>>468
アスペ乙

470 :デフォルトの名無しさん:2012/06/18(月) 02:30:55.63
アスペというよりなんか糖質臭い やばい

471 :デフォルトの名無しさん:2012/06/18(月) 03:22:00.40
なんか池沼が多いな

472 :デフォルトの名無しさん:2012/06/18(月) 04:37:51.03

ポ ー ル ・ パ ッ カ ー 脳


って何??



473 :デフォルトの名無しさん:2012/06/18(月) 05:56:06.69
くらえ!
ポールパッカー!

474 :デフォルトの名無しさん:2012/06/18(月) 08:50:43.52
よほど『型脳』に傷ついちゃったとみえる

475 :デフォルトの名無しさん:2012/06/18(月) 13:31:06.21
ポールパッカーというのはパールハッカーと何かをかけた言い回しで
だいたいはのぼせあがった奴とか口ばかりとか
そんな感じのニュアンスでつまらない奴を揶揄して使う。
海外ネタだな

476 :デフォルトの名無しさん:2012/06/18(月) 14:13:37.28
まじどうでも良かったw

477 :デフォルトの名無しさん:2012/06/18(月) 14:25:51.62
ここ100レスの基地害指数は70%くらい

478 :デフォルトの名無しさん:2012/06/18(月) 21:39:45.18
>>474
別に傷付くほどのことじゃないんだけどなあ…
他言語から来た人ならどうしても理解し辛いことだし
かくいう俺自身もかつて型脳だったし

微妙に違うんだけど、型脳な人には
「+演算子は受け取った引数を数値変換してから計算して数値を返す」
「. 演算子は受け取った引数を文字列変換してから連結して文字列を返す」
「配列を数値変換すると要素数が返される」
という感じで考えてもらうしかないのかなあ
本当は演算子がやってるワケじゃなくコンテキストによってなされてることだけど

479 :デフォルトの名無しさん:2012/06/18(月) 21:53:39.86
コンテキストによって振舞いが変わるのってなんかオブジェクト指向っぽくね?

480 :デフォルトの名無しさん:2012/06/18(月) 22:01:08.40
とてもOOぽいな

そして
ソレを使いこなしてるオレカッケェ!
と 錯覚できる

perlなんて実は文字列処理しかしてないんだから
あまり複雑に考えても ね


481 :デフォルトの名無しさん:2012/06/18(月) 22:27:40.86
Googleみたいに特定の目的に最適化された鯖はもう鯖から専用にCで書いたりしてるのかね

482 :デフォルトの名無しさん:2012/06/18(月) 22:34:13.47
Googleのレンタル鯖とか怖くて使えないよな。
データストアとかっていかにもな仕組みじゃない。

483 :デフォルトの名無しさん:2012/06/18(月) 22:34:38.06
Googleともなると幾つかオリジナル言語を発表してるからなあ
メインの検索用途ともなるとエンジンの言語は想像すらつかん

484 :デフォルトの名無しさん:2012/06/18(月) 23:17:36.28
> そして
> ソレを使いこなしてるオレカッケェ!
> と 錯覚できる

そんな錯覚はしたことないや
まあ使いこなせてないからな

485 :デフォルトの名無しさん:2012/06/19(火) 00:25:19.01
Googleの鯖はAN HTTPD
CGIはHSP

486 :デフォルトの名無しさん:2012/06/19(火) 02:00:11.76
簡単な処理ならぶっちゃけシェルスクリプト書いて拡張子をcgiにしたほうが早い

487 :デフォルトの名無しさん:2012/06/19(火) 03:06:59.61
>>482
Googleってレン鯖なんて出してるの?

488 :デフォルトの名無しさん:2012/06/19(火) 03:34:03.48
>>487
GAEですわー

489 :デフォルトの名無しさん:2012/06/19(火) 07:27:53.16
>>480
まあ、Perlはいろんな意味で「オトナの言語」だからな。

490 :デフォルトの名無しさん:2012/06/19(火) 09:59:45.68
PHPは色んな意味で「情弱の言語」

491 :デフォルトの名無しさん:2012/06/19(火) 10:02:03.77
Cで書くよりPerlで書いたほうがいいの?

492 :デフォルトの名無しさん:2012/06/19(火) 10:25:34.05
適材適所


493 :デフォルトの名無しさん:2012/06/19(火) 10:41:02.65
開発速度重視ならPerl、しっかり作りたいならCとかなんだろうね。

494 :デフォルトの名無しさん:2012/06/19(火) 11:18:26.76
CはApacheがキャッシュしてくれないからオーバーヘッドがネックになる
Perlはキャッシュされる
だから結果的にレスポンスはPerlのほうが早い

495 :デフォルトの名無しさん:2012/06/19(火) 11:55:26.26
じゃぁPerlのほうがいいの?

496 :デフォルトの名無しさん:2012/06/19(火) 12:18:17.46
>>494
それはmod_perlを使った時の話では。
詳しくはないが、同じようにモジュールをロードしっぱなしにする仕掛け(ラッパー)が使えれば
perlだろうがCだろうが高速レスポンスが可能だと思うが。

497 :デフォルトの名無しさん:2012/06/19(火) 12:56:33.97
そこでspeedyCGIだな

498 :デフォルトの名無しさん:2012/06/19(火) 13:02:06.93
i = 0 | $i = 0

# Python
re.match('^[0-9]+$',i) #=>TypeError: expected string or buffer
# Ruby
/^[0-9]+$/ =~ i #=> can't convert Fixnum into String (TypeError)
# ※JavaScript
i.test(/^[0-9]+$/) #=>TypeError: i.test is not a function
# PHP
preg_match('/^[0-9]+$/',$i) #=>OK
# Perl
$i =~ /^[0-9]+$/ #=>OK

499 :デフォルトの名無しさん:2012/06/19(火) 13:13:47.99
Cつーか実行ファイルをロードしっぱなしにするモジュールって今あるのかね

500 :デフォルトの名無しさん:2012/06/19(火) 13:15:49.22
どんな実行ファイルでもロードしっぱなし、てのはさすがにできんでしょう

501 :デフォルトの名無しさん:2012/06/19(火) 13:30:48.26
鯖とCGIをセットで作ってしまえば鯖が起動してる間はロードしっぱなしなのと同じ

502 :デフォルトの名無しさん:2012/06/19(火) 15:28:44.58
$value = "a b c d e f";

$value =~ s/^(.)( |$)/ hoge /g;
$value =~ s/ (.) / hoge /g;
$value =~ s/ (.)($)/ hoge /g;

半角スペースの間にある文字列が一文字だった場合、それを置換したいのですが
valueの値、c,eの部分が置換されません
対処法教えて下さい

503 :デフォルトの名無しさん:2012/06/19(火) 15:41:37.35
>>502
ここが正規表現のスレッドに見えたのかよゴミクズ
そんな注意力が並以下のヴァカがプログラム組むこと自体間違いなんじゃねーの?
マジでお前社会に不要なタイプの人間だな

504 :デフォルトの名無しさん:2012/06/19(火) 15:45:46.09
s/(?:(?<=^)|(?<= ))(.)(?=$| )/hoge/g

505 :デフォルトの名無しさん:2012/06/19(火) 15:47:36.41
>>502
最初に「あまり良くない見本」と言っておきます
ttp://ideone.com/GtN2D

506 :デフォルトの名無しさん:2012/06/19(火) 15:48:05.55
>>502
スレチの書き込みして荒らしたいだけだろ。

507 :デフォルトの名無しさん:2012/06/19(火) 15:48:49.82
>>503
お前は自分をどんな人間だと思ってるんだ?

508 :デフォルトの名無しさん:2012/06/19(火) 16:02:49.84
>>502=>>507

509 :デフォルトの名無しさん:2012/06/19(火) 16:04:10.54
>>503=>>506=>>508

510 :デフォルトの名無しさん:2012/06/19(火) 17:12:47.62
>502が発狂していますのでご迷惑をおかけしますがしばらくお待ちください。

511 :デフォルトの名無しさん:2012/06/19(火) 17:16:40.38
ここはPerlが関係していればどんな質問でもOKでは?

512 :502:2012/06/19(火) 17:22:35.05
Twitterのほうで返事もらえたのでもういいです、本当にこのスレに住み着いてる低脳は役に立ちませんね

513 :デフォルトの名無しさん:2012/06/19(火) 17:32:49.92
こんなところで聞こうとするオマエが低能だよwww


514 :デフォルトの名無しさん:2012/06/19(火) 17:51:43.82
>>513によってこのスレの存在意義は全否定されました。
Perl質問箱スレの長らくのご利用、ありがとうございました。


515 :デフォルトの名無しさん:2012/06/19(火) 18:48:27.80
はい、ありがとうございました。

516 :デフォルトの名無しさん:2012/06/19(火) 20:29:39.16
みなさん今までありがとうございました。

517 :デフォルトの名無しさん:2012/06/19(火) 20:32:01.93
カスばかり

518 :デフォルトの名無しさん:2012/06/19(火) 22:07:22.81
>>512
Twitterで検索してみたが、そんなやりとりは見つからなかったぞ。

519 :デフォルトの名無しさん:2012/06/19(火) 22:11:12.46
マジ検索してんのかよw
ンなバカなヤツがここにデイリしてんのかwwwwwwww

ウソかホントか見抜けなかったら
プログラマ以前に2ちゃんねら失格DA☆ZE w


520 :デフォルトの名無しさん:2012/06/19(火) 22:45:27.55
>>519

521 :デフォルトの名無しさん:2012/06/19(火) 22:54:39.22
520じゃないけど
ツイッターってバグ多くて
検索しても出てこないとかしょっちゅうあるぞ

フォロー、フォロワーの関係も怪しいし
勝手にフォロー外れてたりするし

あと、非公開のツイートは当然検索に出てこないし

522 :デフォルトの名無しさん:2012/06/19(火) 23:12:18.47
「このスレは、Perlに関連していればどんな煽りもOKです」

523 :デフォルトの名無しさん:2012/06/19(火) 23:41:22.04
>>521
もちろんGoogleで検索したんだよ。site:twitter.com つけるんだよ。やってごらん。

524 :デフォルトの名無しさん:2012/06/20(水) 00:28:41.60
未だにGoogleとか使ってる情弱いんの?

525 :デフォルトの名無しさん:2012/06/20(水) 00:30:47.49
このスレの情弱とかは使ってんじゃネーノ
特に一番最初に質問したアホ
調べ方すら知らないアホだろアホ
だからさらにアホなツイッターとか使ってんだろwww


526 :デフォルトの名無しさん:2012/06/20(水) 00:41:03.02
Google脳

527 :デフォルトの名無しさん:2012/06/20(水) 02:08:37.77
ゲーム脳→「ゲームで脳が異常に」というトンデモ理論
型脳→「型がないと混乱する」という状態?
Google脳→「Google使ってると情弱」というトンデモ理論

なんか「型脳」だけ仲間外れだな

528 :デフォルトの名無しさん:2012/06/20(水) 02:46:45.04
今日の基地害指数:80

529 :デフォルトの名無しさん:2012/06/20(水) 02:56:38.04
Googleって鍵かけてあるユーザーのツイートまで検索できるの?
それ問題じゃね?

530 :デフォルトの名無しさん:2012/06/20(水) 06:57:25.18
鍵かけたTwitterアカウントから質問してすぐ答がもらえたんならずいぶんラッキーだったな

531 :デフォルトの名無しさん:2012/06/20(水) 10:59:23.89
>>530
鍵付きでもフォロワの数と質で違ってくるでしょーに。

532 :デフォルトの名無しさん:2012/06/20(水) 16:08:10.34
あたりめーだろおめー

533 :デフォルトの名無しさん:2012/06/20(水) 18:13:56.63
バカ発見器のツイッターは一般人なら鍵かけとくに限る。

534 :デフォルトの名無しさん:2012/06/20(水) 18:47:59.94
>>531
2ちゃんのこんなスレでこんな程度のレベル(馬鹿にしてでなく)の質問をするような人なら、
Twitterで鍵かけて運用していながらフォロワーが大量にいる可能性というのは低かろう。
またその中にPerlのこんな質問に即時に的確に答えられる人が入っている可能性も低いだろう。
その両方の条件の中で、すぐ答えが得られたというのはラッキーだったな、と。
まあTwitterで質問したとかいうのがそもそも嘘だろうとは思うけど、それはおいといての話。

535 :デフォルトの名無しさん:2012/06/20(水) 23:31:51.21
お前ら他にすること無いのか

536 :デフォルトの名無しさん:2012/06/20(水) 23:48:56.09
>>527
じゃあデュエル脳は?

537 :デフォルトの名無しさん:2012/06/21(木) 01:11:18.14
本日の基地害指数:78

538 :デフォルトの名無しさん:2012/06/21(木) 01:13:13.15
それは報告しなくてもいいです

539 :デフォルトの名無しさん:2012/06/21(木) 02:27:45.95
フォロワー大量にいなくても数百人いたら結構すぐ返ってくるでしょ

540 :デフォルトの名無しさん:2012/06/21(木) 06:00:24.19
数百人いたら十分大量だわ
わざわざ2chであんな質問してるような技術も人脈もない何の変哲もない奴が
シークレットモードでいてそんなにフォロワーつくわけないくらいバカでなけりゃすぐわかるだろ
まあバカだったらわからなくても仕方ないか

541 :デフォルトの名無しさん:2012/06/21(木) 07:39:24.44
TwitterはTwitterで幸せにやってくれ。こっちくんな。

542 :デフォルトの名無しさん:2012/06/21(木) 11:41:29.79
フォロワなんてIT関連で検索して出てきた奴を数百〜数千人一括フォローすれば
そのうち最低でも2割程度はリフォローしてくれるから、数百人くらいすぐいくだろ。

一括フォローできることを知らない情弱なら数百人は難しいだろうけど。

543 :デフォルトの名無しさん:2012/06/21(木) 12:24:54.07
>>542
そんな方法でかき集めたフォロワーに、
あんなPerlの質問をしてすぐ答を返してくれるようなのがどれくらいいるだろうねえ。
フォロワー増やしと宣伝やアフィにしか興味のない御同輩連中ばかりだろうに。

544 :デフォルトの名無しさん:2012/06/21(木) 12:37:17.60
【IT】なにがプログラミング言語の存亡を分けるのか
http://anago.2ch.net/test/read.cgi/scienceplus/1340160153/

面白そうなスッドレがあるぞ
突撃しろ


545 :デフォルトの名無しさん:2012/06/21(木) 12:39:24.79
オッパッピー

546 :デフォルトの名無しさん:2012/06/21(木) 13:01:03.82
PerlでFacebookアプリは作れますか?

547 :デフォルトの名無しさん:2012/06/21(木) 13:08:48.31
それを知ってどうするの?

548 :デフォルトの名無しさん:2012/06/21(木) 13:59:51.35
ボランティアでフェイスブックアプリを作ってフェイスブックを盛り上げてフェイスブックの収益増に貢献する

仕事が見つからなくて路頭に迷ってる奴がいるって?
知るかよwなんでそんなゴミのためにボランティアしなきゃいけないんだよw

549 :デフォルトの名無しさん:2012/06/21(木) 15:33:55.66
FacebookのAPI使うモジュールCPANにあるよ

550 :デフォルトの名無しさん:2012/06/21(木) 16:05:34.26
CPAN脳

551 :デフォルトの名無しさん:2012/06/21(木) 16:36:03.91
うんこ我慢してPerlスクリプト書いてたら危うく漏らすところだった
賛否両論あるけとPerlはやっぱり危ないね

552 :デフォルトの名無しさん:2012/06/21(木) 17:54:31.49
>>549-550
アプリ作る奴がそれぞれフルスクラッチで書けと?w

553 :デフォルトの名無しさん:2012/06/21(木) 18:33:25.78
APIるならフルスクくらいしろや低脳

554 :デフォルトの名無しさん:2012/06/21(木) 18:43:23.70
>>553の言うとおり。当然LWPも使用禁止。

555 :デフォルトの名無しさん:2012/06/21(木) 18:59:51.89
perl禁止の上でperlをやれ

という禅問答とKOANにまで発展するなwww
perlをやる方法はいくらでもある

556 :デフォルトの名無しさん:2012/06/21(木) 19:24:37.77
>>437
他に正規表現使うなんて思いつかんけどな。
phpだって型を見て返すだけだぜ。
perlに敢えてそういうのがあれば、やはり型を見るコードになるだろうしさ。

557 :デフォルトの名無しさん:2012/06/21(木) 19:25:45.86
いつまで引きずってんだこの馬鹿

558 :デフォルトの名無しさん:2012/06/21(木) 19:56:38.17
>>556の perlに敢えてそういうのがあれば は
組み込みでって話ね、一応

559 :546:2012/06/21(木) 20:38:07.97
ありがとう。Facebook上で問い合わせフォーム作生しようと思ったの。

facebookの何かの機能をPerlから使いたいわけでなく、facebookのアプリのところに
出てくるアレを作りたかったの。

560 :デフォルトの名無しさん:2012/06/21(木) 21:36:39.94
じゃあ最初からそう書けやゴミクズ
説明能力もないお前みたいなカスはプログラムに不向き
二度とム板に来るんじゃねぇよ池沼

561 :デフォルトの名無しさん:2012/06/21(木) 22:00:32.50
>>560
必死だなw

562 :546:2012/06/21(木) 22:07:15.15
>>560
ム板ってなんですか?説明してください

563 :デフォルトの名無しさん:2012/06/21(木) 22:38:55.87
ムカツク板

564 :デフォルトの名無しさん:2012/06/21(木) 22:39:29.72
ム板=ムーニーマン丼

565 :デフォルトの名無しさん:2012/06/21(木) 23:38:12.28
世の中社内のシステムとかが一風変わったユニークな面白い会社があるけど
そういうのあったら教えて
例)Google本社
勤務時間の2割を好きなことに使って良い
様々な遊戯施設
無料の社員食堂&ジュース自販機
玩具持ち込みOK

566 :デフォルトの名無しさん:2012/06/21(木) 23:48:54.40
>>546
PHPって開発スピード意外に利点あるの?
まあアプリなんか長くて数年で使わなくなるからPHPがお似合いかもな。

567 :デフォルトの名無しさん:2012/06/21(木) 23:51:20.69
なんでそれ>>546に言ったんだ?

568 :デフォルトの名無しさん:2012/06/22(金) 05:14:23.83
>>555
TMTOWTDI だな

569 :デフォルトの名無しさん:2012/06/22(金) 09:52:49.19
s/&/&/g;
s/\;/;/g;
&と;の2つを1度だけ置換したいのですが、どのようにするのがいいでしょうか?
それぞれ置換後の文字列に含まれているので困っています。

570 :デフォルトの名無しさん:2012/06/22(金) 09:54:36.19
イミフ

571 :デフォルトの名無しさん:2012/06/22(金) 09:54:39.49
s/&/&amp;/g;
s/\;/&#59;/g;
でした。

572 :デフォルトの名無しさん:2012/06/22(金) 10:13:45.57
>>569
ttp://ideone.com/Ivjxq

573 :デフォルトの名無しさん:2012/06/22(金) 10:13:47.05
>>569-570
ここが正規表現の質問スレにでも見えたのか精神異常
そんなことも分からないksに正規表現が分かるわけないよな
スレチ失せろ二度と来るな

574 :デフォルトの名無しさん:2012/06/22(金) 10:17:22.00
>>569は荒らしたくてわざとスレ違いの内容を投下してるんでしょ。相手にしてる奴も荒らし。

575 :デフォルトの名無しさん:2012/06/22(金) 10:24:09.57
569=ゴミ

576 :デフォルトの名無しさん:2012/06/22(金) 10:24:47.28
>>572
こんな書き方があったんですか
勉強になりました
ありがとうございます

577 :デフォルトの名無しさん:2012/06/22(金) 10:30:21.76
いろいろ方法はあるが、;の置換のときに否定戻り読みで直前が&のものを
除外するのが楽じゃないかな。


578 :デフォルトの名無しさん:2012/06/22(金) 10:31:24.43
>>576
勉強にならなくてもいいから二度と来るなよ

579 :デフォルトの名無しさん:2012/06/22(金) 10:34:01.08
このスレは少し前からスレチも分からない情報乞食を餌付けしてマジキチが住み着いちゃってるな
社会で誰にも相手にされないからここでそんなことやってるんだろうけど
スレチの話はマジで迷惑

580 :デフォルトの名無しさん:2012/06/22(金) 10:38:17.57
>>573=>>574=>>575

581 :デフォルトの名無しさん:2012/06/22(金) 10:42:58.07
「私の手に余る質問は全てスレチです」
これが本音だろww

そして質問がなくなって極度に政治的な状態になれば万事OK、
能力が無くてもやっていけるw


582 :デフォルトの名無しさん:2012/06/22(金) 10:45:03.29
>>580
違うぞ、578もたぶんそうだぞ。

583 :デフォルトの名無しさん:2012/06/22(金) 10:46:26.20
>>582
すまん、>>578=>>579もそうだな

584 :デフォルトの名無しさん:2012/06/22(金) 10:50:41.24
基地害が論理的な反論ができず適当に同一人物探りを始めててワラタw

585 :デフォルトの名無しさん:2012/06/22(金) 10:55:06.88
どっちの陣営も面白いからもっと殴り合えw

586 :デフォルトの名無しさん:2012/06/22(金) 10:59:22.03
>>569とそれに回答してるゴミカスがスレチ指摘されてファビョってるだけだろ
マジで頭狂ってるな
社会でもお前ら迷惑がられてるよ

587 :デフォルトの名無しさん:2012/06/22(金) 11:00:20.01
本来の意味の正規表現でない話はここでも良いんじゃね。言語毎に処理が変わるし。
でも質問する側はそんなことわからんか。

588 :デフォルトの名無しさん:2012/06/22(金) 11:03:42.47
言語側で抜け道が用意されてる可能性もあるし、質問者側にはわからんわ。

589 :デフォルトの名無しさん:2012/06/22(金) 11:04:07.86
587によりこのスレはスレタイ無視でスレ違いの質問も完全にOKになりました。
フライトシミュレーターでのテクニックから南瓜の煮付けの作り方まで何でもどうぞ。

590 :デフォルトの名無しさん:2012/06/22(金) 11:06:57.10
正規表現の質問するなとか言ってるヤツは
それ関係で前に散々バカにされまくったんじゃあないの?
だから正規表現関係の質問をしつこくネチネチと潰しに来てる、
擦れ違いとかを持ちだして自治を気取ってる

そういう人間がいると2chと言えど本当に掲示板が機能しなくなる


591 :デフォルトの名無しさん:2012/06/22(金) 11:08:52.52
言語によって変わる場合もあるからわざわざこう書いてあるんじゃないの?

>1:デフォルトの名無しさん :2011/12/11(日) 10:19:30.25 [sage]
>正規表現(Regular Expression)スレです。

>質問する場合は必ず実装言語や処理系ソフトウェア名を示してください。

各言語のスレッドで質問すればいいって話なら正規表現のスレッド要らないよね

592 :デフォルトの名無しさん:2012/06/22(金) 11:11:01.26
>>569は荒したくて燃料投下してるんだから言うだけ無駄。
>>569はこの荒れ具合見て笑い転げてるよ。

593 :デフォルトの名無しさん:2012/06/22(金) 11:12:39.00
別に質問来てもいいが、1レスで終わる質問が100レスくらいわけのわからん流れになるから、
たぶん他で質問したほうが楽だぞ。
本当のレスを探すのも大変だぞ。

594 :デフォルトの名無しさん:2012/06/22(金) 11:13:28.67
>>590
よお自治気取り
自治気取りって楽しい?

595 :デフォルトの名無しさん:2012/06/22(金) 11:15:28.18
まぁ今さら2chで質問してる時点で情弱だわな
まともな思考回路ならTwitterを利用する
キチガイはブロックできるし

596 :デフォルトの名無しさん:2012/06/22(金) 11:15:30.15
ま、この流れのほうがPerlスレ関係ないしメリットもないわな。

597 :デフォルトの名無しさん:2012/06/22(金) 11:16:30.36
569がそうやって荒らしてるんだから仕方ないべ

598 :デフォルトの名無しさん:2012/06/22(金) 11:23:01.07
正規表現はマッチングのみで、本来置換は範囲外。

599 :デフォルトの名無しさん:2012/06/22(金) 11:38:21.45
そらな。置換は正規表現エンジンと関係ないしな。
ただここで質問すると意味も無く嫌な展開を巻き起こすのがいるってことだ。

600 :デフォルトの名無しさん:2012/06/22(金) 11:54:35.33
本日の基地害指数:89

601 :デフォルトの名無しさん:2012/06/22(金) 11:59:21.47
やっぱり正規表現でのマッチポンプはきくなwww
全部自演なのにここまでアホが食いついてくる、
こういう程度の低いことなら参加できるバカが大量にいる、
そして肝心の正規表現に答えられるヤツがいねーーーんだこりゃww
ホントの便所の落書きになるワケだww
便所に集うベンジョコウロギだもんwwww
俺様は違うけどなw


602 :デフォルトの名無しさん:2012/06/22(金) 12:08:48.87
>>601

603 :デフォルトの名無しさん:2012/06/22(金) 12:14:16.64
本日の基地害指数:90に上方修正

604 :546:2012/06/22(金) 14:03:18.19
でもコードをなるべく美しくきれいにみせることを頑張るのは
いつも正規表現についてだよな。

俺のがきれい合戦みたいなやつ。

だから正規表現はいいのではないだろうか

605 :デフォルトの名無しさん:2012/06/22(金) 14:13:34.52
俺も惰性でここ見てるけど質問とか回答は全部ツイッターでしかしなくなったな。
質問したときのレスポンスも格段に早いし、適当な回答する奴も少ないし、非常に便利。
一回ツイッター使ったら他できこうなんて思わない。

606 :546:2012/06/22(金) 14:43:39.45
>>605
文字数制限あるし掲示板式でないからめんどくね?

607 :デフォルトの名無しさん:2012/06/22(金) 14:47:27.58
そもそも2chなんてTwitterのなかった時代の遺物なんだからTwitterみたいにより便利なサービスが出てきたらそっちに移行するのは当然
古くて不便なものにしがみついてるのって老害でしょ

608 :デフォルトの名無しさん:2012/06/22(金) 15:10:23.61
僕はStackOverflowちゃん

609 :デフォルトの名無しさん:2012/06/22(金) 15:50:25.36
test.pl というファイルを
./test.pl
で実行しようとしても許可がありませんと出る
test.pl の実行権限は chmod 755 で与えてるのに
何で?

610 :デフォルトの名無しさん:2012/06/22(金) 15:56:33.04
質問は包み隠さずに書けよ
どこのサーバだよ
まさかファーストサーバじゃねぇだろうなw


611 :デフォルトの名無しさん:2012/06/22(金) 16:06:15.62
>>610

自分の端末上ですよ


612 :デフォルトの名無しさん:2012/06/22(金) 16:09:11.54
「端末」ね
大学かどこかかよ
それともまさか会社じゃねぇだろな


613 :デフォルトの名無しさん:2012/06/22(金) 16:14:01.44
ローカルです
./test.pl と
perl test.pl の違いも分からないっす


614 :デフォルトの名無しさん:2012/06/22(金) 16:16:48.96
その違いも分からないゴミがプログラムかw
笑い者になりに来たの?ww

615 :デフォルトの名無しさん:2012/06/22(金) 16:19:53.23
笑っていただけたなら幸いです

616 :デフォルトの名無しさん:2012/06/22(金) 16:32:27.19
基礎知識もない低脳は教えても話が通じないんだから出ていけよ。

617 :デフォルトの名無しさん:2012/06/22(金) 16:33:13.14
ls -l test.pl
whoami
head -n1 test.pl

618 :デフォルトの名無しさん:2012/06/22(金) 16:46:39.73
エラーメッセージちゃんと読んでなかったです
test.pl の中でのファイル書き込みの処理のところで
怒られてました.

619 :デフォルトの名無しさん:2012/06/22(金) 16:48:02.69
基礎知識はないエラーは読まないマジでクズ

620 :デフォルトの名無しさん:2012/06/22(金) 16:50:29.52
エラーメッセージは人間が読むために吐いてるわけではないんだがな

621 :デフォルトの名無しさん:2012/06/22(金) 18:20:10.48
配列の要素を数値と比較したい

if(array[$i][$j]==-1)
とか書きたいのだけどどうしたらいいですか

622 :デフォルトの名無しさん:2012/06/22(金) 18:27:41.90
書きたきゃ勝手に書けば
配列の要素へのアクセスも知らないのかこいつ

623 :デフォルトの名無しさん:2012/06/22(金) 18:29:39.06
エラーメッセージは人間が読むために吐いてるんだがな

624 :デフォルトの名無しさん:2012/06/22(金) 18:31:18.33
>>621
ここは基礎から手取り足取り教える教習所じゃねえんだよゴミ。配列すら扱えないゴミは消えろ。

625 :デフォルトの名無しさん:2012/06/22(金) 18:34:06.20
さすがに配列は釣りだろwwwwwwww

626 :621:2012/06/22(金) 18:35:19.26
Twitterのほうで返信もらえたのでもういい

この質問は締め切らせていただきます

627 :デフォルトの名無しさん:2012/06/22(金) 18:39:40.97
>>626
釣りでないなら、マルチすんじゃねえよと

628 :621:2012/06/22(金) 18:58:48.23
>>626
偽物市ね

ほらさっさと答えろ
全く社会の役にも立たない屑以下のニート共を
少しでも人の役に立つことに使ってやろうって言ってんだよ
感謝してさっさと答えろ

629 :デフォルトの名無しさん:2012/06/22(金) 19:36:11.37
>>621
if($array[$i][$j] == (-1))

http://perldoc.jp/docs/perl/5.12.1/perllol.pod

630 :デフォルトの名無しさん:2012/06/22(金) 19:41:47.44
リャマ本の日本語6版7月キタコレ

631 :デフォルトの名無しさん:2012/06/22(金) 20:11:41.51
なんだ日本語版読んでる雑魚か。

632 :デフォルトの名無しさん:2012/06/22(金) 20:17:36.37
>>613
test.plの一行目にperl本体のパスが正しく書いてあるか?
そのパスのperlは実在するか?(シンボリックリンクとかでもいいけど)

633 :デフォルトの名無しさん:2012/06/22(金) 20:19:50.57
>>630
それどこ情報よー
日本語しかわからない雑魚だから教えろ

634 :デフォルトの名無しさん:2012/06/22(金) 20:26:25.15
プログラミング本は絶対、翻訳版はさけたほうがいい

翻訳してる奴のレベルが低すぎて、どうしようもない

635 :デフォルトの名無しさん:2012/06/22(金) 20:36:53.75
ぶっちゃけマニュアルとかも英語読むしかなくなるしな

636 :デフォルトの名無しさん:2012/06/22(金) 20:40:14.76
英語を読める俺らこそ選ばれしもの!

637 :デフォルトの名無しさん:2012/06/22(金) 20:42:15.32
perlを読めるオレこそが真に選ばれし勇者


638 :デフォルトの名無しさん:2012/06/22(金) 20:43:34.55
はいはい英語版読める自慢はもういいから、って言い出す雑魚が沸く前に言っとくけど
英語版読めるのは特別すごい技術じゃなくて必要最低限だから

プログラムするうえでは持ってて当たり前のスキルでむしろ読めないほうが問題

パソコンのキーボード打てるかどうかとかモニタの電源を入れられるかとかもうそのレベルのスキルと呼ばないくらい当たり前のこと

読めないのはそれができないくらいの大問題

639 :デフォルトの名無しさん:2012/06/22(金) 20:56:01.38
日本語読むのと同じ速度で英語読めるんだとしたらそりゃ羨ましい限りっすわ

640 :デフォルトの名無しさん:2012/06/22(金) 21:13:45.91
I am a pen.

641 :デフォルトの名無しさん:2012/06/22(金) 21:47:06.72
さすがに洋書と同じスピードでは読めないからな。
大事な内容の本は和洋2冊買って、言い回しが怪しいものは原典を当たる。
例えばPerlの仕様なんかで議論するときは原典の方を使うでしょ?
こういうのは使い分けできてナンボでしょーに。

642 :デフォルトの名無しさん:2012/06/22(金) 21:55:23.37
お前らの熱い思いはよくわかった
俺には無理だが英語でその思いを伝えてくれ↓

643 :デフォルトの名無しさん:2012/06/22(金) 22:02:35.29
I am pee.

644 :デフォルトの名無しさん:2012/06/22(金) 22:05:31.10
Ignorance is the mother of impudence.

645 :デフォルトの名無しさん:2012/06/22(金) 22:20:32.40
You are stupid.

646 :デフォルトの名無しさん:2012/06/22(金) 22:33:48.09
>>638
I can't understand Japanese.
So you must say it in English, okay?

647 :デフォルトの名無しさん:2012/06/22(金) 22:51:12.58
I love pussy of the girl.
The pussy is so funny.

648 :デフォルトの名無しさん:2012/06/22(金) 23:40:33.19
>>646
ベタベタな日本人英語だな……。受験頑張れよ

649 :デフォルトの名無しさん:2012/06/23(土) 00:22:57.98
「おれはコンピュータ関係は英語の本しか読まねえ(キリ」とかいうやつが、
英語でまともなレスしてるのは一度たりとも見たことがないからねえ。

こんな匿名掲示板で虚勢張っていったい何が楽しいんだか。

650 :デフォルトの名無しさん:2012/06/23(土) 01:53:22.21
マニュアルは何とか読めても、英文を書いたり、フォーラムで会話したり、小説を読めるようにはならねぇって愚痴

651 :デフォルトの名無しさん:2012/06/23(土) 01:54:40.02
はい

652 :デフォルトの名無しさん:2012/06/23(土) 03:00:21.37
>>649
こんな匿名掲示板でしか虚勢を張れないだけだと思うよ


653 :デフォルトの名無しさん:2012/06/23(土) 03:33:07.49
Twitterと2chは競合関係じゃないだろ。Twitterが便利なら使えばいいし2chが便利なら使えばいいだけの話。
カスとかゴミとか池沼とかやたら書いてる奴は、以前なんか恥ずかしいコテハンで荒らしてた奴だろ。
身バレしちゃったんで名無しに戻ったんだろ。
なんだっけあのコテハン。恥ずかしい名前って印象だけは残ってるんだけど。

654 :デフォルトの名無しさん:2012/06/23(土) 04:32:39.96
>>653
自己紹介乙
そうかお前恥ずかしくてコテ外したけど忘れたのか

655 :デフォルトの名無しさん:2012/06/23(土) 04:50:56.17
あぼーん用設定ファイルに残ってたわ。
Perl忍者だったな。



忍者て。

656 :デフォルトの名無しさん:2012/06/23(土) 06:12:55.49
>>629
これじゃ出来ない
$array[$i][$j]と-1って==で比較出来ない

657 :デフォルトの名無しさん:2012/06/23(土) 07:09:19.01
>>634
翻訳版だと、英語(というか英語圏の人)特有の
切れの良い言い回しや気の利いたジョークが
全部台無しになるからな

658 :デフォルトの名無しさん:2012/06/23(土) 07:51:23.15
でも翻訳版の販売はして欲しい
翻訳版を持ってるかどうかで情弱判定できるからな
情弱に重要な仕事を渡すリスクを軽減できる

659 :デフォルトの名無しさん:2012/06/23(土) 08:51:14.59
>>656
ちゃんと比較できるよー。
http://ideone.com/LlPc5

660 :デフォルトの名無しさん:2012/06/23(土) 09:44:59.03
馬鹿はほっとけよ
ガチで頭悪そうだし

661 :デフォルトの名無しさん:2012/06/23(土) 15:21:09.67
>>659
まじかー
じゃあ$array[$i][$j]は数値じゃないってエラー出てくるのは何だったんだ…
もっといろいろ試してみます

本当にありがとう!

662 :デフォルトの名無しさん:2012/06/23(土) 15:33:27.42
>>657
ジョークと参照性のどっちが大事なんだか。

663 :デフォルトの名無しさん:2012/06/23(土) 16:19:30.13
参照性なんかどっちも変わんねえよ
+αの話してんだろ

664 :デフォルトの名無しさん:2012/06/23(土) 16:21:17.19
>>661
試さなくてもいいから二度とくるな。

665 :デフォルトの名無しさん:2012/06/23(土) 16:36:21.43
>>661はまたいつでもこいよ!
お前みたいなゴミが他スレ行くと迷惑だからこの隔離スレにこいよ!

666 :デフォルトの名無しさん:2012/06/23(土) 17:51:19.81
>>662
心底頭悪いんだな、お前

667 :デフォルトの名無しさん:2012/06/23(土) 19:16:24.86
英語が不得手じゃないなら英語版買えばいいと思うよ
俺は英語は不得手だから邦訳版を買うけど
ただ翻訳があまりにもヒドイみたいな評価がされていて
それでもどうしても必要な本だった場合は
翻訳版と原語版を両方買って
翻訳版では意味が通らないところは原語版を参照するようにするかもしれないな

668 :デフォルトの名無しさん:2012/06/23(土) 20:11:51.36
意味が通らないのばヴァカでも気付くから問題ない
意味が通ってしまう誤訳やニュアンスの変化がマジヤバい

669 :デフォルトの名無しさん:2012/06/23(土) 20:38:34.04

日本にもある絶滅危惧「言語」 グーグルが保護プロジェクト
2012/6/23 11:24
ttp://www.j-cast.com/mono/2012/06/23136697.html


670 :デフォルトの名無しさん:2012/06/23(土) 21:30:46.71
キチガイしかいない

671 :デフォルトの名無しさん:2012/06/23(土) 23:16:26.61
何か必死に荒らしたい人がいますねw

672 :デフォルトの名無しさん:2012/06/24(日) 04:27:12.34
お前のことか。

673 :546:2012/06/24(日) 04:47:41.62
デジタル放送の毒電波も解析して保存願いますグーグル先生

674 :デフォルトの名無しさん:2012/06/24(日) 05:02:17.77
>>671
日本語もまともに使えない池沼?

675 :デフォルトの名無しさん:2012/06/24(日) 13:41:08.72
GIGAZINE

676 :デフォルトの名無しさん:2012/06/24(日) 17:51:20.94
$pg = $in{pg} || 0;

# キーワード検索準備(Shift-JIS定義)
$ascii = '[\x00-\x7F]';
$hankana = '[\xA1-\xDF]';
$twobytes = '[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]';

$in{word} =~ s/ / /g;
@wd = split(/\s+/, $in{word});

$i = 0;
@log;
open(DB,"$cf{datadir}/db.cgi") or error('open err: db.cgi');
while(<DB>) {
($no,$ttl,$com,$cat1,$cat2,$cat3,$ex,$w,$h) = split(/<>/);

# カテゴリ検索
next if ($in{cat1} != $cat1 && $in{cat1} ne '');
next if ($in{cat2} != $cat2 && $in{cat2} ne '');
next if ($in{cat3} != $cat3 && $in{cat3} ne '');

# ワード検索
if ($in{word} ne '') {
$flg;
foreach my $wd (@wd) {
if ($com =~ /^(?:$ascii|$hankana|$twobytes)*?\Q$wd\E/i) {
$flg++;
} else {
$flg = 0;
last;
} }
next if (!$flg);

677 :デフォルトの名無しさん:2012/06/24(日) 17:56:36.14
>>676
↑のフリーのCGIツールを書き換えて# カテゴリ検索の部分を無くし# ワード検索に加え処理したいのですが
if ($com =~ /^(?:$ascii|$hankana|$twobytes)*?\Q$wd\E/i) {
をelseで区切って
if ($cat1=~ /^(?:$ascii|$hankana|$twobytes)*?\Q$wd\E/i) {
と書いていくより簡略化した方法が有りましたらご教授お願いします。

678 :デフォルトの名無しさん:2012/06/24(日) 18:08:02.01
よく見たら/iじゃ駄目じゃん
そこは読み飛ばしてください

679 :デフォルトの名無しさん:2012/06/24(日) 18:12:26.20
そんな瑣末なことの前に
use strict と my 使って
全部書き直せ


680 :デフォルトの名無しさん:2012/06/24(日) 18:18:07.47
>>679
サブルーチン使わない単純処理だからmyいらないと思ったけどいるのかな?
初心者だからわかんね

681 :デフォルトの名無しさん:2012/06/24(日) 18:20:39.55
初心者を免罪符に使うゴミは成長する見込みがないから諦めろ

682 :デフォルトの名無しさん:2012/06/24(日) 18:31:20.75
my $pg = $in{pg} || 0;

# キーワード検索準備(Shift-JIS定義)
my $ascii = '[\x00-\x7F]';
my $hankana = '[\xA1-\xDF]';
my $twobytes = '[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]';

$in{word} =~ s/ / /g;
my @wd = split(/\s+/, $in{word});

my $i = 0;
my @log;
open(DB,"$cf{datadir}/db.cgi") or error('open err: db.cgi');
while(<DB>) {
my ($no,$ttl,$com,$cat1,$cat2,$cat3,$ex,$w,$h) = split(/<>/);

# カテゴリ検索
next if ($in{cat1} != $cat1 && $in{cat1} ne '');
next if ($in{cat2} != $cat2 && $in{cat2} ne '');
next if ($in{cat3} != $cat3 && $in{cat3} ne '');

# ワード検索
if ($in{word} ne '') {
my $flg;
foreach my $wd (@wd) {
if ($com =~ /^(?:$ascii|$hankana|$twobytes)*?\Q$wd\E/i) {
$flg++;
} else {
$flg = 0;
last;
} }
next if (!$flg);

683 :デフォルトの名無しさん:2012/06/24(日) 18:31:59.64
>>681
use strictは行数制限でカットしましたがこれていいですか?

684 :デフォルトの名無しさん:2012/06/24(日) 18:37:36.21
ここは添削スレじゃねえんだよ。
初心者だからわかりすぇんとか言いながらコード丸投げとかマジで頭おかしいんじゃないだろうか。

685 :デフォルトの名無しさん:2012/06/24(日) 18:41:03.89
頭おかしいというよりゴミ

686 :デフォルトの名無しさん:2012/06/24(日) 18:42:29.98
>>682
3項演算子であれば多少短くなるかな
foreach my $wd (@wd) {
$flg = $com =~ /^(?:$ascii|$hankana|$twobytes)*?\Q$wd\E/ ? $flg + 1 : 0;
last if 0 == $flg;
}

687 :デフォルトの名無しさん:2012/06/24(日) 18:44:38.09
>>686
ありがとう
もう勉強して出直してきますね

688 :デフォルトの名無しさん:2012/06/24(日) 18:46:45.72
よくこれだけ恥ずかしい質問とソースを投下できるもんだな、
感心するわ

689 :デフォルトの名無しさん:2012/06/24(日) 18:47:31.54
>>688
照れるじゃねーか(〃▽〃)

690 :デフォルトの名無しさん:2012/06/24(日) 18:52:40.54
>>688
恥知らずだからできるんだろwww
恐らく同様の恥知らずの親に教育されたんだと思われwwww
>>680の親は社会のお荷物wwwwwww

691 :デフォルトの名無しさん:2012/06/24(日) 19:12:13.71
□初心者を言い訳に使う
□プログラム丸投げ
□指摘されたら開き直る

本人は気づいてないだけで職場では消えて欲しいって本気でウザがられるタイプ
キャラがウザいとかじゃなくて存在が迷惑

692 :デフォルトの名無しさん:2012/06/24(日) 19:20:45.19
異常なのはお前ら
初心者は何一つ分からない段階からの
スタートなんだからこうやって
一つ一つ質問して疑問を解決して
いくのが当たり前

693 :デフォルトの名無しさん:2012/06/24(日) 19:24:11.45
黙れクズ
真のPerlハッカーが集うこのスレに初心者が気軽に質問しに来るな
ラクダ本リャマ本全部脳みそに叩き込んでから来い
本が高いなら古いのを中古で買え
(むしろ新しいのは余計な記述多いから古い版のほうが良いぜ…なにデレてんだアホか俺)

694 :デフォルトの名無しさん:2012/06/24(日) 19:31:06.08
>.676
CGIは板違いなので、こちらへどうぞ……逃げてー!

Perlコーディング初心者質問スレ Part 63
http://kohada.2ch.net/test/read.cgi/php/1315559509/
★三 【 スクリプト改造工房 PART 9 】 ★三
http://kohada.2ch.net/test/read.cgi/php/1143834740/

695 :デフォルトの名無しさん:2012/06/24(日) 19:37:59.82
>>690
(´・ω・`)・ω・`) キャー
/  つ⊂  \  怖いー

696 :デフォルトの名無しさん:2012/06/24(日) 19:38:56.37
どうせ>>671が自演で荒らしてんだろ。
プログラムを弄るような奴が>>1の注意書きすら読めないほど注意力ないとかありえない。

697 :デフォルトの名無しさん:2012/06/24(日) 19:41:33.78
>>696
全然違う、どんまいw

698 :デフォルトの名無しさん:2012/06/24(日) 20:01:17.24
>>693
サンキューそうする

699 :デフォルトの名無しさん:2012/06/24(日) 20:48:19.66
まあ新しいラクダ本っつーても日本語版は第3版で止まってて既に古いけどな
第4版の日本語版いつ出るんだろ?

700 :デフォルトの名無しさん:2012/06/24(日) 21:43:48.25
ぼちぼち翻訳を始めるとしても早くて来年じゃないか?
リャマ本の新版が来月出るみたいだけど、訳してるの同じ人だもんな。
オラにしても今さらperl本て優先度低そうorz

701 :デフォルトの名無しさん:2012/06/24(日) 22:12:45.21
リャマ6和訳来月なのか、全然初めてじゃないけど欲しくなってきたw

702 :デフォルトの名無しさん:2012/06/25(月) 09:51:54.77
日本語発の英訳版ってあんまないから、普通英語版が出たら先にそれ買うだろ。
ラクダみたいな簡単なのは英語版だけで足りるけど理論書みたいのは
結構読むのかったるいので邦訳が出たら後で買うかな。
あとK&Rみたいに訳が枯れてるのは別に日本語版でいいと思う。ジョークとか
正直いらんし。

703 :デフォルトの名無しさん:2012/06/25(月) 10:35:05.51
特定の分野でまとまった情報がそれしかないなら洋書を買うわさ。
日本語では断片的で信用もおけない情報しかないんだから。

言語の初心者に英語の本を買えとか全然違う話をごっちゃにすんなよ、アホウ

704 :デフォルトの名無しさん:2012/06/25(月) 10:43:01.42
>>703
> 日本語では断片的で信用もおけない情報しかないんだから。

へーそうなんだー (棒)

705 :デフォルトの名無しさん:2012/06/25(月) 11:09:06.33
俺はあえて本を買うならそれが日本語だっていうところにしか
価値を見出せない感じもあるなw
なににつけドキュメントは第一にwebにあるわけだしさ

706 :デフォルトの名無しさん:2012/06/25(月) 13:16:20.78
プログラミング言語の初心者と英語の書籍が読めるかどうかは別問題
英語もまともに読めないくせにプログラミング始める時点で異常
自転車も乗れない水泳もできない奴がトライアスロンに出場するのと同じレベル

そして全て英語版のドキュメントを読めばいいと言ってるわけではない
原著が英語なら英語版を、原著が日本語なら日本語版を読むのが妥当


707 :デフォルトの名無しさん:2012/06/25(月) 13:17:02.28
ウェブサイトに関しては日本語より英語のほうが文書の数は多いから英語優先で検索したほうが見つかる可能性が高い
それを日本語に限定するとか自分でハンデつけといて掲示板で分かりません教えてくださいとかマジキチ

708 :デフォルトの名無しさん:2012/06/25(月) 13:24:35.92
IO::Socket::INETを利用する場合にnewをしたあと、つまりサーバーとして利用中にListenの値を変更することはできますか?

709 :デフォルトの名無しさん:2012/06/25(月) 13:54:57.32
↑なんでこのゴミは試してみないの?
試せないほど頭悪いの?

710 :デフォルトの名無しさん:2012/06/25(月) 20:03:11.21
http://www.softbanktelecom.co.jp/ja/news/press/2011/20111208_01/
韓国KT社との合弁によるプサンデータセンターが竣工

ソフトバンクテレコム株式会社は、韓国最大の通信事業者KT Corporation(本社:韓国ソウル市、
Chairman and CEO:李 采(イ・ソクチェ)以下、KT社)と合弁で、
データセンターサービスおよびクラウドコンピューティングサービスを行う合弁会社
「kt-SB data service Co. Ltd」を設立し、本日、慶尚南道金海市に建設していた、
プサンデータセンターが竣工いたしました。データセンターは、年内に試験運転を開始し、
来年1月には日本国内におけるデータセンターサービス提供価格よりも約50%安価な
価格設定で正式サービスを開始する予定です。

711 :デフォルトの名無しさん:2012/06/25(月) 20:33:33.24
>>709
いつもみたいに50レスひとりでやんなさいよ
周りの同調を期待してみたところでミジメなだけやから

712 :デフォルトの名無しさん:2012/06/25(月) 20:46:36.61
>>711
この人どうしたの?

713 :デフォルトの名無しさん:2012/06/25(月) 20:52:39.86
荒らしは放置で。

714 :デフォルトの名無しさん:2012/06/25(月) 20:55:09.03
711は何をやれって言ってるんだろうな

715 :デフォルトの名無しさん:2012/06/25(月) 21:10:26.97
>>711
お前は何でいつもみたいに一人で50レスしないの?
同調を期待してるそのレスがあまりにみじめに見えて同情するレベルなんだけど
自分ではみじめだって気付かないのかな?w

716 :デフォルトの名無しさん:2012/06/25(月) 21:19:52.48
>>712-715
プw

717 :デフォルトの名無しさん:2012/06/25(月) 21:21:16.07
辛いことでもあったんだろ

718 :デフォルトの名無しさん:2012/06/25(月) 21:23:45.73
1人で50レスってどっから出てきたんだ?

719 :デフォルトの名無しさん:2012/06/25(月) 21:29:04.97
俺はインターネット歴10年だから全ての書き込みはその文体や内容の傾向から識別できる
脳波や精神エネルギーが神経を通ってタイピングに表れるからその波長の違いを見分けられる
だからこの間書き込みを見てたら50レス連続して書き込んでいる奴がいるのが見えた
それが>>709

720 :デフォルトの名無しさん:2012/06/25(月) 22:34:31.19
顔真っ赤にして50レスに反応してる奴が若干名いるな

721 :デフォルトの名無しさん:2012/06/25(月) 23:40:44.41
オライリーの本で和訳されたもののうち、
私が分かり易く読みやすいと感じた本は殆ど無い。
予備知識があれば少し読みやすくなるが、それでもなお理解しにくい。

722 :デフォルトの名無しさん:2012/06/25(月) 23:46:58.28
結論:日本語側類

723 :デフォルトの名無しさん:2012/06/26(火) 00:48:52.40
そりゃそうだろ
翻訳なんて伝言ゲームと同じだよ

724 :デフォルトの名無しさん:2012/06/26(火) 01:19:29.54
それは翻訳が悪いせいなのか
頭が悪いせいなのか
どっちだろう

と昔は悩んだものだ

725 :546:2012/06/26(火) 02:06:05.58
>>724
本になるくらいだからと下しか疑わなかったあの頃

726 :デフォルトの名無しさん:2012/06/26(火) 04:56:02.43
1人で50レスとか言ってる香具師の妄想力には恐れ入る

727 :デフォルトの名無しさん:2012/06/26(火) 06:21:06.25
まったくだ。せいぜい1人10〜20レスくらいだよな。×2〜3人か?

728 :デフォルトの名無しさん:2012/06/26(火) 08:40:09.12
まあこのスレには>>726と同じ種類のバカは多いな。正直と素直だけが取り柄みたいな

729 :デフォルトの名無しさん:2012/06/26(火) 09:32:31.45
正直も素直も立派な美徳だ。

730 :デフォルトの名無しさん:2012/06/26(火) 11:30:36.09
自分が50レスするくらい暇だから他人もそうだと思ったんじゃね?

731 :デフォルトの名無しさん:2012/06/26(火) 17:02:42.88
落ち着いてるところを何でわざわざ煽ったのかが疑問。
6時間近く静かだったのに。

732 :デフォルトの名無しさん:2012/06/26(火) 17:25:32.95
生保もらってる奴がいるのに増税とかもうね

生保受給者0にしてからやれや

733 :デフォルトの名無しさん:2012/06/26(火) 17:30:05.31
>>731はどうしてわざわざ蒸し返したのかねえ。
6時間近く静かだったのに。

734 :デフォルトの名無しさん:2012/06/26(火) 17:36:07.25
生活保護受けてる在日が勝ち組ということだ

735 :デフォルトの名無しさん:2012/06/26(火) 17:39:09.37
>>733
おうむ返し乙w

736 :デフォルトの名無しさん:2012/06/26(火) 18:01:35.22
え?増税決まったの?

737 :デフォルトの名無しさん:2012/06/26(火) 18:05:55.46
増税で増えた税収は
去年みたいに5兆円単位で半島に送ります^^
半島人のためにみなさんどんどん買い物して消費税を納めてくださいね^^

738 :デフォルトの名無しさん:2012/06/26(火) 22:24:11.17
あんな初級のホイホイにひっかかってくるバカは、間違いなくこれまでその50レスに加担してきている。
右へならえのお仲間を確認できてよかったね(・∀・)ニヤニヤ

739 :デフォルトの名無しさん:2012/06/27(水) 11:38:11.80
Perlには4GBの見えない壁がある

740 :デフォルトの名無しさん:2012/06/27(水) 14:21:26.58
DBのデータを利用するCGIを置くときにHTTP鯖とDB鯖を物理的に分けたら
HTTP鯖とDB鯖間の通信がボトルネックになったりするかね?
HTTP鯖とDB鯖間の帯域は十分に確保されてるとして
そのコネクションの確立やらオーバーヘッド的な意味で

741 :546:2012/06/27(水) 15:19:45.79
>>740
そこがボトルネックになるほどの大量のデータをやりとりするんならなる。

742 :デフォルトの名無しさん:2012/06/27(水) 16:39:14.12
コネクションを維持しとけば済む話。

743 :546:2012/06/27(水) 17:43:04.97
キューイングすればいいというのもあるな

744 :デフォルトの名無しさん:2012/06/27(水) 18:15:13.01
馬鹿がおめ
Perlには4GBの壁があるから無理

745 :デフォルトの名無しさん:2012/06/27(水) 20:15:57.59
>>744=ゴミ

746 :デフォルトの名無しさん:2012/06/27(水) 22:16:02.25
>>744
>>739で相手にされなかったからって
そんなに顔真っ赤になるなよ低脳クン
で、相手してもらえてうれしいか?

747 :デフォルトの名無しさん:2012/06/27(水) 23:07:09.73
質問しようと思ったのですが何かここ怖いので他所で質問しますね。

748 :デフォルトの名無しさん:2012/06/27(水) 23:13:47.86
このスレは質問スレでした。しかしそれは既に過去のことです。

749 :デフォルトの名無しさん:2012/06/27(水) 23:39:46.08
病気持ちが湧いてるなw

750 :デフォルトの名無しさん:2012/06/27(水) 23:47:35.53
みんなスルーする中>>746が見事に釣られてる件

751 :デフォルトの名無しさん:2012/06/28(木) 05:59:43.44
>>750=>>744=>>739
よかったなオイ

752 :デフォルトの名無しさん:2012/06/28(木) 08:06:16.55
TDDに関心はあるのだが、どう始めていいものやらさっぱりわからぬ。
趣味のコーディングしかしていないんで切実さも足りないのかもしれんが。
やはりまずは参考書を通して読んでみるべきかのう。

753 :デフォルトの名無しさん:2012/06/28(木) 14:19:50.70
このスレはいつからキモい奴が常駐するようになったの?

754 :デフォルトの名無しさん:2012/06/28(木) 14:57:08.67
うるさいゴミ

755 :デフォルトの名無しさん:2012/06/28(木) 15:36:56.89
妄想でレス番をイコールでつないで喜んでる基地害ってどこから来たんだろう。

756 :デフォルトの名無しさん:2012/06/28(木) 15:39:40.84
全然関係ないけど、
配列の中に未定義値があるといちいち警告出てうざくなって、
まとめて空白文字にする関数作ったら、
一行になってしまって関数化するべきかどうか悩ましくなったの巻。

757 :デフォルトの名無しさん:2012/06/28(木) 16:13:24.48
全部一行にしてやったぜぇ〜
ワイルドだろぉ〜

758 :デフォルトの名無しさん:2012/06/28(木) 17:21:30.56
けんしろう「お前の頭髪の毛根はすでに氏んでいる」

759 :デフォルトの名無しさん:2012/06/28(木) 20:11:50.30
自分の鯖でデータ量はそんなに多くないファイルを読み込んで
データを加工して書き込むperlのプログラム作ってF5連打したらCPU使用率がすぐに100%まで行ったけど
perlってそんなに負荷かかるの?

760 :デフォルトの名無しさん:2012/06/28(木) 20:13:49.86
処理量によるだろ、マジで馬鹿かお前。
ありえねw

761 :デフォルトの名無しさん:2012/06/28(木) 20:18:43.42
こういうアホを避けるためにわざわざ
>>1のテンプラに
(CGI 以外の)純粋にPerlのみ
って書いてあるのにな

テンプレも読めないようなアホは一年ROMれよクズカスゴミ
二度とPCに触るな
スクリプトも書くな
こういうヴァカが鯖のデータを飛ばすんだよ


762 :デフォルトの名無しさん:2012/06/28(木) 20:25:47.15
\           /     /. : : : : : : : :ヽ-‐.: :_;. --- .._: : : : : : : :\       \      /
_  争  も  _   /, -‐==ミ: : : : _,ィニ-‐……ー-: 、`ヽ、: : : : ヽ、      _   争   _
_  え  っ  _     . .:´: : : : : : : ≠:7: : : : : : : : : : : : :ヽ、 ヽ| : i : : :,     _    え   _
_   : . と   _   /.: : : : -‐: :7´: : /:,ハ : : : :ヽ : : : ゝ-- :\ | : :! : : : ,   _    :   _
_  :      _ /, -‐/.: : : : :i : : /ィ:爪: : :\ :\ : : :\: : :`ト : !: : : :′   _   :    _
             〃  /. : : : : : : |.:イ :ハ:| \: .、\: : xィ¬ト、: :| : : ! : : : : :,
/          \   /.: :/.: : : : /l : |/Гト、       / |_,ノ0:::ヽ : : :i : : : : :′ /        \
 /  |  |  \    | .:/.:/. : : :i: i : | |ノ0:::ト :::::::::::::   |: :∩::::::ト: : : !: : : : : : :,  / | | \
             ∨i: |: : : : |: :ヽ| |::∩::| ::::::::::::::::  !.::∪::::::| |: : :i : : : : : : ′            ,ィ /〉
               |: |: : i : :', : |  |::∪::| ::::::::::::::::  !: : : : : :||: : i : : : : : : : :,          / レ厶イ
                ヽハ: : :、: :ヽ|  l : : : |:::::  ,  ::::└――┘ ! : : i : : : : : : : ′        /   ⊂ニ、
                い、: :\/   ̄ ̄                 ', : : i : : : : : : : : ,     _, -‐'    ⊂ニ,´
    r 、  _          ヽ: :〈        <  ̄ フ         |: : : ! : : : : : : : :′,.-‐T   _,. -‐'´ ̄
    くヾ; U|           | : \                   /| : : :i : : : : :_, -‐'    |  /
   r―'   ヽ、             | : : : \               イ: : :| : : :i_,. -‐       |/
    `つ _   ̄ ̄Τ`ー―-- L: : : : : `: : . . .  __    .:〔: : :|: : :r┬'              |

763 :デフォルトの名無しさん:2012/06/28(木) 20:52:31.79
>>759
数値一切出さずに重いとか判断できるのかボンクラパーかおめ ここはオメーの来る場所じゃねーんだわかるか?

764 :デフォルトの名無しさん:2012/06/28(木) 20:55:49.84
>>752
http://perldoc.jp/docs/modules/Test-Simple-0.47/Tutorial.pod



765 :デフォルトの名無しさん:2012/06/29(金) 05:53:34.10
パールってどういう意味?

766 :デフォルトの名無しさん:2012/06/29(金) 06:07:52.26
>>765
ttp://ja.wikipedia.org/wiki/Perl

767 :デフォルトの名無しさん:2012/06/29(金) 12:52:05.00
このスレ、ネットでしか粋がれないクズばっかりだな

768 :デフォルトの名無しさん:2012/06/29(金) 13:26:16.60
お前の書き込みがそれを証明してるな

769 :デフォルトの名無しさん:2012/06/29(金) 13:56:48.98
>>767=>>765
どした坊主?

770 :デフォルトの名無しさん:2012/06/29(金) 14:02:58.55
>>767
それが2chですから。
実力ある人はとっくにツイッターへいってます。

771 :デフォルトの名無しさん:2012/06/29(金) 14:26:30.16
実力のない初心者でもまともにやりたい人はTwitter行ってる

772 :デフォルトの名無しさん:2012/06/29(金) 14:34:55.08
適当にレス番号をイコールで結んで喜んでる基地害はコテ付けてくれればいいのにな。
コテが付けてるぶんQZのほうが遥かにマシ。
まぁ他人に構ってもらいたくて必死なんだからコテなんて付けないだろうな、
あぼーんされたら見てもらえなくなるし。

773 :デフォルトの名無しさん:2012/06/29(金) 16:12:28.82
>>770=>>771=>>772

774 :デフォルトの名無しさん:2012/06/29(金) 20:27:10.29
>>762

775 :デフォルトの名無しさん:2012/06/29(金) 23:07:31.65
Perlって何て読むの?
ぺるる?
ぺるるとか変な名前の言語とか使ってるとかダッセw
ぺるるw

776 :デフォルトの名無しさん:2012/06/29(金) 23:15:59.26
ラリー・ウォールの発音によると「ぺるる」よりは「ぽおぅ」の方が近いと
思います。ぺるると読む775さんは本当にダサいですね。ぺるるw

777 :デフォルトの名無しさん:2012/06/29(金) 23:28:00.15
誰も考えていない新しい読み方を創造した点だけは褒めてつかわす

778 :デフォルトの名無しさん:2012/06/29(金) 23:36:16.80
ぺるるかわいいよぺるるr

779 :デフォルトの名無しさん:2012/06/29(金) 23:37:36.25
玄人はぽおぅ。
うちの会社みんな日本人だけど
皆ぽおぅって読んでる。

780 :デフォルトの名無しさん:2012/06/29(金) 23:55:51.45
でもバージョンはごーてんじゅーろくてんぜろとか言ってるんでしょう

781 :デフォルトの名無しさん:2012/06/30(土) 00:09:13.90
バージョン?

782 :デフォルトの名無しさん:2012/06/30(土) 00:59:38.38
いんや、分かる者どうしなら「ごーいちろく」で十分通じるよ。
それと「ごーにぃに」って言ったら ActivePerl Build 522 のこと
だから覚えておくとぃぃyo。

783 :デフォルトの名無しさん:2012/06/30(土) 02:15:08.39
うわぁ・・そういう数字だけで伝わるとかヲタの世界みたいで気持ちわりい
アニヲタも十分キモいけどそれもまた別のキモさがある

784 :デフォルトの名無しさん:2012/06/30(土) 03:18:05.95
略称や型番で通じるつうとヲタしか連想できないやつキモイ

785 :デフォルトの名無しさん:2012/06/30(土) 06:48:54.47
5.16.0なんて使うのはこういうキモヲタしかいません(キリッ
まともな神経を持っている人間は5.6を使います(キリリッ

786 :デフォルトの名無しさん:2012/06/30(土) 07:50:43.23
まともな神経かどうかはわからんが
フツーの奴はそこにあるやつを使うだけでバージョンとかあまり気にしてないんじゃね?
Perlの細かいバージョンの違いで動きが変わるようなコーディングもしてないだろうし
うちは今見たらcygwinでは5.10.1、debianでは5.10.0、レンサバでは5.8.9だった

787 :546:2012/06/30(土) 08:03:27.16
数字で言われてもわからない。ペンギンさんとかパンダさんみたいにネーミングし

788 :デフォルトの名無しさん:2012/06/30(土) 09:12:51.65
ぐーぐるが、ペンギンやパンダのイメージを悪くした。
この罪は重い。

789 :デフォルトの名無しさん:2012/06/30(土) 09:15:15.14
>>787
Macみたいな?

790 :デフォルトの名無しさん:2012/06/30(土) 09:32:50.22
>>788
そう思ってるのは底辺アフィ屋だけ

791 :デフォルトの名無しさん:2012/06/30(土) 11:42:17.23
質問と言うか助けてください

http://.....hoge.cgi?hage=hige&mage=1,2,3
上記の引数付きのものをデバッガで実行するのって
perl -d hoge.cgi hage=hige mage=1,2,3
で合ってますか?

また、この引数って何処から取れば良いのでしょうか?@ARGV?

何処にも入れた引数見つからなくて泣きそう…


792 :デフォルトの名無しさん:2012/06/30(土) 12:20:28.21
CGIとプログラムの区別をだな。
動いてるのはCGIだから、環境変数を参照しときなさい。

793 :デフォルトの名無しさん:2012/06/30(土) 12:22:22.79
適当ですまん
CGI.pm使ってるなら
perl -d hoge.cgi "hage=hige&mage=1,2,3"
とか?

794 :デフォルトの名無しさん:2012/06/30(土) 12:24:25.40
答えるなよアホクズ野郎
>>1のテンプレも読めないヴァカヴァカがいるのかよ
恥ずかしいな全く
じがいしろよ


795 :デフォルトの名無しさん:2012/06/30(土) 13:10:30.27
>>791
お前本当に人間のクズだと思うよ

796 :デフォルトの名無しさん:2012/06/30(土) 13:51:38.86
なんかきたぞw

797 :デフォルトの名無しさん:2012/06/30(土) 15:13:01.55
>791みたいに簡単な検索もできない
質問スレの注意書も読めないってまじで頭おかしいと思う。
親がDQNでまともな教育受けてないんだろうな。

798 :デフォルトの名無しさん:2012/06/30(土) 15:46:47.47
hogeとか使ってる時点でマジキチじゃんwwwwwwwwwwwwwwwwwwww
一目で分かるwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww

799 :デフォルトの名無しさん:2012/06/30(土) 16:07:36.09
また沸いたなぁ。まースルーすっか。

>>791
自分でソケット開くなりなんなりせずにCGIを使った以上、http通信はしてないからな。
よって引数もプログラムに対しての引数じゃないからな。

CGIがなにか分からずにCGIでプログラムを起動させないほうがいい。
どんな環境でプログラムが動いてるのかは環境変数でもみとくといい。
きっとCGIがなんかの引数を受け取った環境で動いてるだろうよ。
あとここはPerlスレ。cgiはWebProgと言う板があるぞ。

800 :デフォルトの名無しさん:2012/06/30(土) 16:10:00.72
http通信はしていない以上
ウェブアプリじゃないだろ。

だからここであってる

801 :デフォルトの名無しさん:2012/06/30(土) 16:12:13.92
答える方はこれぐらい知ってからにしてほしいね。

DEBUGGING

If you are running the script from the command line or in the perl debugger,
you can pass the script a list of keywords or parameter=value pairs on the
command line or from standard input (you don't have to worry about tricking
your script into reading from environment variables). You can pass keywords like this:

your_script.pl keyword1 keyword2 keyword3
or this:

your_script.pl keyword1+keyword2+keyword3
or this:

your_script.pl name1=value1 name2=value2
or this:

your_script.pl name1=value1&name2=value2
To turn off this feature, use the -no_debug pragma.

802 :デフォルトの名無しさん:2012/06/30(土) 16:25:37.35
cgiじゃないなら何で拡張子がcgiになってるの?
慣例無視の適当拡張子?
慣例無視するなら拡張子はgomiにしとけよ
そうすればいちいち開かなくてもファイル名見ただけで>>791の作ったゴミって分かるから
サクサク削除できて楽

803 :デフォルトの名無しさん:2012/06/30(土) 16:27:17.63
例えCGIでもコマンドラインで実行することにすれば許されるのがこちらのスレッドになります。

804 :デフォルトの名無しさん:2012/06/30(土) 16:28:57.09
はいはい、plにしとけば問題ないね。問題ない。

perl -d hoge.pl hage=hige mage=1,2,3

805 :デフォルトの名無しさん:2012/06/30(土) 16:30:06.64
そもそも、コマンドラインプログラムと
ウェブアプリで違いなんて殆ど無いんだから
分けること自体がおかしい。

806 :デフォルトの名無しさん:2012/06/30(土) 16:32:50.55
803:デフォルトの名無しさん :2012/06/30(土) 16:27:17.63 [sage]
例えCGIでもコマンドラインで実行することにすれば許されるのがこちらのスレッドになります。

807 :デフォルトの名無しさん:2012/06/30(土) 16:40:30.10
>>805
ここは一緒にするスレじゃねーんだよksわかるか?
嫌なら次スレでテンプレ変えるか自分で一緒にするスレ立てろやks

808 :デフォルトの名無しさん:2012/06/30(土) 16:41:43.85
>>805
perlに関係ない質問とアホみたいに低レベルな質問を避けるためにわけてるんだよks

809 :デフォルトの名無しさん:2012/06/30(土) 16:42:34.72
まーそれでもいいよ。

810 :791:2012/06/30(土) 16:48:51.48
あれ?
まだやってたんですか?w

もうとっくにTwitterのほうでリプもらってるので大丈夫です
ご苦労様でした

811 :デフォルトの名無しさん:2012/06/30(土) 16:53:56.61
「CGIはスレ違い」で発狂&質問者になりすまし
毎回同じやり口だな

812 :デフォルトの名無しさん:2012/06/30(土) 16:54:00.20
>>805
CGIスレにも書いてこいよバーカ

813 :デフォルトの名無しさん:2012/06/30(土) 16:55:09.87
ちょっとからかうと
すぐ発狂で、ここの奴らは面白いw

814 :デフォルトの名無しさん:2012/06/30(土) 16:59:17.26
「からかう」にしては随分と必死に噛み付いてるよね

815 :デフォルトの名無しさん:2012/06/30(土) 17:00:03.28
CGIはスレ違いと言われて反論できず発狂認定しかできない>>811が発狂してるのはこのスレだときいて飛んできました

816 :デフォルトの名無しさん:2012/06/30(土) 17:00:41.26
発狂してるのはひとりに見えたが・・・

817 :デフォルトの名無しさん:2012/06/30(土) 17:01:51.26
そもそもここまで全部 俺の自演だし

818 :デフォルトの名無しさん:2012/06/30(土) 17:02:18.05
発狂してるのは>>811=>>813ただ一人。

819 :デフォルトの名無しさん:2012/06/30(土) 17:04:03.23
本当に質問者に成り済ましてるのならいいけどな
本当に成り済ましならなw

820 :デフォルトの名無しさん:2012/06/30(土) 17:09:56.46
そもそもhogeとか使うのが荒れる原因

821 :デフォルトの名無しさん:2012/06/30(土) 17:12:59.55
ちがうぞ、話題がなくなって過疎くなると荒れるんだ。
このスレに限らずな。
ここだと数年前は一時間もしたら質問がいくつかきてて荒れてる場合じゃなかった的な。

822 :デフォルトの名無しさん:2012/06/30(土) 17:18:31.09
そんなに過疎ならもういらないだろ
老害が住み着いてるだけだし

823 :デフォルトの名無しさん:2012/06/30(土) 17:25:04.77
>>791
>>1
> CGI についての質問は板違いです。WEB プログラミング板でどうぞ。

Perlコーディング初心者質問スレ Part 63
http://kohada.2ch.net/test/read.cgi/php/1315559509/

824 :デフォルトの名無しさん:2012/06/30(土) 17:56:54.62
これからの時代、hogeよりmogeだよな

825 :デフォルトの名無しさん:2012/06/30(土) 18:27:28.89
質問に答えられない最も都合がいい言い訳=「CGIはスレ違い」

826 :デフォルトの名無しさん:2012/06/30(土) 18:40:35.66
>>825
まあ、板ルールだし。
http://toro.2ch.net/tech/head.txt
> CGI は Web プログラミング板へ。

827 :546:2012/06/30(土) 18:58:57.59
どっちでもないならどっちでもいけるWebサイト製作スレにでも
いったらどうだろうか。

多分専門じゃないからってなるだろうけど

828 :デフォルトの名無しさん:2012/06/30(土) 19:52:30.68
スレ違いの質問してスレ違いを指摘されたらそいつの無能を認定してよいのがこちらのスレッドになります
Bグルから性の悩み、ペットの躾からスノボまで何でもOKなのがこちらのスレッドになります

その際>>825のテンプレを使用すると良いでしょう

829 :デフォルトの名無しさん:2012/06/30(土) 20:05:38.11
Perlについての質問です。
Perlを使っているとここの人たちみたいに精神病を患うのですか?
ご教示ください。

830 :デフォルトの名無しさん:2012/06/30(土) 20:57:42.34
>>829
つまらん
はい次

831 :デフォルトの名無しさん:2012/06/30(土) 21:19:19.18
>>830の面白い質問に期待↓

832 :デフォルトの名無しさん:2012/06/30(土) 21:38:11.68
>>830の書き込みが超絶につまらない件について

833 :デフォルトの名無しさん:2012/06/30(土) 21:45:11.66
>>830
クソワラタwww

834 :デフォルトの名無しさん:2012/07/01(日) 05:34:20.64
print map {$_*$_} grep {2<$_ and $_<5} 1..5;

835 :デフォルトの名無しさん:2012/07/01(日) 05:38:14.74
use 5.12.0;
use Data::Dump qw(dump);

my @a = 1..4;

sub fn {
  my ($le, $pv, @ri) = @_;
  defined $pv ? map {[$pv, @$_]} fn([], @$le, @ri) : ([])
    ,
  @ri ? fn([@$le, $pv], @ri) : ()
}

say dump(fn [], @a);

836 :デフォルトの名無しさん:2012/07/01(日) 12:17:51.22
>>824
中国嫁日記か

837 :デフォルトの名無しさん:2012/07/01(日) 16:05:10.35
XPでactiveperlで、unlinkでファイルを削除しようとしても、
フルパスが256文字あたりを超えてると無視される
どうすれば

838 :デフォルトの名無しさん:2012/07/01(日) 16:28:21.74
>>837
今フルパス261文字のファイルで試したら
unlinkで普通に削除できたよ

839 :838:2012/07/01(日) 16:29:29.22
違った、259文字だったorz

840 :デフォルトの名無しさん:2012/07/01(日) 16:31:10.72
ここにはマジで馬鹿しかいないのか?

841 :デフォルトの名無しさん:2012/07/01(日) 16:32:11.84
確か漢字は3文字分でいいんだよね?

842 :デフォルトの名無しさん:2012/07/01(日) 16:34:21.63
dos呼んで8.3ファイル名で消せば良いんでないの

843 :デフォルトの名無しさん:2012/07/01(日) 17:21:04.45
>>837
途中のディレクトリを短い名前に変更して全体の長さを縮める。

844 :デフォルトの名無しさん:2012/07/01(日) 17:55:06.45
chdir でそのパスに移動すれば、unlink で指定するパスを短くできる

845 :デフォルトの名無しさん:2012/07/01(日) 18:16:19.15
readdirで長いファイル名があると、エラーで終了するしな
ActivePerlのそのへんの弱点を補うモジュールとか無いのか
普通にバグのレベルなのに

846 :デフォルトの名無しさん:2012/07/01(日) 19:12:35.31
readdir なんて使うからだろ
`dir` ならそんなくだらない問題に悩まなくて済む

847 :デフォルトの名無しさん:2012/07/01(日) 19:20:29.14
何で言語ありきで語ってるんだろうなこの基地害共は
目的に応じて言語を選ぶのがまず最初な
目的が達成できないなら言語を変更する

基本以前のレベル
頭悪すぎwwwww

848 :デフォルトの名無しさん:2012/07/01(日) 19:25:58.93
とある一点を超えるとそのシステムが通常動作しなくなる、異常系が発露する、
そっちの方の追及も大事でしゅ


849 :デフォルトの名無しさん:2012/07/01(日) 21:05:45.62
追及はマニア同士でやってろよ
なんか完成させたいんじゃなかったの?暇だから追及したかっただけなの?
それとも単に頭が悪いだけなの?

850 :デフォルトの名無しさん:2012/07/01(日) 21:10:47.10
だからマニア同士でやってるじゃあないかwww

そして「完成」ちゅーのは
perlの完成に他ならない だろw
重箱の隅々までキレイ完璧にしたいんだよwwww

んでもって目的がソレなんだよw
わかってチョーダイねwwwww


851 :デフォルトの名無しさん:2012/07/01(日) 21:12:37.94
馬鹿がおめ
追及も何もバグだろks自分でモジュールでも作って対応しとけやゴミ

852 :デフォルトの名無しさん:2012/07/01(日) 21:17:38.86
モジュールも作れない雑魚がプログラマ気取ってここに出入りするからこういうことになるんだろうな。

853 :デフォルトの名無しさん:2012/07/01(日) 21:21:23.13
>>850
$ export PERL5OPT="-Mstrict -Mwarnings"
した程度で、
$ perldoc perl
したらエラーが出てドキュメントが読めない様な
言語に何を求めてんだ?


854 :デフォルトの名無しさん:2012/07/01(日) 21:22:36.60
















バーカ

855 :デフォルトの名無しさん:2012/07/01(日) 21:49:59.15
シェバング行を解さないシェル向けの行を、
スクリプトとして実行しないように避けるトラップに引っかかってるんだな。
Windows環境では問題ないから不思議に思った。

http://perldoc.jp/docs/perl/5.10.0/perlrun.pod

856 :デフォルトの名無しさん:2012/07/01(日) 22:09:15.72
Bカスカードって何種類かあるけど
普通の地デジ用は
民放用と、民放+NHK用に分けて欲しかったな

それでNHK受信料は、民放+NHK用使ってる奴から取ればいいだろ
そうすれば見てる奴だけから確実に取れるし見てない奴から金を取るなんて迷惑なことも起きないだろ

857 :デフォルトの名無しさん:2012/07/01(日) 22:17:24.42
b-casは利権の塊だから無理。

858 :デフォルトの名無しさん:2012/07/01(日) 23:30:28.73
>>840
お前が筆頭だな
話について来れないのなら黙ってろ

859 :デフォルトの名無しさん:2012/07/01(日) 23:40:13.24
地デジ対応テレビとかも全部bcas入れるところあんの?

860 :デフォルトの名無しさん:2012/07/02(月) 00:29:42.39
これくらいのことでモジュールなんか作ってたらきりがないぞ

@file = split(/\n/,`dir /b *.* 2>NUL`);

861 :デフォルトの名無しさん:2012/07/02(月) 00:44:38.22
>>860
そうは思わないな。

使い捨てスクリプトならどうでもいいけど、
コメントが必要となるもの、これはどういう意味と数秒考えるぐらいなら
モジュールにした方がいい。

862 :デフォルトの名無しさん:2012/07/02(月) 00:51:38.07
モジュールを作るってことはファイル名をつけるってことに
なって、XPでactiveperlで、unlinkでファイルを削除しよう
としても、 フルパスが256文字あたりを超えてると無視される
どうすれば

863 :デフォルトの名無しさん:2012/07/02(月) 00:53:36.00
>>862
バカは黙ってろ

864 :デフォルトの名無しさん:2012/07/02(月) 01:05:35.23
本日のヴァカ入りました〜 → >>862

865 :デフォルトの名無しさん:2012/07/02(月) 01:06:45.59
コメントが必要なのか?
どういう意味と数秒考えるのか?
1行で書けているものをモジュール化して、使うときに
何行も記述しなければならなくなって、本当に楽なのか?
モジュールの依存関係ができてしまってかえって手間が
かかることにならないのか?
困っていることは実はPerlとは無関係ではないのか?

NTFS ファイル システム上のファイルまたはフォルダを削除できない
ttp://support.microsoft.com/kb/320081/ja

866 :デフォルトの名無しさん:2012/07/02(月) 01:10:46.66
本日の基地害指数:89

867 :デフォルトの名無しさん:2012/07/02(月) 01:13:20.47
>>865
あぁ、それはね。
モジュール化していると修正が一箇所ですむようになるんだよ。

一行かどうかは問題ではなく、
そこにどれだけの情報量が含まれているか。

\nだけでいいのか? \r\nは? /bとは? 2>でいいのか?
OSが違ったら? シェルが違っていたら?

もう少し経験積めばわかるようになるよ。

868 :デフォルトの名無しさん:2012/07/02(月) 01:18:28.51
ならねーよw

869 :デフォルトの名無しさん:2012/07/02(月) 01:20:05.72
本日のモジュール厨指数:9.5

870 :デフォルトの名無しさん:2012/07/02(月) 01:32:00.34
モジュールにしたからといって修正箇所が一箇所になるわけじゃないよね?
意味が分からない可能性大な気がするけど

871 :デフォルトの名無しさん:2012/07/02(月) 01:35:23.18
ん?

あちこちで、なんども
@file = split(/\n/,`dir /b *.* 2>NUL`);
って書いていたら、将来他のOSにも対応しようとした時、

何箇所も修正する必要があるでしょ?

872 :デフォルトの名無しさん:2012/07/02(月) 01:39:35.87
そのモジュールが他のOSに対応してなかったら、そのモジュール使ってる箇所全部修正する必要があるし
あんまりモジュールがどうとか関係ない

873 :デフォルトの名無しさん:2012/07/02(月) 01:41:44.54
はぁ? モジュールを作るって話なんだから、
モジュールの中身を修正すればいいだけじゃん。

874 :デフォルトの名無しさん:2012/07/02(月) 01:50:04.61
やっぱり分かってないね、別にいいけどね

875 :デフォルトの名無しさん:2012/07/02(月) 01:51:39.32
反論しないの?

876 :デフォルトの名無しさん:2012/07/02(月) 01:51:40.34
頭悪いくせに無理に議論しようして首突っ込むから話が進まないんだろ
それかモジュールを作れないor作るのが苦手な低脳が自己暗示のために書き込んでるとか?

どっちにしてもバカはマジで迷惑だから黙ってろ

877 :デフォルトの名無しさん:2012/07/02(月) 01:53:01.34
ゴミみたいな書き込みしかないな
ゴミと見分けがつかなくて一瞬焦ったぜw

878 :デフォルトの名無しさん:2012/07/02(月) 01:53:50.72
1をONEと定義して分かりやすくなったとかいう件

879 :デフォルトの名無しさん:2012/07/02(月) 01:59:10.64
誰もそんな話はしてないがw やっぱ馬鹿だよな。

880 :デフォルトの名無しさん:2012/07/02(月) 01:59:33.94
#define MYID 1と定義すれば2に変更しなければならないとき一ヶ所ですむ件

881 :デフォルトの名無しさん:2012/07/02(月) 03:57:14.39
さっきから議論を引っ掻き回してるマジキチは自分で馬鹿ツイートしてる自覚はあるの?
それともDQN親に育てられた精神異常だから心の底から正常だと思ってる?

882 :デフォルトの名無しさん:2012/07/02(月) 04:06:28.38
>>881
お前のレスがどうでもいい

883 :デフォルトの名無しさん:2012/07/02(月) 06:42:09.31
所詮週末厨だからな
馬鹿だの基地外だの言ってる奴は
心底どうでもいい

884 :デフォルトの名無しさん:2012/07/02(月) 12:47:57.95
どうでもいいと言いつつレスせずにはいられない奴がいるなw

885 :デフォルトの名無しさん:2012/07/02(月) 12:56:31.38


886 :デフォルトの名無しさん:2012/07/02(月) 13:46:12.30
a

887 :デフォルトの名無しさん:2012/07/02(月) 14:31:25.93
>>883
お前の存在のほうがどうでもいい















・・・わけないじゃんw
お前の存在は社会にとって迷惑w

888 :デフォルトの名無しさん:2012/07/02(月) 16:01:17.29
寝てる間にホモに犯されると起きたときケツの穴が痛いらしいぜ

889 :デフォルトの名無しさん:2012/07/02(月) 18:16:09.52
女の子48人分の痰が入った「痰痰麺」が新発売

890 :デフォルトの名無しさん:2012/07/02(月) 19:04:10.32
質問しようと思ったのですが
最新50レス見てもキモいレスしかなかったので
他で質問しますね。

891 :デフォルトの名無しさん:2012/07/02(月) 20:10:24.65
へべぇww
おまぇが一番キショいよww
もう来るんじゃネーーーーーーーーーーーーーーーーーーーーーーゾ
クソだれやrおうう

892 :デフォルトの名無しさん:2012/07/02(月) 20:41:44.06
それでモジュールのインタフェースはどういう風にしたの?
早く教えてよ
ぼく、もう待ちきれないよ

893 :デフォルトの名無しさん:2012/07/02(月) 20:52:44.21
てめーで考えろ

894 :デフォルトの名無しさん:2012/07/02(月) 20:59:49.87
じゃあ君の負けってことだね?

@file = split(/\n/,`dir /b *.* 2>NUL`);

でいいんだね?二言はないね?

895 :デフォルトの名無しさん:2012/07/02(月) 21:02:53.08
君って誰のことだてめー意味不明なんだよ

896 :デフォルトの名無しさん:2012/07/02(月) 21:03:56.77
軽くスルーw

897 :デフォルトの名無しさん:2012/07/02(月) 21:05:07.23
勝ち負け言ってるアホは来なくていいよw
買ったもマケタも無いんnだからさ
オマエがアホアホのアホだっちゅーことは分かったからww
十分分かったからwww


898 :デフォルトの名無しさん:2012/07/02(月) 21:08:58.74


   白組がんばれー


         赤組がんばれー

899 :デフォルトの名無しさん:2012/07/02(月) 21:10:04.94



   アホ組がんばれー


         バカ組がんばれー




900 :デフォルトの名無しさん:2012/07/02(月) 21:19:22.14
プログラムは勝ったか負けたかが一番重要です
常に勝ち負けを意識して行うものです
職業プログラマは常に勝ち負けを意識しています
というよりプログラムは何か目的を達成するためではなく
誰かに勝つためにやっています
それが目的です

901 :デフォルトの名無しさん:2012/07/02(月) 21:22:53.96
質問、解答、質問解答に関わる議論以外をぐだくだ書いてる奴ら全員スレ違い

902 :デフォルトの名無しさん:2012/07/02(月) 21:29:31.76
普段から自分は負け組だと意識するような人生だから、勝ったの負けたのを気にしすぎるんだよ

903 :デフォルトの名無しさん:2012/07/02(月) 21:31:52.10
>>901
一風変わったことを言っているお前が可哀想だから質問を書いてやるよ。

ここでの議論は勝ち負けを決めるために行われるものだと思いますか?

この質問への解答(?)および質問解答に関わる議論をお願いします。

904 :デフォルトの名無しさん:2012/07/02(月) 21:46:16.93
>>900さんに質問です。
"There's more than one way to do it"は絵空事だと思っていますか?

905 :デフォルトの名無しさん:2012/07/02(月) 21:55:35.41
最近暑くなってきたし、ちょっと陰毛でも切って股間もさっぱりしようと思った訳なんだよ
なんか、もじゃもじゃしてるしさっぱりするぞーって思ってジョキジョキ切ったんだよ。
そしたら、なんか貧相な感じになっちゃってさ。
ボケ老人の頭の毛見たいな雰囲気になっちまってさ・・・
ちょっと微妙にチクチクするし、腹たつから一発抜いて寝るわ、おやすみ。

906 :デフォルトの名無しさん:2012/07/02(月) 22:16:05.11
動くコードよりも薀蓄の方が大事。
ここにはそう言ってくれる仲間がいる。

907 :デフォルトの名無しさん:2012/07/02(月) 22:49:54.23
基地害運動会の会場はここですか?

908 :デフォルトの名無しさん:2012/07/02(月) 23:02:22.16
>>907
ようこそ
あなたさまのご来場をこそ
お待ちしておりました
今日の運動会の主賓がようやく登場なさいました


909 :デフォルトの名無しさん:2012/07/02(月) 23:11:28.75
>>901
ここがPerlの質問箱なのは承知だけど、質問以外を書いちゃいけないって
決まりはないよ。>>1をちゃんと最後まで読んでごらん。

>>1
> Perl の奥深さについて皆で語り合い、追求してまいりましょう。

それと "There's more than one way to do it" な。
自分の方法と合わないからって間違ってるって考えるのは間違ってるぞ。

特にモジュール厨な。

910 :デフォルトの名無しさん:2012/07/02(月) 23:15:11.24
自治厨現る!

911 :デフォルトの名無しさん:2012/07/02(月) 23:16:27.52
新アニメ「トータル・イクリプス」 第一話から朝鮮半島が壊滅 これは神アニメの予感
http://engawa.2ch.net/test/read.cgi/poverty/1341162153/

http://motto-jimidane.com/jlab-tv/2/s/151826.jpg
http://motto-jimidane.com/jlab-tv/2/s/151827.jpg
http://motto-jimidane.com/jlab-tv/2/s/151814.jpg

ttp://motto-jimidane.com/jlab-tv/2/s/151822.jpg
ttp://motto-jimidane.com/jlab-tv/2/s/151820.jpg

912 :デフォルトの名無しさん:2012/07/02(月) 23:17:57.58
> それと "There's more than one way to do it" な。

この考え自体が間違いだなw

913 :デフォルトの名無しさん:2012/07/02(月) 23:19:44.92
とうとうどこがどう間違ってるのかすら言えないゴミが書き込むようになったかw
世の末だなw

914 :デフォルトの名無しさん:2012/07/02(月) 23:20:34.20
>>912
うむ、最もバージョン間の互換性を損ねない書き方こそが絶対正義。
・最悪でも5.6でもちゃんと動くことを保証するコードであること
・モジュールの使用は最小限に抑えること
このあたりは必須ですな。

915 :デフォルトの名無しさん:2012/07/02(月) 23:26:12.47
あ、5005もねw

916 :デフォルトの名無しさん:2012/07/02(月) 23:31:08.57
>>913
865 を読んで出直せ。この世も捨てたもんじゃない。

917 :デフォルトの名無しさん:2012/07/02(月) 23:33:06.45
よかった…世の中まだまだ捨てたモンじゃないんだねっ!
いやっほぉおおおおおおお!!!僕にはルイズちゃんがいる!!やったよケティ!!ひとりでできるもん!!!
あ、コミックのルイズちゃああああああああああああああん!!いやぁあああああああああああああああ!!!!
あっあんああっああんあアン様ぁあ!!セ、セイバー!!シャナぁああああああ!!!ヴィルヘルミナぁあああ!!
ううっうぅうう!!俺の想いよルイズへ届け!!ハルケギニアのルイズへ届け!


918 :デフォルトの名無しさん:2012/07/03(火) 00:26:23.43
アニヲタきめぇ

919 :デフォルトの名無しさん:2012/07/03(火) 00:29:53.05
ラリーも日本のアニメとか観ますか?

920 :デフォルトの名無しさん:2012/07/03(火) 00:36:30.24
アニヲタは日本にいらないね。
存在価値がない。

921 :デフォルトの名無しさん:2012/07/03(火) 00:40:11.14
本日の基地害指数:81

922 :デフォルトの名無しさん:2012/07/03(火) 00:50:00.86
パタリロ!とか好きだって言ってたな

      ,. -‐‐‐- 、
    /       \
    {   ,.-、___ノノノハ )
    ! ,.-、j _     ノ
    ゝ6 '   `  '⌒(      だ〜れがころした
     ゝ.ー-‐‐v‐一 ) n/ノク'j
     i⌒ヾヽn‐-‐ハ,ij { ゝ( ノ
     ト、  ,ゝ )V <,ij/ヾ、/
     l \二ンヽ,/ハ____ノ
   ___l------i二i---|_
   \  ̄ ̄ ̄ ̄ ̄ ̄ /
    ` iー‐-------一i'
      |     i   |
       l    l    !
     /`ー-- 十‐‐‐'\
    'ー------'`ー---一'

           ,. -‐‐‐- 、    くっくろびん〜
         /      \
  _  /ヽ/  ,.-、___ノノノハ )
  \{`/   ! __ j _      ノ
   | l  //>' 6`  `  '⌒(
   lてl  l l/ _ゝー---‐v‐-‐ノー-,__
    \{ ヾ!_/_ ヽー----‐‐'__(_三
     \ ヾ、 ヽ(_三∨/'
       `ー、ヾニニ[]ニニン
         L{ !   /
         ! `ヾ_/
         `ー'

923 :デフォルトの名無しさん:2012/07/03(火) 01:16:41.55
パタリロって何?

924 :デフォルトの名無しさん:2012/07/03(火) 01:57:43.67
>>923
こいつ一般常識も知らないのかよ

925 :デフォルトの名無しさん:2012/07/03(火) 02:05:09.25
>>924
誰もが花とゆめ読んでいると思うなよ
ジャンプじゃあるまいし

926 :デフォルトの名無しさん:2012/07/03(火) 03:49:25.37
モジュール化がいいってきいたから全部モジュールにしてやったぜぇ〜
だからPerlスクリプトではuseしてモジュール一発呼び出すだけの合計2行だぜぇ〜
ワイルドだろぉ〜

927 :546:2012/07/03(火) 04:16:45.88
>>926
それはサブモジュールとはいわないぜぃ〜 サブモジュールという名の
全体のコールだぜぃ〜?

928 :デフォルトの名無しさん:2012/07/03(火) 04:44:27.59
またキモいしゃべり方の奴が来たな。
しかも文体が同じだから自演バレバレだし。

929 :デフォルトの名無しさん:2012/07/03(火) 11:35:42.83
ここはム板のハッテン場

930 :デフォルトの名無しさん:2012/07/03(火) 19:33:09.77
>>922-925
突っ込んだ話になるとスレ違いになるので
パタリロ!の作者魔夜峰央スレへ誘導しとく

★☆魔夜峰央についてかたりましょう☆★Part52★
http://kohada.2ch.net/test/read.cgi/gcomic/1340116866/

931 :デフォルトの名無しさん:2012/07/03(火) 22:00:20.51
パタリロも知らずにperl語るなよ

932 :デフォルトの名無しさん:2012/07/03(火) 22:44:38.19
さぶちゃん、ちょっといいかしら?

は〜い♪

933 :デフォルトの名無しさん:2012/07/03(火) 23:04:36.19
サブモジュールという名の全体のコールだな

934 :デフォルトの名無しさん:2012/07/04(水) 12:11:10.59
パリタロは常識

935 :デフォルトの名無しさん:2012/07/04(水) 12:25:40.60
体育の授業とかなくせばいいのにな
俺も昔体育の授業で走ってて転んで骨折した
体育は危険だ

936 :デフォルトの名無しさん:2012/07/04(水) 12:45:29.80
走っただけでコケて骨折まで行くなんて
この咲の人生で淘汰されるべき人間だ
早目に淘汰されればいいのにな まったく
もっと致死性の体育授業を増やせばいいのに
そうすればこういう上のゴミみたいな人間がいなくなって
世のなかちったあマシになるだろ


937 :デフォルトの名無しさん:2012/07/04(水) 13:03:15.86
専業主婦との浮気のために待ち合わせ場所に向かう昼下がり。

938 :デフォルトの名無しさん:2012/07/04(水) 16:41:02.68
質問しようと思ったけど雑魚みたいな奴しか書き込んでないから他で質問しますね^^

939 :デフォルトの名無しさん:2012/07/04(水) 19:17:53.10
char a[1];
char b[4];

strcpy( b , "pot" );
strncpy( a , b , 3 );

これでバッファオーヴァーフローしてaの続きの何かの領域にotが書き込まれるの?

940 :デフォルトの名無しさん:2012/07/04(水) 22:05:00.52
なんじゃない?

941 :デフォルトの名無しさん:2012/07/04(水) 22:13:17.93
それで読むのに数秒かからないモジュールは何秒後にリリースされるの?

942 :デフォルトの名無しさん:2012/07/04(水) 22:30:18.64
ぼく、もう待ちきれないよ

943 :デフォルトの名無しさん:2012/07/04(水) 22:36:01.22
バッファオーバーフローの前にセグメンテーションフォルトで落ちるだろ

944 :デフォルトの名無しさん:2012/07/04(水) 23:09:54.68
ホモは同性ということもあって快感のツボが分かってる

945 :デフォルトの名無しさん:2012/07/05(木) 01:13:07.66
現在開いているURLのファイル名を取得するにはどうしたらいいのですか?
たとえば開いているURLがhttp://localhost/test/test.cgiの場合
ファイル名はtest.cgiということです
モジュールを使わない方法で

946 :デフォルトの名無しさん:2012/07/05(木) 01:21:21.41
↑正規表現使えばいいだろ
そんなことも自分で調べられないのかこいつ

947 :デフォルトの名無しさん:2012/07/05(木) 01:23:43.85
はいヴァカが見事に釣れましたwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww

948 :デフォルトの名無しさん:2012/07/05(木) 01:38:04.05
正規表現モジュールも使ってはいけないのか

949 :デフォルトの名無しさん:2012/07/05(木) 01:50:49.08
当然ですよ早くしてください低脳

950 :デフォルトの名無しさん:2012/07/05(木) 02:04:40.21
このスレがまともだと損する人が頑張ってるんだろうなあ…

951 :デフォルトの名無しさん:2012/07/05(木) 02:43:27.82
自己紹介乙。

952 :デフォルトの名無しさん:2012/07/05(木) 03:47:05.09
体育は必須というのに問題があるんじゃないか?
やりたい奴だけがやる選択式にすべき
小学校1年生から

もしくは体育で選択できるスポーツを最低10用意して、その中から選択させるのが良いだろう
柔道とかやりたくない奴多いと思うよ

953 :デフォルトの名無しさん:2012/07/05(木) 05:24:09.42
>>945
>>1



環境変数見るとかぐらいしろよ


954 :デフォルトの名無しさん:2012/07/05(木) 08:21:23.12
>>952
正規表現の授業は必須にすべきだよな

955 :デフォルトの名無しさん:2012/07/05(木) 12:24:33.46
すぎちゃんって一発芸人だと思う
いつまでもつことやら

956 :デフォルトの名無しさん:2012/07/05(木) 12:51:37.81
オウムはなくなったのかね?
アレフはオウムが名前を変えたの?
それともオウムから派生した別団体?
光の輪という組織もあった気が。

957 :デフォルトの名無しさん:2012/07/05(木) 12:52:53.81
ネタが見れる番組がオンバトくらいしか無いからな
R1以外でどこをチェックすればすぎちゃん見れるんだ

958 :デフォルトの名無しさん:2012/07/05(木) 13:33:58.76
>>956
お前はどんな詐欺にも簡単に引っかかるタイプだな


959 :デフォルトの名無しさん:2012/07/05(木) 13:48:46.85
スギちゃん見たけりゃオフィシャルブログ見てたらいいだろ

960 :デフォルトの名無しさん:2012/07/05(木) 14:50:48.51
魔法少女まどかのオンゲが出るってよ

961 :デフォルトの名無しさん:2012/07/05(木) 14:55:45.91
魔法少女まどかがオンラインゲームになったって?
http://image.mypl.net/bti/11598.ll?i=

962 :デフォルトの名無しさん:2012/07/05(木) 17:42:10.00
公式サイトかと思ったらただのまどか画像だったでござる。

963 :デフォルトの名無しさん:2012/07/05(木) 18:32:44.20
一時書き込みファイル名を
$ID=$$;
$tmp_file = "test_$ID.dat";とした場合
一時書き込みファイルにもロックをかけるべきですか?
プロセス毎にファイル名かわるので重複しないと思うんだけど

964 :デフォルトの名無しさん:2012/07/05(木) 18:46:57.18
それはPerl関係ないだろゴミカス

965 :デフォルトの名無しさん:2012/07/05(木) 18:52:22.35
>思うんだけど
プログラムを思うとか思わないとかそんな基準で組んでる馬鹿発見。
まじで糞以下。

966 :デフォルトの名無しさん:2012/07/05(木) 18:58:07.63
>>964-965
師ね蛆虫

さっさと答えろニート共

967 :デフォルトの名無しさん:2012/07/05(木) 19:06:20.82
>>963
http://perldoc.jp/docs/perl/5.12.1/perlfaq5.pod#How32do32I32make32a32temporary32file32name63

968 :デフォルトの名無しさん:2012/07/05(木) 19:26:39.58
Perlでこういうかっこいいゲームは作れますか?
http://c9.pmang.jp/
http://www.youtube.com/watch?v=kj4SQKSgh4g
http://www.youtube.com/watch?v=3jpSZSouVfA
http://www.youtube.com/watch?v=ZfnH38fje6c
http://www.youtube.com/watch?v=bkLmOjP9F44

969 :デフォルトの名無しさん:2012/07/05(木) 19:30:23.12
>>967
さすがニート暇なんだな
お前みたいなニートでもこうやって人の役に立つことができたんだ
俺に感謝しとけ

970 :デフォルトの名無しさん:2012/07/05(木) 20:02:11.67
>>968
上から三番目のはゲームなのか?

971 :デフォルトの名無しさん:2012/07/05(木) 20:07:47.00
【サッカー】鄭夢準、「FIFA会長が『審判を買収して韓国が4強に行った』と話した」[07/05]
http://awabi.2ch.net/test/read.cgi/news4plus/1341454426/

鄭夢準(チョン・モンジュン)大韓サッカー協会名誉会長が、2002年ワールドカップ当時の
国際サッカー連盟(FIFA)の 関係者たちと経験した秘話を打ち明けた。

鄭名誉会長は4日、ソウル・小公洞(ソゴンドン)のロッテホテルで行われた『2002ワールド
カップ10周年記念式』で、「ゼップ・ブラッター現FIFA 会長が『2002年韓日ワールドカップ
の時、MJ(鄭夢準)が審判を買収して(韓国が)4強まで行った』と話した」と明らかにした。

鄭名誉会長は2006年ドイツワールドカップ当時のスイスとの組別リーグ3回戦を回想して、
「アジアサッカー連盟(AFC)のピーター・ベラパン事務総長が、『主審が(ブラッター会長
がスイス人だから) スイスの肩を持っている』と指摘した」とし、「するとブラッター会長が、
『何をこの程度で言ってる。4年前にはMJが審判を買収して(韓国が)4強まで行ったけど、
我々はあの時ようやく16強だった」と話していたよ」と明らかにした。

韓国は当時組別リーグでトーゴを破ってフランスと1-1で引き分けたが、最後のスイス戦
で敗れて16強進出に失敗した。

鄭名誉会長はまた、「1993年にジョアン・アヴェランジェFIFA元会長、ブラッター会長、
ペレなどの日本訪問の席に私も招待された」とし、「その席でワールドカップ開催地が
日本に固まったような雰囲気が起き、『我々も間もなく誘致の申請そするのでワールド
カップの開催地を執行委員に対するロビーで決めず、正々堂々とサッカーの競技をして
決めよう』と提案した」と話した。

ソース:NAVER/朝鮮日報(韓国語)
http://news.naver.com/main/read.nhn?mode=LSD&mid=sec&sid1=107&oid=023&aid=0002411798


972 :デフォルトの名無しさん:2012/07/05(木) 21:54:32.22
韓国とかどうでもいいし
あっちいけ

973 :デフォルトの名無しさん:2012/07/06(金) 00:19:21.36
本日の基地害指数:83

974 :デフォルトの名無しさん:2012/07/06(金) 03:15:05.48
yahoo知恵遅れのバカな質問を転載するスレに?

975 :デフォルトの名無しさん:2012/07/06(金) 14:12:39.15
うん

976 :デフォルトの名無しさん:2012/07/06(金) 14:41:54.66
>>968
クライアント側は知らんけどサーバーアプリケーションはPerlでも余裕で作れる

977 :デフォルトの名無しさん:2012/07/06(金) 15:26:40.47
クライアント側こそこういうのの出番だろ
無人でずっと戦ってくれる

978 :デフォルトの名無しさん:2012/07/06(金) 15:39:00.87
PerlなんかでMMO鯖なんか作ったら重くて使いものにならんだろ。

979 :デフォルトの名無しさん:2012/07/06(金) 16:03:05.66
お前が作れば遅くなる
の 間違いだろ


980 :デフォルトの名無しさん:2012/07/06(金) 16:13:28.75
じゃあ俺のC++で作ったMMO鯖とお前のPerlで作ったMMO鯖で勝負すっか?

981 :デフォルトの名無しさん:2012/07/06(金) 16:20:46.69
負けたほうはチン毛永久脱毛パイパンの刑でお願いしますwwwww

982 :デフォルトの名無しさん:2012/07/06(金) 16:37:09.83
互いのプライドと陰毛を賭けた
仁義なき闘いが今始まる!

983 :デフォルトの名無しさん:2012/07/06(金) 16:39:48.99
ぺルルはそもそも待ち受けのソケット作れないだろ低脳

984 :デフォルトの名無しさん:2012/07/06(金) 17:00:45.89
>>983
http://perldoc.jp/docs/perl/5.14.1/perlipc.pod#Internet32TCP32Clients32and32Servers

985 :デフォルトの名無しさん:2012/07/06(金) 17:18:17.57
そんなことより次スレ立てれ

986 :546:2012/07/06(金) 17:33:33.23
Visual Perl欲しいな。

987 :デフォルトの名無しさん:2012/07/06(金) 17:49:01.60
次スレ。

Perlについての質問箱 53箱目
http://toro.2ch.net/test/read.cgi/tech/1341564247/

988 :デフォルトの名無しさん:2012/07/06(金) 17:55:13.16
【中2自殺】 皇子山中学校 「韓国に対する関心を高めるため」 修学旅行は韓国へ
http://engawa.2ch.net/test/read.cgi/poverty/1341564390/

ねらい
ハングルを学ぶことによって、韓国に対する関心を寄り高める。
http://jan.2chan.net/may/b/src/1341557000217.jpg



989 :デフォルトの名無しさん:2012/07/06(金) 19:42:56.34
PerlでMMO鯖作ってる俺。
別に重くはない。
ま、人少ないし、大した内容でもないからかもだけど

990 :デフォルトの名無しさん:2012/07/06(金) 19:57:35.38
MMOは人多いという意味の言葉なのでは

991 :デフォルトの名無しさん:2012/07/06(金) 19:59:16.91
人が多いって何人からさ?

992 :デフォルトの名無しさん:2012/07/06(金) 20:09:54.02
ハゲ


993 :デフォルトの名無しさん:2012/07/06(金) 20:46:43.96
>>991
MMORPGの定義からいえば2人以上じゃねえのかよカス?

994 :デフォルトの名無しさん:2012/07/06(金) 20:50:02.97
太古の昔で考えても「沢山」というのは3個からだ。
だから3人以上で「多い」だ

995 :デフォルトの名無しさん:2012/07/06(金) 22:26:43.51
チンゲを賭けた戦いはどうなった?

996 :デフォルトの名無しさん:2012/07/06(金) 22:38:41.61
>>988
韓国に修学旅行行く学校はだいたいDQNが多い
俺の学校も修学旅行は韓国だったけど8割方DQNだった
俺は修学旅行行かなかったけどな

997 :デフォルトの名無しさん:2012/07/06(金) 23:08:53.38
このスレはいつもgdgdで終わるな

998 :デフォルトの名無しさん:2012/07/07(土) 00:05:56.37
読むのに数秒かからないモジュールってあるの?

999 :デフォルトの名無しさん:2012/07/07(土) 04:29:53.20
読むのに数秒かからない関数ならあるけどね。

1000 : 忍法帖【Lv=40,xxxPT】 :2012/07/07(土) 06:54:11.52
完走!

Perlについての質問箱 53箱目
http://toro.2ch.net/test/read.cgi/tech/1341564247/

1001 :1001:Over 1000 Thread
このスレッドは1000を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。

222 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)