- 1 名前：デフォルトの名無しさん mailto:sage [2007/03/14(水) 22:54:12 ]
- "The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、Perlの奥深さについて皆で語り合い、追求してまいりましょう。
CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
(WEBプログラミング板 pc8.2ch.net/php/ )
CGIの質問は答えがPerlと全然関係ない話に帰着する場合が多かったりするのでWEBプログラミング板に行って聞いたほうが得ですよ。
このスレでは(CGI以外の)純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
www.perl.org/get.html
● 2006/12/21現在の最新版: 5.8.8
● 2006/12/21現在の開発版: 5.9.3
前スレ
Perlについての質問箱 29箱目
pc11.2ch.net/test/read.cgi/tech/1166708139/
リンク集は>>2-3
過去スレは>>4
- 897 名前：デフォルトの名無しさん mailto:sage [2007/06/04(月) 23:15:20 ]
- 質問します!
open FH,"/hoge/hoge.txt" #hoge.txtを開く
while (<FH>) { #FHファイルを行単位で読み込んでいく
$Str = $_; #変数Strにデフォルトで入力やパターンマッチになる特殊変数を代入
if( $Str =~ /__\w+__/g ){ #①???
if( $Str =~ /__KEYWORD__/ ){ #②???
$Str =~ s/__KEYWORD__/KEY/; #__KEYWORD__をKEYに置換する
}
}
print $str;
}
close FH;
コメントの部分の①と②の説明がうまくできません。
①は=~の部分がわからず、②は/と/で挟まなくて__KEYWORD__だけでも
同じ結果が返ってくるのではないかと思って悩んでいます。
よろしかった教えて頂けないでしょうか？
- 898 名前：デフォルトの名無しさん mailto:sage [2007/06/04(月) 23:24:58 ]
- %hoge;
$age = {%hoge};
というコードがあった場合、最後の代入で行われているのは
無名ハッシュコンストラクタの中でハッシュを評価することで、ハッシュのキーと値
からなるリストが生成され、それらを要素とする無名ハッシュが生成されて、そのリファレンスが
$ageに代入される。つまり%hogeのコピーのリファレンスを代入しているという考えでいいんでしょうか?
- 899 名前：デフォルトの名無しさん mailto:sage [2007/06/04(月) 23:46:46 ]
- >>897
Perl 正規表現でググればウンザリするほど答えが見つかると思います
>>898
そうです
- 900 名前：デフォルトの名無しさん [2007/06/04(月) 23:47:18 ]
- なるほど、自分で自分を許していないのですね。
ではあなたが黙れば解決です。あなたにできる最大の「低レベルな会話の排除」ですね！
あと、「本文」というのは面白い言い方だと思います。
相手に突っ込まれて、いかに馬鹿なことを言っていたかが自覚できた途端に
そこを蜥蜴の尻尾みたいに切り捨てて、「ノーダメージだよーん」ということにするのですね。
- 901 名前：デフォルトの名無しさん mailto:sage [2007/06/05(火) 00:05:57 ]
- >>897
なんかすごい無駄だらけなソースだなあ・・・
- 902 名前：デフォルトの名無しさん mailto:sage [2007/06/05(火) 00:31:50 ]
- ノーダメージだよーん
- 903 名前：デフォルトの名無しさん mailto:sage [2007/06/05(火) 00:33:23 ]
- >>900
なんかすごい無駄だらけな文だなあ・・・
- 904 名前：デフォルトの名無しさん mailto:sage [2007/06/05(火) 00:42:53 ]
- なんかすごい無駄だらけなスレだなあ・・・
- 905 名前：デフォルトの名無しさん [2007/06/05(火) 00:48:01 ]
- 粘着荒らし酷いな
- 906 名前：デフォルトの名無しさん mailto:sage [2007/06/05(火) 00:52:00 ]
- 粘着した方が勝ち！
- 907 名前：デフォルトの名無しさん mailto:sage [2007/06/05(火) 01:14:38 ]
- ノーダメージだよーん
- 908 名前：デフォルトの名無しさん [2007/06/05(火) 01:34:33 ]
- 荒らしはやめてー＞＜
- 909 名前：デフォルトの名無しさん mailto:sage [2007/06/05(火) 04:03:09 ]
- 変な奴が現れたら一人も漏らさず全部相手するように
それがこのスレのお約束
- 910 名前：デフォルトの名無しさん mailto:sage [2007/06/05(火) 09:34:09 ]
- >>909
お前、もう帰っていいぞ。
- 911 名前：デフォルトの名無しさん mailto:sage [2007/06/05(火) 10:21:08 ]
- 次スレのテンプレのことについて、次の提案があるのだが、どうだろうか？
１．過去スレを入れるのはやめる。（前スレだけがあればよいと思う）
２．「エラーなどの問題への対処の相談には、問題が再現する完全かつ最短のソースを
作成して下さい。作成する過程で問題が解決する場合も多いです。」
との注意書きを >>1 に入れる。
（質問者が必要な情報を小出しにするのを防ぐため）
３．>>10をテンプレを入れる（但し、内容は、以下のように少し変更する）。
---------------------------------------------------------
# 【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)";
# 次に、あなたが実行したい処理の内容を入れて下さい。
print "SJISには、「十表貼申予暴」のようなダメ文字がある。\n";
sleep(1);
# 以上の内容は、日本語処理が解らない人でも、とりあえず日本語処理ができてしまう
# おまじないです。条件が異なる場合の対処方法は、ご自分で勉強して下さい。
- 912 名前：デフォルトの名無しさん mailto:sage [2007/06/05(火) 11:44:29 ]
- あれ？過去スレ保管所みたいなのなかったっけ？
- 913 名前：デフォルトの名無しさん [2007/06/06(水) 12:20:20 ]
- ttp://namahage.dip.jp/blog/archive/2007/06/06/98399.aspx
|
 |
