Perl初心者スレ(マジレス回答) (523レス)
Perl初心者スレ(マジレス回答) http://mevius.5ch.net/test/read.cgi/tech/1349538519/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
262: デフォルトの名無しさん [sage] 2014/02/22(土) 23:28:04.79 >>259 マジレスすると今現在はRuby 但し3ヵ月後、半年後は分からん 自分でその情報を追えないならSEはやめとけ 今現在既に追えてないみたいだけど http://mevius.5ch.net/test/read.cgi/tech/1349538519/262
263: デフォルトの名無しさん [sage] 2014/02/22(土) 23:50:35.64 >>259 そもそもその文脈でCGIは全く関係ないよ。そこに気付けないなんて釣りだろ? http://mevius.5ch.net/test/read.cgi/tech/1349538519/263
264: デフォルトの名無しさん [sage] 2014/02/22(土) 23:56:23.80 >>260-263 ありがとうございます! javaか、PHPか、perlで悩んでました。 色々調べると、PHPが入り易そうなので、、 明日、本屋に行って、決めます。 ※CGIは、掲示板とか作るのであって、検索とかするのとは違うなあ、 と思いながら、プログラマさんの意見を聞いていました。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/264
265: デフォルトの名無しさん [sage] 2014/02/23(日) 00:03:57.16 >>264 やっぱ釣りだったか http://mevius.5ch.net/test/read.cgi/tech/1349538519/265
266: デフォルトの名無しさん [sage] 2014/02/23(日) 00:08:16.47 PHPが第一候補だったのですが、某サイトで、 PHPは、WEB系以外には、まったく意味がない、との様なコメントがあり、困りました。 javaは、いきなり入るには、まだ敷居が高いかなと悩みました。 perlは、単に簡単な、検索や置換には適しているようなコメントで一気に候補に挙がりました。 これらから悩んでいたんです。コメントありがとうございます。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/266
267: デフォルトの名無しさん [sage] 2014/02/23(日) 00:20:28.63 >>266 そのコメントとやらの投稿日時と信憑性も確認しろよ まさか去年の夏以前の投稿で、しかも第一線で活躍してい"た"奴の投稿じゃないだろうな 3ヵ月以内の投稿で、しかも第一線で活躍してい"る"人の投稿なら信用しろ そしてそういう人ならまずPerlを候補に挙げることはない まぁ第一線で活躍してるわけでもない俺のこんな匿名の投稿も信憑性がないだろうから 第一線で活躍してる人がPerlなんか使わないということは自分の目で確認してくれ http://mevius.5ch.net/test/read.cgi/tech/1349538519/267
268: デフォルトの名無しさん [sage] 2014/02/23(日) 00:24:33.24 >>267 投稿日時、第一線は確認していませんでした。 すみません、助言、ありがとうございます。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/268
269: デフォルトの名無しさん [sage] 2014/02/23(日) 00:27:42.14 >>266 PHPがWeb系以外に使えんのは本当 Perlでも良いけど、RubyやPythonも有効だよ まあ、まずは最初にシェルスクリプトだけどね http://mevius.5ch.net/test/read.cgi/tech/1349538519/269
270: デフォルトの名無しさん [sage] 2014/02/23(日) 00:38:05.80 と言うか、PerlスレにPHPのこと聞く時点で釣り http://mevius.5ch.net/test/read.cgi/tech/1349538519/270
271: デフォルトの名無しさん [sage] 2014/02/23(日) 00:39:36.75 >>269 >PerlとLispが結婚して隔世遺伝が黒魔術で生まれた言語。 >Javaは硬度8くらい、Pythonは6くらいになるのに対して、Rubyは3くらいになる。 との記事を見つけました。いつの記述かわからないのですが(汗) Rubyも明日、本屋で漁ってみます。ありがとうございます。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/271
272: デフォルトの名無しさん [sage] 2014/02/23(日) 00:40:48.81 >>270 すみません。退散します。 みなさん、マジレス、ありがとうございます。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/272
273: デフォルトの名無しさん [sage] 2014/03/05(水) 06:22:38.93 >>232-234 _EOM_なんて使っちゃだめだよ。見づらい。 print "Content-type: text/html\n\n"; print "<html>"; print "<body>"; print "A*B = $A * $B"; print "</body>"; print "</html>"; http://mevius.5ch.net/test/read.cgi/tech/1349538519/273
274: デフォルトの名無しさん [sage] 2014/03/25(火) 21:15:29.29 ID:dz69sIJc print "あいうえお"; ↑これを文字コードをeuc-jpで保存してコマンドプロントからこのファイルを実行して コマンドプロンプト上に文字化けなく あいうえお と出力させるにはどういうコードを追加すればいいの? http://mevius.5ch.net/test/read.cgi/tech/1349538519/274
275: デフォルトの名無しさん [sage] 2014/03/25(火) 21:25:34.52 ID:dz69sIJc >>274はちょっと疑問に思っただけで何かするのに必要なワケじゃないので無理して 答えようとしないで下さい。たぶんちょっとググった程度で分かるようなことではないです。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/275
276: デフォルトの名無しさん [sage] 2014/03/25(火) 21:54:24.41 ID:En8OrmpQ >>274-275 http://perldoc.jp/docs/modules/encoding/encoding.pod use encoding 'euc-jp', STDOUT => 'cp932'; 但し Perl 5.18.0 以降、encoding プラグマは非推奨で将来的に削除される予定。 http://perldoc.perl.org/encoding.html#WARNING http://mevius.5ch.net/test/read.cgi/tech/1349538519/276
277: 274 [sage] 2014/03/25(火) 22:08:05.94 ID:dz69sIJc >>276 うおお、すごい、あっさり出来てしまった・・。 今日一日↓こんなのでやろうとして泥沼にハマってました。 use encoding "euc-jp"; binmode STDOUT, ':encoding(cp932)'; スーパーハカーさんどうもありがとう〜 http://mevius.5ch.net/test/read.cgi/tech/1349538519/277
278: デフォルトの名無しさん [sage] 2014/05/07(水) 01:39:02.09 ID:NfbdqxRr print +(3,2,1,),"\n"; ↑これ、+記号を消すと改行が反映されなくなるんですが、この+記号って どういう意味ですか?ググるためのキーワードだけでもおねがいします。 ググると +{ } は出てきたんですが +( ) はなぜか見つかりませんでした。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/278
279: デフォルトの名無しさん [sage] 2014/05/07(水) 04:47:36.14 ID:nyTYPDB6 >>278 (print(3,2,1)), "\n"; http://mevius.5ch.net/test/read.cgi/tech/1349538519/279
280: デフォルトの名無しさん [sage] 2014/05/07(水) 06:28:00.20 ID:WoJ0c0N0 +() は scalar () とほぼ同等。 +{}は、ブロック中の戻り値(?)をスカラーとして評価しますって意味。 +()は、リストとして評価しませんよーって意味。 perldocのperlopの Terms and List Operators (Leftward) と Unary "+" を参照してください。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/280
281: 278 [sage] 2014/05/07(水) 09:44:31.49 ID:NfbdqxRr >>279-280 なるほど、+{ } と同じような使い方だったんですね、ありがとうございました。 perldocもこれから読んでみます、多謝。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/281
282: デフォルトの名無しさん [sage] 2014/05/17(土) 17:23:28.43 ID:syasv/b2 windowsの隠しファイルを判別する方法を教えてください http://mevius.5ch.net/test/read.cgi/tech/1349538519/282
283: デフォルトの名無しさん [sage] 2014/05/17(土) 18:53:12.61 ID:9KhUrEje >>282 http://search.cpan.org/dist/Win32-File/File.pm use Win32::File qw(GetAttributes HIDDEN); GetAttributes($ARGV[0], my $attr) or die $!; print +($attr & HIDDEN) ? 1 : 0; http://mevius.5ch.net/test/read.cgi/tech/1349538519/283
284: デフォルトの名無しさん [sage] 2014/05/17(土) 18:54:17.69 ID:syasv/b2 >>283 ありがとうございます http://mevius.5ch.net/test/read.cgi/tech/1349538519/284
285: デフォルトの名無しさん [sage] 2014/05/24(土) 13:13:06.88 ID:JzdRsmzF 掲示板のCGIを設置したんだけど、<a href="./bbs/mtbbs.cgi?">って感じにリンクするようにして、http://172では、ちゃんと作動したんだけど、 実際にFTPに転送すると、作動しないどころか画面が写らない 500エラーが出てくる 原因に関してはまだわかんなくて、調べてるんだけど、そもそも思ったのが<a href="./bbs/mtbbs.html">ならまだしも<a href="./bbs/mtbbs.cgi?">なんて、直にリンクすることなんてできるの? http://mevius.5ch.net/test/read.cgi/tech/1349538519/285
286: デフォルトの名無しさん [sage] 2014/05/24(土) 17:20:37.74 ID:Cq+cm/k7 >>285 WebProg板へドゾー http://mevius.5ch.net/test/read.cgi/tech/1349538519/286
287: デフォルトの名無しさん [sage] 2014/05/25(日) 10:23:53.30 ID:iOXakntE >>285 リンクはできる 動かない原因は別にある http://mevius.5ch.net/test/read.cgi/tech/1349538519/287
288: デフォルトの名無しさん [] 2014/06/04(水) 10:34:27.77 ID:8N6swAY/ 知恵袋で質問したら回答どころか閲覧すらなさすぎワロタ・・・ http://mevius.5ch.net/test/read.cgi/tech/1349538519/288
289: デフォルトの名無しさん [] 2014/06/04(水) 15:39:06.30 ID:ZiHf6GEW 早くマジレスしろ屑やろう http://mevius.5ch.net/test/read.cgi/tech/1349538519/289
290: デフォルトの名無しさん [] 2014/06/05(木) 04:14:43.22 ID:tjfA5i3O 質問してもどうせまともに答えてくれないんだろうな どこ行っても解決しないわ http://mevius.5ch.net/test/read.cgi/tech/1349538519/290
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プログラムを使用して自動更新する1つのフィードを生成するところまでは出来ました。 しかし、他の部分はチョロチョロと変えることができるのですが、記事リンクだけはどうしても変えることができません。全部の記事リンクを、ある1つのリンクに変換したいだけです。 #!/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 , "<" , "./cdatan_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 PETDANCE/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/katz_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
321: デフォルトの名無しさん [sage] 2014/09/02(火) 07:00:12.46 ID:DO1XeoYm 5.20のperllexwarnがスッキリしててワラタ。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/321
322: デフォルトの名無しさん [sage] 2014/10/02(木) 21:11:40.29 ID:5+m7m9lZ 常識の根拠は常識は常識だから(真顔) http://mevius.5ch.net/test/read.cgi/tech/1349538519/322
323: デフォルトの名無しさん [sage] 2014/11/05(水) 08:46:59.07 ID:aEzkt3Do 再帰中に再帰の深さを出したいんだけどlocal使っていい? local $::count = $::count + 1; もっと普通の方法ある? http://mevius.5ch.net/test/read.cgi/tech/1349538519/323
324: デフォルトの名無しさん [sage] 2014/11/05(水) 11:35:00.61 ID:+yDKEom1 引数で渡す sub foo { my ($arg, $count) = @_; ...; foo($arg, $count) if $count++ < 10; } http://mevius.5ch.net/test/read.cgi/tech/1349538519/324
325: デフォルトの名無しさん [sage] 2014/11/05(水) 14:22:15.13 ID:aEzkt3Do ありがとーーー。 複製される変数の数には変わりがないよね、たぶん。 上はグローバル変数と言うのが気に入らなくて、下は引数で扱う値が増えるのが気に入らないが。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/325
326: デフォルトの名無しさん [sage] 2014/11/05(水) 16:45:55.49 ID:aEzkt3Do while(@all){ ((shift @all) eq 'cut') and last; } whileを修飾子として書くと落ちるんだが誰か理由を教えてくれー ((shift @all) eq 'cut') and last while(@all); evalでも落ちた http://mevius.5ch.net/test/read.cgi/tech/1349538519/326
327: デフォルトの名無しさん [sage] 2014/11/11(火) 22:49:14.07 ID:AzojYpxL 英数混じった文字列の中から2桁の数字にマッチさせたいのですが、 /\d\d/だと3桁以上の数字の前2桁にもマッチしてしまいます。 /^(\d\d)\D|\D(\d\d)\D|\D(\d\d)$|^(\d\d)$/ こんなことするより簡単な方法ないでしょうか? http://mevius.5ch.net/test/read.cgi/tech/1349538519/327
328: デフォルトの名無しさん [sage] 2014/11/12(水) 00:09:33.46 ID:WHJDipVn [^\d]\d{2}[^\d] http://mevius.5ch.net/test/read.cgi/tech/1349538519/328
329: デフォルトの名無しさん [sage] 2014/11/12(水) 02:38:25.07 ID:T/b7ogJF % perl -le 'print q{22} =~ /[^\d]\d{2}[^\d]/' % perl -le 'print q{22} =~ /(?<!\d)\d{2}(?!\d)/' 1 % perl -le 'print q{22} =~ /(?:^|\D)\d{2}(?:$|\D)/' 1 http://mevius.5ch.net/test/read.cgi/tech/1349538519/329
330: 327 [sage] 2014/11/12(水) 22:11:30.88 ID:obciIUzc /(?<!\d)\d{2}(?!\d)/ これが期待通りの結果が得られました。 (?<!)とか(?!)とかこれまで使ったこと無かったので勉強になりました。 ありがとうございました。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/330
331: デフォルトの名無しさん [sage] 2014/11/13(木) 00:03:57.67 ID:w30Rb1CY テストパターンに英字が入ってませんぜ http://mevius.5ch.net/test/read.cgi/tech/1349538519/331
332: デフォルトの名無しさん [] 2014/11/13(木) 05:25:18.91 ID:iJHzIgO3 \b使えよ。便利だぞ。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/332
333: デフォルトの名無しさん [sage] 2014/11/13(木) 05:51:07.66 ID:DTTQy1M/ そりゃ\b使って期待通りの結果が出るなら使うだろ http://mevius.5ch.net/test/read.cgi/tech/1349538519/333
334: デフォルトの名無しさん [] 2014/11/13(木) 23:58:39.09 ID:bKuFahzS 以下のような日付が下から上に並んでいるoriginal.txtがあるとします。 これを、日付を逆順にしたoutput.txtに整形するプログラムを作りたいです。 Windowsで、Batch fileとPerlで作れたらと考えています。よろしくお願いします。 <original.txt> ########## 20141203 ########### DNINITIENK FDKHJKDKKSK ・・・・・ ########## 20141202 ########### TUNINJKDF NIGHALKDK ・・・・・・ ########## 20141201 ########### ABCDEFGHIJKE LMNOPQRSTUV ・・・・・ <output.txt> ########## 20141201 ########### ABCDEFGHIJKE LMNOPQRSTUV ・・・・・・ ########## 20141202 ########### TUNINJKDF NIGHALKDK ・・・・・・ ########## 20141203 ########### DNINITIENK FDKHJKDKKSK ・・・・・・ http://mevius.5ch.net/test/read.cgi/tech/1349538519/334
335: デフォルトの名無しさん [sage] 2014/11/14(金) 00:03:31.59 ID:cRe1Bhcz >>332 \bだと英字と数字の境目は単語の区切りにならないみたい。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/335
336: デフォルトの名無しさん [sage] 2014/11/14(金) 01:18:41.88 ID:VOKh6jxm centosで元から入ってるperlとは別にソースインストールしたperlを別に入れました。 新しくインストールしたperlで以前から入っていたCPANモジュールを使いたい場合、再度入れなおす必要ありますか? http://mevius.5ch.net/test/read.cgi/tech/1349538519/336
337: デフォルトの名無しさん [sage] 2014/11/14(金) 02:49:12.43 ID:FARMtlO3 >>334 perl -Mvars=%h -ane '$a = $F[1] if @F == 3 ; $h{$a} .= $_ }{ print $h{$_} for sort { $a <=> $b } keys %h’ original.txt >>336 モジュールの共用は避けるべき http://mevius.5ch.net/test/read.cgi/tech/1349538519/337
338: デフォルトの名無しさん [sage] 2014/11/14(金) 06:59:52.41 ID:Ul+u6aQZ >>334 use 5.016; use warnings; my $boundary = qr/^#+\s+\d+\s+#+\s*$/; open(my $in, "<", "original.txt") or die; my @data; my $chunk = ''; while(<$in>){ if (/$boundary/ and (length($chunk) > 0)){ push @data, $chunk; $chunk = ''; } $chunk .= $_; } if (length($chunk) > 0){ push @data, $chunk; } $in->close; open(my $out, ">", "output.txt") or die; $out->print(reverse @data); $out->close; http://mevius.5ch.net/test/read.cgi/tech/1349538519/338
339: デフォルトの名無しさん [sage] 2014/11/14(金) 20:30:37.37 ID:FARMtlO3 単純に逆にするだけか perl -00pe '$_ = join q{}, reverse ( split /(?=^#)/m)' http://mevius.5ch.net/test/read.cgi/tech/1349538519/339
340: デフォルトの名無しさん [] 2014/11/16(日) 13:54:55.61 ID:f46/IGen >338,337,339 有難うございました。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/340
341: デフォルトの名無しさん [sage] 2015/01/12(月) 10:56:30.31 ID:av7JsOQD my $initial_title_ = "\$" . "$initial_threads" . "_begin"; $initial_title_ = eval $initial_title_; 1行に短くなりませんか? http://mevius.5ch.net/test/read.cgi/tech/1349538519/341
342: デフォルトの名無しさん [sage] 2015/01/13(火) 00:30:37.15 ID:Dvj6a5BR my $initial_title_ = eval "\$${initial_threads}_begin"; こういうこと? http://mevius.5ch.net/test/read.cgi/tech/1349538519/342
メモ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 181 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.759s*