Perlについての質問箱 30箱目at TECH
Perlについての質問箱 30箱目 - 暇つぶし2ch893:デフォルトの名無しさん
07/06/04 21:33:09
バロスw

894:デフォルトの名無しさん
07/06/04 21:50:35
自演荒らしのImageMagick君ってこれと同一人物っぽいなw
URLリンク(www.gac.jp)
2chなんかに来ずにここで教えてクン続けてればよかったのに

895:デフォルトの名無しさん
07/06/04 21:59:04
さすがにそこまでストーキングっぽいことしなくてもいいのに・・・

896:デフォルトの名無しさん
07/06/04 22:45:50
>>894
どっちもImage-Magi'c'になっててワラタ
借りてる鯖はlolipopかな?

897:デフォルトの名無しさん
07/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:デフォルトの名無しさん
07/06/04 23:24:58
%hoge;

$age = {%hoge};

というコードがあった場合、最後の代入で行われているのは
無名ハッシュコンストラクタの中でハッシュを評価することで、ハッシュのキーと値
からなるリストが生成され、それらを要素とする無名ハッシュが生成されて、そのリファレンスが
$ageに代入される。つまり%hogeのコピーのリファレンスを代入しているという考えでいいんでしょうか?

899:デフォルトの名無しさん
07/06/04 23:46:46
>>897
Perl 正規表現でググればウンザリするほど答えが見つかると思います

>>898
そうです

900:デフォルトの名無しさん
07/06/04 23:47:18
なるほど、自分で自分を許していないのですね。
ではあなたが黙れば解決です。あなたにできる最大の「低レベルな会話の排除」ですね!

あと、「本文」というのは面白い言い方だと思います。
相手に突っ込まれて、いかに馬鹿なことを言っていたかが自覚できた途端に
そこを蜥蜴の尻尾みたいに切り捨てて、「ノーダメージだよーん」ということにするのですね。


901:デフォルトの名無しさん
07/06/05 00:05:57
>>897
なんかすごい無駄だらけなソースだなあ・・・

902:デフォルトの名無しさん
07/06/05 00:31:50
ノーダメージだよーん

903:デフォルトの名無しさん
07/06/05 00:33:23
>>900
なんかすごい無駄だらけな文だなあ・・・


904:デフォルトの名無しさん
07/06/05 00:42:53
なんかすごい無駄だらけなスレだなあ・・・

905:デフォルトの名無しさん
07/06/05 00:48:01
粘着荒らし酷いな

906:デフォルトの名無しさん
07/06/05 00:52:00
粘着した方が勝ち!

907:デフォルトの名無しさん
07/06/05 01:14:38
ノーダメージだよーん

908:デフォルトの名無しさん
07/06/05 01:34:33
荒らしはやめてー><

909:デフォルトの名無しさん
07/06/05 04:03:09
変な奴が現れたら一人も漏らさず全部相手するように
それがこのスレのお約束

910:デフォルトの名無しさん
07/06/05 09:34:09
>>909
お前、もう帰っていいぞ。

911:デフォルトの名無しさん
07/06/05 10:21:08
次スレのテンプレのことについて、次の提案があるのだが、どうだろうか?

1.過去スレを入れるのはやめる。(前スレだけがあればよいと思う)
2.「エラーなどの問題への対処の相談には、問題が再現する完全かつ最短のソースを
  作成して下さい。作成する過程で問題が解決する場合も多いです。」
との注意書きを >>1 に入れる。
(質問者が必要な情報を小出しにするのを防ぐため)
3.>>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:デフォルトの名無しさん
07/06/05 11:44:29
あれ?過去スレ保管所みたいなのなかったっけ?

913:デフォルトの名無しさん
07/06/06 12:20:20
URLリンク(namahage.dip.jp)


最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch