1001コメント281KB

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

レス数が1000を超えています。これ以上書き込みはできません。

0001デフォルトの名無しさん

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

0002デフォルトの名無しさん

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/

0003デフォルトの名無しさん

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

0004デフォルトの名無しさん

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 でエンコードする必要があります。

0005デフォルトの名無しさん

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

0006デフォルトの名無しさん

2012/05/06(日) 10:42:42.35

ゴミスレ立てるな

0007デフォルトの名無しさん

2012/05/06(日) 10:43:10.34

このスレッドは天才チンパンジー「アイちゃん」が
言語訓練のために立てたものです。

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

　　　　　　　　　　　　　　　　　　京都大学霊長類研究所

0008デフォルトの名無しさん

2012/05/06(日) 10:45:30.71

　　∧∧
　 ( ﾟДﾟ )∩
　⊂　　　ノ
　 /　　０
　し´
えっ…と､
ここかな…､と
　∧∧　∧∧
∩ﾟДﾟ≡ﾟДﾟ )
｀ヽ　　　　　|)
　　|　＿_　|～
　　∪　　∪
　　　　　　ﾄﾞｽｯ
　　∧∧.ミ.　＿
　 (　　　)┌┴┴┐
　 /　　　つ.終了│
～　 ./　└┬┬┘
　∪∪ 　　││_ε3
　　　　゛゛゛゛

0009デフォルトの名無しさん

2012/05/06(日) 12:38:28.54

前スレ>>985だけどありがとう。

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

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

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

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

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

0010デフォルトの名無しさん

2012/05/06(日) 12:59:43.32

まじめにやろうとするなら、こっちのお題だね。

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

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

0011デフォルトの名無しさん

2012/05/06(日) 18:08:33.41

for(1...100){
$n = rand;
print "<INPUT TYPE=\"checkbox\" NAME=$n VALUE=\"on\">";
}

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

0012デフォルトの名無しさん

2012/05/06(日) 18:11:36.82

さすがゴミスレ

0013デフォルトの名無しさん

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\">";
}

0014デフォルトの名無しさん

2012/05/06(日) 18:25:58.41

まちがえました valueの指定はなしです
print "<INPUT TYPE=\"checkbox\" NAME=$n>";
です

0015デフォルトの名無しさん

2012/05/06(日) 21:03:16.08

my @check_name_list = ();
# 100個全部 on じゃないみたいなので

0016デフォルトの名無しさん

2012/05/06(日) 21:15:21.03

CGIの質問だからって意地悪はいけないよ

0017デフォルトの名無しさん

2012/05/06(日) 22:29:52.97

CGIの質問は、ただの釣りだから

0018デフォルトの名無しさん

2012/05/06(日) 22:31:28.16

もっと言うと答えてるヤツは自演だから

0019デフォルトの名無しさん

2012/05/07(月) 00:06:11.11

>>11
・乱数じゃなくて決まっている名前の場合
・100個ではなくて1個の場合
これらが個別にできるレベルでないと解決できないと思われ
（おんなのこであることを期待しつつレス）

0020デフォルトの名無しさん

2012/05/07(月) 00:36:19.56

>>15
チェックボックスのこと知らないんだろうな
VALUEを指定しないチェックボックスをチェックするとonになるよ

0021デフォルトの名無しさん

2012/05/07(月) 02:05:57.91

じゃあ、チェックしなければoffであってる？
my @check_name_list = ();

0022デフォルトの名無しさん

2012/05/07(月) 23:43:39.09

use strict;

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

0023デフォルトの名無しさん

2012/05/07(月) 23:46:41.55

いいえ、ケフィアです

0024デフォルトの名無しさん

2012/05/08(火) 00:27:02.25

自分のstrict.pmには先頭に package strict; と書いてありました。
>>23 さんも自分の環境のstrict.pmをお読みになることをおすすめ
します。

0025デフォルトの名無しさん

2012/05/08(火) 00:27:41.84

>>22さんの間違いでした

0026デフォルトの名無しさん

2012/05/08(火) 12:57:16.49

正規表現のパターンの中に$a[$i]みたいなのを書きたい時はどうすれば

0027デフォルトの名無しさん

2012/05/08(火) 13:17:27.64

ああ、普通にやればできてた
中身に [ とかが入ってたのが問題だった

0028デフォルトの名無しさん

2012/05/08(火) 13:25:53.32

変数の中に含まれてるメタ文字をパターンの中で展開した時に、
メタ文字をただの文字として認識させるみたいなオプションって無かったっけ

0029デフォルトの名無しさん

2012/05/08(火) 14:15:18.97

aru

0030デフォルトの名無しさん

2012/05/08(火) 14:58:28.54

オプションで指定できたらメタキャラクタ一切使用不能ということで、
そんなもんは正規表現じゃねえ
要らない部分だけ\Q \Eで括るんだよ

0031デフォルトの名無しさん

2012/05/08(火) 20:06:13.25

$s = "name=val;"のようにセミコロンが付く時と
$s = "name=val" のように終端になる時
同時に一回でvalの文字列部分を切り出す方法を教えて下さい

0032デフォルトの名無しさん

2012/05/08(火) 20:41:11.36

=(.*?);?

0033デフォルトの名無しさん

2012/05/08(火) 23:09:55.35

for("name=val;", "name=val"){
　　if(/=(.*?);?$/){
　　　　print "($_)($1)\n";
　　}
　　else{
　　　　print "($_)(undef)\n";
　　}
}
__END__
試さないと正しい回答は無理だね

0034デフォルトの名無しさん

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

0035デフォルトの名無しさん

2012/05/09(水) 02:43:52.80

ヒント: >>32 の回答は $ が指定されていない
　　　　（インタプリタのバージョンのせいではない）

0036デフォルトの名無しさん

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オプションをつけているにも関わらず一度しか置換されないのでしょうか？

0037デフォルトの名無しさん

2012/05/10(木) 23:06:34.52

grの方は1回しか実行されないからだお。

0038デフォルトの名無しさん

2012/05/11(金) 10:33:38.29

UTF16文字コードの、「\u3066\u3059\u3068」このような文字列を
UTF8変換で「てすと」と表示させるにはどうすれば良いのでしょうか

0039デフォルトの名無しさん

2012/05/11(金) 15:31:38.72

>>36
r オプションて何?

004036

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

0041デフォルトの名無しさん

2012/05/11(金) 16:34:27.77

gは置換え後のポジションから継続するので後読み言明がマッチしないんだお。
先頭から s/// をもう一回するのとは違うんだお。

0042デフォルトの名無しさん

2012/05/11(金) 17:30:50.66

画像を扱いたいのですが、画像のフォーマットやサイズが簡単に取得できるモジュールを教えてください。

0043デフォルトの名無しさん

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

0044デフォルトの名無しさん

2012/05/11(金) 19:27:25.28

オレ様ならimagamegick入れて
systemとか``を使う

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

0045デフォルトの名無しさん

2012/05/11(金) 19:35:01.01

print "ぁ";
sleep(5);
print "ぁ";
sleep(5);

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

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

0046デフォルトの名無しさん

2012/05/11(金) 19:39:32.68

local $|=1;

0047デフォルトの名無しさん

2012/05/11(金) 19:40:37.73

バッファとかフラッシュ(flush)について勉強しといで

0048デフォルトの名無しさん

2012/05/11(金) 19:57:02.19

>>46-47
すいません教えられた言葉でググれば解決しそうです。

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

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

0049デフォルトの名無しさん

2012/05/11(金) 20:30:38.00

>>43-44
ありがとう

0050デフォルトの名無しさん

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として正しいものと思われます

0051デフォルトの名無しさん

2012/05/11(金) 22:34:32.28

UTF8フラグが云々なので、そこはfrom_to()を使ってください

0052デフォルトの名無しさん

2012/05/11(金) 22:40:22.05

ソースコードに日本語を書くのであれば、
use utf8が必要

0053デフォルトの名無しさん

2012/05/11(金) 22:42:05.94

DBI接続するときにmysql_enable_utf8オプションつければ他はそのままでいんじゃね

0054デフォルトの名無しさん

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',
],
});

0055デフォルトの名無しさん

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では無理なのでしょうか・・・・

0056デフォルトの名無しさん

2012/05/11(金) 23:59:21.29

sqlからの情報を文字数単位で正規表現を使いたいので
出力時のみsjisにしたいですがどうやらsqlからのデータがutf8の扱いになっていないようなんですが
そのフラグというのはどう立てるんでしょうか

0057デフォルトの名無しさん

2012/05/12(土) 00:04:02.53

50のヤツはどうなったのか
まずそれを書けよアホ

0058デフォルトの名無しさん

2012/05/12(土) 00:56:48.27

>>55
コードはutf8で書いて、下のを使うのがオススメだお。
http://search.cpan.org/~xaicron/Win32-Unicode-0.34/lib/Win32/Unicode/Console.pm

0059デフォルトの名無しさん

2012/05/12(土) 01:07:44.10

どうだろ

0060デフォルトの名無しさん

2012/05/12(土) 01:33:49.71

こないだの竜巻はこいつか

0061デフォルトの名無しさん

2012/05/12(土) 07:58:14.91

ふと思った。
Webサーバマシン上で動き、cronなり手動なりで呼び出される「HTML生成プログラム」は、このスレの範疇なのだろうか

0062デフォルトの名無しさん

2012/05/12(土) 08:49:11.10

>>61
二度手間質問。
Perlの動きの質問なら、ここでいいんじゃねーの？
質問してみれば？違えば誘導されるだけ。

0063デフォルトの名無しさん

2012/05/12(土) 08:52:25.51

それもそうだな。
特に現状で質問があるわけではないんだ。すまんかった。

0064デフォルトの名無しさん

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;

0065デフォルトの名無しさん

2012/05/12(土) 18:26:02.02

>>58 >>64
お返事ありがとうございます！
CentOSで試したら先のソースだけで動いたので安心しきってましたがWindowsだと色々手間が必要なんですね・・・
そもそもWindowsでやることが間違いなのかしらｗ
何はともあれこれでAcme::Oppai以外にも色々試せそうです。

0066デフォルトの名無しさん

2012/05/12(土) 18:28:30.09

eucで動いてるknoppixとか試すのカンタンだから試してみりゃあいい

0067デフォルトの名無しさん

2012/05/12(土) 20:05:11.38

昔の Linux は euc
今の Linux、Mac は utf8
ういんどーずは CP932 (SJIS の方言)
OS9 の頃は知らん

0068デフォルトの名無しさん

2012/05/12(土) 20:06:29.55

>>65
cmd.exeだとcp932で出力しなきゃならない。
最近のcygwinのmintty.exeだと、utf8出力で大丈夫。
確かにwindowsだと、そのへん考慮しなくちゃならないね・・・でも逆にその辺だけかな。

0069デフォルトの名無しさん

2012/05/12(土) 20:44:31.68

簡単な質問なのかは分かりませんが、
①　スクリプトを実行すると、エクスプローラが起動し、ファイルを指定
②　ファイル選択後スクリプトを実行
③　読み込みファイル名.re.txt で書き出し
スクリプト処理
読み込みファイル内から
[android半角スペース] を検索 [android半角スペース100半角スペース] に置き換え
[iphone半角スペース] を検索 [iphone半角スペース200半角スペース] に置き換え

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

0070デフォルトの名無しさん

2012/05/12(土) 20:50:04.22

perl/tkとかいう愉快なモンを使う必要がある
その「エクスプローラ」てのが
ファイル選択ダイアログのことなら　ね
そうでないならSIRAN

0071デフォルトの名無しさん

2012/05/12(土) 22:25:23.81

>>69
explorer.exeの起動じゃなくて、ファイルダイアログかドラッグ用のウィンドウを出して処理がオススメ！
WxPerlでカコヨクできるよ。

0072デフォルトの名無しさん

2012/05/13(日) 14:43:46.05

PerlってどれくらいできればPerlできますって言っていいんですか＞＜

0073デフォルトの名無しさん

2012/05/13(日) 14:52:51.64

printf が出来れば

0074デフォルトの名無しさん

2012/05/13(日) 17:52:35.81

書いてみたいスクリプトがあってPerlとRubyとPythonを試していて、どれでも書けるんですが、
この中で一番汎用性が高いのはどれなんでしょうか？

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

0075デフォルトの名無しさん

2012/05/13(日) 18:22:37.41

どれでも書けるなら自分の好きなものでどうぞ

0076デフォルトの名無しさん

2012/05/13(日) 18:54:02.90

とりあえずgithubでどうぞ

0077デフォルトの名無しさん

2012/05/13(日) 19:20:35.27

自前アプリにスクリプトを実装したいなら Python かな

そうでなきゃ Perl、Ruby かな

PHP は WEB 意外ではクソ

0078デフォルトの名無しさん

2012/05/13(日) 22:50:56.22

以前回答を待つ前に大丈夫でしたと書いてしまったのですが
全然大丈夫でなかったので質問しなおさせてください。

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

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

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

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

0079デフォルトの名無しさん

2012/05/13(日) 22:58:21.99

Ajaxでプログレスバーを表示する

0080デフォルトの名無しさん

2012/05/13(日) 22:58:59.11

fork でググれば幸せになれるかも

0081デフォルトの名無しさん

2012/05/13(日) 23:14:05.82

ありがとうございます！

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

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

0082デフォルトの名無しさん

2012/05/13(日) 23:44:38.03

>>75-77
ありがとうございました。

0083デフォルトの名無しさん

2012/05/14(月) 18:18:56.09

【祭り】安価でアフィブログ炎上させる【会場】
http://hayabusa.2ch.net/test/read.cgi/news4vip/1336983773/

0084デフォルトの名無しさん

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

0085デフォルトの名無しさん

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".

0086デフォルトの名無しさん

2012/05/15(火) 20:19:18.87

パ・パ・パパッパ・Perlライス

0087デフォルトの名無しさん

2012/05/15(火) 20:33:48.04

>>84
複数のPerlをインストールしていて、
ユーザとrootで使うPerlが別物になってるとか。

0088デフォルトの名無しさん

2012/05/15(火) 20:55:17.49

>87

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

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

0089デフォルトの名無しさん

2012/05/15(火) 21:01:28.17

>>86
おっさんｗｗｗｗｗ

0090デフォルトの名無しさん

2012/05/16(水) 19:40:50.32

おっさんを笑う者もまた、おっさんなのだ・・・

0091デフォルトの名無しさん

2012/05/17(木) 17:43:25.27

ある perl のプログラムを実行すると
.out ファイルが生成される。
これは何を意味しているのか？
抽象的ですまん。

0092デフォルトの名無しさん

2012/05/17(木) 17:54:51.74

.outファイルは
大抵はcコンパイラが吐き出した実行ファイル

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

0093デフォルトの名無しさん

2012/05/17(木) 18:57:34.57

>>92
.safeファイルが出来るまで繰り返し実行しろ、とか
そういう返しを期待していたんだが

0094デフォルトの名無しさん

2012/05/17(木) 18:58:16.86

.auto

0095デフォルトの名無しさん

2012/05/17(木) 19:39:51.44

文字列を渡すと他になにも指定しなくても
日付文字列を探していい感じにparseしてくれるモジュールない？

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

0096デフォルトの名無しさん

2012/05/17(木) 22:01:07.70

どこの部分で時間が掛かってるか調べるモジュールあったよね？
そのモジュールが吐き出すファイルの拡張子が .out だった気がする

0097デフォルトの名無しさん

2012/05/17(木) 22:12:26.43

プロファイラか。確かに。

0098デフォルトの名無しさん

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知らんけどこういうの？

0099デフォルトの名無しさん

2012/05/18(金) 00:02:53.74

>>98
$strに日付以外の文字列が混ざってても日付文字列を探して
いい感じにparseして欲しいです。

0100デフォルトの名無しさん

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'
];

0101デフォルトの名無しさん

2012/05/18(金) 07:13:14.97

>>100
これっぽい。THX
parserで探しても見つからなかったけど正規表現で対応するのか。

0102デフォルトの名無しさん

2012/05/18(金) 08:31:07.52

パーサじゃねぇモン
見つかるわけねーだろﾎﾞｹ

0103デフォルトの名無しさん

2012/05/18(金) 09:24:57.09

Can't locate auto/Math/Libm/autosplit.ix in @INC

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

0104デフォルトの名無しさん

2012/05/18(金) 15:35:12.76

検査対象のリストがあって、検査項目のリストがある
対象の中に項目の文字列が含まれているかどうかが検査内容で、
普通にfor文を二重にして、パターンマッチさせているけれど、どうにも遅い

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

0105デフォルトの名無しさん

2012/05/18(金) 16:54:37.34

リストの両方で
$hash{$word}++
をして

カウント2回以上を抽出

0106デフォルトの名無しさん

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;

0107デフォルトの名無しさん

2012/05/18(金) 17:06:20.16

項目は対象の部分文字列です

0108デフォルトの名無しさん

2012/05/18(金) 17:47:03.10

正規表現使って
my $pattern = join('|', チェック項目のリスト);
対象文字列 =~ /$pattern/ and 処理;

0109デフォルトの名無しさん

2012/05/18(金) 18:03:39.29

一括のパターンを作るのは考えたのですが、
かなり長いパターンになるし、やってることは大して変わらないので、
手を出してませんでしたが、試してみたら10倍くらい高速化しました

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

0110デフォルトの名無しさん

2012/05/18(金) 19:47:07.31

>>102
日付文字列をparseしたいんだからparserで検索するだろ
そしたらそんな気の利いたモジュールは無くて
正規表現で自分で抽出してからparseする方法しかなかったと

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

0111デフォルトの名無しさん

2012/05/18(金) 20:04:29.51

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

0112デフォルトの名無しさん

2012/05/18(金) 20:09:36.45

print "$array[$#array]\n";
でどうだ

0113デフォルトの名無しさん

2012/05/18(金) 20:20:02.44

リファレンスわかってないだけだろ

0114デフォルトの名無しさん

2012/05/18(金) 20:56:24.44

push(@array, $tmp);を
push(@array, $tmp);print"tmp=$tmp\n";
にでもするとどうなる？

0115デフォルトの名無しさん

2012/05/18(金) 20:56:43.34

>>112
やはり ARRAY(0x******)でしたorz
>>113
分かっていないのは確かです… 調べてみないといくつあるか分からない
データを収集して、あとから一つ一つにアクセスするにはどうしたら
いいのでしょうか。ここ読めでもいいので教えてください。よろしくお願いします。

0116デフォルトの名無しさん

2012/05/18(金) 21:04:17.47

>>114
$tmpは本当はマッチの結果の$1だったのですが、
マッチしてませんでした、っていうか今実装してるのに
過去の保存したデータがあるものとして書いていたので、
一回落ち着いて全体見直して、まだ疑問があったらまた来ます。
失礼しました。

0117デフォルトの名無しさん

2012/05/18(金) 21:35:13.68

push(@array, @{$tmp});

0118デフォルトの名無しさん

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: [email protected]
Bar: [email protected]
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';

0119デフォルトの名無しさん

2012/05/20(日) 00:11:14.38

このへんでいーんじゃねーの?? http://search.cpan.org/perldoc?Date::Parse

0120デフォルトの名無しさん

2012/05/20(日) 00:20:03.26

初歩的な質問ですいません。
::というのは、正規表現でしょうか？
意味がどうしても分からないので、宜しくお願いいたします。

0121デフォルトの名無しさん

2012/05/20(日) 00:22:56.83

それだけじゃ分からんけど、違うんじゃね。

0122デフォルトの名無しさん

2012/05/20(日) 00:32:39.02

>>121
うちにレスですか？ありがとうございます。
使い方が分からなくて、検索しても出てきませんでした。

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

0123デフォルトの名無しさん

2012/05/20(日) 00:33:43.92

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

この部分ですね。

0124デフォルトの名無しさん

2012/05/20(日) 00:35:18.98

PATH の区切り
深くは考えない
「そう書くしかないし、そうゆうもんだ」で良いかと

0125デフォルトの名無しさん

2012/05/20(日) 00:36:06.52

ぐぐったら、ありました。＾＾；
use　モジュール読む込むときに使うんですね。

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

0126デフォルトの名無しさん

2012/05/20(日) 09:13:05.38

$str = "abde";
if($str =~ /ab(c|)de/){#ヒットしない

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

0127デフォルトの名無しさん

2012/05/20(日) 09:16:51.89

？

0128デフォルトの名無しさん

2012/05/20(日) 09:17:03.86

/abc*de/

0129デフォルトの名無しさん

2012/05/20(日) 11:14:28.93

>>118
だからメールだけ対応しててもダメなんだって。
なんで>>100の理解から後退してんの。

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

0130デフォルトの名無しさん

2012/05/20(日) 12:31:43.49

>>129
で、結局何がしたいの？

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

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

0131デフォルトの名無しさん

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

0132デフォルトの名無しさん

2012/05/20(日) 18:14:03.81

>>126
$str =~ /abc?de/

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

0133デフォルトの名無しさん

2012/05/21(月) 21:09:30.25

文字列の出現数をカウントしたいのですが何かいい方法はありませんか？

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

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

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

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

0134デフォルトの名無しさん

2012/05/21(月) 21:15:54.33

$hash{$_}++

0135デフォルトの名無しさん

2012/05/21(月) 21:59:50.45

>>133の者です

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

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

0136デフォルトの名無しさん

2012/05/21(月) 22:06:35.77

空白でsplitしてから
hashでカウント

0137デフォルトの名無しさん

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
};

0138デフォルトの名無しさん

2012/05/21(月) 22:20:01.73

だからお前は誰なんだよ

0139デフォルトの名無しさん

2012/05/21(月) 22:25:18.43

Data::Dumperさんちーっす

0140デフォルトの名無しさん

2012/05/21(月) 22:43:36.12

wcってトイレかっつーのｗｗｗ

0141デフォルトの名無しさん

2012/05/21(月) 22:51:52.53

UNIXのツールの一つにwcてのがあるんだよ
そんくらいしっとけ低能ゴミカス

0142デフォルトの名無しさん

2012/05/21(月) 22:52:54.63

>>137
ありがとうございます。
ただ、実際はもっとデータ数が多いので、一つ一つは記入してられないです。

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

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

0143デフォルトの名無しさん

2012/05/21(月) 23:05:27.87

テキストファイルにキーワードを列挙して読み込めばいい

0144デフォルトの名無しさん

2012/05/21(月) 23:08:40.60

@array = <$fh>;

0145デフォルトの名無しさん

2012/05/21(月) 23:12:32.23

>>143

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

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

0146デフォルトの名無しさん

2012/05/21(月) 23:14:36.00

<milk> → <MILK>ですね。

0147デフォルトの名無しさん

2012/05/21(月) 23:18:26.99

@array = <$fh>;

0148デフォルトの名無しさん

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もとっかえひっかえするんでしょ？多分。

0149デフォルトの名無しさん

2012/05/21(月) 23:51:52.90

>>148
解決しました！ありがとうございました。

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

0150デフォルトの名無しさん

2012/05/22(火) 02:37:42.07

>>148
すごい洞察力だ・・

0151デフォルトの名無しさん

2012/05/22(火) 06:42:13.63

WindowsのPerlもこちらで質問いいのかな・・・
２点質問があります。
１．Net::Twitterを使ってコマンドラインでツイートするスクリプトを書きました。
投稿自体は問題なくできてるのですが、ランチャーなどからスクリプトを呼んでツイートするときにコマンドプロンプトがぴょこっと出てきてちょっと邪魔です。
なのでバックグラウンドで投稿（サイレント的な？）剃る方法はありませんでしょうか？
２．ツイート文は@ARGVで読み取っているのですが、文の間にスペースが入るとそこで区切られて投稿されます。
これをスペース込みで一文として投稿することはできないでしょうか？

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

0152デフォルトの名無しさん

2012/05/22(火) 06:48:24.79

1. wperl.exe
2. join(" ", @ARGV)

0153デフォルトの名無しさん

2012/05/22(火) 08:26:35.41

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

0154デフォルトの名無しさん

2012/05/22(火) 13:18:33.12

start /b cmd /c c:\perl\bin\wperl とかって使えるのかな？

0155デフォルトの名無しさん

2012/05/22(火) 14:00:45.95

なんでやってみないのｗインストールしてない??

0156デフォルトの名無しさん

2012/05/22(火) 15:01:41.25

今使ってるパソコンでは試せないの。家に帰ってからでないと

0157!ninja

2012/05/24(木) 12:48:14.92

華氏から摂氏への温度変換や、割り勘精算のプログラムが乗っているサイトや本はありますか？
その他色々なプログラムの見本が乗っているものがほしいです。

0158デフォルトの名無しさん

2012/05/24(木) 13:26:08.68

>>157
>>2-3やgoogle検索は？

0159デフォルトの名無しさん

2012/05/24(木) 15:39:54.91

質問です。
Net::FTPで

$ftp->get(target,local);

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

よろしくお願いします。

0160デフォルトの名無しさん

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;

0161デフォルトの名無しさん

2012/05/24(木) 16:32:54.81

>ダウンロードせずに

0162デフォルトの名無しさん

2012/05/24(木) 16:43:47.43

>>2-3の半分ぐらいはもう腐った情報なんだが
スレ立てる奴が誰一人気にしないという恐怖

0163デフォルトの名無しさん

2012/05/24(木) 17:13:12.98

>>162
そしてオマエに「オレが書きなおしてやる！」という気概がない
という恐怖

0164デフォルトの名無しさん

2012/05/24(木) 17:14:30.56

>>160
ありがと。
難しいな…

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

0165デフォルトの名無しさん

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;

0166デフォルトの名無しさん

2012/05/24(木) 17:55:50.94

よくわからんが俺なら
どうしてもHDDを経由したくなければRAMDISK
それもいやならSTDOUTに吐いてもらうスレッド別個に走らせて
パイプ介して受け取るとか試すかなあ
可能性や容易性とかさっぱり予測つかんが

0167デフォルトの名無しさん

2012/05/24(木) 19:07:06.68

>>158
調べてはみましたが自分では欲しい情報が見つからなかったので質問させてもらいました

0168デフォルトの名無しさん

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;

0169デフォルトの名無しさん

2012/05/25(金) 00:02:49.64

難しいことしなくても LWP の get で出来そうな気もするが

0170デフォルトの名無しさん

2012/05/25(金) 00:28:05.21

俺もFTPにこだわる必要性がないように思った

0171165

2012/05/25(金) 01:01:27.45

>>168 負けました・・・

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

0172デフォルトの名無しさん

2012/05/25(金) 14:14:00.44

>>165
ありがとう。
doの使い方、いろんな本読んだ中で、これが一番わかりやすい気がする…

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

>>168
ありがとう!

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

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

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

0173デフォルトの名無しさん

2012/05/25(金) 14:19:08.66

>>172
な？どんな本よりもこのスレの方がはるかに役に立つだろ？

0174デフォルトの名無しさん

2012/05/25(金) 16:27:58.28

人のプログラムだけど
<=>
てのがあった。
ぐぐっても無かった。

どうゆう（演算子）？

0175デフォルトの名無しさん

2012/05/25(金) 16:32:04.20

cmp

0176デフォルトの名無しさん

2012/05/25(金) 16:38:55.04

>>174
>>175で大体おｋ。ただし==とかと同じく数値で比較。

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

0177デフォルトの名無しさん

2012/05/25(金) 17:02:31.17

>>175,176

ソートで使う系か

thx

0178デフォルトの名無しさん

2012/05/25(金) 22:24:45.20

decodeとencodeの違い、使い分け方を教えて下さい

0179デフォルトの名無しさん

2012/05/25(金) 22:27:17.00

>>178
decode:文字列を内部形式に変換
encode:内部形式の文字列をいろんなエンコードに変換

0180デフォルトの名無しさん

2012/05/25(金) 23:56:31.64

デcode は点々がつくのでフラグが点く。
エンcode は点々が点かないのでフラグが落ちる。
煩わしい場合は全部フラグなしで通しても構わない。
その場合はencode、decodeの使い分け方に悩まずに済む。

0181デフォルトの名無しさん

2012/05/26(土) 00:20:03.92

標準で trim 関数が欲しいと

0182デフォルトの名無しさん

2012/05/26(土) 20:23:21.24

()の入ってる文字列が正規表現Sオプションで置換できないんですがどうすればいいんでしょ

0183デフォルトの名無しさん

2012/05/26(土) 20:28:45.72

バックスラッシュでなんとかする
日本なら￥でなんとかする

0184デフォルトの名無しさん

2012/05/26(土) 20:34:22.76

[(] もね

0185デフォルトの名無しさん

2012/05/26(土) 20:37:19.48

円マーク入れても置換されないんですよね…
$を他の一文字に変えて代入すると正しく置換されるんですが

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

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

出力結果:foo(bar)

0186デフォルトの名無しさん

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";

0187デフォルトの名無しさん

2012/05/26(土) 20:45:23.01

適当なサンプルでも $a $b は使わないようにしませう。

0188デフォルトの名無しさん

2012/05/26(土) 20:56:17.91

>>185
http://ideone.com/29qU1

>>186
2番目は合ってる

>>187
ごめんなさい

0189デフォルトの名無しさん

2012/05/26(土) 20:58:36.88

試してくれよう...

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

0190デフォルトの名無しさん

2012/05/26(土) 22:02:45.21

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

my ($xx, $yy, $rr_2) = (256, 256, 253); #ｘと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はなんですか？

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

0191デフォルトの名無しさん

2012/05/26(土) 22:59:54.41

>>190
無責任にコメント

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

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

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

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

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

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

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

0192デフォルトの名無しさん

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の位置までを描けばいい。

0193190

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
ありがとうございます。数学的に説明されると意味が分かるような分からないような。

0194デフォルトの名無しさん

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 のみが欲しいのですが、
これを抑止する方法は無いのでしょうか？

0195デフォルトの名無しさん

2012/05/28(月) 13:20:46.74

その$htmlをどうしているのか

0196デフォルトの名無しさん

2012/05/28(月) 13:21:29.13

>>194
それ以前にそのコード動くんですか？
先頭に「use LWP::UserAgent;」を追加しても、こんなエラーが出ます。
Undefined subroutine &main::GET called at ./194.pl line 7.

0197デフォルトの名無しさん

2012/05/28(月) 13:28:47.76

HTTP::Request::Common の GET() でしょ

0198196

2012/05/28(月) 14:07:14.94

>>197
ありがとう
use HTTP::Request::Common;
も追加したら動きました

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

0199デフォルトの名無しさん

2012/05/28(月) 14:11:36.99

>>196
すみません。>>197 さんが書いてる通りです。

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

0200デフォルトの名無しさん

2012/05/28(月) 14:14:38.11

>>198
OS 起動
URL Snooper2 を起動
スクリプトを走らせる
といった最小限の行動でも、うちでは URL Snooper が検知しました。

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

0201デフォルトの名無しさん

2012/05/28(月) 14:47:14.55

細かいけど、$res->decodec_content(...)は$res->decoded_content(...)だな。
同じくイメージファイルにアクセスは無かった。Wiresharkで確認。

0202デフォルトの名無しさん

2012/05/28(月) 14:59:23.78

URL Snooper が取得したコンテンツの URL に反応してるだけなんですかねぇ。
ん～

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

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

0203デフォルトの名無しさん

2012/05/28(月) 21:46:42.93

LWPによるアクセスも、アフィリのリンク先にアクセスした場合カウントされると思いますか？
ＵＡやリファラの偽装は前提とします。

0204デフォルトの名無しさん

2012/05/28(月) 23:44:18.10

10年前ならともかく今は無理。
単発ならWWW::Mechanizeでいけるかもね。

0205デフォルトの名無しさん

2012/05/29(火) 01:16:39.84

>>204
ありがとうございます。さすがに・・ですよね。

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

0206デフォルトの名無しさん

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は文字列として解釈されてないので
しょうか？

0207デフォルトの名無しさん

2012/05/31(木) 02:11:31.61

binmode してないだけとか・・・

0208デフォルトの名無しさん

2012/05/31(木) 07:28:45.00

>>207
若干省きましたが、binmodeにはなってます。

0209デフォルトの名無しさん

2012/05/31(木) 08:09:51.00

openやreadにエラートラップを付けて、ファイルを読めてるかを確認。
次に$dataの中身を目で確認。

0210デフォルトの名無しさん

2012/05/31(木) 08:28:51.99

>>209
そのへんもデバッガモードで動かしてみましたが、
問題ないようでした。

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

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

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

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

0211デフォルトの名無しさん

2012/05/31(木) 08:36:29.21

>>208
「若干省きましたが」

0212デフォルトの名無しさん

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か、省いた部分に問題がある。

0213デフォルトの名無しさん

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]で見る分には、普通の文字列に見えていたのですが…？

0214デフォルトの名無しさん

2012/05/31(木) 15:14:31.87

最初っから全部あげてりゃ
15時間もムダにならなかった、
せいぜい１時間くらいで解決できた
こうやってデスマーーーーーーーーーーーーーーーーーーーーーーチが生まれる

一番のガンはお前だ

0215デフォルトの名無しさん

2012/05/31(木) 15:45:40.14

おっちゃんの若いころはfreebsd-jp-mlで鍛え上げられたもんだ。

0216デフォルトの名無しさん

2012/05/31(木) 16:03:51.82

>>213
chompを忘れてるとエスパーしてみる。

0217デフォルトの名無しさん

2012/05/31(木) 19:22:05.98

>>214
ｻｰｾﾝ <(_ _)>

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

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

0218デフォルトの名無しさん

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;
}

0219デフォルトの名無しさん

2012/05/31(木) 19:23:22.46

>>213で書いたように、最初の引数をリストファイルにせず、
検索文字列を１個だけとって、@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
< }
---
> #}

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

0220デフォルトの名無しさん

2012/05/31(木) 20:03:37.39

ファイルはCRLFでchompしてもLFしか取れてないとか

0221デフォルトの名無しさん

2012/05/31(木) 20:15:35.57

あるクラスのすべてのインスタンスから
いじれるような変数を生成するためには
どこにどのように宣言したらよいでしょうか？

0222デフォルトの名無しさん

2012/05/31(木) 20:22:00.39

chompでハマったことあったなぁ
chompの代わりにこれつかうといいよgはなくてもいい
$line =~ s/\x0D?\x0A?$//g;

0223デフォルトの名無しさん

2012/05/31(木) 20:28:58.09

>>221
package Foo;
my $shared;
sub shared_var {
if (@_) { $shared = $_[0]; }
$shared;
}

0224デフォルトの名無しさん

2012/05/31(木) 20:35:01.45

>>223

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

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

0225デフォルトの名無しさん

2012/05/31(木) 20:59:19.46

グローバルなら our の方が好き

0226デフォルトの名無しさん

2012/05/31(木) 21:08:23.63

>>224
コードが読み込まれて実行される時。
あれが Foo.pm に書かれてて他のファイルから use Foo とかするならその時。
サブルーチン Foo::shared_var がいつ定義されるかってのと同じ。

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

0227デフォルトの名無しさん

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);

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

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

0228227

2012/05/31(木) 22:51:12.56

あ、>>222さんのサンプル通りでした、ｽﾏｿ

0229デフォルトの名無しさん

2012/05/31(木) 22:57:34.67

結局改行か

0230デフォルトの名無しさん

2012/05/31(木) 23:33:11.84

Perlでページをリロードした際、一部のテンプレートな出力だけ再読み込みしないで
表示したままにすることはできますでしょうか？

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

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

0231デフォルトの名無しさん

2012/06/01(金) 00:02:55.88

CGI についての質問は板違いです。WEB プログラミング板でどうぞ。
CGI と Perl の区別がつかない人も WEB プログラミング板に行ってください。

0232デフォルトの名無しさん

2012/06/01(金) 07:57:10.65

>>230
つ[javascript]

0233デフォルトの名無しさん

2012/06/01(金) 11:50:56.28

めんどくさいなら iframe ｗ

0234デフォルトの名無しさん

2012/06/01(金) 12:11:13.19

>>232
ありがとうございます。やはりjavascriptでやるしかないですか・・・

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

0235デフォルトの名無しさん

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>まで消えるんですが一体どういうカラクリで・・・？

0236デフォルトの名無しさん

2012/06/02(土) 09:20:28.94

これもうテンプレ入れろよ

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

0237デフォルトの名無しさん

2012/06/02(土) 09:58:32.41

俺の股間にマッチしてるぜ！

0238デフォルトの名無しさん

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
落ち着け

0239デフォルトの名無しさん

2012/06/02(土) 10:38:14.80

この手のヤツはもう全部パーサつかって
バラバラに分解したほうが早いんじゃあないかな

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

0240デフォルトの名無しさん

2012/06/03(日) 21:49:44.05

forでループ処理をしているのですが、
ループの回数が増えるほどメモリを喰って処理が遅くなっていきます。
それぞれの変数が確保してるメモリの量を見る方法はないでしょうか？

0241デフォルトの名無しさん

2012/06/03(日) 22:25:46.21

複数の改行をひとつの<br>にするにはどうすればいいのでしょうか？
$hoge =~ s/\n*/<br>/g;
ではできませんでした。

0242デフォルトの名無しさん

2012/06/03(日) 22:44:37.72

$hoge =~ s/(\x0D\x0A|\x0D|\x0A)+/<br \/>/g;

0243デフォルトの名無しさん

2012/06/03(日) 22:45:08.52

>>241
1)改行が「\r\n」だと無意味
2)てか\n*だと全文字の間に<br>が入っちゃうよ？

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

0244243

2012/06/03(日) 22:46:49.17

>>242さんの見てちょっと直してみた
$hoge =~ s/(\r?\n|\r)+/<br>/g;

0245デフォルトの名無しさん

2012/06/03(日) 22:48:58.11

ちょっとまて。

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

0246デフォルトの名無しさん

2012/06/03(日) 22:53:56.52

s/\n+/<br>/mg;

0247241

2012/06/03(日) 23:26:42.09

ありがとうございました！
無事できました！

0248245

2012/06/04(月) 00:15:13.24

どういたしまして。

0249240

2012/06/04(月) 00:18:02.48

事故解決
Devel::Sizeでできました。

0250245

2012/06/04(月) 00:22:25.53

どういたしまして。

0251デフォルトの名無しさん

2012/06/04(月) 04:18:44.32

5.10から\Rも使えるよー

0252デフォルトの名無しさん

2012/06/04(月) 05:51:32.77

>>245
相当悔しかったようだが、そのタイミングではもう無理

0253デフォルトの名無しさん

2012/06/04(月) 23:12:46.30

xxxx/xx/xx(x) xx:xx:xx
↑こういう、この２ちゃんねるにもあるような日時の文字列を、
time関数が返す1970/1/1 からの秒数に変換するにはどうしたらいいですか？？

0254デフォルトの名無しさん

2012/06/04(月) 23:32:49.88

posixつかう

0255デフォルトの名無しさん

2012/06/05(火) 01:01:02.06

ちったぁ探せやｗ

時間秒変換

0256デフォルトの名無しさん

2012/06/05(火) 01:23:50.57

たーいむろーかるでやっちゃう

0257デフォルトの名無しさん

2012/06/05(火) 01:45:49.70

Time::Piece->strptime

0258デフォルトの名無しさん

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

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

0259デフォルトの名無しさん

2012/06/05(火) 11:21:18.76

Error parsing time at C:/Perl/lib/Time/Piece.pm line 469.

0260デフォルトの名無しさん

2012/06/05(火) 11:44:12.73

>>258の環境は Time::Piece v1.17以前、かつ LANG が ja_JP と見た
そうでなきゃ>>259になるはず

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

0261デフォルトの名無しさん

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);

0262デフォルトの名無しさん

2012/06/05(火) 17:07:10.18

Time::Piece物凄く嫌われてるな…

0263デフォルトの名無しさん

2012/06/05(火) 19:16:53.80

便利なのにねー

0264デフォルトの名無しさん

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;

0265デフォルトの名無しさん

2012/06/05(火) 19:40:37.24

ucfirst()の動作についてなんですが、
ucfirst 'FOO' #=>'FOO'
勝手に余計な変更を加えられるのも困る気はするけど、直感的には'Foo'になりそうなもんです。
キャメルケースへの変換のためには常に↓のように書くようになりますか？
ucfirst lc 'FOO'

0266デフォルトの名無しさん

2012/06/05(火) 19:53:20.63

>>265
ヒトコブラクダでいいならね。

0267デフォルトの名無しさん

2012/06/05(火) 20:58:57.97

>>266
そうですか。コブが複数の場合はucfirstの範疇ではないんでおｋです

0268デフォルトの名無しさん

2012/06/05(火) 23:38:34.82

lowerCamel を UpperCamel にするのとかにも使えるのが ucfirst なのに
ucfirst 'fooBar' の結果が 'Foobar' だったら困るわ

0269デフォルトの名無しさん

2012/06/06(水) 01:22:44.77

Time::Pieceは標準モジュール
さすがに標準モジュールを使わない理由はないよｗ

0270デフォルトの名無しさん

2012/06/06(水) 01:29:00.82

>>269
まだ5.8使ってるサーバだと標準じゃない

0271デフォルトの名無しさん

2012/06/06(水) 01:51:35.99

5.14 より前の perl に標準装備の Time::Piece は v1.15 と古く、
わりと致命的なバグとかローカル時間の扱いで嵌りどころがあるので最新版入れるべき

0272デフォルトの名無しさん

2012/06/06(水) 01:53:21.04

でも5.8でTime::Piece使えるでしょ？

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

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

0273デフォルトの名無しさん

2012/06/06(水) 01:55:47.99

>>271
興味深いね。どのバージョンで修正されたもの？

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

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

0274デフォルトの名無しさん

2012/06/06(水) 02:38:34.00

いや、重要というなら「最新版を使え」ということをこそ強調したかったんだけど。それならとりあえず鉄板なんだし。
俺はもはや最新版しか使ってないし過去のバージョンのバグなど考慮したくないわ。

0275デフォルトの名無しさん

2012/06/06(水) 03:01:20.35

5.8使わされてる人もいるんですよ？

0276デフォルトの名無しさん

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;

0277デフォルトの名無しさん

2012/06/06(水) 08:38:09.10

>>276
Time::Piece以外の方が面倒じゃねーかｗ

0278デフォルトの名無しさん

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 のオブジェクトが必要なわけじゃないのだから後者の方法で問題ないけど。

0279デフォルトの名無しさん

2012/06/06(水) 09:40:44.81

>>278
そこを突っ込むなら、Shift_JISでなく、UTF-8で処理してる部分にも突っ込んでおいてくれ。

0280デフォルトの名無しさん

2012/06/06(水) 12:52:44.15

45万行(100MB)近くのテキストファイルから行単位で範囲抽出したいんだけどどうしたら良い？
開始行と終了行は正規表現で判定したい。

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

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

0281デフォルトの名無しさん

2012/06/06(水) 13:25:22.74

>>280
俺はそういう場合は「配列にぶちこんでforeachで回しながら正規表現」ではなく
「文字列にして正規表現」にしてるけど、そんなでかいファイルでやったことない
からうまくいくかわからんなｗ

0282デフォルトの名無しさん

2012/06/06(水) 13:40:32.94

そこまで行ったら巨大すぎるから
昔ながらのUNIXのツールを使えばいいんじゃあないかと
awkとか

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

"Hello" を含む行から、"Bye" を含む行まで（その行を含む）

とかだってさ

0283デフォルトの名無しさん

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(<>){ ... }でくるむ。

0284デフォルトの名無しさん

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'
とかで、丁寧にフラグ立てすりゃメモリも使わんし何の問題もない。

0285280

2012/06/06(水) 21:45:04.51

>>281-284
ありがとう
ちょっとやってみる

0286デフォルトの名無しさん

2012/06/07(木) 00:41:59.36

1日1回くらいの頻度じゃ大した負荷にはならんと思うけどなあ…
これが毎分1回とかなら多少は考慮も必要だろうけど。

0287デフォルトの名無しさん

2012/06/07(木) 02:26:10.10

nice!

0288デフォルトの名無しさん

2012/06/07(木) 21:39:11.83

標準は時空を越えてlocaltime。最新じゃないと使い物にならないとかまじ勘弁。

0289デフォルトの名無しさん

2012/06/07(木) 23:04:18.70

新アニメ「ろ～かる☆たいむ」

0290デフォルトの名無しさん

2012/06/07(木) 23:04:55.75

新アニメ「えすぷんと☆えふ」

0291デフォルトの名無しさん

2012/06/07(木) 23:05:59.99

漫談「パールのようなもの」

0292デフォルトの名無しさん

2012/06/07(木) 23:15:14.06

>>288
Time::Pieceもlocaltimeだよｗ

0293デフォルトの名無しさん

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

0294デフォルトの名無しさん

2012/06/08(金) 04:45:13.86

XML::Simpleの気分だろ

0295デフォルトの名無しさん

2012/06/08(金) 06:09:27.02

utf8か単なるバイナリかのネタ？

0296デフォルトの名無しさん

2012/06/08(金) 08:03:12.91

>>295
>>293 の話なら、たぶんそんなところだろうね。

0297デフォルトの名無しさん

2012/06/08(金) 08:21:55.07

>>293
失敗しない。
問題があるとしたら、隠してる部分にある。

0298デフォルトの名無しさん

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);

　　　：

}

0299298

2012/06/08(金) 10:55:15.31

追加です。

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

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

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

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

}

0300298

2012/06/08(金) 11:03:12.01

すみません>>299は忘れてください。中身（与えるワードと取得したXMLの中身）が
動的に変わっているのでXML::simpleは関係ないようですです。

0301デフォルトの名無しさん

2012/06/08(金) 11:13:51.75

さっさと全部あげろよアホ

0302デフォルトの名無しさん

2012/06/08(金) 12:29:59.83

全部ここに上げたら著作権は2chのものになってしまうので他のサイトに貼り付けるべし

0303298

2012/06/08(金) 13:39:52.47

>>301 >>302
すみません。解決いたしました。

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

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

0304デフォルトの名無しさん

2012/06/08(金) 13:45:15.82

またXML::Simple以外のところが原因じゃないの？
というか、XML::Simpleにそういうバグがあるなら直したらいいのでは？
どうせCPANとかにソースごと置いてあるモジュールだろ？
それかもっと使いやすいやつを作って公開すれば人気者

0305298

2012/06/08(金) 14:22:53.40

>>304
リアルタイムにXMLが更新されているので何回も実行しましたが、以降は
落ちないのです。今まではループのどっかしらでひっかかってうまくいきませんでした。

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

0306デフォルトの名無しさん

2012/06/08(金) 18:33:16.65

だから自分でモジュール作ってCPANにでもアップしたらクラスの人気者だって

0307デフォルトの名無しさん

2012/06/08(金) 18:46:42.44

そう、せいぜいクラスの人気者どまり。
ここの人たちは誰も使わない。

0308デフォルトの名無しさん

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;
}

0309デフォルトの名無しさん

2012/06/08(金) 21:37:16.84

サブルーチンの外で循環参照が発生してるんじゃない？

0310デフォルトの名無しさん

2012/06/09(土) 00:32:26.34

聞けば聞くほどlocaltime一択。人柱の方、がんばってねｗ

0311デフォルトの名無しさん

2012/06/09(土) 00:56:51.47

>>310
さすがに必死すぎるだろｗ
誰も話をしていない。

0312デフォルトの名無しさん

2012/06/09(土) 02:00:58.57

>>311
たぶんbotだろ。放っとけ。

0313デフォルトの名無しさん

2012/06/09(土) 02:45:34.34

perl のメモリの解放は、プログラム終了時のみだったはず

0314デフォルトの名無しさん

2012/06/09(土) 05:01:04.67

>>308
OSを変える。Perlのせいじゃない。
と、ラリー氏がおっしゃってました。

0315デフォルトの名無しさん

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 に依存する事を念頭に。
==============

0316デフォルトの名無しさん

2012/06/09(土) 12:10:48.68

>>308
OSにメモリが返されないのは仕方ないので、
hogeの処理をforkして別プロセスにするとか、
HTTP::Tinyを弄って、チャンクまたは行単位で処理するとか。

0317デフォルトの名無しさん

2012/06/09(土) 16:52:16.50

hogeとかまだ使ってる池沼いるのかｗｗｗｗｗｗｗｗｗｗ
ダセェ老害ｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

0318デフォルトの名無しさん

2012/06/09(土) 16:53:05.26

じゃあ、hageにしよう。
つまりお前のことだ。

0319デフォルトの名無しさん

2012/06/09(土) 16:58:49.61

普段はfoo, barが多いけど、
変数foo, barと関数Hoge…みたいに軸を分けるときはよく使うなあ、俺

0320デフォルトの名無しさん

2012/06/09(土) 17:02:51.85

日本人なら、

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

とかにしろよ。

0321デフォルトの名無しさん

2012/06/09(土) 17:11:37.03

そんな変数なんて萌えキャラの名前とかでいいだろ

0322デフォルトの名無しさん

2012/06/09(土) 17:15:05.86

kashiyuka、nocchi、archan

0323デフォルトの名無しさん

2012/06/09(土) 17:16:51.50

&perfume( kasiyuka , notti );

0324デフォルトの名無しさん

2012/06/09(土) 17:17:46.65

PHPはマジで糞

0325デフォルトの名無しさん

2012/06/09(土) 17:23:38.85

ほら、スレタイ読めない奴が来たｗ
これから何をするのか、それとも逃げ帰るのかｗ

0326デフォルトの名無しさん

2012/06/09(土) 17:42:34.77

phpってperlの劣化版ぱくりだろ。

0327デフォルトの名無しさん

2012/06/09(土) 17:43:47.74

Socketで書くおれはメモリの解放問題の影響はなし

0328デフォルトの名無しさん

2012/06/09(土) 17:48:52.67

圧倒的に古いfoo,bar,baz,quxを使うけど、老害とか言われても困る。
hoge,hage,piyoを知ったのは90年代以降だな。

0329デフォルトの名無しさん

2012/06/09(土) 17:48:54.74

PHPのほうがPerlよりはるかに進化してる
Perl厨は現実を受け入れられずにしがみついてるだけ

0330デフォルトの名無しさん

2012/06/09(土) 18:00:18.94

はいはい。よかったね。

0331デフォルトの名無しさん

2012/06/09(土) 18:24:41.88

PHPはPerl4のコピーだから優れてるのは当然ってことで今日は帰っていいよ

0332デフォルトの名無しさん

2012/06/09(土) 18:36:58.19

あれのどこがPerl4なんだ？

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

0333デフォルトの名無しさん

2012/06/09(土) 19:48:04.00

バカ発見 → >>331

0334デフォルトの名無しさん

2012/06/09(土) 19:58:22.10

PHPはPerlに比べて実行速度がアホみたいに遅い。
そしてUDしまくるわセキュホはあるわで存在そのものが迷惑。

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

0335デフォルトの名無しさん

2012/06/09(土) 20:01:38.64

PerlとPHPを比較とか意味不明ｗ何でPerlとゴミを比較してんの？ｗｗｗ

0336デフォルトの名無しさん

2012/06/09(土) 20:02:11.07

>>334
＞PHPはPerlに比べて実行速度がアホみたいに遅い。
ｋｗｓｋ

0337デフォルトの名無しさん

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

0338デフォルトの名無しさん

2012/06/09(土) 20:07:41.13

こちらへどうぞ。

【Perl,PHP】LL ﾊﾞﾄﾙﾛﾜｲﾔﾙ 22【JavaScript,Python】
http://toro.2ch.net/test/read.cgi/tech/1336491087/

0339デフォルトの名無しさん

2012/06/09(土) 20:48:49.83

携帯向けにHTMLメールを送るサービスを作っているのですが、
キャリア毎に適切なHTMLメールを構成してくれるモジュールはないでしょうか？

0340デフォルトの名無しさん

2012/06/09(土) 20:49:44.69

絵文字の相互変換やりたいです
くらいにダイレクトに言えよｗ

0341デフォルトの名無しさん

2012/06/09(土) 21:25:13.57

絵文字は使わないんで、
メアドとHTMLを渡せばmultipartとか文字コードとか適切に処理してくれればいいです

0342デフォルトの名無しさん

2012/06/09(土) 21:28:53.97

>>337
2003年＆2006年の情報持ってくるとか、ム板住人の鑑だな。

0343デフォルトの名無しさん

2012/06/09(土) 22:57:42.88

そして最新の情報も持ってこないとか
やはｒｵﾏｲも無板住人の鏡だ

0344デフォルトの名無しさん

2012/06/09(土) 22:59:38.88

ム板の掃き溜め

0345デフォルトの名無しさん

2012/06/09(土) 23:04:19.57

本当に情弱いてワラタ

0346デフォルトの名無しさん

2012/06/11(月) 00:14:50.10

$a =~ /(\d+)/;
$a1 = $1;

を１行かけませんか？

0347デフォルトの名無しさん

2012/06/11(月) 00:20:29.11

$a =~ /(\d+)/; $a1 = $1;

0348デフォルトの名無しさん

2012/06/11(月) 00:30:07.63

そのセミコロンは卑怯だｗ

0349デフォルトの名無しさん

2012/06/11(月) 00:33:23.82

($n)=$v=~/(\d+)/

0350デフォルトの名無しさん

2012/06/11(月) 00:34:24.96

$a =~ /(\d+)/, $a1 = $1;

0351デフォルトの名無しさん

2012/06/11(月) 00:37:19.51

>>348
卑怯だけど、現実的かつ簡潔ではあると思って目からセミコロンが落ちた

0352デフォルトの名無しさん

2012/06/11(月) 00:37:21.34

my $n = ($v =~ /(\d+)/)[0];

0353デフォルトの名無しさん

2012/06/11(月) 02:19:54.77

ワンライナーのスクリプトは暗号レベル

0354デフォルトの名無しさん

2012/06/11(月) 03:37:22.65

perl 'print "Hello Work";'

0355デフォルトの名無しさん

2012/06/11(月) 04:13:23.73

Can't open perl script "print "Hello Work";": No such file or directory

0356デフォルトの名無しさん

2012/06/11(月) 04:40:53.97

>>346
my ($a1) = ($a =~ /(\d+)/);
定番だろていうか釣り?

0357デフォルトの名無しさん

2012/06/11(月) 06:58:55.74

あまりワンラインにすることにこだわるとundefの警告を
出させないようにするところに困るよね？

0358デフォルトの名無しさん

2012/06/11(月) 09:25:50.71

my $n = ($s =~ /(\d+)/)[0] // ''; # >>352氏のアイディアの利用
my $n = ($s =~ /(\d+)/ ? $1 : '');

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

0359デフォルトの名無しさん

2012/06/11(月) 11:10:32.65

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

0360デフォルトの名無しさん

2012/06/11(月) 12:04:59.97

>>356は公式に推奨されてた気がする。
同封のマニュアルとラクダ本ではスタンダード形式みたいに扱われてた。

0361デフォルトの名無しさん

2012/06/11(月) 13:15:35.14

()は一つ減らせる
my ($a1) = $a =~ /(\d+)/g;
これでもいける
my ($a1) = $a =~ /\d+/g;

0362デフォルトの名無しさん

2012/06/11(月) 13:29:52.72

>>361
= の右辺の括弧を外すのはいいけど、
必要なのは最初のマッチだけなのに /g つけたら無駄な探索しちゃうよ

0363デフォルトの名無しさん

2012/06/11(月) 15:40:36.22

Perlは左辺でコンテキストを決めて、演算子や関数とかが何を返すのかが徹底されてるけど、
それがピンと来てない人だと奇抜に映るのかもね。
それが不可能な一部のビット演算以外、一つ残らず全てそれで統一されてる。

0364デフォルトの名無しさん

2012/06/11(月) 16:40:33.52

MySQLにforeachで複数回insertしようとすると
DBD::mysql::st fetchrow_array failed: fetch() without execute()
このようなエラーがでて途中で終わってしまいます。
このエラーはどのような時にでるのでしょうか？

0365デフォルトの名無しさん

2012/06/11(月) 18:26:35.56

>>364
試してないので細かな条件は分からんけど、
クエリが実行されてないのにデータを取り出そうとした、というようなエラーに読める。

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

0366デフォルトの名無しさん

2012/06/12(火) 01:43:23.43

perl -v 'print "Hello Work";'

0367デフォルトの名無しさん

2012/06/12(火) 02:42:45.14

一行に１つずつ数字があるファイルがあって、その前後の差分を表示させたいのですが、ワンライナーでできるでしょうか？
$ cat /tmp/file1
12345
12346
15440
100000
....
$ ワンライナー /tmp/file1
1
94
84560
....

0368デフォルトの名無しさん

2012/06/12(火) 03:03:44.60

なぜワンライナーがいいのか知らないけど、
そんな質問したら変な記述がくるぞ

0369デフォルトの名無しさん

2012/06/12(火) 03:14:12.59

>>367
Perlの仕事じゃないな

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

0370デフォルトの名無しさん

2012/06/12(火) 03:30:49.63

perlでやっちゃダメってこともない
perl -n -e "print $_ - $last, \"\n\" if $last; $last = $_;" /tmp/file1

0371デフォルトの名無しさん

2012/06/12(火) 03:40:11.00

$ perl -nE '$.>1&&say$_-$t;$t=$_' /tmp/file1

0372デフォルトの名無しさん

2012/06/12(火) 05:25:42.10

>>358
defined or を使わんでも
my $n = ( ($s =~ /(\d+)/), '' )[0] ;
my ($n) = ( ($s =~ /(\d+)/), '' ) ;
が常套手段だろ。

>>369
スレの題名読め

0373デフォルトの名無しさん

2012/06/12(火) 05:35:32.18

横槍だが>>369の二行目はちゃんとPerlについての回答になってると思う俺
そんでもって四行目以下は二行目の補強だな

0374デフォルトの名無しさん

2012/06/12(火) 05:44:24.51

>>282
でカチンと来てたから、たんにperlを知らないバカだと

つい…

0375デフォルトの名無しさん

2012/06/12(火) 06:50:33.14

日本固有の領土

0376デフォルトの名無しさん

2012/06/12(火) 16:31:46.73

チンコ収納可能ブリーフ

0377デフォルトの名無しさん

2012/06/12(火) 21:14:13.00

それをビガーパンツと言う

0378デフォルトの名無しさん

2012/06/13(水) 01:57:27.08

>>374
デカチン?

0379デフォルトの名無しさん

2012/06/13(水) 23:42:07.29

strictやwarningsのメッセージを1文ずつ配列に入れるにはどうすればいいですか？

0380デフォルトの名無しさん

2012/06/14(木) 01:48:04.48

一文ずつ区切って配列の後ろから追加すればいいだろ知能障害

0381デフォルトの名無しさん

2012/06/14(木) 02:22:47.01

傍から見てると、標準エラー出力制御というPerlというよりはOSの質問に見える

0382デフォルトの名無しさん

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__} でキャプ

0383デフォルトの名無しさん

2012/06/14(木) 10:51:31.35

ここはいつからソース乞食に餌を与える基地害が沸くようになったんだ？

0384デフォルトの名無しさん

2012/06/14(木) 11:01:32.25

>>383
だったら「質問が来ても罵倒します」ってコンセプトのスレをてめえが立てろよ

0385デフォルトの名無しさん

2012/06/14(木) 16:38:33.42

「だったら」で出てきた案が支離滅裂な件について。

0386298

2012/06/14(木) 20:12:02.96

質問に対して必要なのは解答だ。

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

0387デフォルトの名無しさん

2012/06/14(木) 23:20:57.93

真理

0388デフォルトの名無しさん

2012/06/15(金) 06:59:00.42

>>386
だったら2chなんかに来るなよ青ガキ

0389デフォルトの名無しさん

2012/06/15(金) 07:35:08.83

>>388
案外それが真理ついてるかもなｗ
もう2ch以外の方がまともな答えをもらえる時代になった

0390デフォルトの名無しさん

2012/06/15(金) 08:07:44.80

「もう」も何もw

0391デフォルトの名無しさん

2012/06/15(金) 10:27:17.84

使い方だよ。「お前らだったらこのくらいは分かるよな当然？」みたいな
煽り方してうまく誘導して、間違ってるヤツとかをボコボコにすると
マトモな答えがポロッと帰ってきたりする。

0392デフォルトの名無しさん

2012/06/15(金) 13:00:30.36

ここも>>384みたいな病気持ちがレスするほど落ちぶれたか

0393デフォルトの名無しさん

2012/06/15(金) 13:48:22.28

>>391
随分効率の悪いやり方だな
一般人の寿命の5倍くらいある人？

0394デフォルトの名無しさん

2012/06/15(金) 14:02:14.28

>>393
会社の中に解答できない人が一人もいない状況で、俺より凄い人がポロッと
すごいことを言うのが2chの醍醐味だろ。効率とかじゃないよ。１か０の世界。
ぶっちゃけMLとか質問サイトみたいのにロクな人間は転がってない。

0395デフォルトの名無しさん

2012/06/15(金) 14:05:24.87

＞MLとか質問サイトみたいのにロクな人間は転がってない

0396デフォルトの名無しさん

2012/06/15(金) 14:28:20.39

>>395
どうした？
グゥの音も出ないか？ｗ

0397デフォルトの名無しさん

2012/06/15(金) 15:18:50.36

MLや質問サイトが腐ってるのは事実だろ。今時MLで討議とかオワコンだし。
IRCは使えるとこあるけど、コテハンじゃなきゃ入っていけないからそこん
とこが2chと違ってうっとおしい。

0398デフォルトの名無しさん

2012/06/15(金) 15:51:41.32

おまえら、5.16をチェックしたか？
unicode周りがややこしくなっとるぞ。

0399デフォルトの名無しさん

2012/06/15(金) 16:15:01.59

これ以上ややこしくしないでくれ～

0400デフォルトの名無しさん

2012/06/15(金) 17:08:35.14

でもMLのほうが池沼率は低い

0401デフォルトの名無しさん

2012/06/15(金) 17:44:11.55

>>394
日本語でおｋ
「会社の中に解答できない人が一人もいない状況」って合ってるのか？

0402デフォルトの名無しさん

2012/06/15(金) 18:15:53.36

mlなら>>394みたいに日本語の不自由な奴は少ない。

0403298

2012/06/15(金) 18:23:11.59

MLって何？まいくろろふと？

0404デフォルトの名無しさん

2012/06/15(金) 18:46:35.59

>>403
なに？
それが面白いと思ったの？
頭悪そう

0405デフォルトの名無しさん

2012/06/15(金) 19:11:38.88

あ？やんのか

0406デフォルトの名無しさん

2012/06/15(金) 20:07:41.03

基地害同士仲良くしろよ

0407デフォルトの名無しさん

2012/06/15(金) 20:47:31.26

パ・パ・パパッパ・Perlライス

0408デフォルトの名無しさん

2012/06/15(金) 20:51:24.47

MLのほうが絶対いいよ
MLを使うってことはミールアドレスって個体識別できる2chで言うところのトリップ代わりになるものが基本的についてるから、池沼やくだらない言い争いを行う馬鹿も少ないしみんなここよりは自分の発言に責任を持ってる

0409デフォルトの名無しさん

2012/06/15(金) 21:16:41.69

ミ－ルライス

0410デフォルトの名無しさん

2012/06/15(金) 22:07:12.10

>>409
混ぜんなよｗ

0411デフォルトの名無しさん

2012/06/16(土) 04:13:38.23

Perlを使っていると上で煽り合ってるような精神異常者になります
今すぐPHPに乗り換えましょう
最強のプログラミング言語PHPに移行するチャンスです

0412デフォルトの名無しさん

2012/06/16(土) 07:52:55.18

>>411
PHP最強だよな。誰でも覚えられる。すぐ書ける。すぐ仕事が終わる。金もいい。
仕事が終わったら契約切って速効逃げる。これ最強。

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

0413デフォルトの名無しさん

2012/06/16(土) 08:24:34.84

Perlみたいに -d 一発でデバッグできれば使ってやるよｗ >PHP

0414デフォルトの名無しさん

2012/06/16(土) 12:36:00.82

PHPが難しくて挫折したPerl厨が暴れとるわい。

0415デフォルトの名無しさん

2012/06/16(土) 13:04:04.53

>>414
「PHP！進んでるゥ～ Perl？遅れてるゥ～」程度の
脳味噌しかないガキみたいだな。顔が赤いぞｗ
そもそもスレ違い、さっさと涙拭いてどっか行け

0416デフォルトの名無しさん

2012/06/16(土) 13:35:08.43

>>415
満足したか？（・∀・）ﾆﾔﾆﾔ

0417デフォルトの名無しさん

2012/06/16(土) 13:43:48.96

>>415
それよくあるな。

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

0418デフォルトの名無しさん

2012/06/16(土) 13:51:28.36

PHPはHTMLに直に埋め込めるPerlにはそんな芸当は無理

0419デフォルトの名無しさん

2012/06/16(土) 13:53:26.14

別に適材適所でいいやん
ちょっとした雑用にはPerlは便利だけど
Perlでホームページ書くとコードが汚くなる

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

0420デフォルトの名無しさん

2012/06/16(土) 13:56:09.28

perlも埋め込んでるのとあんま変わらない気がするんだけどきのせい？

0421デフォルトの名無しさん

2012/06/16(土) 14:02:38.17

天下のmixi様はperl
なくても困らないゴミサイトはphp

0422デフォルトの名無しさん

2012/06/16(土) 14:10:24.50

HTMLの中に「<?perl ～ ?>」と書けるような仕組みを作った人も
いることはいるが、一般には普及していない。
テンプレートを使えば、そんなモノは必要ないからなｗ

0423デフォルトの名無しさん

2012/06/16(土) 15:18:34.25

＞Perlでホームページ書くとコードが汚くなる
お前のヘタレに起因するものをさも一般論のように言われてもだな・・・

0424デフォルトの名無しさん

2012/06/16(土) 15:20:38.55

>>422
というかPHP自体が「凄ぇテンプレート」だよね

0425デフォルトの名無しさん

2012/06/16(土) 16:46:19.04

PHPの糞な点

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

0426デフォルトの名無しさん

2012/06/16(土) 17:02:09.25

>>424
PHP/F１はふつーに「テンプレートエンジン」を謳ってたぞｗｗ。
今やそのPHPがテンプレートエンジンを別に持ってるという矛盾を
いまだに解消できてない。ガチでテンプレートのなかにコード直書きみたいな
糞コードがその辺に普通に転がっている。

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

0427デフォルトの名無しさん

2012/06/16(土) 17:02:34.48

どうでもいいんでLLバトルロワイヤルスレとかでやってください

0428デフォルトの名無しさん

2012/06/16(土) 17:16:10.95

ワンライナーでもない限りuse strict;は基本付けるだろ。
付けないのはPHPあがりのマジキチくらい。

0429デフォルトの名無しさん

2012/06/16(土) 21:38:16.33

Perlはまともな言語でPHPはゴミなのに何のバトルするんだ？
やる前から決着はついてる、というかそもそも次元が違う
言語とゴミを比較するとか意味が分からない

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

0430デフォルトの名無しさん

2012/06/16(土) 22:04:30.80

> Perlはまともな言語でPHPはゴミなのに何のバトルするんだ？

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

0431デフォルトの名無しさん

2012/06/16(土) 23:06:09.06

そうだね。だから板違いのレスはよそでやれよ。PHPはwebprog板だ。

0432デフォルトの名無しさん

2012/06/16(土) 23:10:30.18

PHPのどこがC++に似てるんだよ

0433デフォルトの名無しさん

2012/06/16(土) 23:14:47.39

Perlに比べて似ている所

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

0434デフォルトの名無しさん

2012/06/16(土) 23:16:07.40

・例外がある

0435デフォルトの名無しさん

2012/06/16(土) 23:35:14.86

悪い所かつ良い所
・幸にも、Perlではない

0436デフォルトの名無しさん

2012/06/16(土) 23:41:22.92

入力から受け取った値が整数値であることを確認する場合のことなんですが
perlには型がないということでちょっと混乱しています。
アプリケーションの流れはこんな風です

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

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

0437デフォルトの名無しさん

2012/06/16(土) 23:46:01.78

そのisIntegerの中身のソース
見れるなら見てみろよ
正規表現のオートマトンやってるはずだ

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

0438デフォルトの名無しさん

2012/06/17(日) 00:14:16.88

型がない、ってだけでなぜそんなに混乱できるのか
不思議でしょうがない…
ゲーム脳ならぬ型脳か

0439436

2012/06/17(日) 00:34:01.36

>>437
正規表現で妥当ですか。どうも

0440デフォルトの名無しさん

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*$/ でもいいか

0441デフォルトの名無しさん

2012/06/17(日) 02:58:22.23

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

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

0442デフォルトの名無しさん

2012/06/17(日) 03:21:18.46

>>441
自尊心とか何言ってるかわからん
素で理解できないだけです

0443デフォルトの名無しさん

2012/06/17(日) 07:21:12.60

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

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

0444デフォルトの名無しさん

2012/06/17(日) 11:05:41.93

>>442
なにかと不思議だったり理解できなかったりわからなかったり
その都度わっかりましぇーんわっかりましぇーんと口にするのは

　何脳なのでしょうか

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

0445デフォルトの名無しさん

2012/06/17(日) 12:05:25.88

なんだ
ぼくのギモンへの回答以外は書き込み無用ってか

0446デフォルトの名無しさん

2012/06/17(日) 12:06:05.00

>>436
($num + 0) == $num ? "numeric" : "string";

これでいんじゃね？

0447デフォルトの名無しさん

2012/06/17(日) 12:07:33.66

になみにundefや空文字列の場合文字列とみなされちゃうから
都合が悪いなら>>446の式の前にチェックしてね。

0448デフォルトの名無しさん

2012/06/17(日) 12:10:21.56

あと>>446だと、0.0や"1000yen"みたいのは通らないのでその辺も注意。

0449デフォルトの名無しさん

2012/06/17(日) 12:11:23.56

と思ったけど0.0 == 0だからこっちは通るか。てことはだいたい>>446でいんじゃね？

0450デフォルトの名無しさん

2012/06/17(日) 14:08:26.56

＞いんじゃね？
確信ないなら回答するんじゃねぇよゴミクズ
ここはお前のカスみたいな自己顕示欲を満たすスレじゃねぇんだよ
ブログにでも書いてろマジキチ

0451デフォルトの名無しさん

2012/06/17(日) 14:34:51.22

>>448
元の質問は“整数値”かどうかを問題にしてるんだから
0.0や1000yenは考慮に入れる必要ないんじゃないの。

0452デフォルトの名無しさん

2012/06/17(日) 15:08:52.04

>>445
おい間抜け。
あなたは「俺には好きに言わせろ・反論するな」という意味のことを
相手に対して「回答以外の書き込みは無用か」と表現することで
デッドロックを引き起こしました。

　ゲームオーバーです

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

0453デフォルトの名無しさん

2012/06/17(日) 15:23:54.67

>>446
それは常にnumericだろ

0454デフォルトの名無しさん

2012/06/17(日) 16:50:01.89

まじで糞スレ
まともな書き込みがない

0455デフォルトの名無しさん

2012/06/17(日) 18:05:45.43

オペレータがオーバーロードされる可能性もある。
素直に/^[+-]?\d*$/するよろし。

0456デフォルトの名無しさん

2012/06/17(日) 18:10:44.32

>>454
だったらここよりまともなサイト挙げてみろよ
ひとつでも挙げられたらスレ終わらせてやってもいいぞ

0457デフォルトの名無しさん

2012/06/17(日) 18:11:23.50

カンマ

0458デフォルトの名無しさん

2012/06/17(日) 18:26:05.00

バックスラッシュ

0459デフォルトの名無しさん

2012/06/17(日) 20:02:18.89

>>452
ステージを降りてくださいときたか
ここはオマエのお立ち台ってか

0460デフォルトの名無しさん

2012/06/17(日) 20:09:00.42

>　ゲームオーバーです

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

0461デフォルトの名無しさん

2012/06/17(日) 20:27:21.44

この様子なら知恵遅れで質問してたほうがマシ。

0462デフォルトの名無しさん

2012/06/17(日) 20:54:35.76

適当に見繕って試してみたよ。
http://ideone.com/BMiP5

0463デフォルトの名無しさん

2012/06/17(日) 22:24:26.43

そもそもなにがどうデッドロックなのかさっぱりわからん。
元の質問者と同一人物だとすると、変な思い込みで思考の迷路に迷い込みがちな体質なのかもしれんな。

0464デフォルトの名無しさん

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はコンテキストが型を決めると覚えておけばいい。

0465デフォルトの名無しさん

2012/06/17(日) 23:36:28.93

ヴァカはレスするなって

＞型なんて数値か文字しかない
？？？

＞常態
？？？

0466デフォルトの名無しさん

2012/06/17(日) 23:40:36.30

ゲームオーバーとかステージとかリア厨だろ。

0467デフォルトの名無しさん

2012/06/18(月) 00:43:49.27

>>455
use utf8 環境では、\d は全角にもマッチするから [0-9] で

0468デフォルトの名無しさん

2012/06/18(月) 01:52:38.05

>>459
そういう意味ではまったくありません。
やはりあなたにはいろんなことが不思議で理解できないのです。

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

　ポール・パッカー脳です

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

0469デフォルトの名無しさん

2012/06/18(月) 02:09:04.64

>>468
アスペ乙

0470デフォルトの名無しさん

2012/06/18(月) 02:30:55.63

アスペというよりなんか糖質臭い　やばい

0471デフォルトの名無しさん

2012/06/18(月) 03:22:00.40

なんか池沼が多いな

0472デフォルトの名無しさん

2012/06/18(月) 04:37:51.03

ポール・パッカー脳

って何？？

0473デフォルトの名無しさん

2012/06/18(月) 05:56:06.69

くらえ！
ポールパッカー！

0474デフォルトの名無しさん

2012/06/18(月) 08:50:43.52

よほど『型脳』に傷ついちゃったとみえる

0475デフォルトの名無しさん

2012/06/18(月) 13:31:06.21

ポールパッカーというのはパールハッカーと何かをかけた言い回しで
だいたいはのぼせあがった奴とか口ばかりとか
そんな感じのニュアンスでつまらない奴を揶揄して使う。
海外ネタだな

0476デフォルトの名無しさん

2012/06/18(月) 14:13:37.28

まじどうでも良かったｗ

0477デフォルトの名無しさん

2012/06/18(月) 14:25:51.62

ここ100レスの基地害指数は70%くらい

0478デフォルトの名無しさん

2012/06/18(月) 21:39:45.18

>>474
別に傷付くほどのことじゃないんだけどなあ…
他言語から来た人ならどうしても理解し辛いことだし
かくいう俺自身もかつて型脳だったし

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

0479デフォルトの名無しさん

2012/06/18(月) 21:53:39.86

コンテキストによって振舞いが変わるのってなんかオブジェクト指向っぽくね？

0480デフォルトの名無しさん

2012/06/18(月) 22:01:08.40

とてもOOぽいな

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

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

0481デフォルトの名無しさん

2012/06/18(月) 22:27:40.86

Googleみたいに特定の目的に最適化された鯖はもう鯖から専用にCで書いたりしてるのかね

0482デフォルトの名無しさん

2012/06/18(月) 22:34:13.47

Googleのレンタル鯖とか怖くて使えないよな。
データストアとかっていかにもな仕組みじゃない。

0483デフォルトの名無しさん

2012/06/18(月) 22:34:38.06

Googleともなると幾つかオリジナル言語を発表してるからなあ
メインの検索用途ともなるとエンジンの言語は想像すらつかん

0484デフォルトの名無しさん

2012/06/18(月) 23:17:36.28

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

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

0485デフォルトの名無しさん

2012/06/19(火) 00:25:19.01

Googleの鯖はAN HTTPD
CGIはHSP

0486デフォルトの名無しさん

2012/06/19(火) 02:00:11.76

簡単な処理ならぶっちゃけシェルスクリプト書いて拡張子をcgiにしたほうが早い

0487デフォルトの名無しさん

2012/06/19(火) 03:06:59.61

>>482
Googleってレン鯖なんて出してるの？

0488デフォルトの名無しさん

2012/06/19(火) 03:34:03.48

>>487
GAEですわー

0489デフォルトの名無しさん

2012/06/19(火) 07:27:53.16

>>480
まあ、Perlはいろんな意味で「オトナの言語」だからな。

0490デフォルトの名無しさん

2012/06/19(火) 09:59:45.68

PHPは色んな意味で「情弱の言語」

0491デフォルトの名無しさん

2012/06/19(火) 10:02:03.77

Cで書くよりPerlで書いたほうがいいの？

0492デフォルトの名無しさん

2012/06/19(火) 10:25:34.05

適材適所

0493デフォルトの名無しさん

2012/06/19(火) 10:41:02.65

開発速度重視ならPerl、しっかり作りたいならCとかなんだろうね。

0494デフォルトの名無しさん

2012/06/19(火) 11:18:26.76

CはApacheがキャッシュしてくれないからオーバーヘッドがネックになる
Perlはキャッシュされる
だから結果的にレスポンスはPerlのほうが早い

0495デフォルトの名無しさん

2012/06/19(火) 11:55:26.26

じゃぁPerlのほうがいいの？

0496デフォルトの名無しさん

2012/06/19(火) 12:18:17.46

>>494
それはmod_perlを使った時の話では。
詳しくはないが、同じようにモジュールをロードしっぱなしにする仕掛け(ラッパー)が使えれば
perlだろうがCだろうが高速レスポンスが可能だと思うが。

0497デフォルトの名無しさん

2012/06/19(火) 12:56:33.97

そこでspeedyCGIだな

0498デフォルトの名無しさん

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

0499デフォルトの名無しさん

2012/06/19(火) 13:13:47.99

Cつーか実行ファイルをロードしっぱなしにするモジュールって今あるのかね

0500デフォルトの名無しさん

2012/06/19(火) 13:15:49.22

どんな実行ファイルでもロードしっぱなし、てのはさすがにできんでしょう

0501デフォルトの名無しさん

2012/06/19(火) 13:30:48.26

鯖とCGIをセットで作ってしまえば鯖が起動してる間はロードしっぱなしなのと同じ

0502デフォルトの名無しさん

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の部分が置換されません
対処法教えて下さい

0503デフォルトの名無しさん

2012/06/19(火) 15:41:37.35

>>502
ここが正規表現のスレッドに見えたのかよゴミクズ
そんな注意力が並以下のヴァカがプログラム組むこと自体間違いなんじゃねーの？
マジでお前社会に不要なタイプの人間だな

0504デフォルトの名無しさん

2012/06/19(火) 15:45:46.09

s/(?:(?<=^)|(?<= ))(.)(?=$| )/hoge/g

0505デフォルトの名無しさん

2012/06/19(火) 15:47:36.41

>>502
最初に「あまり良くない見本」と言っておきます
ttp://ideone.com/GtN2D

0506デフォルトの名無しさん

2012/06/19(火) 15:48:05.55

>>502
スレチの書き込みして荒らしたいだけだろ。

0507デフォルトの名無しさん

2012/06/19(火) 15:48:49.82

>>503
お前は自分をどんな人間だと思ってるんだ？

0508デフォルトの名無しさん

2012/06/19(火) 16:02:49.84

>>502=>>507

0509デフォルトの名無しさん

2012/06/19(火) 16:04:10.54

>>503=>>506=>>508

0510デフォルトの名無しさん

2012/06/19(火) 17:12:47.62

>502が発狂していますのでご迷惑をおかけしますがしばらくお待ちください。

0511デフォルトの名無しさん

2012/06/19(火) 17:16:40.38

ここはPerlが関係していればどんな質問でもOKでは？

0512502

2012/06/19(火) 17:22:35.05

Twitterのほうで返事もらえたのでもういいです、本当にこのスレに住み着いてる低脳は役に立ちませんね

0513デフォルトの名無しさん

2012/06/19(火) 17:32:49.92

こんなところで聞こうとするオマエが低能だよｗｗｗ

0514デフォルトの名無しさん

2012/06/19(火) 17:51:43.82

>>513によってこのスレの存在意義は全否定されました。
Perl質問箱スレの長らくのご利用、ありがとうございました。

0515デフォルトの名無しさん

2012/06/19(火) 18:48:27.80

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

0516デフォルトの名無しさん

2012/06/19(火) 20:29:39.16

みなさん今までありがとうございました。

0517デフォルトの名無しさん

2012/06/19(火) 20:32:01.93

カスばかり

0518デフォルトの名無しさん

2012/06/19(火) 22:07:22.81

>>512
Twitterで検索してみたが、そんなやりとりは見つからなかったぞ。

0519デフォルトの名無しさん

2012/06/19(火) 22:11:12.46

マジ検索してんのかよｗ
ンなバカなヤツがここにデイリしてんのかｗｗｗｗｗｗｗｗ

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

0520デフォルトの名無しさん

2012/06/19(火) 22:45:27.55

>>519

0521デフォルトの名無しさん

2012/06/19(火) 22:54:39.22

520じゃないけど
ツイッターってバグ多くて
検索しても出てこないとかしょっちゅうあるぞ

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

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

0522デフォルトの名無しさん

2012/06/19(火) 23:12:18.47

「このスレは、Perlに関連していればどんな煽りもOKです」

0523デフォルトの名無しさん

2012/06/19(火) 23:41:22.04

>>521
もちろんGoogleで検索したんだよ。site:twitter.com つけるんだよ。やってごらん。

0524デフォルトの名無しさん

2012/06/20(水) 00:28:41.60

未だにGoogleとか使ってる情弱いんの？

0525デフォルトの名無しさん

2012/06/20(水) 00:30:47.49

このスレの情弱とかは使ってんじゃネーノ
特に一番最初に質問したアホ
調べ方すら知らないアホだろｱﾎ
だからさらにアホなﾂｲｯﾀｰとか使ってんだろｗｗｗ

0526デフォルトの名無しさん

2012/06/20(水) 00:41:03.02

Google脳

0527デフォルトの名無しさん

2012/06/20(水) 02:08:37.77

ゲーム脳→「ゲームで脳が異常に」というトンデモ理論
型脳→「型がないと混乱する」という状態?
Google脳→「Google使ってると情弱」というトンデモ理論

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

0528デフォルトの名無しさん

2012/06/20(水) 02:46:45.04

今日の基地害指数：80

0529デフォルトの名無しさん

2012/06/20(水) 02:56:38.04

Googleって鍵かけてあるユーザーのツイートまで検索できるの？
それ問題じゃね？

0530デフォルトの名無しさん

2012/06/20(水) 06:57:25.18

鍵かけたTwitterアカウントから質問してすぐ答がもらえたんならずいぶんラッキーだったな

0531デフォルトの名無しさん

2012/06/20(水) 10:59:23.89

>>530
鍵付きでもフォロワの数と質で違ってくるでしょーに。

0532デフォルトの名無しさん

2012/06/20(水) 16:08:10.34

あたりめーだろおめー

0533デフォルトの名無しさん

2012/06/20(水) 18:13:56.63

バカ発見器のツイッターは一般人なら鍵かけとくに限る。

0534デフォルトの名無しさん

2012/06/20(水) 18:47:59.94

>>531
2ちゃんのこんなスレでこんな程度のレベル(馬鹿にしてでなく)の質問をするような人なら、
Twitterで鍵かけて運用していながらフォロワーが大量にいる可能性というのは低かろう。
またその中にPerlのこんな質問に即時に的確に答えられる人が入っている可能性も低いだろう。
その両方の条件の中で、すぐ答えが得られたというのはラッキーだったな、と。
まあTwitterで質問したとかいうのがそもそも嘘だろうとは思うけど、それはおいといての話。

0535デフォルトの名無しさん

2012/06/20(水) 23:31:51.21

お前ら他にすること無いのか

0536デフォルトの名無しさん

2012/06/20(水) 23:48:56.09

>>527
じゃあデュエル脳は？

0537デフォルトの名無しさん

2012/06/21(木) 01:11:18.14

本日の基地害指数：78

0538デフォルトの名無しさん

2012/06/21(木) 01:13:13.15

それは報告しなくてもいいです

0539デフォルトの名無しさん

2012/06/21(木) 02:27:45.95

フォロワー大量にいなくても数百人いたら結構すぐ返ってくるでしょ

0540デフォルトの名無しさん

2012/06/21(木) 06:00:24.19

数百人いたら十分大量だわ
わざわざ2chであんな質問してるような技術も人脈もない何の変哲もない奴が
シークレットモードでいてそんなにフォロワーつくわけないくらいバカでなけりゃすぐわかるだろ
まあバカだったらわからなくても仕方ないか

0541デフォルトの名無しさん

2012/06/21(木) 07:39:24.44

TwitterはTwitterで幸せにやってくれ。こっちくんな。

0542デフォルトの名無しさん

2012/06/21(木) 11:41:29.79

フォロワなんてIT関連で検索して出てきた奴を数百～数千人一括フォローすれば
そのうち最低でも2割程度はリフォローしてくれるから、数百人くらいすぐいくだろ。

一括フォローできることを知らない情弱なら数百人は難しいだろうけど。

0543デフォルトの名無しさん

2012/06/21(木) 12:24:54.07

>>542
そんな方法でかき集めたフォロワーに、
あんなPerlの質問をしてすぐ答を返してくれるようなのがどれくらいいるだろうねえ。
フォロワー増やしと宣伝やアフィにしか興味のない御同輩連中ばかりだろうに。

0544デフォルトの名無しさん

2012/06/21(木) 12:37:17.60

【IT】なにがプログラミング言語の存亡を分けるのか
http://anago.2ch.net/test/read.cgi/scienceplus/1340160153/

面白そうなｽｯﾄﾞﾚがあるぞ
突撃しろ

0545デフォルトの名無しさん

2012/06/21(木) 12:39:24.79

オッパッピー

0546デフォルトの名無しさん

2012/06/21(木) 13:01:03.82

PerlでFacebookアプリは作れますか？

0547デフォルトの名無しさん

2012/06/21(木) 13:08:48.31

それを知ってどうするの？

0548デフォルトの名無しさん

2012/06/21(木) 13:59:51.35

ボランティアでフェイスブックアプリを作ってフェイスブックを盛り上げてフェイスブックの収益増に貢献する

仕事が見つからなくて路頭に迷ってる奴がいるって？
知るかよｗなんでそんなゴミのためにボランティアしなきゃいけないんだよｗ

0549デフォルトの名無しさん

2012/06/21(木) 15:33:55.66

FacebookのAPI使うモジュールCPANにあるよ

0550デフォルトの名無しさん

2012/06/21(木) 16:05:34.26

CPAN脳

0551デフォルトの名無しさん

2012/06/21(木) 16:36:03.91

うんこ我慢してPerlスクリプト書いてたら危うく漏らすところだった
賛否両論あるけとPerlはやっぱり危ないね

0552デフォルトの名無しさん

2012/06/21(木) 17:54:31.49

>>549-550
アプリ作る奴がそれぞれフルスクラッチで書けと？ｗ

0553デフォルトの名無しさん

2012/06/21(木) 18:33:25.78

APIるならフルスクくらいしろや低脳

0554デフォルトの名無しさん

2012/06/21(木) 18:43:23.70

>>553の言うとおり。当然LWPも使用禁止。

0555デフォルトの名無しさん

2012/06/21(木) 18:59:51.89

perl禁止の上でperlをやれ

という禅問答とKOANにまで発展するなｗｗｗ
perlをやる方法はいくらでもある

0556デフォルトの名無しさん

2012/06/21(木) 19:24:37.77

>>437
他に正規表現使うなんて思いつかんけどな。
phpだって型を見て返すだけだぜ。
perlに敢えてそういうのがあれば、やはり型を見るコードになるだろうしさ。

0557デフォルトの名無しさん

2012/06/21(木) 19:25:45.86

いつまで引きずってんだこの馬鹿

0558デフォルトの名無しさん

2012/06/21(木) 19:56:38.17

>>556の perlに敢えてそういうのがあればは
組み込みでって話ね、一応

0559546

2012/06/21(木) 20:38:07.97

ありがとう。Facebook上で問い合わせフォーム作生しようと思ったの。

facebookの何かの機能をPerlから使いたいわけでなく、facebookのアプリのところに
出てくるアレを作りたかったの。

0560デフォルトの名無しさん

2012/06/21(木) 21:36:39.94

じゃあ最初からそう書けやゴミクズ
説明能力もないお前みたいなカスはプログラムに不向き
二度とム板に来るんじゃねぇよ池沼

0561デフォルトの名無しさん

2012/06/21(木) 22:00:32.50

>>560
必死だなｗ

0562546

2012/06/21(木) 22:07:15.15

>>560
ム板ってなんですか？説明してください

0563デフォルトの名無しさん

2012/06/21(木) 22:38:55.87

ムカツク板

0564デフォルトの名無しさん

2012/06/21(木) 22:39:29.72

ム板＝ムーニーマン丼

0565デフォルトの名無しさん

2012/06/21(木) 23:38:12.28

世の中社内のシステムとかが一風変わったユニークな面白い会社があるけど
そういうのあったら教えて
例)Google本社
勤務時間の2割を好きなことに使って良い
様々な遊戯施設
無料の社員食堂＆ジュース自販機
玩具持ち込みOK

0566デフォルトの名無しさん

2012/06/21(木) 23:48:54.40

>>546
PHPって開発スピード意外に利点あるの？
まあアプリなんか長くて数年で使わなくなるからPHPがお似合いかもな。

0567デフォルトの名無しさん

2012/06/21(木) 23:51:20.69

なんでそれ>>546に言ったんだ？

0568デフォルトの名無しさん

2012/06/22(金) 05:14:23.83

>>555
TMTOWTDI だな

0569デフォルトの名無しさん

2012/06/22(金) 09:52:49.19

s/&/&/g;
s/\;/;/g;
&と;の2つを1度だけ置換したいのですが、どのようにするのがいいでしょうか？
それぞれ置換後の文字列に含まれているので困っています。

0570デフォルトの名無しさん

2012/06/22(金) 09:54:36.19

ｲﾐﾌ

0571デフォルトの名無しさん

2012/06/22(金) 09:54:39.49

s/&/&/g;
s/\;/;/g;
でした。

0572デフォルトの名無しさん

2012/06/22(金) 10:13:45.57

>>569
ttp://ideone.com/Ivjxq

0573デフォルトの名無しさん

2012/06/22(金) 10:13:47.05

>>569-570
ここが正規表現の質問スレにでも見えたのか精神異常
そんなことも分からないｋｓに正規表現が分かるわけないよな
スレチ失せろ二度と来るな

0574デフォルトの名無しさん

2012/06/22(金) 10:17:22.00

>>569は荒らしたくてわざとスレ違いの内容を投下してるんでしょ。相手にしてる奴も荒らし。

0575デフォルトの名無しさん

2012/06/22(金) 10:24:09.57

569=ゴミ

0576デフォルトの名無しさん

2012/06/22(金) 10:24:47.28

>>572
こんな書き方があったんですか
勉強になりました
ありがとうございます

0577デフォルトの名無しさん

2012/06/22(金) 10:30:21.76

いろいろ方法はあるが、;の置換のときに否定戻り読みで直前が&のものを
除外するのが楽じゃないかな。

0578デフォルトの名無しさん

2012/06/22(金) 10:31:24.43

>>576
勉強にならなくてもいいから二度と来るなよ

0579デフォルトの名無しさん

2012/06/22(金) 10:34:01.08

このスレは少し前からスレチも分からない情報乞食を餌付けしてマジキチが住み着いちゃってるな
社会で誰にも相手にされないからここでそんなことやってるんだろうけど
スレチの話はマジで迷惑

0580デフォルトの名無しさん

2012/06/22(金) 10:38:17.57

>>573=>>574=>>575か

0581デフォルトの名無しさん

2012/06/22(金) 10:42:58.07

「私の手に余る質問は全てスレチです」
これが本音だろｗｗ

そして質問がなくなって極度に政治的な状態になれば万事OK、
能力が無くてもやっていけるｗ

0582デフォルトの名無しさん

2012/06/22(金) 10:45:03.29

>>580
違うぞ、578もたぶんそうだぞ。

0583デフォルトの名無しさん

2012/06/22(金) 10:46:26.20

>>582
すまん、>>578=>>579もそうだな

0584デフォルトの名無しさん

2012/06/22(金) 10:50:41.24

基地害が論理的な反論ができず適当に同一人物探りを始めててワラタｗ

0585デフォルトの名無しさん

2012/06/22(金) 10:55:06.88

どっちの陣営も面白いからもっと殴り合えｗ

0586デフォルトの名無しさん

2012/06/22(金) 10:59:22.03

>>569とそれに回答してるゴミカスがスレチ指摘されてファビョってるだけだろ
マジで頭狂ってるな
社会でもお前ら迷惑がられてるよ

0587デフォルトの名無しさん

2012/06/22(金) 11:00:20.01

本来の意味の正規表現でない話はここでも良いんじゃね。言語毎に処理が変わるし。
でも質問する側はそんなことわからんか。

0588デフォルトの名無しさん

2012/06/22(金) 11:03:42.47

言語側で抜け道が用意されてる可能性もあるし、質問者側にはわからんわ。

0589デフォルトの名無しさん

2012/06/22(金) 11:04:07.86

587によりこのスレはスレタイ無視でスレ違いの質問も完全にOKになりました。
フライトシミュレーターでのテクニックから南瓜の煮付けの作り方まで何でもどうぞ。

0590デフォルトの名無しさん

2012/06/22(金) 11:06:57.10

正規表現の質問するなとか言ってるヤツは
それ関係で前に散々バカにされまくったんじゃあないの？
だから正規表現関係の質問をしつこくネチネチと潰しに来てる、
擦れ違いとかを持ちだして自治を気取ってる

そういう人間がいると２ｃｈと言えど本当に掲示板が機能しなくなる

0591デフォルトの名無しさん

2012/06/22(金) 11:08:52.52

言語によって変わる場合もあるからわざわざこう書いてあるんじゃないの？

＞1:デフォルトの名無しさん :2011/12/11(日) 10:19:30.25 [sage]
＞正規表現(Regular Expression)スレです。
＞
＞質問する場合は必ず実装言語や処理系ソフトウェア名を示してください。

各言語のスレッドで質問すればいいって話なら正規表現のスレッド要らないよね

0592デフォルトの名無しさん

2012/06/22(金) 11:11:01.26

>>569は荒したくて燃料投下してるんだから言うだけ無駄。
>>569はこの荒れ具合見て笑い転げてるよ。

0593デフォルトの名無しさん

2012/06/22(金) 11:12:39.00

別に質問来てもいいが、1レスで終わる質問が100レスくらいわけのわからん流れになるから、
たぶん他で質問したほうが楽だぞ。
本当のレスを探すのも大変だぞ。

0594デフォルトの名無しさん

2012/06/22(金) 11:13:28.67

>>590
よお自治気取り
自治気取りって楽しい？

0595デフォルトの名無しさん

2012/06/22(金) 11:15:28.18

まぁ今さら2chで質問してる時点で情弱だわな
まともな思考回路ならTwitterを利用する
キチガイはブロックできるし

0596デフォルトの名無しさん

2012/06/22(金) 11:15:30.15

ま、この流れのほうがPerlスレ関係ないしメリットもないわな。

0597デフォルトの名無しさん

2012/06/22(金) 11:16:30.36

569がそうやって荒らしてるんだから仕方ないべ

0598デフォルトの名無しさん

2012/06/22(金) 11:23:01.07

正規表現はマッチングのみで、本来置換は範囲外。

0599デフォルトの名無しさん

2012/06/22(金) 11:38:21.45

そらな。置換は正規表現エンジンと関係ないしな。
ただここで質問すると意味も無く嫌な展開を巻き起こすのがいるってことだ。

0600デフォルトの名無しさん

2012/06/22(金) 11:54:35.33

本日の基地害指数：89

0601デフォルトの名無しさん

2012/06/22(金) 11:59:21.47

やっぱり正規表現でのマッチポンプはきくなｗｗｗ
全部自演なのにここまでアホが食いついてくる、
こういう程度の低いことなら参加できるﾊﾞｶが大量にいる、
そして肝心の正規表現に答えられるヤツがいねーーーんだこりゃｗｗ
ﾎﾝﾄの便所の落書きになるワケだｗｗ
便所に集うﾍﾞﾝｼﾞｮｺｳﾛｷﾞだもんｗｗｗｗ
俺様は違うけどなｗ

0602デフォルトの名無しさん

2012/06/22(金) 12:08:48.87

>>601

0603デフォルトの名無しさん

2012/06/22(金) 12:14:16.64

本日の基地害指数：90に上方修正

0604546

2012/06/22(金) 14:03:18.19

でもコードをなるべく美しくきれいにみせることを頑張るのは
いつも正規表現についてだよな。

俺のがきれい合戦みたいなやつ。

だから正規表現はいいのではないだろうか

0605デフォルトの名無しさん

2012/06/22(金) 14:13:34.52

俺も惰性でここ見てるけど質問とか回答は全部ツイッターでしかしなくなったな。
質問したときのレスポンスも格段に早いし、適当な回答する奴も少ないし、非常に便利。
一回ツイッター使ったら他できこうなんて思わない。

0606546

2012/06/22(金) 14:43:39.45

>>605
文字数制限あるし掲示板式でないからめんどくね？

0607デフォルトの名無しさん

2012/06/22(金) 14:47:27.58

そもそも2chなんてTwitterのなかった時代の遺物なんだからTwitterみたいにより便利なサービスが出てきたらそっちに移行するのは当然
古くて不便なものにしがみついてるのって老害でしょ

0608デフォルトの名無しさん

2012/06/22(金) 15:10:23.61

僕はStackOverflowちゃん

0609デフォルトの名無しさん

2012/06/22(金) 15:50:25.36

test.pl というファイルを
./test.pl
で実行しようとしても許可がありませんと出る
test.pl の実行権限は chmod 755 で与えてるのに
何で？

0610デフォルトの名無しさん

2012/06/22(金) 15:56:33.04

質問は包み隠さずに書けよ
どこのサーバだよ
まさかファーストサーバじゃねぇだろうなｗ

0611デフォルトの名無しさん

2012/06/22(金) 16:06:15.62

>>610

自分の端末上ですよ

0612デフォルトの名無しさん

2012/06/22(金) 16:09:11.54

「端末」ね
大学かどこかかよ
それともまさか会社じゃねぇだろな

0613デフォルトの名無しさん

2012/06/22(金) 16:14:01.44

ローカルです
./test.pl と
perl test.pl の違いも分からないっす

0614デフォルトの名無しさん

2012/06/22(金) 16:16:48.96

その違いも分からないゴミがプログラムかｗ
笑い者になりに来たの？ｗｗ

0615デフォルトの名無しさん

2012/06/22(金) 16:19:53.23

笑っていただけたなら幸いです

0616デフォルトの名無しさん

2012/06/22(金) 16:32:27.19

基礎知識もない低脳は教えても話が通じないんだから出ていけよ。

0617デフォルトの名無しさん

2012/06/22(金) 16:33:13.14

ls -l test.pl
whoami
head -n1 test.pl

0618デフォルトの名無しさん

2012/06/22(金) 16:46:39.73

エラーメッセージちゃんと読んでなかったです
test.pl の中でのファイル書き込みの処理のところで
怒られてました．

0619デフォルトの名無しさん

2012/06/22(金) 16:48:02.69

基礎知識はないエラーは読まないマジでクズ

0620デフォルトの名無しさん

2012/06/22(金) 16:50:29.52

エラーメッセージは人間が読むために吐いてるわけではないんだがな

0621デフォルトの名無しさん

2012/06/22(金) 18:20:10.48

配列の要素を数値と比較したい

if(array[$i][$j]==-1)
とか書きたいのだけどどうしたらいいですか

0622デフォルトの名無しさん

2012/06/22(金) 18:27:41.90

書きたきゃ勝手に書けば
配列の要素へのアクセスも知らないのかこいつ

0623デフォルトの名無しさん

2012/06/22(金) 18:29:39.06

エラーメッセージは人間が読むために吐いてるんだがな

0624デフォルトの名無しさん

2012/06/22(金) 18:31:18.33

>>621
ここは基礎から手取り足取り教える教習所じゃねえんだよゴミ。配列すら扱えないゴミは消えろ。

0625デフォルトの名無しさん

2012/06/22(金) 18:34:06.20

さすがに配列は釣りだろｗｗｗｗｗｗｗｗ

0626621

2012/06/22(金) 18:35:19.26

Twitterのほうで返信もらえたのでもういい

この質問は締め切らせていただきます

0627デフォルトの名無しさん

2012/06/22(金) 18:39:40.97

>>626
釣りでないなら、マルチすんじゃねえよと

0628621

2012/06/22(金) 18:58:48.23

>>626
偽物市ね

ほらさっさと答えろ
全く社会の役にも立たない屑以下のニート共を
少しでも人の役に立つことに使ってやろうって言ってんだよ
感謝してさっさと答えろ

0629デフォルトの名無しさん

2012/06/22(金) 19:36:11.37

>>621
if($array[$i][$j] == (-1))

http://perldoc.jp/docs/perl/5.12.1/perllol.pod

0630デフォルトの名無しさん

2012/06/22(金) 19:41:47.44

リャマ本の日本語6版7月ｷﾀｺﾚ

0631デフォルトの名無しさん

2012/06/22(金) 20:11:41.51

なんだ日本語版読んでる雑魚か。

0632デフォルトの名無しさん

2012/06/22(金) 20:17:36.37

>>613
test.plの一行目にperl本体のパスが正しく書いてあるか？
そのパスのperlは実在するか？（シンボリックリンクとかでもいいけど）

0633デフォルトの名無しさん

2012/06/22(金) 20:19:50.57

>>630
それどこ情報よー
日本語しかわからない雑魚だから教えろ

0634デフォルトの名無しさん

2012/06/22(金) 20:26:25.15

プログラミング本は絶対、翻訳版はさけたほうがいい

翻訳してる奴のレベルが低すぎて、どうしようもない

0635デフォルトの名無しさん

2012/06/22(金) 20:36:53.75

ぶっちゃけマニュアルとかも英語読むしかなくなるしな

0636デフォルトの名無しさん

2012/06/22(金) 20:40:14.76

英語を読める俺らこそ選ばれしもの！

0637デフォルトの名無しさん

2012/06/22(金) 20:42:15.32

perlを読めるオレこそが真に選ばれし勇者

0638デフォルトの名無しさん

2012/06/22(金) 20:43:34.55

はいはい英語版読める自慢はもういいから、って言い出す雑魚が沸く前に言っとくけど
英語版読めるのは特別すごい技術じゃなくて必要最低限だから

プログラムするうえでは持ってて当たり前のスキルでむしろ読めないほうが問題

パソコンのキーボード打てるかどうかとかモニタの電源を入れられるかとかもうそのレベルのスキルと呼ばないくらい当たり前のこと

読めないのはそれができないくらいの大問題

0639デフォルトの名無しさん

2012/06/22(金) 20:56:01.38

日本語読むのと同じ速度で英語読めるんだとしたらそりゃ羨ましい限りっすわ

0640デフォルトの名無しさん

2012/06/22(金) 21:13:45.91

I am a pen.

0641デフォルトの名無しさん

2012/06/22(金) 21:47:06.72

さすがに洋書と同じスピードでは読めないからな。
大事な内容の本は和洋2冊買って、言い回しが怪しいものは原典を当たる。
例えばPerlの仕様なんかで議論するときは原典の方を使うでしょ？
こういうのは使い分けできてナンボでしょーに。

0642デフォルトの名無しさん

2012/06/22(金) 21:55:23.37

お前らの熱い思いはよくわかった
俺には無理だが英語でその思いを伝えてくれ↓

0643デフォルトの名無しさん

2012/06/22(金) 22:02:35.29

I am pee.

0644デフォルトの名無しさん

2012/06/22(金) 22:05:31.10

Ignorance is the mother of impudence.

0645デフォルトの名無しさん

2012/06/22(金) 22:20:32.40

You are stupid.

0646デフォルトの名無しさん

2012/06/22(金) 22:33:48.09

>>638
I can't understand Japanese.
So you must say it in English, okay?

0647デフォルトの名無しさん

2012/06/22(金) 22:51:12.58

I love pussy of the girl.
The pussy is so funny.

0648デフォルトの名無しさん

2012/06/22(金) 23:40:33.19

>>646
ベタベタな日本人英語だな……。受験頑張れよ

0649デフォルトの名無しさん

2012/06/23(土) 00:22:57.98

「おれはコンピュータ関係は英語の本しか読まねえ（ｷﾘ」とかいうやつが、
英語でまともなレスしてるのは一度たりとも見たことがないからねえ。

こんな匿名掲示板で虚勢張っていったい何が楽しいんだか。

0650デフォルトの名無しさん

2012/06/23(土) 01:53:22.21

マニュアルは何とか読めても、英文を書いたり、フォーラムで会話したり、小説を読めるようにはならねぇって愚痴

0651デフォルトの名無しさん

2012/06/23(土) 01:54:40.02

はい

0652デフォルトの名無しさん

2012/06/23(土) 03:00:21.37

>>649
こんな匿名掲示板でしか虚勢を張れないだけだと思うよ

0653デフォルトの名無しさん

2012/06/23(土) 03:33:07.49

Twitterと2chは競合関係じゃないだろ。Twitterが便利なら使えばいいし2chが便利なら使えばいいだけの話。
カスとかゴミとか池沼とかやたら書いてる奴は、以前なんか恥ずかしいコテハンで荒らしてた奴だろ。
身バレしちゃったんで名無しに戻ったんだろ。
なんだっけあのコテハン。恥ずかしい名前って印象だけは残ってるんだけど。

0654デフォルトの名無しさん

2012/06/23(土) 04:32:39.96

>>653
自己紹介乙
そうかお前恥ずかしくてコテ外したけど忘れたのか

0655デフォルトの名無しさん

2012/06/23(土) 04:50:56.17

あぼーん用設定ファイルに残ってたわ。
Perl忍者だったな。

忍者て。

0656デフォルトの名無しさん

2012/06/23(土) 06:12:55.49

>>629
これじゃ出来ない
$array[$i][$j]と-1って==で比較出来ない

0657デフォルトの名無しさん

2012/06/23(土) 07:09:19.01

>>634
翻訳版だと、英語（というか英語圏の人）特有の
切れの良い言い回しや気の利いたジョークが
全部台無しになるからな

0658デフォルトの名無しさん

2012/06/23(土) 07:51:23.15

でも翻訳版の販売はして欲しい
翻訳版を持ってるかどうかで情弱判定できるからな
情弱に重要な仕事を渡すリスクを軽減できる

0659デフォルトの名無しさん

2012/06/23(土) 08:51:14.59

>>656
ちゃんと比較できるよー。
http://ideone.com/LlPc5

0660デフォルトの名無しさん

2012/06/23(土) 09:44:59.03

馬鹿はほっとけよ
ガチで頭悪そうだし

0661デフォルトの名無しさん

2012/06/23(土) 15:21:09.67

>>659
まじかー
じゃあ$array[$i][$j]は数値じゃないってエラー出てくるのは何だったんだ…
もっといろいろ試してみます

本当にありがとう！

0662デフォルトの名無しさん

2012/06/23(土) 15:33:27.42

>>657
ジョークと参照性のどっちが大事なんだか。

0663デフォルトの名無しさん

2012/06/23(土) 16:19:30.13

参照性なんかどっちも変わんねえよ
＋αの話してんだろ

0664デフォルトの名無しさん

2012/06/23(土) 16:21:17.19

>>661
試さなくてもいいから二度とくるな。

0665デフォルトの名無しさん

2012/06/23(土) 16:36:21.43

>>661はまたいつでもこいよ！
お前みたいなゴミが他スレ行くと迷惑だからこの隔離スレにこいよ！

0666デフォルトの名無しさん

2012/06/23(土) 17:51:19.81

>>662
心底頭悪いんだな、お前

0667デフォルトの名無しさん

2012/06/23(土) 19:16:24.86

英語が不得手じゃないなら英語版買えばいいと思うよ
俺は英語は不得手だから邦訳版を買うけど
ただ翻訳があまりにもヒドイみたいな評価がされていて
それでもどうしても必要な本だった場合は
翻訳版と原語版を両方買って
翻訳版では意味が通らないところは原語版を参照するようにするかもしれないな

0668デフォルトの名無しさん

2012/06/23(土) 20:11:51.36

意味が通らないのばヴァカでも気付くから問題ない
意味が通ってしまう誤訳やニュアンスの変化がマジヤバい

0669デフォルトの名無しさん

2012/06/23(土) 20:38:34.04

日本にもある絶滅危惧「言語」　グーグルが保護プロジェクト
2012/6/23 11:24
ttp://www.j-cast.com/mono/2012/06/23136697.html

0670デフォルトの名無しさん

2012/06/23(土) 21:30:46.71

キチガイしかいない

0671デフォルトの名無しさん

2012/06/23(土) 23:16:26.61

何か必死に荒らしたい人がいますねｗ

0672デフォルトの名無しさん

2012/06/24(日) 04:27:12.34

お前のことか。

0673546

2012/06/24(日) 04:47:41.62

デジタル放送の毒電波も解析して保存願いますグーグル先生

0674デフォルトの名無しさん

2012/06/24(日) 05:02:17.77

>>671
日本語もまともに使えない池沼？

0675デフォルトの名無しさん

2012/06/24(日) 13:41:08.72

GIGAZINE

0676デフォルトの名無しさん

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);

0677デフォルトの名無しさん

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) {
と書いていくより簡略化した方法が有りましたらご教授お願いします。

0678デフォルトの名無しさん

2012/06/24(日) 18:08:02.01

よく見たら/iじゃ駄目じゃん
そこは読み飛ばしてください

0679デフォルトの名無しさん

2012/06/24(日) 18:12:26.20

そんな瑣末なことの前に
use strict と my 使って
全部書き直せ

0680デフォルトの名無しさん

2012/06/24(日) 18:18:07.47

>>679
サブルーチン使わない単純処理だからmyいらないと思ったけどいるのかな？
初心者だからわかんね

0681デフォルトの名無しさん

2012/06/24(日) 18:20:39.55

初心者を免罪符に使うゴミは成長する見込みがないから諦めろ

0682デフォルトの名無しさん

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);

0683デフォルトの名無しさん

2012/06/24(日) 18:31:59.64

>>681
use strictは行数制限でカットしましたがこれていいですか？

0684デフォルトの名無しさん

2012/06/24(日) 18:37:36.21

ここは添削スレじゃねえんだよ。
初心者だからわかりすぇんとか言いながらコード丸投げとかマジで頭おかしいんじゃないだろうか。

0685デフォルトの名無しさん

2012/06/24(日) 18:41:03.89

頭おかしいというよりゴミ

0686デフォルトの名無しさん

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;
}

0687デフォルトの名無しさん

2012/06/24(日) 18:44:38.09

>>686
ありがとう
もう勉強して出直してきますね

0688デフォルトの名無しさん

2012/06/24(日) 18:46:45.72

よくこれだけ恥ずかしい質問とソースを投下できるもんだな、
感心するわ

0689デフォルトの名無しさん

2012/06/24(日) 18:47:31.54

>>688
照れるじゃねーか(〃▽〃)

0690デフォルトの名無しさん

2012/06/24(日) 18:52:40.54

>>688
恥知らずだからできるんだろｗｗｗ
恐らく同様の恥知らずの親に教育されたんだと思われｗｗｗｗ
>>680の親は社会のお荷物ｗｗｗｗｗｗｗ

0691デフォルトの名無しさん

2012/06/24(日) 19:12:13.71

□初心者を言い訳に使う
□プログラム丸投げ
□指摘されたら開き直る

本人は気づいてないだけで職場では消えて欲しいって本気でウザがられるタイプ
キャラがウザいとかじゃなくて存在が迷惑

0692デフォルトの名無しさん

2012/06/24(日) 19:20:45.19

異常なのはお前ら
初心者は何一つ分からない段階からの
スタートなんだからこうやって
一つ一つ質問して疑問を解決して
いくのが当たり前

0693デフォルトの名無しさん

2012/06/24(日) 19:24:11.45

黙れクズ
真のPerlハッカーが集うこのスレに初心者が気軽に質問しに来るな
ラクダ本リャマ本全部脳みそに叩き込んでから来い
本が高いなら古いのを中古で買え
(むしろ新しいのは余計な記述多いから古い版のほうが良いぜ…なにデレてんだアホか俺)

0694デフォルトの名無しさん

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/

0695デフォルトの名無しさん

2012/06/24(日) 19:37:59.82

>>690
(´･ω･`)･ω･`)　ｷｬｰ
/　　つ⊂　　＼　　怖いー

0696デフォルトの名無しさん

2012/06/24(日) 19:38:56.37

どうせ>>671が自演で荒らしてんだろ。
プログラムを弄るような奴が>>1の注意書きすら読めないほど注意力ないとかありえない。

0697デフォルトの名無しさん

2012/06/24(日) 19:41:33.78

>>696
全然違う、どんまいｗ

0698デフォルトの名無しさん

2012/06/24(日) 20:01:17.24

>>693
サンキューそうする

0699デフォルトの名無しさん

2012/06/24(日) 20:48:19.66

まあ新しいラクダ本っつーても日本語版は第3版で止まってて既に古いけどな
第4版の日本語版いつ出るんだろ？

0700デフォルトの名無しさん

2012/06/24(日) 21:43:48.25

ぼちぼち翻訳を始めるとしても早くて来年じゃないか？
リャマ本の新版が来月出るみたいだけど、訳してるの同じ人だもんな。
オラにしても今さらperl本て優先度低そうorz

0701デフォルトの名無しさん

2012/06/24(日) 22:12:45.21

リャマ6和訳来月なのか、全然初めてじゃないけど欲しくなってきたw

0702デフォルトの名無しさん

2012/06/25(月) 09:51:54.77

日本語発の英訳版ってあんまないから、普通英語版が出たら先にそれ買うだろ。
ラクダみたいな簡単なのは英語版だけで足りるけど理論書みたいのは
結構読むのかったるいので邦訳が出たら後で買うかな。
あとK&Rみたいに訳が枯れてるのは別に日本語版でいいと思う。ジョークとか
正直いらんし。

0703デフォルトの名無しさん

2012/06/25(月) 10:35:05.51

特定の分野でまとまった情報がそれしかないなら洋書を買うわさ。
日本語では断片的で信用もおけない情報しかないんだから。

言語の初心者に英語の本を買えとか全然違う話をごっちゃにすんなよ、アホウ

0704デフォルトの名無しさん

2012/06/25(月) 10:43:01.42

>>703
> 日本語では断片的で信用もおけない情報しかないんだから。

へーそうなんだー (棒)

0705デフォルトの名無しさん

2012/06/25(月) 11:09:06.33

俺はあえて本を買うならそれが日本語だっていうところにしか
価値を見出せない感じもあるなｗ
なににつけドキュメントは第一にwebにあるわけだしさ

0706デフォルトの名無しさん

2012/06/25(月) 13:16:20.78

プログラミング言語の初心者と英語の書籍が読めるかどうかは別問題
英語もまともに読めないくせにプログラミング始める時点で異常
自転車も乗れない水泳もできない奴がトライアスロンに出場するのと同じレベル

そして全て英語版のドキュメントを読めばいいと言ってるわけではない
原著が英語なら英語版を、原著が日本語なら日本語版を読むのが妥当

0707デフォルトの名無しさん

2012/06/25(月) 13:17:02.28

ウェブサイトに関しては日本語より英語のほうが文書の数は多いから英語優先で検索したほうが見つかる可能性が高い
それを日本語に限定するとか自分でハンデつけといて掲示板で分かりません教えてくださいとかマジキチ

0708デフォルトの名無しさん

2012/06/25(月) 13:24:35.92

IO::Socket::INETを利用する場合にnewをしたあと、つまりサーバーとして利用中にListenの値を変更することはできますか？

0709デフォルトの名無しさん

2012/06/25(月) 13:54:57.32

↑なんでこのゴミは試してみないの？
試せないほど頭悪いの？

0710デフォルトの名無しさん

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％安価な
価格設定で正式サービスを開始する予定です。

0711デフォルトの名無しさん

2012/06/25(月) 20:33:33.24

>>709
いつもみたいに50レスひとりでやんなさいよ
周りの同調を期待してみたところでミジメなだけやから

0712デフォルトの名無しさん

2012/06/25(月) 20:46:36.61

>>711
この人どうしたの？

0713デフォルトの名無しさん

2012/06/25(月) 20:52:39.86

荒らしは放置で。

0714デフォルトの名無しさん

2012/06/25(月) 20:55:09.03

711は何をやれって言ってるんだろうな

0715デフォルトの名無しさん

2012/06/25(月) 21:10:26.97

>>711
お前は何でいつもみたいに一人で50レスしないの？
同調を期待してるそのレスがあまりにみじめに見えて同情するレベルなんだけど
自分ではみじめだって気付かないのかな？ｗ

0716デフォルトの名無しさん

2012/06/25(月) 21:19:52.48

>>712-715
ﾌﾟｗ

0717デフォルトの名無しさん

2012/06/25(月) 21:21:16.07

辛いことでもあったんだろ

0718デフォルトの名無しさん

2012/06/25(月) 21:23:45.73

１人で５０レスってどっから出てきたんだ？

0719デフォルトの名無しさん

2012/06/25(月) 21:29:04.97

俺はインターネット歴10年だから全ての書き込みはその文体や内容の傾向から識別できる
脳波や精神エネルギーが神経を通ってタイピングに表れるからその波長の違いを見分けられる
だからこの間書き込みを見てたら50レス連続して書き込んでいる奴がいるのが見えた
それが>>709

0720デフォルトの名無しさん

2012/06/25(月) 22:34:31.19

顔真っ赤にして50レスに反応してる奴が若干名いるな

0721デフォルトの名無しさん

2012/06/25(月) 23:40:44.41

オライリーの本で和訳されたもののうち、
私が分かり易く読みやすいと感じた本は殆ど無い。
予備知識があれば少し読みやすくなるが、それでもなお理解しにくい。

0722デフォルトの名無しさん

2012/06/25(月) 23:46:58.28

結論：日本語側類

0723デフォルトの名無しさん

2012/06/26(火) 00:48:52.40

そりゃそうだろ
翻訳なんて伝言ゲームと同じだよ

0724デフォルトの名無しさん

2012/06/26(火) 01:19:29.54

それは翻訳が悪いせいなのか
頭が悪いせいなのか
どっちだろう

と昔は悩んだものだ

0725546

2012/06/26(火) 02:06:05.58

>>724
本になるくらいだからと下しか疑わなかったあの頃

0726デフォルトの名無しさん

2012/06/26(火) 04:56:02.43

1人で50レスとか言ってる香具師の妄想力には恐れ入る

0727デフォルトの名無しさん

2012/06/26(火) 06:21:06.25

まったくだ。せいぜい1人10～20レスくらいだよな。×2～3人か?

0728デフォルトの名無しさん

2012/06/26(火) 08:40:09.12

まあこのスレには>>726と同じ種類のバカは多いな。正直と素直だけが取り柄みたいな

0729デフォルトの名無しさん

2012/06/26(火) 09:32:31.45

正直も素直も立派な美徳だ。

0730デフォルトの名無しさん

2012/06/26(火) 11:30:36.09

自分が50レスするくらい暇だから他人もそうだと思ったんじゃね？

0731デフォルトの名無しさん

2012/06/26(火) 17:02:42.88

落ち着いてるところを何でわざわざ煽ったのかが疑問。
6時間近く静かだったのに。

0732デフォルトの名無しさん

2012/06/26(火) 17:25:32.95

生保もらってる奴がいるのに増税とかもうね

生保受給者0にしてからやれや

0733デフォルトの名無しさん

2012/06/26(火) 17:30:05.31

>>731はどうしてわざわざ蒸し返したのかねえ。
6時間近く静かだったのに。

0734デフォルトの名無しさん

2012/06/26(火) 17:36:07.25

生活保護受けてる在日が勝ち組ということだ

0735デフォルトの名無しさん

2012/06/26(火) 17:39:09.37

>>733
おうむ返し乙ｗ

0736デフォルトの名無しさん

2012/06/26(火) 18:01:35.22

え？増税決まったの？

0737デフォルトの名無しさん

2012/06/26(火) 18:05:55.46

増税で増えた税収は
去年みたいに5兆円単位で半島に送ります＾＾
半島人のためにみなさんどんどん買い物して消費税を納めてくださいね＾＾

0738デフォルトの名無しさん

2012/06/26(火) 22:24:11.17

あんな初級のホイホイにひっかかってくるバカは、間違いなくこれまでその50ﾚｽに加担してきている。
右へならえのお仲間を確認できてよかったね（・∀・）ﾆﾔﾆﾔ

0739デフォルトの名無しさん

2012/06/27(水) 11:38:11.80

Perlには4GBの見えない壁がある

0740デフォルトの名無しさん

2012/06/27(水) 14:21:26.58

DBのデータを利用するCGIを置くときにHTTP鯖とDB鯖を物理的に分けたら
HTTP鯖とDB鯖間の通信がボトルネックになったりするかね？
HTTP鯖とDB鯖間の帯域は十分に確保されてるとして
そのコネクションの確立やらオーバーヘッド的な意味で

0741546

2012/06/27(水) 15:19:45.79

>>740
そこがボトルネックになるほどの大量のデータをやりとりするんならなる。

0742デフォルトの名無しさん

2012/06/27(水) 16:39:14.12

コネクションを維持しとけば済む話。

0743546

2012/06/27(水) 17:43:04.97

キューイングすればいいというのもあるな

0744デフォルトの名無しさん

2012/06/27(水) 18:15:13.01

馬鹿がおめ
Perlには4GBの壁があるから無理

0745デフォルトの名無しさん

2012/06/27(水) 20:15:57.59

>>744=ゴミ

0746デフォルトの名無しさん

2012/06/27(水) 22:16:02.25

>>744
>>739で相手にされなかったからって
そんなに顔真っ赤になるなよ低脳クン
で、相手してもらえてうれしいか？

0747デフォルトの名無しさん

2012/06/27(水) 23:07:09.73

質問しようと思ったのですが何かここ怖いので他所で質問しますね。

0748デフォルトの名無しさん

2012/06/27(水) 23:13:47.86

このスレは質問スレでした。しかしそれは既に過去のことです。

0749デフォルトの名無しさん

2012/06/27(水) 23:39:46.08

病気持ちが湧いてるなｗ

0750デフォルトの名無しさん

2012/06/27(水) 23:47:35.53

みんなスルーする中>>746が見事に釣られてる件

0751デフォルトの名無しさん

2012/06/28(木) 05:59:43.44

>>750=>>744=>>739
よかったなオイ

0752デフォルトの名無しさん

2012/06/28(木) 08:06:16.55

TDDに関心はあるのだが、どう始めていいものやらさっぱりわからぬ。
趣味のコーディングしかしていないんで切実さも足りないのかもしれんが。
やはりまずは参考書を通して読んでみるべきかのう。

0753デフォルトの名無しさん

2012/06/28(木) 14:19:50.70

このスレはいつからキモい奴が常駐するようになったの？

0754デフォルトの名無しさん

2012/06/28(木) 14:57:08.67

うるさいゴミ

0755デフォルトの名無しさん

2012/06/28(木) 15:36:56.89

妄想でレス番をイコールでつないで喜んでる基地害ってどこから来たんだろう。

0756デフォルトの名無しさん

2012/06/28(木) 15:39:40.84

全然関係ないけど、
配列の中に未定義値があるといちいち警告出てうざくなって、
まとめて空白文字にする関数作ったら、
一行になってしまって関数化するべきかどうか悩ましくなったの巻。

0757デフォルトの名無しさん

2012/06/28(木) 16:13:24.48

全部一行にしてやったぜぇ～
ワイルドだろぉ～

0758デフォルトの名無しさん

2012/06/28(木) 17:21:30.56

けんしろう「お前の頭髪の毛根はすでに氏んでいる」

0759デフォルトの名無しさん

2012/06/28(木) 20:11:50.30

自分の鯖でデータ量はそんなに多くないファイルを読み込んで
データを加工して書き込むperlのプログラム作ってF５連打したらCPU使用率がすぐに１００％まで行ったけど
perlってそんなに負荷かかるの？

0760デフォルトの名無しさん

2012/06/28(木) 20:13:49.86

処理量によるだろ、マジで馬鹿かお前。
ありえねｗ

0761デフォルトの名無しさん

2012/06/28(木) 20:18:43.42

こういうアホを避けるためにわざわざ
>>1のﾃﾝﾌﾟﾗに
(CGI 以外の)純粋にPerlのみ
って書いてあるのにな

テンプレも読めないようなアホは一年ROMれよクズカスゴミ
二度とPCに触るな
スクリプトも書くな
こういうヴァカが鯖のデータを飛ばすんだよ

0762デフォルトの名無しさん

2012/06/28(木) 20:25:47.15

＼　　　　　　／　　／. : : : : : : : :ヽ-‐.: :_;. ---　.._: : : : : : : :＼　　　　　　　＼　　　　　　／
＿　争　　も　　＿　　 /,　-‐＝=ミ: : : : _,ｨﾆ-‐……ｰ-: ､｀ヽ、: : : : ヽ、　　　＿　　　争　　＿
＿　え　　っ　　＿　　 . .:´: : : : : : : ≠:7: : : : : : : : : : : : :ヽ、ヽ| : i : : :,　　　＿　　　え　　＿
＿　：　.　と　＿　／.: : : : -‐: :7´: : /:,ﾊ : : : :ヽ : : : ゝ-- :＼ | : :! : : : ,　　　＿　　　：　　＿
＿　　：　　　　　＿　/, -‐／.: : : : :ｉ : : /ィ:爪: : :＼ :＼ : : :＼: : :｀ト : !: : : :′ 　＿　　　：　　＿
　　　　　　　　　　〃　 /. : : : : : : |.:イ :ハ:|　＼: .､＼: : xｨ￢ト､: :| : : ! : : : : :,
／　　　　　　＼　　 /.: :/.: : : : /ｌ : |/Гト､　　　　 /　|_,ノ0:::ヽ : : :i : : : : :′　／　　　　＼
　／　 |　　|　　＼　　 | .:/.:/. : : :i: i : |　|ノ0:::ﾄ　::::::::::::: 　 |: :∩::::::ﾄ: : : !: : : : : : :,　　／　|　|　＼
　　　　　　　　　　　　　∨ｉ: |: : : : |: :ヽ|　|::∩::|　::::::::::::::::　 !.::∪::::::| |: : :i : : : : : : ′　　　　　　　　　　 ,ｨ　/〉
　　　　　　　　　　　　　　 |: |: : i : :', : |　 |::∪::|　::::::::::::::::　 !: : : : : :|｜: : i : : : : : : : :,　　　　　　　　　　/ レ厶イ
　　　　　　　　　　　　　ヽﾊ: : :､: :ヽ|　 l : : : |::::: 　,　　::::└――┘ ! : : i : : : : : : : ′　　　　　　　　/　　 ⊂ﾆ､
　　　　　　　　　　　　　　　い、: :＼/ 　￣￣　　　　　　　　　　 ', : : i : : : : : : : : ,　　　　 _, -‐'　　 ⊂ニ,´
　　　　r ､　 _　　　　　　　　　　ヽ: :〈　　　　　　　 <　￣フ　　　　 |: : : ! : : : : : : : :′,.-‐T　　　_,. -‐'´￣
　　くヾ;　U｜　　　　　　　　　　 | : ＼　　　　　　　　　　　　　／| : : :i : : : : :_, -‐'　　 |　／
　　ｒ―'　　　ヽ、　　　　　　 | : : : ＼　　　　　　　　　　　イ: : :| : : :i_,. -‐　　　　　　 |／
　　｀つ　＿　　￣￣Τ`ー―-- L: : : : : ｀: : . . .　 _＿　　 .:〔: : :|: : :r┬'　　　　　　　 |

0763デフォルトの名無しさん

2012/06/28(木) 20:52:31.79

>>759
数値一切出さずに重いとか判断できるのかボンクラパーかおめここはオメーの来る場所じゃねーんだわかるか？

0764デフォルトの名無しさん

2012/06/28(木) 20:55:49.84

>>752
http://perldoc.jp/docs/modules/Test-Simple-0.47/Tutorial.pod

0765デフォルトの名無しさん

2012/06/29(金) 05:53:34.10

パールってどういう意味？

0766デフォルトの名無しさん

2012/06/29(金) 06:07:52.26

>>765
ttp://ja.wikipedia.org/wiki/Perl

0767デフォルトの名無しさん

2012/06/29(金) 12:52:05.00

このスレ、ネットでしか粋がれないクズばっかりだな

0768デフォルトの名無しさん

2012/06/29(金) 13:26:16.60

お前の書き込みがそれを証明してるな

0769デフォルトの名無しさん

2012/06/29(金) 13:56:48.98

>>767=>>765
どした坊主？

0770デフォルトの名無しさん

2012/06/29(金) 14:02:58.55

>>767
それが2chですから。
実力ある人はとっくにツイッターへいってます。

0771デフォルトの名無しさん

2012/06/29(金) 14:26:30.16

実力のない初心者でもまともにやりたい人はTwitter行ってる

0772デフォルトの名無しさん

2012/06/29(金) 14:34:55.08

適当にレス番号をイコールで結んで喜んでる基地害はコテ付けてくれればいいのにな。
コテが付けてるぶんQZのほうが遥かにマシ。
まぁ他人に構ってもらいたくて必死なんだからコテなんて付けないだろうな、
あぼーんされたら見てもらえなくなるし。

0773デフォルトの名無しさん

2012/06/29(金) 16:12:28.82

>>770=>>771=>>772

0774デフォルトの名無しさん

2012/06/29(金) 20:27:10.29

>>762

0775デフォルトの名無しさん

2012/06/29(金) 23:07:31.65

Perlって何て読むの？
ぺるる？
ぺるるとか変な名前の言語とか使ってるとかﾀﾞｯｾｗ
ぺるるｗ

0776デフォルトの名無しさん

2012/06/29(金) 23:15:59.26

ラリー・ウォールの発音によると「ぺるる」よりは「ぽおぅ」の方が近いと
思います。ぺるると読む775さんは本当にダサいですね。ぺるるｗ

0777デフォルトの名無しさん

2012/06/29(金) 23:28:00.15

誰も考えていない新しい読み方を創造した点だけは褒めてつかわす

0778デフォルトの名無しさん

2012/06/29(金) 23:36:16.80

ぺるるかわいいよぺるるｒ

0779デフォルトの名無しさん

2012/06/29(金) 23:37:36.25

玄人はぽおぅ。
うちの会社みんな日本人だけど
皆ぽおぅって読んでる。

0780デフォルトの名無しさん

2012/06/29(金) 23:55:51.45

でもバージョンはごーてんじゅーろくてんぜろとか言ってるんでしょう

0781デフォルトの名無しさん

2012/06/30(土) 00:09:13.90

バージョン？

0782デフォルトの名無しさん

2012/06/30(土) 00:59:38.38

いんや、分かる者どうしなら「ごーいちろく」で十分通じるよ。
それと「ごーにぃに」って言ったら ActivePerl Build 522 のこと
だから覚えておくとぃぃyo。

0783デフォルトの名無しさん

2012/06/30(土) 02:15:08.39

うわぁ・・そういう数字だけで伝わるとかヲタの世界みたいで気持ちわりい
アニヲタも十分キモいけどそれもまた別のキモさがある

0784デフォルトの名無しさん

2012/06/30(土) 03:18:05.95

略称や型番で通じるつうとヲタしか連想できないやつキモイ

0785デフォルトの名無しさん

2012/06/30(土) 06:48:54.47

5.16.0なんて使うのはこういうキモヲタしかいません(ｷﾘｯ
まともな神経を持っている人間は5.6を使います(ｷﾘﾘｯ

0786デフォルトの名無しさん

2012/06/30(土) 07:50:43.23

まともな神経かどうかはわからんが
フツーの奴はそこにあるやつを使うだけでバージョンとかあまり気にしてないんじゃね?
Perlの細かいバージョンの違いで動きが変わるようなコーディングもしてないだろうし
うちは今見たらcygwinでは5.10.1、debianでは5.10.0、レンサバでは5.8.9だった

0787546

2012/06/30(土) 08:03:27.16

数字で言われてもわからない。ペンギンさんとかパンダさんみたいにネーミングし

0788デフォルトの名無しさん

2012/06/30(土) 09:12:51.65

ぐーぐるが、ペンギンやパンダのイメージを悪くした。
この罪は重い。

0789デフォルトの名無しさん

2012/06/30(土) 09:15:15.14

>>787
Macみたいな？

0790デフォルトの名無しさん

2012/06/30(土) 09:32:50.22

>>788
そう思ってるのは底辺アフィ屋だけ

0791デフォルトの名無しさん

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？

何処にも入れた引数見つからなくて泣きそう…

0792デフォルトの名無しさん

2012/06/30(土) 12:20:28.21

CGIとプログラムの区別をだな。
動いてるのはCGIだから、環境変数を参照しときなさい。

0793デフォルトの名無しさん

2012/06/30(土) 12:22:22.79

適当ですまん
CGI.pm使ってるなら
perl -d hoge.cgi "hage=hige&mage=1,2,3"
とか？

0794デフォルトの名無しさん

2012/06/30(土) 12:24:25.40

答えるなよアホクズ野郎
>>1のテンプレも読めないヴァカヴァカがいるのかよ
恥ずかしいな全く
じがいしろよ

0795デフォルトの名無しさん

2012/06/30(土) 13:10:30.27

>>791
お前本当に人間のクズだと思うよ

0796デフォルトの名無しさん

2012/06/30(土) 13:51:38.86

なんかきたぞｗ

0797デフォルトの名無しさん

2012/06/30(土) 15:13:01.55

>791みたいに簡単な検索もできない
質問スレの注意書も読めないってまじで頭おかしいと思う。
親がDQNでまともな教育受けてないんだろうな。

0798デフォルトの名無しさん

2012/06/30(土) 15:46:47.47

hogeとか使ってる時点でマジキチじゃんｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
一目で分かるｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

0799デフォルトの名無しさん

2012/06/30(土) 16:07:36.09

また沸いたなぁ。まースルーすっか。

>>791
自分でソケット開くなりなんなりせずにCGIを使った以上、http通信はしてないからな。
よって引数もプログラムに対しての引数じゃないからな。

CGIがなにか分からずにCGIでプログラムを起動させないほうがいい。
どんな環境でプログラムが動いてるのかは環境変数でもみとくといい。
きっとCGIがなんかの引数を受け取った環境で動いてるだろうよ。
あとここはPerlスレ。cgiはWebProgと言う板があるぞ。

0800デフォルトの名無しさん

2012/06/30(土) 16:10:00.72

http通信はしていない以上
ウェブアプリじゃないだろ。

だからここであってる

0801デフォルトの名無しさん

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.

0802デフォルトの名無しさん

2012/06/30(土) 16:25:37.35

cgiじゃないなら何で拡張子がcgiになってるの？
慣例無視の適当拡張子？
慣例無視するなら拡張子はgomiにしとけよ
そうすればいちいち開かなくてもファイル名見ただけで>>791の作ったゴミって分かるから
サクサク削除できて楽

0803デフォルトの名無しさん

2012/06/30(土) 16:27:17.63

例えCGIでもコマンドラインで実行することにすれば許されるのがこちらのスレッドになります。

0804デフォルトの名無しさん

2012/06/30(土) 16:28:57.09

はいはい、plにしとけば問題ないね。問題ない。

perl -d hoge.pl hage=hige mage=1,2,3

0805デフォルトの名無しさん

2012/06/30(土) 16:30:06.64

そもそも、コマンドラインプログラムと
ウェブアプリで違いなんて殆ど無いんだから
分けること自体がおかしい。

0806デフォルトの名無しさん

2012/06/30(土) 16:32:50.55

803:デフォルトの名無しさん :2012/06/30(土) 16:27:17.63 [sage]
例えCGIでもコマンドラインで実行することにすれば許されるのがこちらのスレッドになります。

0807デフォルトの名無しさん

2012/06/30(土) 16:40:30.10

>>805
ここは一緒にするスレじゃねーんだよｋｓわかるか？
嫌なら次スレでテンプレ変えるか自分で一緒にするスレ立てろやｋｓ

0808デフォルトの名無しさん

2012/06/30(土) 16:41:43.85

>>805
perlに関係ない質問とアホみたいに低レベルな質問を避けるためにわけてるんだよｋｓ

0809デフォルトの名無しさん

2012/06/30(土) 16:42:34.72

まーそれでもいいよ。

0810791

2012/06/30(土) 16:48:51.48

あれ？
まだやってたんですか？ｗ

もうとっくにTwitterのほうでリプもらってるので大丈夫です
ご苦労様でした

0811デフォルトの名無しさん

2012/06/30(土) 16:53:56.61

「CGIはスレ違い」で発狂＆質問者になりすまし
毎回同じやり口だな

0812デフォルトの名無しさん

2012/06/30(土) 16:54:00.20

>>805
CGIスレにも書いてこいよバーカ

0813デフォルトの名無しさん

2012/06/30(土) 16:55:09.87

ちょっとからかうと
すぐ発狂で、ここの奴らは面白いｗ

0814デフォルトの名無しさん

2012/06/30(土) 16:59:17.26

「からかう」にしては随分と必死に噛み付いてるよね

0815デフォルトの名無しさん

2012/06/30(土) 17:00:03.28

CGIはスレ違いと言われて反論できず発狂認定しかできない>>811が発狂してるのはこのスレだときいて飛んできました

0816デフォルトの名無しさん

2012/06/30(土) 17:00:41.26

発狂してるのはひとりに見えたが・・・

0817デフォルトの名無しさん

2012/06/30(土) 17:01:51.26

そもそもここまで全部俺の自演だし

0818デフォルトの名無しさん

2012/06/30(土) 17:02:18.05

発狂してるのは>>811=>>813ただ一人。

0819デフォルトの名無しさん

2012/06/30(土) 17:04:03.23

本当に質問者に成り済ましてるのならいいけどな
本当に成り済ましならなｗ

0820デフォルトの名無しさん

2012/06/30(土) 17:09:56.46

そもそもhogeとか使うのが荒れる原因

0821デフォルトの名無しさん

2012/06/30(土) 17:12:59.55

ちがうぞ、話題がなくなって過疎くなると荒れるんだ。
このスレに限らずな。
ここだと数年前は一時間もしたら質問がいくつかきてて荒れてる場合じゃなかった的な。

0822デフォルトの名無しさん

2012/06/30(土) 17:18:31.09

そんなに過疎ならもういらないだろ
老害が住み着いてるだけだし

0823デフォルトの名無しさん

2012/06/30(土) 17:25:04.77

>>791
>>1
> CGI についての質問は板違いです。WEB プログラミング板でどうぞ。

Perlコーディング初心者質問スレ Part 63
http://kohada.2ch.net/test/read.cgi/php/1315559509/

0824デフォルトの名無しさん

2012/06/30(土) 17:56:54.62

これからの時代、hogeよりmogeだよな

0825デフォルトの名無しさん

2012/06/30(土) 18:27:28.89

質問に答えられない最も都合がいい言い訳＝「CGIはスレ違い」

0826デフォルトの名無しさん

2012/06/30(土) 18:40:35.66

>>825
まあ、板ルールだし。
http://toro.2ch.net/tech/head.txt
> CGI は Web プログラミング板へ。

0827546

2012/06/30(土) 18:58:57.59

どっちでもないならどっちでもいけるWebサイト製作スレにでも
いったらどうだろうか。

多分専門じゃないからってなるだろうけど

0828デフォルトの名無しさん

2012/06/30(土) 19:52:30.68

スレ違いの質問してスレ違いを指摘されたらそいつの無能を認定してよいのがこちらのスレッドになります
Bグルから性の悩み、ペットの躾からスノボまで何でもOKなのがこちらのスレッドになります

その際>>825のテンプレを使用すると良いでしょう

0829デフォルトの名無しさん

2012/06/30(土) 20:05:38.11

Perlについての質問です。
Perlを使っているとここの人たちみたいに精神病を患うのですか？
ご教示ください。

0830デフォルトの名無しさん

2012/06/30(土) 20:57:42.34

>>829
つまらん
はい次

0831デフォルトの名無しさん

2012/06/30(土) 21:19:19.18

>>830の面白い質問に期待↓

0832デフォルトの名無しさん

2012/06/30(土) 21:38:11.68

>>830の書き込みが超絶につまらない件について

0833デフォルトの名無しさん

2012/06/30(土) 21:45:11.66

>>830
クソワラタｗｗｗ

0834デフォルトの名無しさん

2012/07/01(日) 05:34:20.64

print map {$_*$_} grep {2<$_ and $_<5} 1..5;

0835デフォルトの名無しさん

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);

0836デフォルトの名無しさん

2012/07/01(日) 12:17:51.22

>>824
中国嫁日記か

0837デフォルトの名無しさん

2012/07/01(日) 16:05:10.35

XPでactiveperlで、unlinkでファイルを削除しようとしても、
フルパスが256文字あたりを超えてると無視される
どうすれば

0838デフォルトの名無しさん

2012/07/01(日) 16:28:21.74

>>837
今フルパス261文字のファイルで試したら
unlinkで普通に削除できたよ

0839838

2012/07/01(日) 16:29:29.22

違った、259文字だったorz

0840デフォルトの名無しさん

2012/07/01(日) 16:31:10.72

ここにはマジで馬鹿しかいないのか？

0841デフォルトの名無しさん

2012/07/01(日) 16:32:11.84

確か漢字は3文字分でいいんだよね？

0842デフォルトの名無しさん

2012/07/01(日) 16:34:21.63

dos呼んで8.3ファイル名で消せば良いんでないの

0843デフォルトの名無しさん

2012/07/01(日) 17:21:04.45

>>837
途中のディレクトリを短い名前に変更して全体の長さを縮める。

0844デフォルトの名無しさん

2012/07/01(日) 17:55:06.45

chdir でそのパスに移動すれば、unlink で指定するパスを短くできる

0845デフォルトの名無しさん

2012/07/01(日) 18:16:19.15

readdirで長いファイル名があると、エラーで終了するしな
ActivePerlのそのへんの弱点を補うモジュールとか無いのか
普通にバグのレベルなのに

0846デフォルトの名無しさん

2012/07/01(日) 19:12:35.31

readdir なんて使うからだろ
`dir` ならそんなくだらない問題に悩まなくて済む

0847デフォルトの名無しさん

2012/07/01(日) 19:20:29.14

何で言語ありきで語ってるんだろうなこの基地害共は
目的に応じて言語を選ぶのがまず最初な
目的が達成できないなら言語を変更する

基本以前のレベル
頭悪すぎｗｗｗｗｗ

0848デフォルトの名無しさん

2012/07/01(日) 19:25:58.93

とある一点を超えるとそのシステムが通常動作しなくなる、異常系が発露する、
そっちの方の追及も大事でしゅ

0849デフォルトの名無しさん

2012/07/01(日) 21:05:45.62

追及はマニア同士でやってろよ
なんか完成させたいんじゃなかったの？暇だから追及したかっただけなの？
それとも単に頭が悪いだけなの？

0850デフォルトの名無しさん

2012/07/01(日) 21:10:47.10

だからマニア同士でやってるじゃあないかｗｗｗ

そして「完成」ちゅーのは
perlの完成に他ならない　だろｗ
重箱の隅々までキレイ完璧にしたいんだよｗｗｗｗ

んでもって目的がソレなんだよｗ
わかってﾁｮｰﾀﾞｲねｗｗｗｗｗ

0851デフォルトの名無しさん

2012/07/01(日) 21:12:37.94

馬鹿がおめ
追及も何もバグだろｋｓ自分でモジュールでも作って対応しとけやゴミ

0852デフォルトの名無しさん

2012/07/01(日) 21:17:38.86

モジュールも作れない雑魚がプログラマ気取ってここに出入りするからこういうことになるんだろうな。

0853デフォルトの名無しさん

2012/07/01(日) 21:21:23.13

>>850
$ export PERL5OPT="-Mstrict -Mwarnings"
した程度で、
$ perldoc perl
したらエラーが出てドキュメントが読めない様な
言語に何を求めてんだ？

0854デフォルトの名無しさん

2012/07/01(日) 21:22:36.60

バーカ

0855デフォルトの名無しさん

2012/07/01(日) 21:49:59.15

シェバング行を解さないシェル向けの行を、
スクリプトとして実行しないように避けるトラップに引っかかってるんだな。
Windows環境では問題ないから不思議に思った。

http://perldoc.jp/docs/perl/5.10.0/perlrun.pod

0856デフォルトの名無しさん

2012/07/01(日) 22:09:15.72

Bカスカードって何種類かあるけど
普通の地デジ用は
民放用と、民放+NHK用に分けて欲しかったな

それでNHK受信料は、民放+NHK用使ってる奴から取ればいいだろ
そうすれば見てる奴だけから確実に取れるし見てない奴から金を取るなんて迷惑なことも起きないだろ

0857デフォルトの名無しさん

2012/07/01(日) 22:17:24.42

b-casは利権の塊だから無理。

0858デフォルトの名無しさん

2012/07/01(日) 23:30:28.73

>>840
お前が筆頭だな
話について来れないのなら黙ってろ

0859デフォルトの名無しさん

2012/07/01(日) 23:40:13.24

地デジ対応テレビとかも全部bcas入れるところあんの？

0860デフォルトの名無しさん

2012/07/02(月) 00:29:42.39

これくらいのことでモジュールなんか作ってたらきりがないぞ

@file = split(/\n/,`dir /b *.* 2>NUL`);

0861デフォルトの名無しさん

2012/07/02(月) 00:44:38.22

>>860
そうは思わないな。

使い捨てスクリプトならどうでもいいけど、
コメントが必要となるもの、これはどういう意味と数秒考えるぐらいなら
モジュールにした方がいい。

0862デフォルトの名無しさん

2012/07/02(月) 00:51:38.07

モジュールを作るってことはファイル名をつけるってことに
なって、XPでactiveperlで、unlinkでファイルを削除しよう
としても、フルパスが256文字あたりを超えてると無視される
どうすれば

0863デフォルトの名無しさん

2012/07/02(月) 00:53:36.00

>>862
バカは黙ってろ

0864デフォルトの名無しさん

2012/07/02(月) 01:05:35.23

本日のヴァカ入りました～　→　>>862

0865デフォルトの名無しさん

2012/07/02(月) 01:06:45.59

コメントが必要なのか？
どういう意味と数秒考えるのか？
１行で書けているものをモジュール化して、使うときに
何行も記述しなければならなくなって、本当に楽なのか？
モジュールの依存関係ができてしまってかえって手間が
かかることにならないのか？
困っていることは実はPerlとは無関係ではないのか？

NTFS ファイルシステム上のファイルまたはフォルダを削除できない
ttp://support.microsoft.com/kb/320081/ja

0866デフォルトの名無しさん

2012/07/02(月) 01:10:46.66

本日の基地害指数：89

0867デフォルトの名無しさん

2012/07/02(月) 01:13:20.47

>>865
あぁ、それはね。
モジュール化していると修正が一箇所ですむようになるんだよ。

一行かどうかは問題ではなく、
そこにどれだけの情報量が含まれているか。

\nだけでいいのか？ \r\nは？ /bとは？ 2>でいいのか？
OSが違ったら？シェルが違っていたら？

もう少し経験積めばわかるようになるよ。

0868デフォルトの名無しさん

2012/07/02(月) 01:18:28.51

ならねーよｗ

0869デフォルトの名無しさん

2012/07/02(月) 01:20:05.72

本日のモジュール厨指数：9.5

0870デフォルトの名無しさん

2012/07/02(月) 01:32:00.34

モジュールにしたからといって修正箇所が一箇所になるわけじゃないよね？
意味が分からない可能性大な気がするけど

0871デフォルトの名無しさん

2012/07/02(月) 01:35:23.18

ん？

あちこちで、なんども
@file = split(/\n/,`dir /b *.* 2>NUL`);
って書いていたら、将来他のOSにも対応しようとした時、

何箇所も修正する必要があるでしょ？

0872デフォルトの名無しさん

2012/07/02(月) 01:39:35.87

そのモジュールが他のOSに対応してなかったら、そのモジュール使ってる箇所全部修正する必要があるし
あんまりモジュールがどうとか関係ない

0873デフォルトの名無しさん

2012/07/02(月) 01:41:44.54

はぁ？モジュールを作るって話なんだから、
モジュールの中身を修正すればいいだけじゃん。

0874デフォルトの名無しさん

2012/07/02(月) 01:50:04.61

やっぱり分かってないね、別にいいけどね

0875デフォルトの名無しさん

2012/07/02(月) 01:51:39.32

反論しないの？

0876デフォルトの名無しさん

2012/07/02(月) 01:51:40.34

頭悪いくせに無理に議論しようして首突っ込むから話が進まないんだろ
それかモジュールを作れないor作るのが苦手な低脳が自己暗示のために書き込んでるとか？

どっちにしてもバカはマジで迷惑だから黙ってろ

0877デフォルトの名無しさん

2012/07/02(月) 01:53:01.34

ゴミみたいな書き込みしかないな
ゴミと見分けがつかなくて一瞬焦ったぜｗ

0878デフォルトの名無しさん

2012/07/02(月) 01:53:50.72

1をONEと定義して分かりやすくなったとかいう件

0879デフォルトの名無しさん

2012/07/02(月) 01:59:10.64

誰もそんな話はしてないがｗ　やっぱ馬鹿だよな。

0880デフォルトの名無しさん

2012/07/02(月) 01:59:33.94

#define MYID 1と定義すれば2に変更しなければならないとき一ヶ所ですむ件

0881デフォルトの名無しさん

2012/07/02(月) 03:57:14.39

さっきから議論を引っ掻き回してるマジキチは自分で馬鹿ツイートしてる自覚はあるの？
それともDQN親に育てられた精神異常だから心の底から正常だと思ってる？

0882デフォルトの名無しさん

2012/07/02(月) 04:06:28.38

>>881
お前のレスがどうでもいい

0883デフォルトの名無しさん

2012/07/02(月) 06:42:09.31

所詮週末厨だからな
馬鹿だの基地外だの言ってる奴は
心底どうでもいい

0884デフォルトの名無しさん

2012/07/02(月) 12:47:57.95

どうでもいいと言いつつレスせずにはいられない奴がいるなｗ

0885デフォルトの名無しさん

2012/07/02(月) 12:56:31.38

↑

0886デフォルトの名無しさん

2012/07/02(月) 13:46:12.30

0887デフォルトの名無しさん

2012/07/02(月) 14:31:25.93

>>883
お前の存在のほうがどうでもいい

・・・わけないじゃんｗ
お前の存在は社会にとって迷惑ｗ

0888デフォルトの名無しさん

2012/07/02(月) 16:01:17.29

寝てる間にホモに犯されると起きたときケツの穴が痛いらしいぜ

0889デフォルトの名無しさん

2012/07/02(月) 18:16:09.52

女の子48人分の痰が入った「痰痰麺」が新発売

0890デフォルトの名無しさん

2012/07/02(月) 19:04:10.32

質問しようと思ったのですが
最新50レス見てもキモいレスしかなかったので
他で質問しますね。

0891デフォルトの名無しさん

2012/07/02(月) 20:10:24.65

へべぇｗｗ
おまぇが一番キショいよｗｗ
もう来るんじゃネーーーーーーーーーーーーーーーーーーーーーーゾ
クソだれやｒおうう

0892デフォルトの名無しさん

2012/07/02(月) 20:41:44.06

それでモジュールのインタフェースはどういう風にしたの？
早く教えてよ
ぼく、もう待ちきれないよ

0893デフォルトの名無しさん

2012/07/02(月) 20:52:44.21

てめーで考えろ

0894デフォルトの名無しさん

2012/07/02(月) 20:59:49.87

じゃあ君の負けってことだね？

@file = split(/\n/,`dir /b *.* 2>NUL`);

でいいんだね？二言はないね？

0895デフォルトの名無しさん

2012/07/02(月) 21:02:53.08

君って誰のことだてめー意味不明なんだよ

0896デフォルトの名無しさん

2012/07/02(月) 21:03:56.77

軽くスルーｗ

0897デフォルトの名無しさん

2012/07/02(月) 21:05:07.23

勝ち負け言ってるアホは来なくていいよｗ
買ったもマケタも無いんｎだからさ
オマエがアホアホのアホだっちゅーことは分かったからｗｗ
十分分かったからｗｗｗ

0898デフォルトの名無しさん

2012/07/02(月) 21:08:58.74

　　　白組がんばれー

　　　　　　　　　赤組がんばれー

0899デフォルトの名無しさん

2012/07/02(月) 21:10:04.94

　　　アホ組がんばれー

　　　　　　　　　バカ組がんばれー

0900デフォルトの名無しさん

2012/07/02(月) 21:19:22.14

プログラムは勝ったか負けたかが一番重要です
常に勝ち負けを意識して行うものです
職業プログラマは常に勝ち負けを意識しています
というよりプログラムは何か目的を達成するためではなく
誰かに勝つためにやっています
それが目的です

0901デフォルトの名無しさん

2012/07/02(月) 21:22:53.96

質問、解答、質問解答に関わる議論以外をぐだくだ書いてる奴ら全員スレ違い

0902デフォルトの名無しさん

2012/07/02(月) 21:29:31.76

普段から自分は負け組だと意識するような人生だから、勝ったの負けたのを気にしすぎるんだよ

0903デフォルトの名無しさん

2012/07/02(月) 21:31:52.10

>>901
一風変わったことを言っているお前が可哀想だから質問を書いてやるよ。

ここでの議論は勝ち負けを決めるために行われるものだと思いますか？

この質問への解答（？）および質問解答に関わる議論をお願いします。

0904デフォルトの名無しさん

2012/07/02(月) 21:46:16.93

>>900さんに質問です。
"There's more than one way to do it"は絵空事だと思っていますか？

0905デフォルトの名無しさん

2012/07/02(月) 21:55:35.41

最近暑くなってきたし、ちょっと陰毛でも切って股間もさっぱりしようと思った訳なんだよ
なんか、もじゃもじゃしてるしさっぱりするぞーって思ってジョキジョキ切ったんだよ。
そしたら、なんか貧相な感じになっちゃってさ。
ボケ老人の頭の毛見たいな雰囲気になっちまってさ・・・
ちょっと微妙にチクチクするし、腹たつから一発抜いて寝るわ、おやすみ。

0906デフォルトの名無しさん

2012/07/02(月) 22:16:05.11

動くコードよりも薀蓄の方が大事。
ここにはそう言ってくれる仲間がいる。

0907デフォルトの名無しさん

2012/07/02(月) 22:49:54.23

基地害運動会の会場はここですか？

0908デフォルトの名無しさん

2012/07/02(月) 23:02:22.16

>>907
ようこそ
あなたさまのご来場をこそ
お待ちしておりました
今日の運動会の主賓がようやく登場なさいました

0909デフォルトの名無しさん

2012/07/02(月) 23:11:28.75

>>901
ここがPerlの質問箱なのは承知だけど、質問以外を書いちゃいけないって
決まりはないよ。>>1をちゃんと最後まで読んでごらん。

>>1
> Perl の奥深さについて皆で語り合い、追求してまいりましょう。

それと "There's more than one way to do it" な。
自分の方法と合わないからって間違ってるって考えるのは間違ってるぞ。

特にモジュール厨な。

0910デフォルトの名無しさん

2012/07/02(月) 23:15:11.24

自治厨現る！

0911デフォルトの名無しさん

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

0912デフォルトの名無しさん

2012/07/02(月) 23:17:57.58

> それと "There's more than one way to do it" な。

この考え自体が間違いだなｗ

0913デフォルトの名無しさん

2012/07/02(月) 23:19:44.92

とうとうどこがどう間違ってるのかすら言えないゴミが書き込むようになったかｗ
世の末だなｗ

0914デフォルトの名無しさん

2012/07/02(月) 23:20:34.20

>>912
うむ、最もバージョン間の互換性を損ねない書き方こそが絶対正義。
・最悪でも5.6でもちゃんと動くことを保証するコードであること
・モジュールの使用は最小限に抑えること
このあたりは必須ですな。

0915デフォルトの名無しさん

2012/07/02(月) 23:26:12.47

あ、5005もねｗ

0916デフォルトの名無しさん

2012/07/02(月) 23:31:08.57

>>913
865 を読んで出直せ。この世も捨てたもんじゃない。

0917デフォルトの名無しさん

2012/07/02(月) 23:33:06.45

よかった…世の中まだまだ捨てたモンじゃないんだねっ！
いやっほぉおおおおおおお！！！僕にはルイズちゃんがいる！！やったよケティ！！ひとりでできるもん！！！
あ、コミックのルイズちゃああああああああああああああん！！いやぁあああああああああああああああ！！！！
あっあんああっああんあアン様ぁあ！！セ、セイバー！！シャナぁああああああ！！！ヴィルヘルミナぁあああ！！
ううっうぅうう！！俺の想いよルイズへ届け！！ハルケギニアのルイズへ届け！

0918デフォルトの名無しさん

2012/07/03(火) 00:26:23.43

アニヲタきめぇ

0919デフォルトの名無しさん

2012/07/03(火) 00:29:53.05

ラリーも日本のアニメとか観ますか？

0920デフォルトの名無しさん

2012/07/03(火) 00:36:30.24

アニヲタは日本にいらないね。
存在価値がない。

0921デフォルトの名無しさん

2012/07/03(火) 00:40:11.14

本日の基地害指数：81

0922デフォルトの名無しさん

2012/07/03(火) 00:50:00.86

パタリロ！とか好きだって言ってたな

　　　　 ,. -‐‐‐- 、
　　　／　　　　　　＼
　　 {　　 ,.-､___ﾉノﾉハ）
　　! ,.-､j ＿　　　　ﾉ
　　　ゝ6 ' 　｀　 '⌒（　　　　　　だ～れがころした
　　　　ゝ.ｰ-‐‐ｖ‐一） 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{ !　　 /
　　　　　　　　! ｀ヾ_／
　　　　　　　　｀ｰ'

0923デフォルトの名無しさん

2012/07/03(火) 01:16:41.55

パタリロって何？

0924デフォルトの名無しさん

2012/07/03(火) 01:57:43.67

>>923
こいつ一般常識も知らないのかよ

0925デフォルトの名無しさん

2012/07/03(火) 02:05:09.25

>>924
誰もが花とゆめ読んでいると思うなよ
ジャンプじゃあるまいし

0926デフォルトの名無しさん

2012/07/03(火) 03:49:25.37

モジュール化がいいってきいたから全部モジュールにしてやったぜぇ～
だからPerlスクリプトではuseしてモジュール一発呼び出すだけの合計2行だぜぇ～
ワイルドだろぉ～

0927546

2012/07/03(火) 04:16:45.88

>>926
それはサブモジュールとはいわないぜぃ～　サブモジュールという名の
全体のコールだぜぃ～？

0928デフォルトの名無しさん

2012/07/03(火) 04:44:27.59

またキモいしゃべり方の奴が来たな。
しかも文体が同じだから自演バレバレだし。

0929デフォルトの名無しさん

2012/07/03(火) 11:35:42.83

ここはム板のハッテン場

0930デフォルトの名無しさん

2012/07/03(火) 19:33:09.77

>>922-925
突っ込んだ話になるとスレ違いになるので
パタリロ！の作者魔夜峰央スレへ誘導しとく

★☆魔夜峰央についてかたりましょう☆★Part52★
http://kohada.2ch.net/test/read.cgi/gcomic/1340116866/

0931デフォルトの名無しさん

2012/07/03(火) 22:00:20.51

パタリロも知らずにperl語るなよ

0932デフォルトの名無しさん

2012/07/03(火) 22:44:38.19

さぶちゃん、ちょっといいかしら？

は～い♪

0933デフォルトの名無しさん

2012/07/03(火) 23:04:36.19

サブモジュールという名の全体のコールだな

0934デフォルトの名無しさん

2012/07/04(水) 12:11:10.59

パリタロは常識

0935デフォルトの名無しさん

2012/07/04(水) 12:25:40.60

体育の授業とかなくせばいいのにな
俺も昔体育の授業で走ってて転んで骨折した
体育は危険だ

0936デフォルトの名無しさん

2012/07/04(水) 12:45:29.80

走っただけでコケて骨折まで行くなんて
この咲の人生で淘汰されるべき人間だ
早目に淘汰されればいいのにな　まったく
もっと致死性の体育授業を増やせばいいのに
そうすればこういう上のゴミみたいな人間がいなくなって
世のなかちったあマシになるだろ

0937デフォルトの名無しさん

2012/07/04(水) 13:03:15.86

専業主婦との浮気のために待ち合わせ場所に向かう昼下がり。

0938デフォルトの名無しさん

2012/07/04(水) 16:41:02.68

質問しようと思ったけど雑魚みたいな奴しか書き込んでないから他で質問しますね＾＾

0939デフォルトの名無しさん

2012/07/04(水) 19:17:53.10

char a[1];
char b[4];

strcpy( b , "pot" );
strncpy( a , b , 3 );

これでバッファオーヴァーフローしてaの続きの何かの領域にotが書き込まれるの？

0940デフォルトの名無しさん

2012/07/04(水) 22:05:00.52

なんじゃない？

0941デフォルトの名無しさん

2012/07/04(水) 22:13:17.93

それで読むのに数秒かからないモジュールは何秒後にリリースされるの？

0942デフォルトの名無しさん

2012/07/04(水) 22:30:18.64

ぼく、もう待ちきれないよ

0943デフォルトの名無しさん

2012/07/04(水) 22:36:01.22

バッファオーバーフローの前にセグメンテーションフォルトで落ちるだろ

0944デフォルトの名無しさん

2012/07/04(水) 23:09:54.68

ホモは同性ということもあって快感のツボが分かってる

0945デフォルトの名無しさん

2012/07/05(木) 01:13:07.66

現在開いているURLのファイル名を取得するにはどうしたらいいのですか？
たとえば開いているURLがｈｔｔｐ：//localhost/test/test.cgiの場合
ファイル名はtest.cgiということです
モジュールを使わない方法で

0946デフォルトの名無しさん

2012/07/05(木) 01:21:21.41

↑正規表現使えばいいだろ
そんなことも自分で調べられないのかこいつ

0947デフォルトの名無しさん

2012/07/05(木) 01:23:43.85

はいヴァカが見事に釣れましたｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

0948デフォルトの名無しさん

2012/07/05(木) 01:38:04.05

正規表現モジュールも使ってはいけないのか

0949デフォルトの名無しさん

2012/07/05(木) 01:50:49.08

当然ですよ早くしてください低脳

0950デフォルトの名無しさん

2012/07/05(木) 02:04:40.21

このスレがまともだと損する人が頑張ってるんだろうなあ…

0951デフォルトの名無しさん

2012/07/05(木) 02:43:27.82

自己紹介乙。

0952デフォルトの名無しさん

2012/07/05(木) 03:47:05.09

体育は必須というのに問題があるんじゃないか？
やりたい奴だけがやる選択式にすべき
小学校1年生から

もしくは体育で選択できるスポーツを最低10用意して、その中から選択させるのが良いだろう
柔道とかやりたくない奴多いと思うよ

0953デフォルトの名無しさん

2012/07/05(木) 05:24:09.42

>>945
>>1

環境変数見るとかぐらいしろよ

0954デフォルトの名無しさん

2012/07/05(木) 08:21:23.12

>>952
正規表現の授業は必須にすべきだよな

0955デフォルトの名無しさん

2012/07/05(木) 12:24:33.46

すぎちゃんって一発芸人だと思う
いつまでもつことやら

0956デフォルトの名無しさん

2012/07/05(木) 12:51:37.81

オウムはなくなったのかね？
アレフはオウムが名前を変えたの？
それともオウムから派生した別団体？
光の輪という組織もあった気が。

0957デフォルトの名無しさん

2012/07/05(木) 12:52:53.81

ネタが見れる番組がオンバトくらいしか無いからな
R1以外でどこをチェックすればすぎちゃん見れるんだ

0958デフォルトの名無しさん

2012/07/05(木) 13:33:58.76

>>956
お前はどんな詐欺にも簡単に引っかかるタイプだな

0959デフォルトの名無しさん

2012/07/05(木) 13:48:46.85

スギちゃん見たけりゃオフィシャルブログ見てたらいいだろ

0960デフォルトの名無しさん

2012/07/05(木) 14:50:48.51

魔法少女まどかのオンゲが出るってよ

0961デフォルトの名無しさん

2012/07/05(木) 14:55:45.91

魔法少女まどかがオンラインゲームになったって？
http://image.mypl.net/bti/11598.ll?i=

0962デフォルトの名無しさん

2012/07/05(木) 17:42:10.00

公式サイトかと思ったらただのまどか画像だったでござる。

0963デフォルトの名無しさん

2012/07/05(木) 18:32:44.20

一時書き込みファイル名を
$ID=$$;
$tmp_file = "test_$ID.dat";とした場合
一時書き込みファイルにもロックをかけるべきですか？
プロセス毎にファイル名かわるので重複しないと思うんだけど

0964デフォルトの名無しさん

2012/07/05(木) 18:46:57.18

それはPerl関係ないだろゴミカス

0965デフォルトの名無しさん

2012/07/05(木) 18:52:22.35

＞思うんだけど
プログラムを思うとか思わないとかそんな基準で組んでる馬鹿発見。
まじで糞以下。

0966デフォルトの名無しさん

2012/07/05(木) 18:58:07.63

>>964-965
師ね蛆虫

さっさと答えろニート共

0967デフォルトの名無しさん

2012/07/05(木) 19:06:20.82

>>963
http://perldoc.jp/docs/perl/5.12.1/perlfaq5.pod#How32do32I32make32a32temporary32file32name63

0968デフォルトの名無しさん

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

0969デフォルトの名無しさん

2012/07/05(木) 19:30:23.12

>>967
さすがニート暇なんだな
お前みたいなニートでもこうやって人の役に立つことができたんだ
俺に感謝しとけ

0970デフォルトの名無しさん

2012/07/05(木) 20:02:11.67

>>968
上から三番目のはゲームなのか？

0971デフォルトの名無しさん

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

0972デフォルトの名無しさん

2012/07/05(木) 21:54:32.22

韓国とかどうでもいいし
あっちいけ

0973デフォルトの名無しさん

2012/07/06(金) 00:19:21.36

本日の基地害指数：83

0974デフォルトの名無しさん

2012/07/06(金) 03:15:05.48

yahoo知恵遅れのバカな質問を転載するスレに？

0975デフォルトの名無しさん

2012/07/06(金) 14:12:39.15

うん

0976デフォルトの名無しさん

2012/07/06(金) 14:41:54.66

>>968
クライアント側は知らんけどサーバーアプリケーションはPerlでも余裕で作れる

0977デフォルトの名無しさん

2012/07/06(金) 15:26:40.47

クライアント側こそこういうのの出番だろ
無人でずっと戦ってくれる

0978デフォルトの名無しさん

2012/07/06(金) 15:39:00.87

PerlなんかでMMO鯖なんか作ったら重くて使いものにならんだろ。

0979デフォルトの名無しさん

2012/07/06(金) 16:03:05.66

お前が作れば遅くなる
の　間違いだろ

0980デフォルトの名無しさん

2012/07/06(金) 16:13:28.75

じゃあ俺のC++で作ったMMO鯖とお前のPerlで作ったMMO鯖で勝負すっか？

0981デフォルトの名無しさん

2012/07/06(金) 16:20:46.69

負けたほうはチン毛永久脱毛パイパンの刑でお願いしますｗｗｗｗｗ

0982デフォルトの名無しさん

2012/07/06(金) 16:37:09.83

互いのプライドと陰毛を賭けた
仁義なき闘いが今始まる！

0983デフォルトの名無しさん

2012/07/06(金) 16:39:48.99

ぺルルはそもそも待ち受けのソケット作れないだろ低脳

0984デフォルトの名無しさん

2012/07/06(金) 17:00:45.89

>>983
http://perldoc.jp/docs/perl/5.14.1/perlipc.pod#Internet32TCP32Clients32and32Servers

0985デフォルトの名無しさん

2012/07/06(金) 17:18:17.57

そんなことより次スレ立てれ

0986546

2012/07/06(金) 17:33:33.23

Visual Perl欲しいな。

0987デフォルトの名無しさん

2012/07/06(金) 17:49:01.60

次スレ。

Perlについての質問箱 53箱目
http://toro.2ch.net/test/read.cgi/tech/1341564247/

0988デフォルトの名無しさん

2012/07/06(金) 17:55:13.16

【中２自殺】　皇子山中学校　「韓国に対する関心を高めるため」　修学旅行は韓国へ
http://engawa.2ch.net/test/read.cgi/poverty/1341564390/

ねらい
ハングルを学ぶことによって、韓国に対する関心を寄り高める。
http://jan.2chan.net/may/b/src/1341557000217.jpg

0989デフォルトの名無しさん

2012/07/06(金) 19:42:56.34

PerlでMMO鯖作ってる俺。
別に重くはない。
ま、人少ないし、大した内容でもないからかもだけど

0990デフォルトの名無しさん

2012/07/06(金) 19:57:35.38

MMOは人多いという意味の言葉なのでは

0991デフォルトの名無しさん

2012/07/06(金) 19:59:16.91

人が多いって何人からさ？

0992デフォルトの名無しさん

2012/07/06(金) 20:09:54.02

ハゲ

0993デフォルトの名無しさん

2012/07/06(金) 20:46:43.96

>>991
MMORPGの定義からいえば2人以上じゃねえのかよカス？

0994デフォルトの名無しさん

2012/07/06(金) 20:50:02.97

太古の昔で考えても「沢山」というのは３個からだ。
だから３人以上で「多い」だ

0995デフォルトの名無しさん

2012/07/06(金) 22:26:43.51

チンゲを賭けた戦いはどうなった？

0996デフォルトの名無しさん

2012/07/06(金) 22:38:41.61

>>988
韓国に修学旅行行く学校はだいたいDQNが多い
俺の学校も修学旅行は韓国だったけど８割方DQNだった
俺は修学旅行行かなかったけどな

0997デフォルトの名無しさん

2012/07/06(金) 23:08:53.38

このスレはいつもｇｄｇｄで終わるな

0998デフォルトの名無しさん

2012/07/07(土) 00:05:56.37

読むのに数秒かからないモジュールってあるの？

0999デフォルトの名無しさん

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１００１

Over 1000Thread

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。

レス数が1000を超えています。これ以上書き込みはできません。