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

1 名前：デフォルトの名無しさん [2012/03/02(金) 14:30:16.30 ] CGI についての質問は板違いです。WEB プログラミング板でどうぞ。 CGI と Perl の区別がつかない人も WEB プログラミング板に行ってください。 (WEB プログラミング板: hibari.2ch.net/php/ ) このスレでは(CGI 以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。 スレ違いの質問にはスルーか、速やかな誘導をお願いします。 "The duct tape of the Internet" こと、Perl についての質問箱です。 "There's more than one way to do it" ということで、 Perl の奥深さについて皆で語り合い、追求してまいりましょう。 www.perl.org/get.html Download Latest Stable Source (5.14.2) ▼ 前スレ Perlについての質問箱 50箱目 toro.2ch.net/test/read.cgi/tech/1326823096/ リンク集は >>2-3 Perl 日本語処理の基礎の基礎 >>4 136 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 17:12:18.38 ] こういうこと？ $text = <<'HERE'; $hash{hoge} $hash{moge} $hash{poge} HERE $result = ""; while ($text =~ /{(.*?)}/g) { $result .= "\$$1 "; } print $result; 137 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 17:30:14.63 ] my $keys = [ qw(a b c) ]; my $values = [ qw(apple banana chocolate) ]; my $hashref = {}; @{%$hashref}{@$keys} = @$values; print $hashref->{a}, "\n"; perl v5.8.9で実行すると apple と表示されるのですが、 perl v5.10.1ではエラーになります。 Can't use string ("0") as a HASH ref while "strict refs" in use at 〜〜. perl v5.10.1でもappleと表示されるようにするにはどうすればいいのでしょうか？ 138 名前：137 mailto:sage [2012/03/14(水) 17:48:44.70 ] 自己解決 #@{%$hashref}{@$keys} = @$values; @{$hashref}{@$keys} = @$values; 139 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 18:02:18.49 ] >>136 ありがとうございます。 whileと正規表現を使えばいいんですね。 ありがとうございました。 140 名前：デフォルトの名無しさん [2012/03/14(水) 18:40:58.63 ] socket通信のプログラムを書いていますが、 オブジェクトを送信して、受信側でオブジェクトを参照しようとすると HASH(0x00）みたいになって参照できないのですが、 何か対処方法はありますか？ 以上、よろしくお願いします。 141 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 18:44:14.61 ] コードも無しに対処法とは…… 俺らのことをもしかしてエスパーか何かだと思ってる？ 142 名前：デフォルトの名無しさん [2012/03/14(水) 19:10:21.40 ] うーん。会社から２ｃｈに繋がらないのです。 明日ＵＳＢ経由でコードを持ってきて出直します。 143 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 19:11:13.76 ] それはそれでいいのかｗ ・・・まぁ原因部分だけならあれか 144 名前：エスパー魔美 mailto:sage [2012/03/14(水) 19:44:43.13 ] >>140 オブジェクトをそのままファイルに保存出来ないのと同じ理由。 Storable、Data::Dumper、JSON などでシリアライズして送信すると良いかも! 145 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 19:45:26.17 ] 会社って…… だーーーーーれも教えてくれないの？？？ 146 名前：デフォルトの名無しさん [2012/03/14(水) 19:51:08.42 ] >>143 やっぱりわかっていそうだｗ 送信が print $socket $obj 受信が、 my $msg = <$client_socket>){ みたいな感じで、 chomp( $msg); $obj = $msg; $obj->show_hoge; ↑HASHがうんたらって出てくる。 多分、分かる人はすぐに分かる問題だと思うけど。 147 名前：デフォルトの名無しさん [2012/03/14(水) 21:56:16.89 ] >>144 了解。 ありがとうございます。 148 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 22:27:17.94 ] >>145 教えてくれる人がいる方が珍しい 大抵は孤独に独学だよ 149 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 22:59:40.11 ] >>132 DBI::DBD::SqlEngine::st::execute SqlEngine.pmの773行目あたり >>137 素直にList::MoreUtils使わん？ use List::MoreUtils qw/zip/; my $keys = [ qw(a b c) ]; my $values = [ qw(apple banana chocolate) ]; my $hashref = +{ zip @{$keys}, @{$values} }; print $hashref->{a}, "\n"; >>146 show_hogeがcoderefだからそのまんまじゃシリアライズしてもダメかもね。 データだけ渡してロジックは受け側が持っとかないと。 150 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 23:24:05.58 ] Perl6はいつリリース予定ですか？ 151 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 23:52:28.92 ] クリスマス 152 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 23:56:23.47 ] Digest-SHA-PurePerl-5.71でprint sha512(hoge);が出力されないのはなぜか教えてもらえませんか？ ？ sha256やsha1は出力されるのに。。 153 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 00:20:03.00 ] >>145 わかるわー 会社で聞くと、おめーそんなこともわからねーのかふざけんなって、居眠りばかり してるおっさんプログラマーに怒られる 154 名前：エスパー魔美 mailto:sage [2012/03/15(木) 02:34:00.68 ] >>152 エラーメッセージは出た? 手元の環境では動くようだけど。 # This is perl 5, version 12, subversion 3 (v5.12.3) built for darwin-multi-2level perl -MDigest::SHA::PurePerl=sha512 -e 'print sha512("hoge")' perl -MDigest::SHA::PurePerl=sha512_hex -e 'print sha512_hex("hoge")' 155 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 07:33:49.40 ] >>154さん ありがとうございます エラーはでません。指示頂いたやりかたで試してみます。 【ソース】 use lib '../module'; use Digest::SHA::PurePerl qw(sha1 sha256 sha256_base64 sha512 sha512_base64); print sha256 (a); print "\n"; print sha256_base64(a); print "\n"; print sha512(a); print "\n"; print sha512_base64(a); 【結果】 C:\Perl\work>sha.pl ﾊ浴ﾊｽﾊ�ﾂ1ｳ・ﾜMｧ・・|Nrｹ�w・�dｻ ypeBEsobvcr6wjGzmiPcTaeG7/gUfE5yuYB3ha/uSLs C:\Perl\work> 156 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 14:39:03.11 ] use Digest::SHA::PurePerl; my $state = Digest::SHA::PurePerl->new(512) or die; 私の環境もこれで死ぬ。 軽くソース追ってみたけど、64bit長の計算ができないと、はねられる模様。 157 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 18:14:15.64 ] __END__以下を一気読みして変数に入れるため以下のようなコードを書きました。 しかし一気読みされずこの様に出力されました。 ＞[あいうえお ＞かきくけこ ＞ ＞] 何故行の区切り文字を無くしたにも関わらず区切られてしまうのでしょうか。 これは仕様なのでしょうか？This is perl, v5.10.1 built for MSWin32-x64-multi-thread $/ = ""; $data = <DATA>; print "[$data]"; __END__ あいうえお かきくけこ さしすせそ たちつてと なにぬねの はひふへほ 158 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 18:56:08.33 ] perldoc.perl.org/perlvar.html You may set it to undef to read through the end of file. Setting to "" will treat two or more consecutive empty lines as a single empty line. 159 名前：エスパー魔美 mailto:sage [2012/03/15(木) 18:56:25.39 ] >>157 perldoc の説明だと分かりにくいけど、"" は "¥n¥n" と似た動作をする。 多分、undef $/; が答え。 160 名前：デフォルトの名無しさん [2012/03/15(木) 19:06:08.11 ] >>157 これって改行が続いていて、そこが終了と認識されているんじゃないの？ シングルクオテーションでくくってみたら？ 161 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 19:34:13.02 ] いろいろ参考にしてオリジナルアップローダー作ってみたよ。 基本機能は備えて流れにくいと思うけど、至らない部分あるかも。 111.moo.jp/uploda/index.php 162 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 19:41:13.25 ] 噴いた 163 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 20:02:39.92 ] file33.jpg 1234 164 名前：157 mailto:sage [2012/03/15(木) 20:30:21.12 ] >>158,159,160 $/ = ""には空行を区切り文字にする、という意味があったのです。 代わりにundefを使うことで目的の動作が実現できました。 ""とundefの二種類があることを活用しているのです。 レスありがとうございました。 165 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 21:19:56.00 ] パ・パ・パパッパ〜Perlライス 166 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 01:20:27.74 ] >>161 あれ？アドセンスは？ 167 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 01:58:25.69 ] sub decimal2binary { my $decimal = shift; my $binary = ""; while($decimal>=1) { $binary = $decimal % 2 . $binary; $decimal /= 2; } $binary; } sub binary2decimal { my $binary = shift; @binary_ary = reverse split //, $binary; my $i = 1; my $result = 0; for(@binary_ary) { $result += $_ * $i; $i <<= 1; } $result; } print binary2decimal(decimal2binary(5184)); #=> 5184 こういう10進数と2進数の変換関数を書いたのですが、もっとクールにしたいです。添削お願いします。 168 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 02:20:19.81 ] >>167 perldoc.jp/docs/perl/5.10.0/perlfaq4.pod#How32do32I32convert32between32numeric32representations47bases47radixes63 169 名前：デフォルトの名無しさん mailto:sage [2012/03/17(土) 15:10:05.60 ] デバグの時に使うBEGIN{ $| = 1; print "Content-type: text/html; charset=shift-jis \n\n"; open(STDERR, ">&STDOUT"); } は具体的にどう言う動きをするのでしょうか？ &STDOUTでエラーを検知したら、 print "Content-type: text/html; charset=shift-jis \n\n"でSTDOUTの中身を書き出すって感じなのかな？と思うのですが、{ $| = 1;は何を指示してるのでしょうか？感緑化されてるようでちょっと意味がわかりませんでした。 初心者ですみません。 170 名前：デフォルトの名無しさん mailto:sage [2012/03/17(土) 15:16:17.28 ] perldoc嫁ｋｓ 171 名前：エスパー魔美 mailto:sage [2012/03/17(土) 16:11:46.46 ] >>169 BEGIN{ # コンパイル時に実行されるブロック (sub BEGIN { ... } と同じ) $| = 1; # STDOUTのバッファリングをオフ print "Content-type: text/html; charset=shift-jis ¥n¥n"; open(STDERR, ">&STDOUT"); # 標準エラー (STDERR) の出力先をSTDOUTと同じにする。 } 172 名前：デフォルトの名無しさん [2012/03/17(土) 18:08:54.19 ] renameが失敗するのはどういう場合ですか？ 173 名前：デフォルトの名無しさん mailto:sage [2012/03/17(土) 18:11:14.44 ] おなじファイルがすでに存在する場合（ファイル名がわるい） 174 名前：デフォルトの名無しさん mailto:sage [2012/03/17(土) 18:14:57.02 ] >>172 同じ名前のファイルがある場合。 同じ名前のディレクトリがある場合。 変更しようとしているファイルが存在していない場合。 ファイル名を変更する権限がない場合。 別のプログラムがファイルを開いていてロックかけている場合。 名前として有効でない記号などが入った名前の場合。 ウイルスに感染している場合。 OSが不調の場合。 HDDが壊れている場合。 パソコンが壊れている場合。 そういう夢を見ていた場合。 電源が入っていない場合。 電力会社が大変な事になっている場合。 世紀末でメシア待ちの場合。 ヤマト発進後のプロジェクト成功待ちの場合。 175 名前：デフォルトの名無しさん mailto:sage [2012/03/17(土) 18:36:13.19 ] エラーバリアブル見ろよ。 176 名前：デフォルトの名無しさん mailto:sage [2012/03/17(土) 18:39:38.88 ] >>172 perldoc.jp/func/rename perldoc.jp/docs/perl/5.14.1/perlvar.pod#Error32Indicators 177 名前：デフォルトの名無しさん [2012/03/17(土) 19:54:51.07 ] >>174 ＞別のプログラムがファイルを開いていてロックかけている場合 これはflockをしている場合と言うことですか？ 178 名前：デフォルトの名無しさん mailto:sage [2012/03/17(土) 21:00:48.77 ] >>171 ありがとうございます。 $| = 1;をどう検索かけても、検索出来なくて途方にくれてました。 そう言う意味だったのですね。 179 名前：デフォルトの名無しさん mailto:sage [2012/03/17(土) 21:30:18.96 ] >>177 OSさんがファイルロックしてる事もある flock中にファイル名変えれるかどうかはしらん、試せばいいんじゃない？ 180 名前：デフォルトの名無しさん [2012/03/18(日) 03:25:45.75 ] >>178 perl 特殊変数 でggrks 181 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 03:40:58.45 ] perlvar見ればggr必要すらないがな 182 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 10:05:31.14 ] 最近の２ちゃんは略字が多くてわかりづらくなってしまったな 最近常用となってしまった２ｃｈ略字 ｋｗｓｋ　詳しく ｗｋｔｋ　ﾜｸﾜｸﾃｹﾃｹ ｋｔｋｒ　ｷﾀｺﾚ ｍｊｋｔ　ﾏｼﾞｷﾁ iksg　今北産業 opop　おっぱいおっぱい dｒum だれがうまいこと言えといった omor お前は俺か morkw またお前らかよｗ ohh2ckyw お前ら平日の昼間から２ちゃんかよｗ mjkt　マジキチだからやめろ ggrks→これはわからん・・ 183 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 10:07:41.42 ] perldocとか使いませんですしおすし 俯瞰出来る.jpはたまに見る 184 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 10:49:58.65 ] >>182 mjktが2通りあるぞ ここまでわかってggrksがなぜわからぬ ネタとしてはあまりにつまらなすぎて意味不明だからマジボケなんだろうけど 185 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 12:15:40.68 ] >>182 「今北産業」「だれうま」「おま俺」「マジキチ」というのが略記であって その一覧はアブジャド系表記にしか見えんが… ggrksはググれカス 186 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 12:16:48.20 ] いや、iksgは流石にアブジャドだけじゃ足らずに略もしてるか 187 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 12:22:50.40 ] ここまでコピペ 188 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 14:51:39.52 ] iksg イキすぎ 189 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 15:48:41.69 ] 若者のマニュアル離れが深刻。 190 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 15:49:59.80 ] マニュアル離れって・・・そこらのオッサンの方がマニュアル読まないだろうがｗ 191 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 15:51:49.94 ] さすがにμ即ネタは食いつきが違うな。 192 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 16:09:03.38 ] 待て、マニュアルは使うな！マニュアルは最後の武器だ！ 193 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 16:55:36.06 ] マニュアルモード カラ オートメーションモード ヘ イコウシマス 194 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 17:25:33.53 ] 思い込みという脳内マニュウアルが最優先です。 195 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 18:36:54.48 ] その点、Perlはマニュアルがいらないからいいよね。 196 名前：デフォルトの名無しさん mailto:sage [2012/03/19(月) 00:24:43.92 ] いやだからperldocは見ねえと言ってるだろ！ 197 名前：デフォルトの名無しさん mailto:sage [2012/03/19(月) 13:17:23.74 ] LWP使っています。 javascriptが有効であるかのように振る舞う方法があったら教えてもらえませんか？ 198 名前：デフォルトの名無しさん mailto:sage [2012/03/19(月) 13:42:35.06 ] >>197 search.cpan.org/dist/WWW-Scripter-Plugin-JavaScript/ e8y.net/mag/007-www-mechanize/ 199 名前：デフォルトの名無しさん [2012/03/19(月) 15:35:17.24 ] ふつうはopenしてflockしますけど、 これロックファイル無しで一体化できませんかね 200 名前：デフォルトの名無しさん mailto:sage [2012/03/19(月) 17:23:10.08 ] >>199 OSによっては sysopen で O_EXLOCK か O_SHLOCK が利用できる perldoc.jp/docs/perl/5.10.0/perlopentut.pod#Open32la32C perldoc.jp/func/sysopen 201 名前：デフォルトの名無しさん mailto:sage [2012/03/19(月) 17:28:02.62 ] >>200 ありがとう おれLinusだから利用できないわ 202 名前：デフォルトの名無しさん mailto:sage [2012/03/19(月) 22:50:45.14 ] おや、ご旅行ですか？ 203 名前：デフォルトの名無しさん mailto:sage [2012/03/19(月) 23:20:08.53 ] はい www.linuxinsight.com/files/images/linus_thumbs_up_for_windows_7.jpg 204 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 01:04:38.17 ] >>203 やったね！アンディー！ 205 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 07:25:17.18 ] ウィキ作った。 書くの手伝って。 goo.gl/OyWRr 206 名前：デフォルトの名無しさん [2012/03/20(火) 07:38:39.74 ] PerlにはRubyでいうyugui本みたいなのはありますか？ 思い当たるものがありましたら教えて頂けると嬉しいです _ _ 207 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 07:41:31.61 ] リャマ本ってこと？ 208 名前：206 mailto:sage [2012/03/20(火) 07:52:02.22 ] >>207 返信ありがとうございます。リャマ本とラクダ本は過去に読んだのですが、 リャマ本はプログラミング初心者を対象としており （プログラミング経験者には記述が冗長で、また仕様が十分に記されていない） ラクダ本は小さく纏まっていない気が私的にはするのです。 Perlの仕様を必要十分に短く簡潔に記述したものが知りたく yugui本という例えを使いました。言葉足らずで申し訳ありません； 209 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 08:45:19.33 ] 小型高速船で未明上陸、韓国人男女７人密航容疑 　第７管区海上保安本部（北九州市）と大阪府警は１９日、韓国からの密航者や密航の仲介をした 韓国人の男女計７人を入管難民法違反（営利目的の集団密航助長など）容疑で逮捕した、と発表した。 　同本部の発表によると、７人は仲介した無職鄭舜晧（４２）、ホステス梁英美（４６）の両容疑者 （いずれも名古屋市在住）ら。 　鄭容疑者は昨年６月３０日夕、韓国南部で小型高速船に女性３人（４５〜５１歳）を乗せ、 同７月１日未明に山口県下関市の小串漁港に不法上陸させた疑い。 　梁容疑者は千葉県柏市と大阪市の韓国人女性２人（３２、５３歳）を同船で出国させるため、 同漁港まで車で運ぶなどした疑い。 　女性たちは１人５０万〜１００万円の報酬を支払っていたという。 　同本部は鄭、梁両容疑者は密航請負組織の一員とみている。 　大阪府警が昨年１０月、不法上陸した３人のうちの１人を不法在留の疑いで逮捕し、集団密航が発覚。 　３人はすでに全員逮捕、起訴され、有罪判決を受けた。 （2012年3月19日21時08分 読売新聞） www.yomiuri.co.jp/national/news/20120319-OYT1T00969.htm 210 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 11:44:50.83 ] スレッドを生むスレッドってどーやって作るの？ 211 名前：デフォルトの名無しさん [2012/03/20(火) 12:21:20.66 ] perlの処理順番について質問です １：プロセス１とプロセス２を全くの同じ時間に起動した場合 全く同じ行の全く同じ部分が同時に実行されるのか？ ２：プロセス１を先に起動して、その0.01秒後くらいにプロセス２を起動した場合 プロセス１の１行目はプロセス２の１行目より0.01秒はやく実行されるだろうが それ以降の行でもプロセス１の方がプロセス２よりも0.01秒はやく実行されているのか？ 例えばプロセス２の１００行目がプロセス１の１００行目より先に実行されるということはないのか？ 教えてください 212 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 12:25:05.64 ] >>211 CPUの数はいくつありますか？(マルチコアですか？) 213 名前：デフォルトの名無しさん [2012/03/20(火) 12:27:53.24 ] >>212 CPUいくつあるかわからないので １つの場合と複数の場合について教えてください 214 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 12:32:12.48 ] >>211 すべては不定です 215 名前：デフォルトの名無しさん [2012/03/20(火) 18:03:41.46 ] 処理の順番が狂うとうまくいきません yomikomi.cgi y-1：readlockファイルがない場合 y-2：writelockファイルを作る y-3：readlockがあればsleepで待つ y-4：読み込んで表示 kakikomi.cgi k-1：readlockファイルを作る k-2：writelockファイルを作る k-3：sleepで待ってreadlockとwitelockファイルが作成できたら k-4：書き込む 処理の順番がy-1〜y-4,k-1〜k-4となる場合や k-1,y-1,k-2,y-2,k-3,y-3,k-y,y-4となる場合は問題ないのですが ｙー１とｙー２の間にｋー１とｋー３が割り込んだら ロックができない状態になります どうすればいいんでしょうか？ 216 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 18:17:08.11 ] そういうのはひとつのロックファイルで排他ロックと共有ロックを使う 217 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 18:52:23.67 ] DB使いなよ。 218 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 19:09:26.49 ] >>217 バカのひとつおぼえだな 219 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 19:12:40.39 ] >>218 もしかしてDBまでモダンだと思ってるの？ 220 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 19:17:40.90 ] >>217 ＝─‐＼＼‐　 ／─'''''ニ二＼''' |レﾚゝゝ､＼ ￣く<<く >, ﾞ､／＜三三二＼￣＼ゝゝゝゝゝゝﾞ''ヽ､ ＜<<<〈__入 ﾞ､く彡三三三二ヽくゝ＼メメメゝ､＿ゝ､＼ くく<<<<<< ﾞ､ ﾞ､ミ三三二ニ─ゝゝゝゝゝ,,,,,,,､ '（ ﾞ''ヽ､ヽ､ くくくくくく彡‐ヽ ﾞ､ﾐ三三二ニ'''くくゝゝ＿ゝゝ､＼＼＿,>」ﾉ, く く く く く 彡ﾞ､ﾞ､三三二ニ‐くゝ､／ ,,,,,,,,メメゝヽ''''"ゝゝﾞ丶､ 二─二二彡彡､ﾞ､三三二==くメゝ／　　 ﾞ'ヽ､メゝゝゝゝゝゝゝﾞ''ヽ-､,,,,,,＿ ‐'''"￣ ＼彡彡ﾐ､ﾞ､三二=''"く<メ/::　　　　　　＼''-､メメゝゝゝ＿ゝ ､ ,,､ヽヽ ､　　,,,,-　ﾞ彡／/ヽﾞ､三二＝ くゝ/:::....　　　　　　＼>∠ﾚ-,-‐ニ二メヽ''ヽ ﾉ 　ﾞヽ､,,,-‐//_//／,,､ﾞ､三二=　　ﾞ､　""'''　　　　　　ヽ＞／／ﾚﾚヽ,,＿__　 / -,,,,,,-‐'''"""/////,,ヽ ﾞ､三二─　ﾞヽ.　　　　　　　　 ／／-ﾍﾍ,､ ﾚレレﾚノ　　さあ願いを言え ''"　　　　　　,ｌ|"////ﾉ,､＼彡'''''‐-ニ,､　::::::::::,,,,,,,,／／　　　　ﾞヽﾌ/|/| ﾚ' 　どんな願いも聞き流してやろう。 221 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 19:18:45.87 ] >>220 面白いと思ったの？ 222 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 19:27:35.32 ] ドラゴンボールな、はいはい。 223 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 19:59:24.98 ] /`ﾟ`ii´ﾟ`ヽ 224 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 21:20:27.97 ] 米政府　韓国メーカーに不当廉売関税適用へ 米商務省の決定文によると、サムスン電子の冷蔵庫に対しては韓国製に５．１６％、メキシコ製に１５．９５％の同関税を課す。 ＬＧ電子については、韓国製に１５．４１％、メキシコ製に３０．３４％をそれぞれ課す。 同関税はダンピング（不当廉売）によって、国内産業が被害を受けないよう通常賦課される関税に加え特別に課す税金。 japanese.yonhapnews.co.kr/headline/2012/03/20/0200000000AJP20120320001000882.HTML 【FTA】 米国政府 「サムスンとLGは不当廉売なので関税をもらいます！」 ★2 engawa.2ch.net/test/read.cgi/poverty/1332236917/ 前スレ 【FTA】 米国政府 「サムスンとLGは不当廉売なので関税をもらいます！」 engawa.2ch.net/test/read.cgi/poverty/1332219745/ 225 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 21:58:33.06 ] >>211, >>215 どうなるかは不定(決まってない、どっちになるか分からない)、としか答えようがないでそ。 どうしても特定の順番で処理させなきゃいけないんなら、 排他ロックを適切にかけながら処理するしかない。 そしてもちろん排他ロックにはアトミックな仕掛けを使わなくてはいけない。 ただそれだけのこと。 DB使えってのはDBMSがそのへんの排他制御を比較的よきにはからってくれるから。 226 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 22:29:23.12 ] flockとかそういう話じゃなくて？ 227 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 22:31:28.02 ] flockでもいいんじゃない？使える環境なら 228 名前：208 [2012/03/20(火) 22:32:19.30 ] どなたか宜しければお願いします _ _ perldoc辺りが最善手になるんでしょうか・・・ 229 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 22:35:17.84 ] プログラミングの基礎を学びたいのか実戦で効率的にやりたいのかどっち？ 230 名前：208 mailto:sage [2012/03/20(火) 23:05:01.65 ] >>229 返信有難う御座います。プログラミングの基礎を学びたいわけではないです。 かといって、実践で（仕事で）使えればそれで良いかと言えば Perlは既に仕事で何度も使っているのでそういう訳ではないです。 Perlの仕様を隅々まで（と言っても限度はありますが 少なくともラクダ本にある程度は）把握したいです。 ですが、ラクダ本をもう一度全て読むのは分量があるので御免被りたいです。 ワガママですみません； 231 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 23:09:53.61 ] >>230 Perlの隅々の仕様の把握ならラクダ本ほど楽な方法も中々ないぞ 一気に読もうとせず、毎日コツコツ読むだけでも随分違うかと 今まで知らなかった仕様を知ることができるかもよ 232 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 23:52:47.86 ] >>230 www.modernperlbooks.com/ Modern Perlはそこそこまとまってた。 ざっくりPDF版を読んでみたら。 233 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 00:43:36.81 ] 毎日20ページ読むだけで2週間ありゃ読み終わる 234 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 00:52:29.28 ] １ページの半分読んで眠くなる 235 名前：デフォルトの名無しさん [2012/03/21(水) 01:08:33.44 ] ディレクトリがあるかどうか調べるとき ディレクトリがない場合というのelseやunlessを使うしか方法はないんでしょうか？ elseやunlessはあまり使いたくないんだけど if(-d "test"){ print "ディレクトリがあります"; } else{ print ""ディレクトリがありません; } 236 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 01:34:57.79 ] not -d 237 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 01:39:19.27 ] >>230 そんな君にはポケットリファレンスがよかろう 238 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 01:53:56.47 ] あの青いやつか 239 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 09:40:35.99 ] 痴漢するときに、入力したファイルをそのまま変換するのって どんなオプションでしたっけ 240 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 09:42:10.93 ] 自己解決しました。 やっぱり愛なのね。 241 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 09:53:20.77 ] >>239,240 なにうまいこというとんねん！ 242 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 10:27:36.31 ] 関数の戻り値を変数に代入する場合、そのまま利用する場合と比較して、メモリは倍必要になるのでしょうか？ my $data = large_data(); print $data; print large_data(); 243 名前：208 mailto:sage [2012/03/21(水) 11:17:49.63 ] >>231 ありがとうございます！検討してみます。 >>232 まさにこういうの探していました！本当に有り難うございます _ _ みなさん長々とお付き合いありがとうございました _ _ 244 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 15:59:42.57 ] >>243 行末の「 _ _」が気になる。なんの暗号だ。 245 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 16:00:40.80 ] >>236 > not -d ! -d を使ってる。理由は忘れた。 246 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 16:06:37.64 ] >>244 m(_ _)m 的なものだと思われる 247 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 16:08:37.06 ] m(_ _)m　→ m _ _ m → _ _ → ？ 248 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 16:33:26.80 ] (　@�u@) 249 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 16:42:41.27 ] >>246 >>247 なるほど。Thanks. 250 名前：デフォルトの名無しさん [2012/03/21(水) 19:09:23.68 ] 排他ロックはmkdirを使うやりかたがいろいろ紹介されていますが 共有ロックはflockを使う以外では見たことありません flockを使わないで共有ロックをするのは隙間ができたりして難しいのでしょうか？ 251 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 19:26:00.44 ] >>250 別に難しくもなんともないが、mkdirだのあのあたりの方法は プログラムが死んだときにロックしっぱなしになるので 自分では絶対に採用しないな。 252 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 19:32:51.02 ] perldoc.jp/func/exec 'exec' は Perl の組み込み関数ではありません。 え？ 253 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 19:37:17.22 ] hint: 404 254 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 21:56:47.17 ] >>252 おいおい知らなかったのかよ 255 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 23:54:25.80 ] シェルの関数でしょ 256 名前：デフォルトの名無しさん mailto:sage [2012/03/22(木) 00:33:19.22 ] 最終的にシェルだとかシステムコールにたらい回されるにしたって、 perlfuncに載ってるexecはPerlの組み込み関数でしょ。 perldoc.jp/index/function execのほかにforkやexitもだけど、リンクはあるのにクリックすると組み込み関数じゃありませんってのはおかしいので何かの手違いだろう。 257 名前：デフォルトの名無しさん mailto:sage [2012/03/22(木) 00:38:24.69 ] perldoc.jp/func/adelic 手違いっぽいね 258 名前：デフォルトの名無しさん mailto:sage [2012/03/22(木) 00:41:59.19 ] そりゃあ簡単だ forkなんてUNIXの方の機能じゃん だからperlのモンじゃあない execもexitも同じ、perlの組み込みじゃない 259 名前：デフォルトの名無しさん mailto:sage [2012/03/22(木) 01:02:12.03 ] 手違いというより単に翻訳済みのドキュメントがないってことでしょ 260 名前：デフォルトの名無しさん mailto:sage [2012/03/22(木) 01:44:20.59 ] >>258 システムコールforkをPerlから呼ぶためにはPerlの組み込み関数forkが必要だろ。 それに、perlはUNIXだけのモンじゃあない。Perlの関数forkは非UNIXではそれに応じた動作をしなけりゃならない。 >>259 perldoc.jp/perlfunc からは見れるからやっぱり手違いだろう。 261 名前：デフォルトの名無しさん mailto:sage [2012/03/22(木) 01:52:16.27 ] んじゃそっちからこっちへアップデートされてないってことで

---

---

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

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