Perl初心者スレ（マジレス回答） (523ﾚｽ)
Perl初心者スレ（マジレス回答） http://mevius.5ch.net/test/read.cgi/tech/1349538519/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
357: デフォルトの名無しさん [sage] 2015/03/13(金) 20:55:35.08 ID:hJWhu2F/ なにこの良スレ http://mevius.5ch.net/test/read.cgi/tech/1349538519/357
358: デフォルトの名無しさん [sage] 2015/03/28(土) 10:06:58.72 ID:spJK+jxH my $tmp = { $a => sub { $_ = 処理A}, $b => sub { $_ = 処理B}, $c => sub { $_ = 処理C}, }; ループ中に↑のように書いている場合、一つの変数に対して複数の処理($a に 処理A' を追加)を 加えたい場合、どのように書くのでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1349538519/358
359: デフォルトの名無しさん [sage] 2015/03/30(月) 16:12:56.05 ID:4W43OXe7 ; http://mevius.5ch.net/test/read.cgi/tech/1349538519/359
360: デフォルトの名無しさん [sage] 2015/04/12(日) 18:06:38.92 ID:eedq/AcT 凄い初歩的な質問だと思うのですが真剣に行き詰まってます 教えてください _HOGE_ こんな表記の変数ってなんて表現するんですか？ またネットでこういう変数について調べたいときは、 どのように検索したらヒットしますでしょうか。 Perl __ で検索しても全然それらしい記事が発見できず http://mevius.5ch.net/test/read.cgi/tech/1349538519/360
361: デフォルトの名無しさん [sage] 2015/04/12(日) 18:43:51.80 ID:Xaz/Qvpp _HOGE_は変数じゃないからヒットしないのが正解 もしかして：ヒアドキュメント http://mevius.5ch.net/test/read.cgi/tech/1349538519/361
362: デフォルトの名無しさん [sage] 2015/04/12(日) 20:02:52.86 ID:eedq/AcT なるほど・・・独自のプログラム記述なんでしょうかね・・・ Perlの変数記述方法じゃないことがわかって少し安心しました もう一回解析してきます http://mevius.5ch.net/test/read.cgi/tech/1349538519/362
363: デフォルトの名無しさん [sage] 2015/04/12(日) 20:06:31.76 ID:eedq/AcT >>361さんの回答で先入観が排除され、 意味がわかりました。 $mes =~ s/_HOGE_/$name/g; 文字列に埋め込まれた_HOGE_を別の変数に代入されてる文字列と置換させていました。 ありがとうございました。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/363
364: デフォルトの名無しさん [sage] 2015/04/13(月) 07:38:14.33 ID:bJ3+bESR __END__ とかそんなのの仲間じゃなくて？ http://mevius.5ch.net/test/read.cgi/tech/1349538519/364
365: デフォルトの名無しさん [sage] 2015/05/14(木) 07:11:03.21 ID:y4MWBEfC なんでも受け付けるからって、 __HOGE__ をヒアドキュメントとして使ってる人は、単に 特殊リテラルを理解してない人。 質問に超絶遅レスするなら、 __HOGE__は、ほんとうに HOGE と書かれていたなら、 特殊リテラルのまねっこ。 DATA, END などなら、perldoc.jp で perldata から「特殊なリテラル」の項を 参照すること。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/365
366: デフォルトの名無しさん [sage] 2015/05/15(金) 01:58:16.40 ID:3U2TIRvt >>365 どういうこと？ http://mevius.5ch.net/test/read.cgi/tech/1349538519/366
367: デフォルトの名無しさん [sage] 2015/05/15(金) 02:39:32.50 ID:PxFVj8Xw ヒアドキュメントのデリミタを print <<die; dieなんてしないよ die ってしたら混乱するでしょ。それと同じレベルで特殊リテラルの 記載に類似（もしくはそのまま）させて使ったら、あかんでしょ。 print <<__END__; dieなんてしないよ __END__ って主旨？ http://mevius.5ch.net/test/read.cgi/tech/1349538519/367
368: デフォルトの名無しさん [sage] 2015/05/17(日) 23:46:03.51 ID:wdkXHT83 絶対にありえない単語を区切りにしないと、区切りとしての役目にならんだろが __END__を区切りにしてしまったら、__END__という単語が使えなくなるだろ http://mevius.5ch.net/test/read.cgi/tech/1349538519/368
369: デフォルトの名無しさん [sage] 2015/05/18(月) 00:16:17.74 ID:4BIqDTjB じゃあ __HOGE__ にするわ。絶対ありえん単語だし。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/369
370: デフォルトの名無しさん [sage] 2015/05/18(月) 00:56:57.87 ID:sNwS2iXa >>368 実行してみろよ、動くぞ。 use strict ; use warnings ; while(<DATA>){ print ; } print <<__DATA__; これがヒア __DATA__ __DATA__ 特殊リテラル http://mevius.5ch.net/test/read.cgi/tech/1349538519/370
371: デフォルトの名無しさん [sage] 2015/05/28(木) 16:11:25.87 ID:lXL23oHs ID.パス付きのHPの更新通知プログラムをつくり実行したところ (certificate verify failed)とハマりました。 おそらくSSL関係でつまっています。 簡単に教えてくれる方お願いします。 $mech->get('https://*****'); ↑指摘されたラインです SSLかと思うのですが、SSLについて知識があまりないため、 ダメだった理由をわかりやすく教えていただけませんか？ あと、ユーザーIDやパスワードの前にpitgetを書いてあると どうなるのでしょうか？ 説明下手でごめんな
さい。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/371
372: デフォルトの名無しさん [sage] 2015/06/08(月) 21:35:22.93 ID:fDJEyEgd 特定のディレクトリ(test)からファイルを読み込む処理を 実装しようと思っています。 while(<./test/*>){ #〜ファイル読み込み処理 } はOKなのに $hoge = "./test/*"; while(<$hoge>){ #〜ファイル読み込み処理 } がうまくいかない理由はなぜなのでしょうか？ $hogeを可変にしたいのですがどうすればよいでしょうか？ 突然の質問で申し訳ありませんが、宜しくお願いします。 http://mevius.5ch.net/test/read.cgi/tech/134
9538519/372
373: デフォルトの名無しさん [sage] 2015/06/08(月) 22:51:09.28 ID:tIKF3SUY $hoge = "./test/*"; これは文字だからです。(演算子に対するアドレス(ポインタ)ではありません)。 $hoge = "test"; while(<./$hoge/*>) http://mevius.5ch.net/test/read.cgi/tech/1349538519/373
374: デフォルトの名無しさん [sage] 2015/06/08(月) 23:05:32.65 ID:fDJEyEgd >>373 出来ました！ありがとうございます 今日かなり悩んでいました おかげ様でスッキリしました http://mevius.5ch.net/test/read.cgi/tech/1349538519/374
375: デフォルトの名無しさん [] 2015/08/31(月) 00:47:28.38 ID:xgd4PpfH 下のようにリストのリストを作成したいがcpanか何かで実現できないでしょうか？ > (list (list 1 2) (list 3 4)) ((1 2) (3 4)) > (first (list (list 1 2) (list 3 4))) (1 2) > (second (list (list 1 2) (list 3 4))) (3 4) my @car = (1, 2); my @cdr = (3, 4); my @both = (@car, @cdr); print "\@car is @car\n"; # -> @car is 1 2 print "\@cdr is @cdr\n"; # -> @cdr is 3 4 print "\@both is @both\n";# -> @
both is 1 2 3 4 printf "%s\n" , $both[0]; # -> 1 printf "%s\n" , $both[1]; # -> 2 printf "%s\n" , $both[2]; # -> 3 printf "%s\n" , $both[3]; # -> 4 http://mevius.5ch.net/test/read.cgi/tech/1349538519/375
376: デフォルトの名無しさん [] 2015/08/31(月) 13:20:01.08 ID:Q0xjlAqa Lisper な人？ 多分、こういうことをお望みかな。 #!/usr/bin/perl use Data::Dumper; my @car = (1, 2); my @cdr = (3, 4); my @both = ( \@car, \@cdr); print( Dumper( \@both)); http://mevius.5ch.net/test/read.cgi/tech/1349538519/376
377: デフォルトの名無しさん [] 2015/08/31(月) 13:31:30.24 ID:Q0xjlAqa ごめん、アクセス方法も書かなきゃね。 #!/usr/bin/perl my @car = (1, 2); my @cdr = (3, 4); my @both = ( \@car, \@cdr); print("$both[0]->[0]\n"); print("$both[0]->[1]\n"); print("$both[1]->[0]\n"); print("$both[1]->[1]\n"); http://mevius.5ch.net/test/read.cgi/tech/1349538519/377
378: デフォルトの名無しさん [] 2015/08/31(月) 18:13:02.76 ID:zR+vvNwg >>377 ありがとう perlのリファレンス表記がこの機会に少し分かりました my @car = (1, 2); my @cdr = (3, 4); my @both = ( \@car, \@cdr); print("$both[0]->[0]\n"); print("$both[0]->[1]\n"); print("$both[1]->[0]\n"); print("$both[1]->[1]\n"); print("@{$both[0]}\n"); print("@{$both[1]}\n"); http://mevius.5ch.net/test/read.cgi/tech/1349538519/378
379: デフォルトの名無しさん [] 2016/01/10(日) 13:19:49.57 ID:/ndDSiBm 971 名前：名無しさん＠七周年[] 投稿日：2006/11/11(土) 00:56:10 ID:M8+ahUZV0 自称スーパープログラマー某 強烈加齢臭 メール見ない メール無視 ドキュメント見ない ドキュメント無視 説明聞かない 説明無視 話聞かない 話無視 ガム→むっちゃー むっちゃー むっちゃー むっちゃー 煎餅→バリバリバリバリバリバリ 菓子パン→モグモグモグモグモグモグモグモグモグモグ カップアイス→むっちゃー むっちゃー ペロペロペロペロ フロアすべてに響き渡る 超ばかでかい
くしゃみ 当然手でおさえない 異音と異振動 ドスーン！ドスーン！ ドカーン！ドカーン！ バコーン！バコーン！ ズドン！ズドン！ 机が近いとマウスポインターが飛ぶ 誤操作誘発 書類だしたりしまうだけでドカンドカン 30秒ごとに口と鼻から異音 ふんっっ！ ふんっっ！ 備品破壊 貸与P C 破壊 他人のもの破壊 奴の作ったスクリプトとプログラムは使えない バグ製造機 電話や共有携帯電話 キーボードが油ベタベタ 奴に電話とPCとコンソールは触らせてはいけない http://mevius.5ch.net/test/read.cgi/tech/1349538519/379
380: デフォルトの名無しさん [age] 2016/11/02(水) 10:11:38.85 ID:+6JfDybA HTMLファイルの特定文字列を大文字から小文字へ置き換えたいです。 具体的には、name= http://mevius.5ch.net/test/read.cgi/tech/1349538519/380
381: 380 [] 2016/11/02(水) 10:15:17.18 ID:+6JfDybA あれ、途切れちゃったのでダブルクォートでおかしくなったので、無しで書きます。 HTMLファイルの特定文字列を大文字から小文字へ置き換えたいです。 具体的には、name=A10AB を name=a10ab とnameの部分のみ置き換えたいです。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/381
382: デフォルトの名無しさん [sage] 2016/11/03(木) 19:06:36.96 ID:OIFmvywo s{ name=" ([^"]+) " }{ 'name="' . lc($1) . '"' }egx http://mevius.5ch.net/test/read.cgi/tech/1349538519/382
383: 380 [sage] 2016/11/03(木) 23:22:08.51 ID:k7tVkirO >>382 eで関数を使えるんですね。ありがとうございました。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/383
384: デフォルトの名無しさん [sage] 2016/11/20(日) 01:09:58.42 ID:VOEYuZOA perl コマンドラインからﾓｼﾞｭｰﾙを読み込みたいんですが、 perl -mM Win32::Clipboard -e "" だと Can't open perl script "Win32::Clipboard": Invalid argument と怒られます。 Perl64\lib\Win32\Clipboard.pm は存在しているのですが・・・ http://mevius.5ch.net/test/read.cgi/tech/1349538519/384
385: デフォルトの名無しさん [sage] 2016/11/20(日) 11:39:42.73 ID:fMzPWX9X なんで -m と -M 重ねてるの？それと隙間開けずにやってみ -MWin32::Clipboard ↑ http://mevius.5ch.net/test/read.cgi/tech/1349538519/385
386: デフォルトの名無しさん [sage] 2016/11/20(日) 11:42:40.54 ID:fMzPWX9X perl -mM Win32::Clipboard だと M.pm を読み込んだ後 Win32::Clipboard という名のファイルをperlスクリプトとして実行しようとしてるっぽい http://mevius.5ch.net/test/read.cgi/tech/1349538519/386
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 137 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.008s