Perl初心者スレ（マジレス回答）

**デフォルトの名無しさん** · 2012/10/07(日) 00:48:39.00

どうぞー

**デフォルトの名無しさん** · 2014/02/21(金) 01:00:44.16

>>255を見れば分かるが

「板違いは荒らし」という人間＝荒らし

この思考回路がPerl厨

**デフォルトの名無しさん** · 2014/02/21(金) 02:50:14.54

>>256
残念ながら、思考回路も間違ってるしPerl厨でもないなあ
板違いの指摘そのものは問題ではないよ、実際のところ >>232 は板違いだしな

ただ板違いへの対応ってのは
・板違いと指摘する
・徹底してスルーする
であるし
>>254 が板違いのゴミと呼ぶ >>253 は
「板違い」ではなく「板違いに誤った対応をした人物」でしかない。

しかも内容は相手を煽るような罵倒語ばかり。
誤った煽りは、結果的にはその人物の発言を増やすことになる。
だから >>254 も荒らしってことなんだよ。

ああ、荒らしにレスするのも荒らしだからな
俺が荒らしと言われても、勿論構わないよ？
荒らしにレスしたことには間違いないしな。

**デフォルトの名無しさん** · 2014/02/21(金) 02:51:46.89

＞「板違いは荒らし」という人間＝荒らし
Perl厨はいちいちこんなこと考えてないと思うぞ。
単に気に入らない奴=荒らしってことだと思われる。

**デフォルトの名無しさん** · 2014/02/22(土) 22:30:28.45

質問させてください。
現在、NEなのですが、社内SEを目指しています。
その時に、サーバ作業を簡単に処理させる言語が必要にりそうなのですが、
Perlは向いていますでしょうか？
掲示板とかを作るつもりはありません。作業の効率化が目的です。
隣の席のプログラマさんに聞くと、
Perlは古くてCGIにはもう未来がないよー、ってお勧めされないのですが…

**デフォルトの名無しさん** · 2014/02/22(土) 23:19:05.46

>>259
IT系で上を目指そうって人間に何でPerlなんて選択肢があるわけ？
そこらへん考えたほうがいいよ。

SEならITに関しては常に最新の動向を知るためにアンテナ張ってなきゃならないし、
アンテナ張ってればPerlがいかに駄目かというこてが分かる。
SE目指すならその辺りを自分で調べられるようになってたほうがいい。

**デフォルトの名無しさん** · 2014/02/22(土) 23:25:59.25

>>259
PHPのほうがいい
作業を簡単に処理させるスクリプトとかって最初はそのつもりがなくても便利ならそのまま他のものを作るときに組み込んだりする
エンジニア以外でも有用な場合はWebインターフェースにして提供することなるけどその場合にPHPで書いてあるとインターフェース作るだけですぐに提供できる

**デフォルトの名無しさん** · 2014/02/22(土) 23:28:04.79

>>259
マジレスすると今現在はRuby
但し3ヵ月後、半年後は分からん
自分でその情報を追えないならSEはやめとけ
今現在既に追えてないみたいだけど

**デフォルトの名無しさん** · 2014/02/22(土) 23:50:35.64

>>259
そもそもその文脈でCGIは全く関係ないよ。そこに気付けないなんて釣りだろ？

**デフォルトの名無しさん** · 2014/02/22(土) 23:56:23.80

>>260-263
ありがとうございます！
javaか、PHPか、perlで悩んでました。
色々調べると、PHPが入り易そうなので、、
明日、本屋に行って、決めます。

※CGIは、掲示板とか作るのであって、検索とかするのとは違うなあ、
と思いながら、プログラマさんの意見を聞いていました。

**デフォルトの名無しさん** · 2014/02/23(日) 00:03:57.16

>>264
やっぱ釣りだったか

**デフォルトの名無しさん** · 2014/02/23(日) 00:08:16.47

PHPが第一候補だったのですが、某サイトで、

PHPは、WEB系以外には、まったく意味がない、との様なコメントがあり、困りました。
javaは、いきなり入るには、まだ敷居が高いかなと悩みました。
perlは、単に簡単な、検索や置換には適しているようなコメントで一気に候補に挙がりました。

これらから悩んでいたんです。コメントありがとうございます。

**デフォルトの名無しさん** · 2014/02/23(日) 00:20:28.63

>>266
そのコメントとやらの投稿日時と信憑性も確認しろよ
まさか去年の夏以前の投稿で、しかも第一線で活躍してい"た"奴の投稿じゃないだろうな

3ヵ月以内の投稿で、しかも第一線で活躍してい"る"人の投稿なら信用しろ
そしてそういう人ならまずPerlを候補に挙げることはない

まぁ第一線で活躍してるわけでもない俺のこんな匿名の投稿も信憑性がないだろうから
第一線で活躍してる人がPerlなんか使わないということは自分の目で確認してくれ

**デフォルトの名無しさん** · 2014/02/23(日) 00:24:33.24

>>267
投稿日時、第一線は確認していませんでした。
すみません、助言、ありがとうございます。

**デフォルトの名無しさん** · 2014/02/23(日) 00:27:42.14

>>266
PHPがWeb系以外に使えんのは本当
Perlでも良いけど、RubyやPythonも有効だよ
まあ、まずは最初にシェルスクリプトだけどね

**デフォルトの名無しさん** · 2014/02/23(日) 00:38:05.80

と言うか、PerlスレにPHPのこと聞く時点で釣り

**デフォルトの名無しさん** · 2014/02/23(日) 00:39:36.75

>>269
＞PerlとLispが結婚して隔世遺伝が黒魔術で生まれた言語。
＞Javaは硬度8くらい、Pythonは6くらいになるのに対して、Rubyは3くらいになる。

との記事を見つけました。いつの記述かわからないのですが（汗）
Rubyも明日、本屋で漁ってみます。ありがとうございます。

**デフォルトの名無しさん** · 2014/02/23(日) 00:40:48.81

>>270
すみません。退散します。
みなさん、マジレス、ありがとうございます。

**デフォルトの名無しさん** · 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>";

**デフォルトの名無しさん** · 2014/03/25(火) 21:15:29.29

print "あいうえお";

↑これを文字コードをeuc-jpで保存してコマンドプロントからこのファイルを実行して
コマンドプロンプト上に文字化けなく　あいうえお　と出力させるにはどういうコードを追加すればいいの？

**デフォルトの名無しさん** · 2014/03/25(火) 21:25:34.52

>>274はちょっと疑問に思っただけで何かするのに必要なワケじゃないので無理して
答えようとしないで下さい。たぶんちょっとググった程度で分かるようなことではないです。

**デフォルトの名無しさん** · 2014/03/25(火) 21:54:24.41

>>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

**274** · 2014/03/25(火) 22:08:05.94

>>276
うおお、すごい、あっさり出来てしまった・・。
今日一日↓こんなのでやろうとして泥沼にハマってました。

use encoding "euc-jp";
binmode STDOUT, ':encoding(cp932)';

スーパーハカーさんどうもありがとう～

**デフォルトの名無しさん** · 2014/05/07(水) 01:39:02.09

print +(3,2,1,),"\n";

↑これ、+記号を消すと改行が反映されなくなるんですが、この+記号って
どういう意味ですか？ググるためのキーワードだけでもおねがいします。
ググると +{ } は出てきたんですが +( ) はなぜか見つかりませんでした。

**デフォルトの名無しさん** · 2014/05/07(水) 04:47:36.14

>>278
(print(3,2,1)), "\n";

**デフォルトの名無しさん** · 2014/05/07(水) 06:28:00.20

+() は scalar () とほぼ同等。
+{}は、ブロック中の戻り値（？）をスカラーとして評価しますって意味。
+()は、リストとして評価しませんよーって意味。

perldocのperlopの
Terms and List Operators (Leftward)
と
Unary "+"
を参照してください。

**278** · 2014/05/07(水) 09:44:31.49

>>279-280
なるほど、+{ } と同じような使い方だったんですね、ありがとうございました。
perldocもこれから読んでみます、多謝。

**デフォルトの名無しさん** · 2014/05/17(土) 17:23:28.43

windowsの隠しファイルを判別する方法を教えてください

**デフォルトの名無しさん** · 2014/05/17(土) 18:53:12.61

>>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;

**デフォルトの名無しさん** · 2014/05/17(土) 18:54:17.69

>>283
ありがとうございます

**デフォルトの名無しさん** · 2014/05/24(土) 13:13:06.88

掲示板のCGIを設置したんだけど、<a href="./bbs/mtbbs.cgi?">って感じにリンクするようにして、http://172では、ちゃんと作動したんだけど、
実際にFTPに転送すると、作動しないどころか画面が写らない
500エラーが出てくる

原因に関してはまだわかんなくて、調べてるんだけど、そもそも思ったのが<a href="./bbs/mtbbs.html">ならまだしも<a href="./bbs/mtbbs.cgi?">なんて、直にリンクすることなんてできるの？

**デフォルトの名無しさん** · 2014/05/24(土) 17:20:37.74

>>285
WebProg板へドゾー

**デフォルトの名無しさん** · 2014/05/25(日) 10:23:53.30

>>285
リンクはできる
動かない原因は別にある

**デフォルトの名無しさん** · 2014/06/04(水) 10:34:27.77

知恵袋で質問したら回答どころか閲覧すらなさすぎワロタ・・・

**デフォルトの名無しさん** · 2014/06/04(水) 15:39:06.30

早くマジレスしろ屑やろう

**デフォルトの名無しさん** · 2014/06/05(木) 04:14:43.22

質問してもどうせまともに答えてくれないんだろうな
どこ行っても解決しないわ

**デフォルトの名無しさん** · 2014/06/05(木) 06:34:54.17

Web以外で最近なんか未解決質問あったっけここ

**デフォルトの名無しさん** · 2014/06/05(木) 19:01:58.49

>>291
今日も元気に残件なす！

**デフォルトの名無しさん** · 2014/06/08(日) 05:04:05.20

複数の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

**デフォルトの名無しさん** · 2014/06/10(火) 06:01:49.29

>>293
WebProg
http://nozomi.2ch.net/php/

**デフォルトの名無しさん** · 2014/06/10(火) 12:30:22.68

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;

}

**デフォルトの名無しさん** · 2014/06/10(火) 13:44:16.05

>>295
http://ideone.com/0A9TR0

**デフォルトの名無しさん** · 2014/06/10(火) 13:58:26.18

手抜きすぎた。

>>295
http://ideone.com/NUuEtp

**デフォルトの名無しさん** · 2014/06/10(火) 14:45:55.30

凄い。ありがとう。
出てきたshiftとか勉強してみます
感謝

**デフォルトの名無しさん** · 2014/06/11(水) 22:22:53.08

どこに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...略
でわかる。

**デフォルトの名無しさん** · 2014/06/12(木) 13:15:46.45

恰好をつけるなら、リングバッファでも書くところですが、回答としては、あんまりだと思ったので。
2行固定なら、別に使わなくても。
perl -ne '($_, $x, $y) = ($x, $y, $_); $y =~ /dog/ && /市民/ && print' File

何も考えなくていいなら、正規表現でバッサリ。
perl -e 'print((local $/ = <>) =~ /(^.*市民.*\n).*\n.*dog/gm)' File

**デフォルトの名無しさん** · 2014/07/13(日) 23:15:08.85

>>300
1ヵ月以上もお前のレスにレスがつかないのはなぜか分かる？
お前みたいなゴミクズは誰も必要としてないからだよ。
一般社会ではあからさまに無視するわけにもいかないから当たり障りのない対応をしてもらってると思うけど、
お前ハッキリ言って迷惑だから。

ゴミクズはネットでもリアルでもできるだけ社会と接点持つな。

**デフォルトの名無しさん** · 2014/07/26(土) 13:51:21.84

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をインストールする手はありますか?

**デフォルトの名無しさん** · 2014/07/26(土) 14:09:06.14

make test had returned bad status, won't install without force
まけ出来てるのならいんすこ自体は可能

**デフォルトの名無しさん** · 2014/07/26(土) 15:10:46.74

force installでcygwinの方に入れました
正常に動作します
ありがとうございました

Linuxの方は、手っ取り早く
sudo aptitude install ack-grep
しました

おかげさまで両方にackが揃いました
感謝します

**デフォルトの名無しさん** · 2014/08/06(水) 20:37:58.86

xmlを取得して中身を
s|。|。<br>|g;
して句読点ごとに改行させたかったのですがどうしても出来ません
なにか理由があるのでしょうか
初心者なもんで変な質問をしていたらすいません

**デフォルトの名無しさん** · 2014/08/06(水) 20:41:08.65

文字コード

**デフォルトの名無しさん** · 2014/08/06(水) 20:43:50.60

エスパーじゃないんだから、そんな質問で答えれる訳ないだろ。
せめてサンプルとなる簡単なxmlを出せよ・・・

**デフォルトの名無しさん** · 2014/08/06(水) 21:39:48.88

申し訳ないです

>>306
デコードはしています

>>307
申し訳ありません
wikipedia.simpleapi.net/api?keyword=Test&output=xml

**デフォルトの名無しさん** · 2014/08/06(水) 22:33:25.28

>>308
テストした結果、普通に置き換えできます。
取得方法に問題があるんだろう。
ってか、こんな質問の仕方じゃスレ全部埋まるわ・・・
問題が起きてるサンプルコード出してみ

**デフォルトの名無しさん** · 2014/08/06(水) 22:37:04.17

>>308
ちげーよ
utf8のファイルをeucのスクリプトでマッチしようとしたんじゃないの、ってこと

**デフォルトの名無しさん** · 2014/08/06(水) 22:48:45.57

>>310
shift-jisのスクリプトでマッチさせようとしました
不味かったでしょうか

**デフォルトの名無しさん** · 2014/08/06(水) 23:05:36.50

>>311
なら、どっちかの文字コードにencodeして合わせる

**デフォルトの名無しさん** · 2014/08/06(水) 23:07:49.58

いや、よほど特別な事情がない限りは utf-8 のソースにするべき。
http://d.hatena.ne.jp/perlcodesample/20091118/1246679588
この辺読んで理解するべき。

**デフォルトの名無しさん** · 2014/08/18(月) 11:10:58.79

> perl -e "print (5+5)/3"
10

なんで？

**デフォルトの名無しさん** · 2014/08/18(月) 19:48:40.74

print -e "print((5+5)/3)"

**デフォルトの名無しさん** · 2014/08/19(火) 07:25:44.81

>>314
http://perldoc.jp/docs/perl/5.18.1/perlfunc.pod
> 括弧を使うときには、単純な、(しかし、ときには驚く結果となる規則が適用できます:
> 関数に見えるならば、それは関数で、優先順位は関係ありません。
(略)
> Perl に -w スイッチを付けて実行すれば、こういったものには警告を出してくれます。

**デフォルトの名無しさん** · 2014/08/19(火) 20:11:13.78

2000年には既にwarnings実装してんのに
なんで未だに、-w推薦文章なんか残してんだろーね？
-Mwarningsのエイリアスって訳でもねーし。

**デフォルトの名無しさん** · 2014/09/02(火) 01:23:02.48

【誤】print -e "print ((5+5)/3)"
【正】perl -e "(print(5+5)) / 3"
ついでに -w と -Mwarnings は別物。-Mwarnings で -w の代わりになるわけではない。

**デフォルトの名無しさん** · 2014/09/02(火) 02:10:54.86

だが共に生きることはできる

**デフォルトの名無しさん** · 2014/09/02(火) 04:04:55.52

>>318
-w ≠ warningsは常識だろ。

で、「use Unicodeは、use Jcodeの代りじゃない」ってレベルの事を言ってるぞ、おまえさん。
-wが石頭だから、より制御しうるwarningsを実装したんだろが。

**デフォルトの名無しさん** · 2014/09/02(火) 07:00:12.46

5.20のperllexwarnがスッキリしててﾜﾗﾀ。

**デフォルトの名無しさん** · 2014/10/02(木) 21:11:40.29

常識の根拠は常識は常識だから（真顔）

**デフォルトの名無しさん** · 2014/11/05(水) 08:46:59.07

再帰中に再帰の深さを出したいんだけどlocal使っていい？
local $::count = $::count + 1;
もっと普通の方法ある？

**デフォルトの名無しさん** · 2014/11/05(水) 11:35:00.61

引数で渡す

sub foo {
　　my ($arg, $count) = @_;
　　...;
　　foo($arg, $count) if $count++ < 10;
}

**デフォルトの名無しさん** · 2014/11/05(水) 14:22:15.13

ありがとーーー。
複製される変数の数には変わりがないよね、たぶん。

上はグローバル変数と言うのが気に入らなくて、下は引数で扱う値が増えるのが気に入らないが。

**デフォルトの名無しさん** · 2014/11/05(水) 16:45:55.49

while(@all){ ((shift @all) eq 'cut') and last; }
whileを修飾子として書くと落ちるんだが誰か理由を教えてくれー
((shift @all) eq 'cut') and last while(@all);
evalでも落ちた

**デフォルトの名無しさん** · 2014/11/11(火) 22:49:14.07

英数混じった文字列の中から2桁の数字にマッチさせたいのですが、
/\d\d/だと3桁以上の数字の前2桁にもマッチしてしまいます。
/^(\d\d)\D|\D(\d\d)\D|\D(\d\d)$|^(\d\d)$/　こんなことするより簡単な方法ないでしょうか？　

**デフォルトの名無しさん** · 2014/11/12(水) 00:09:33.46

[^\d]\d{2}[^\d]

**デフォルトの名無しさん** · 2014/11/12(水) 02:38:25.07

% 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

**327** · 2014/11/12(水) 22:11:30.88

/(?<!\d)\d{2}(?!\d)/
これが期待通りの結果が得られました。
(?<!)とか(?!)とかこれまで使ったこと無かったので勉強になりました。
ありがとうございました。

**デフォルトの名無しさん** · 2014/11/13(木) 00:03:57.67

テストパターンに英字が入ってませんぜ

**デフォルトの名無しさん** · 2014/11/13(木) 05:25:18.91

\b使えよ。便利だぞ。

**デフォルトの名無しさん** · 2014/11/13(木) 05:51:07.66

そりゃ\b使って期待通りの結果が出るなら使うだろ

**デフォルトの名無しさん** · 2014/11/13(木) 23:58:39.09

以下のような日付が下から上に並んでいる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
・・・・・・

**デフォルトの名無しさん** · 2014/11/14(金) 00:03:31.59

>>332
\bだと英字と数字の境目は単語の区切りにならないみたい。

**デフォルトの名無しさん** · 2014/11/14(金) 01:18:41.88

centosで元から入ってるperlとは別にソースインストールしたperlを別に入れました。
新しくインストールしたperlで以前から入っていたCPANモジュールを使いたい場合、再度入れなおす必要ありますか？

**デフォルトの名無しさん** · 2014/11/14(金) 02:49:12.43

>>334
perl -Mvars=%h -ane '$a = $F[1] if @F == 3 ; $h{$a} .= $_ }{ print $h{$_} for sort { $a <=> $b } keys %h’ original.txt

>>336
モジュールの共用は避けるべき

**デフォルトの名無しさん** · 2014/11/14(金) 06:59:52.41

>>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;

**デフォルトの名無しさん** · 2014/11/14(金) 20:30:37.37

単純に逆にするだけか
perl -00pe '$_ = join q{}, reverse ( split /(?=^#)/m)'

**デフォルトの名無しさん** · 2014/11/16(日) 13:54:55.61

>338,337,339
有難うございました。

**デフォルトの名無しさん** · 2015/01/12(月) 10:56:30.31

my $initial_title_ = "\$" . "$initial_threads" . "_begin";
$initial_title_ = eval $initial_title_;

1行に短くなりませんか?

**デフォルトの名無しさん** · 2015/01/13(火) 00:30:37.15

my $initial_title_ = eval "\$${initial_threads}_begin";
こういうこと？

**デフォルトの名無しさん** · 2015/01/13(火) 02:35:14.88

>>342
ありがとう

eval使うのが3つあったから
6行が3行になったよ

**デフォルトの名無しさん** · 2015/01/14(水) 23:01:56.10

$seach_wordに日本語を入れたいのですが、それだとマッチしません。どうすればよいでしょうか?
w3m -dump -cols 160 http://peace.2ch.net/test/read.cgi/tech/1349538519/| ~/Perl_instance/resSearch.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

my $seach_word = ">1" ;
my $found_res　= 0;
my $res　　　　= "";

while (<>) {
　　if (/^\d/x) {

　　　　# out put, flash
　　　　if ( $found_res == 1 ) {
　　　　　　print $res;
　　　　　　$found_res = 0;
　　　　}
　　　　$res = "";
　　}
　　else {
　　　　# searching
　　　　if (/$seach_word\b/x) {
　　　　　　$found_res = 1;
　　　　}
　　}

　　# buffer lines
　　$res .= $_;
}

**デフォルトの名無しさん** · 2015/01/15(木) 09:31:41.42

>>344
use open ":utf8";

**デフォルトの名無しさん** · 2015/01/15(木) 09:40:11.27

あ、 binmode STDIN , ":utf8": で

**デフォルトの名無しさん** · 2015/01/15(木) 13:13:41.60

binmode STDIN , ":utf8";
binmode STDOUT , ":utf8";
my $seach_word = "日本語" ;

で同様のコマンド叩いて、つまり344が拾えるはずが
何故かヒットしません

**デフォルトの名無しさん** · 2015/01/15(木) 18:33:41.92

**デフォルトの名無しさん** · 2015/01/16(金) 16:08:36.80

w3m -dump -cols 160 http://peace.2ch.net/test/read.cgi/tech/1349538519/|nkf -g
UTF-8

UTF-8しか扱わないのにちょっとエンコード回りは複雑だ

**デフォルトの名無しさん** · 2015/01/19(月) 10:22:25.36

webサイトの表形式データ（横方向は５列、縦方向は不定で100行ぐらい）を取得するのに、
正規表現の繰り返しマッチング
m//g　を使って、結果を配列に入れてるんだけど、
もっと簡単に取ってくるモジュールはないでしょうか？

**デフォルトの名無しさん** · 2015/01/19(月) 21:45:13.42

>>350
＞webサイトの表形式データ

の形式が分からんとなんとも。

**349** · 2015/01/19(月) 22:36:30.03

>>346
ヒント助かった。

use Encode qw/encode decode/;
my $enc = 'UTF-8';
sub d($) { decode($enc, shift) }
sub e($) { encode($enc, shift) }

my $seach_word = "日本語";

my $found_res = 0;
my $res　　　 = "";

while (<>) {
　　if (/^\d/x) {
　　　　if ( $found_res == 1 ) {
　　　　　　print $res;
　　　　　　$found_res = 0;
　　　　}
　　　　$res = "";
　　}
　　else {
　　　　my $seach_word_ = e$seach_word;
　　　　if (/$seach_word_/x) {
　　　　　　$found_res = 1;
　　　　}
　　}
　　$res .= $_;
}

**デフォルトの名無しさん** · 2015/01/20(火) 02:00:35.92

>>350 >>351
例えば、こんな表です
http://ke.kabupro.jp/hist/20150107.htm

今はHTMLのソースを見て、証券コードを正規表現で抽出するために、
=~ m!<tr><th><a\shref[^>]+>(\d{4})<\/a>!ig
などとして配列へ入れているのですが、泥臭いです。

もっとスマートに取得できるモジュールは無いかと思った次第です。

**デフォルトの名無しさん** · 2015/01/20(火) 02:06:50.85

（続き）
例えば統計計算用のRでは readHTMLTableというモジュール（パッケージ？）があり、表形式のデータを含んだurlを指定すれば、簡単に取得出来るのですが。

**デフォルトの名無しさん** · 2015/01/20(火) 07:56:47.13

>>353
HTML::TableExtract
http://search.cpan.org/~msisk/HTML-TableExtract-2.12/lib/HTML/TableExtract.pm

Web::Scraper
http://search.cpan.org/~miyagawa/Web-Scraper-0.38/lib/Web/Scraper.pm

**デフォルトの名無しさん** · 2015/01/20(火) 12:03:15.85

>>355
ありがとうございます