Perl初心者スレ（マジレス回答） (523ﾚｽ)
Perl初心者スレ（マジレス回答） http://mevius.5ch.net/test/read.cgi/tech/1349538519/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
291: デフォルトの名無しさん [sage] 2014/06/05(木) 06:34:54.17 ID:Mvr5+GEe Web以外で最近なんか未解決質問あったっけここ http://mevius.5ch.net/test/read.cgi/tech/1349538519/291
292: デフォルトの名無しさん [sage] 2014/06/05(木) 19:01:58.49 ID:aZWI6Ot4 >>291 今日も元気に残件なす！ http://mevius.5ch.net/test/read.cgi/tech/1349538519/292
293: デフォルトの名無しさん [sage] 2014/06/08(日) 05:04:05.20 ID:LT2twBt5 複数のRSSフィードを結合して一つのRSSを生成したい。 その際、「生成されたフィード記事のリンクURLすべてを任意のリンク先に指定する。」 このやり方を教えてください。 XML::FeedPP、XML::TreePPというモジュールを用い、下記のCGIプログラムを使用して自動更新する１つのフィードを生成するところまでは出来ました。 しかし、他の部分はチョロチョロと変えることができるのですが、記事リンクだけはどうしても変えることができません。全部の記事リンクを、ある１つ
のリンクに変換したいだけです。 #!/usr/bin/perl use XML::TreePP; use XML::FeedPP; my $feed = XML::FeedPP::RDF->new(); $feed->merge( "結合したいrssフィード1" ); $feed->merge( "結合したいrssフィード2" ); my $now = time(); $feed->sort_item(); $feed->pubDate( $now ); my $atom = $feed->to_file( "index.rdf", "UTF-8" ); print "Content-type: text/plain\n\n"; print "出力完了\n"; 使ってるレンタルサーバーはロリポップです。 複数のフィー
ド（RSS、Atomなど）をまとめるCGI http://blog.audiofan.net/archives/491385.html [Perl] XML::FeedPP - RSS・RDF・Atomフィードの解析・生成・変換・結合 http://www.kawa.net/works/perl/feedpp/feedpp.html XML::FeedPP https://metacpan.org/pod/XML::FeedPP#feed-remove_item-index-or-link http://search.cpan.org/~kawasaki/XML-FeedPP-0.43/lib/XML/FeedPP.pm http://mevius.5ch.net/test/read.cgi/tech/1349538519/293
294: デフォルトの名無しさん [sage] 2014/06/10(火) 06:01:49.29 ID:hRaawaun >>293 WebProg http://nozomi.2ch.net/php/ http://mevius.5ch.net/test/read.cgi/tech/1349538519/294
295: デフォルトの名無しさん [sage] 2014/06/10(火) 12:30:22.68 ID:zpbxFFHG ttp://s1.gazo.cc/up/88224.jpg こういった10行で一組のデータの中に --- 市民の... yerles warrior --- というパターンが多くあります。 マッチ検索したいのは --- 市民の... dog warrior --- というパターンです。 "市民"という文字を見つけたら 2行下に "dog"という文字があるならば その、"市民の..."を出力して欲しいです。 ファイル読んで単純マッチするぐらいしか今はできません open (my $in , "<" , "./cda
tan_5_101.s2"); while (<in>){ if (/yerles/){print "matched\n"} } close $in; } http://mevius.5ch.net/test/read.cgi/tech/1349538519/295
296: デフォルトの名無しさん [sage] 2014/06/10(火) 13:44:16.05 ID:kKsVvptA >>295 http://ideone.com/0A9TR0 http://mevius.5ch.net/test/read.cgi/tech/1349538519/296
297: デフォルトの名無しさん [sage] 2014/06/10(火) 13:58:26.18 ID:kKsVvptA 手抜きすぎた。 >>295 http://ideone.com/NUuEtp http://mevius.5ch.net/test/read.cgi/tech/1349538519/297
298: デフォルトの名無しさん [sage] 2014/06/10(火) 14:45:55.30 ID:zpbxFFHG 凄い。ありがとう。 出てきたshiftとか勉強してみます 感謝 http://mevius.5ch.net/test/read.cgi/tech/1349538519/298
299: デフォルトの名無しさん [sage] 2014/06/11(水) 22:22:53.08 ID:PCU6+AOL どこにshiftの出番があるのか？と思ったらそう言うことか。 普通に配列に突っ込んで、マイナスのインデクスでアクセスすりゃいいやん。 $ perl -Mvars=@a -lne 'push @a, $_ ; next if !/dog/ ; next if $a[-3] !~ /市民/ ; print $a[-3]' File メモリ喰いが気になるのなら、 $ perl -Mvars=%h -lne '$h{$.} = $_ if /市民/ ; next if !/dog/ ; next if ! defined $h{$. - 2} ; print $h{$. - 2}' File とか、で節約すりゃいい。、、、けど、今時そんなの気にする必
要もないだろ 上のワンライナーでやってる事は、 $ perl -MO=Deparse -Mvars...略 でわかる。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/299
300: デフォルトの名無しさん [sage] 2014/06/12(木) 13:15:46.45 ID:qt4Roz23 恰好をつけるなら、リングバッファでも書くところですが、回答としては、あんまりだと思ったので。 2行固定なら、別に使わなくても。 perl -ne '($_, $x, $y) = ($x, $y, $_); $y =~ /dog/ && /市民/ && print' File 何も考えなくていいなら、正規表現でバッサリ。 perl -e 'print((local $/ = <>) =~ /(^.*市民.*\n).*\n.*dog/gm)' File http://mevius.5ch.net/test/read.cgi/tech/1349538519/300
301: デフォルトの名無しさん [sage] 2014/07/13(日) 23:15:08.85 ID:m+RTKRIb >>300 1ヵ月以上もお前のレスにレスがつかないのはなぜか分かる？ お前みたいなゴミクズは誰も必要としてないからだよ。 一般社会ではあからさまに無視するわけにもいかないから当たり障りのない対応をしてもらってると思うけど、 お前ハッキリ言って迷惑だから。 ゴミクズはネットでもリアルでもできるだけ社会と接点持つな。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/301
302: デフォルトの名無しさん [sage] 2014/07/26(土) 13:51:21.84 ID:5yhnFgSu Test Summary Report ------------------- t/config-finder.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: Bad plan. You planned 26 tests but ran 0. Files=86, Tests=923, 636 wallclock secs ( 2.64 usr 1.67 sys + 247.77 cusr 297.98 csys = 550.05 CPU) Result: FAIL Failed 1/86 test programs. 0/923 subtests failed. Makefile:945: recipe for target 'test_classic' failed make: *** [test_classic] Error 255 PETD
ANCE/ack-2.12.tar.gz /usr/bin/make test -- NOT OK //hint// to see the cpan-testers results for installing this module, try: reports PETDANCE/ack-2.12.tar.gz Running make install make test had returned bad status, won't install without force Failed during this command: PETDANCE/ack-2.12.tar.gz : make_test NO Windous上のcygwinとLinuxでCPANのackをインストールしているところでつまずきました 上のエラーはcygwinの方のエラーです これは、curlを使えば回避できるそうですが http://d.hatena.ne.jp/kat
z_24/20130210/1366387522 setup.exeを利用したインストールでも何故かインストールができずに手詰まりになりました ack-2.12.tar.gz を回答してみても訳が分かりません ackをインストールする手はありますか? http://mevius.5ch.net/test/read.cgi/tech/1349538519/302
303: デフォルトの名無しさん [] 2014/07/26(土) 14:09:06.14 ID:mdOIZXZW make test had returned bad status, won't install without force まけ出来てるのならいんすこ自体は可能 http://mevius.5ch.net/test/read.cgi/tech/1349538519/303
304: デフォルトの名無しさん [sage] 2014/07/26(土) 15:10:46.74 ID:5yhnFgSu force installでcygwinの方に入れました 正常に動作します ありがとうございました Linuxの方は、手っ取り早く sudo aptitude install ack-grep しました おかげさまで両方にackが揃いました 感謝します http://mevius.5ch.net/test/read.cgi/tech/1349538519/304
305: デフォルトの名無しさん [sage] 2014/08/06(水) 20:37:58.86 ID:Wa4hIBKh xmlを取得して中身を s|。|。<br>|g; して句読点ごとに改行させたかったのですがどうしても出来ません なにか理由があるのでしょうか 初心者なもんで変な質問をしていたらすいません http://mevius.5ch.net/test/read.cgi/tech/1349538519/305
306: デフォルトの名無しさん [sage] 2014/08/06(水) 20:41:08.65 ID:itqhygIz 文字コード http://mevius.5ch.net/test/read.cgi/tech/1349538519/306
307: デフォルトの名無しさん [sage] 2014/08/06(水) 20:43:50.60 ID:E5F7+XJp エスパーじゃないんだから、そんな質問で答えれる訳ないだろ。 せめてサンプルとなる簡単なxmlを出せよ・・・ http://mevius.5ch.net/test/read.cgi/tech/1349538519/307
308: デフォルトの名無しさん [sage] 2014/08/06(水) 21:39:48.88 ID:Wa4hIBKh 申し訳ないです >>306 デコードはしています >>307 申し訳ありません wikipedia.simpleapi.net/api?keyword=Test&output=xml http://mevius.5ch.net/test/read.cgi/tech/1349538519/308
309: デフォルトの名無しさん [sage] 2014/08/06(水) 22:33:25.28 ID:E5F7+XJp >>308 テストした結果、普通に置き換えできます。 取得方法に問題があるんだろう。 ってか、こんな質問の仕方じゃスレ全部埋まるわ・・・ 問題が起きてるサンプルコード出してみ http://mevius.5ch.net/test/read.cgi/tech/1349538519/309
310: デフォルトの名無しさん [sage] 2014/08/06(水) 22:37:04.17 ID:itqhygIz >>308 ちげーよ utf8のファイルをeucのスクリプトでマッチしようとしたんじゃないの、ってこと http://mevius.5ch.net/test/read.cgi/tech/1349538519/310
311: デフォルトの名無しさん [sage] 2014/08/06(水) 22:48:45.57 ID:Wa4hIBKh >>310 shift-jisのスクリプトでマッチさせようとしました 不味かったでしょうか http://mevius.5ch.net/test/read.cgi/tech/1349538519/311
312: デフォルトの名無しさん [sage] 2014/08/06(水) 23:05:36.50 ID:itqhygIz >>311 なら、どっちかの文字コードにencodeして合わせる http://mevius.5ch.net/test/read.cgi/tech/1349538519/312
313: デフォルトの名無しさん [sage] 2014/08/06(水) 23:07:49.58 ID:E5F7+XJp いや、よほど特別な事情がない限りは utf-8 のソースにするべき。 http://d.hatena.ne.jp/perlcodesample/20091118/1246679588 この辺読んで理解するべき。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/313
314: デフォルトの名無しさん [sage] 2014/08/18(月) 11:10:58.79 ID:Umc6CSTk > perl -e "print (5+5)/3" 10 なんで？ http://mevius.5ch.net/test/read.cgi/tech/1349538519/314
315: デフォルトの名無しさん [sage] 2014/08/18(月) 19:48:40.74 ID:3b1Nz6uJ print -e "print((5+5)/3)" http://mevius.5ch.net/test/read.cgi/tech/1349538519/315
316: デフォルトの名無しさん [sage] 2014/08/19(火) 07:25:44.81 ID:o0wKf1/G >>314 http://perldoc.jp/docs/perl/5.18.1/perlfunc.pod > 括弧を使うときには、単純な、(しかし、ときには驚く結果となる規則が 適用できます: > 関数に見えるならば、それは関数で、優先順位は関係ありません。 (略) > Perl に -w スイッチを付けて実行すれば、こういったものには警告を 出してくれます。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/316
317: デフォルトの名無しさん [sage] 2014/08/19(火) 20:11:13.78 ID:pX43W7dG 2000年には既にwarnings実装してんのに なんで未だに、-w推薦文章なんか残してんだろーね？ -Mwarningsのエイリアスって訳でもねーし。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/317
318: デフォルトの名無しさん [sage] 2014/09/02(火) 01:23:02.48 ID:ytxIDh0v 【誤】print -e "print ((5+5)/3)" 【正】perl -e "(print(5+5)) / 3" ついでに -w と -Mwarnings は別物。-Mwarnings で -w の代わりになるわけではない。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/318
319: デフォルトの名無しさん [sage] 2014/09/02(火) 02:10:54.86 ID:EB7tqG6E だが共に生きることはできる http://mevius.5ch.net/test/read.cgi/tech/1349538519/319
320: デフォルトの名無しさん [sage] 2014/09/02(火) 04:04:55.52 ID:smXsHdMQ >>318 -w ≠ warningsは常識だろ。 で、「use Unicodeは、use Jcodeの代りじゃない」ってレベルの事を言ってるぞ、おまえさん。 -wが石頭だから、より制御しうるwarningsを実装したんだろが。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/320
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 203 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.011s