なんとな～くしあわせ？の日記

「そしてそれゆえ、知識そのものが力である」 (Nam et ipsa scientia potestas est.) 〜 フランシス・ベーコン

Perl覚え書き

awk Perl

grep sed awkでもテスト用文字列の切り貼りは出来るんですが。ちょっと高度になってくるとPerlの手を借りないといけなくなる。

2011/12/10 追記
AWK Users JP :: 日本の AWK ユーザのためのハブサイトの人にトラックバックもろた。
awkのほうが簡単に書けるじゃねーか！



ファイル中の特定の文字列に、連番で特定の文字列を貼り付ける。

適当テキスト、汚いわん

名無しさん＠涙目です。</b>(福岡県)<b><><>2011/12/04(日) 12:58:41.92 ID:9YW2pdlZ0 BE:981326827-PLT(12000) ポイント特典<> sssp://img.2ch.net/ico/purin1.gif <br>  <br> 　　ソニー、東芝、日立製作所と官民ファンドの産業革新機構はこのほど、 <br> 中小型液晶パネル事業の統合会社「ジャパンディスプレイ」を設立すると発表した。 <br>  <br> 　 中国の市場調査会社、奥維コンサルティング（ＡＶＣ）の金暁鋒副総経理は、 <br> 「日本企業全体の動向としては収縮の方向にある」と指摘。 <br>  <br> 　 時価総額の底打ちにしても、売り上げ計画の下方調整にしても、 <br> 日本の電化製品のブランド価値が徐々に色あせているのは事実で、かつての輝きを失いつつある。 <br> 中国網日本語版（チャイナネット）が報じた。以下は同記事より。 <br>  <br> 　 一流の製造能力と技術の優位性が日本企業のもっとも重要な核心競争力だった。 <br> 業界関係者によると、2000年からソニーはブラジル、インド、中国などの新興市場に注目していたが、 <br> これらの市場でのサポートをおこたり、最初の数年間、ソニーは広告予算も引き上げなかった。 <br>  <br> 　 それに対し、サムスンは技術的には劣るが、中国市場進出当初、消費者のニーズを重視し、 <br> 「中国人に好かれる企業に」というのが一時サムスンの代表的なスローガンだった。 <br>  <br> 続きます <br>  <br> http://news.searchina.ne.jp/disp.cgi?y=2011&d=1201&f=business_1201_145.shtml <br>  <br>  <>【徹底討論】衰退がヤバイ日本の製造業。なぜ没落してしまったのか。どうしてこうなった
名無しさん＠涙目です。</b>(岩手県)<b><><>2011/12/04(日) 13:00:11.36 ID:AwL1kVxM0<> 糞ジャップがアホだからだろｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ <>
名無しさん＠涙目です。</b>(アラバマ州)<b><><>2011/12/04(日) 13:00:53.42 ID:v0A9g8EeP<> 「政治」の一言だろ <br> 政治能力の無い日本というプラットフォームの限界だ <>
名無しさん＠涙目です。</b>(大阪都)<b><><>2011/12/04(日) 13:01:20.80 ID:AwUyLC030<> 円高の影響で国内で10万円で売ってるつもりでも <br> 海外から見たら20万円で売ってるように見えるからな <br>  <>
名無しさん＠涙目です。</b>(四国地方)<b><>sage<>2011/12/04(日) 13:01:48.86 ID:EO6fJTJmP<> 「安さ」ではなく技術と付加価値で勝負に失敗したから(=^^=) <>
名無しさん＠涙目です。</b>(福岡県)<b><><>2011/12/04(日) 13:02:05.58 ID:9YW2pdlZ0 BE:700947252-PLT(12000)<> sssp://img.2ch.net/ico/purin1.gif <br>  <br> <a href="../test/read.cgi/news/1322971121/1" target="_blank">&gt;&gt;1</a>の続き <br>  <br>  <br> 　 自身の技術に固持し、重要な転換期で行動が鈍かったことが、日本企業の第2の衰退を招いた。 <br> 家電専門家は、「日本企業の新製品開発に対する意欲は当時ほどなく、新製品はどれも保守的。 <br> それに比べサムスンなど韓国企業はかなり積極的だ」と話す。 <br>  <br> 　 保守的な心理が企業管理にも反映されているという。 <br> 日本企業の管理体系ではずっと海外の子会社の実権を非常に制限し、多くの権利を日本の本社に集中させている。 <br> こうした管理体制によって市場の反応に対応できなかった。 <br>  <br> 　 日本企業の衰退を簡単に市場の不景気と片付けるわけにはいかない。 <br> 繁栄時代の長期戦略から核心技術に固執する戦略に加え、保守的かつ封鎖的な内部管理体制、 <br> 日本企業の衰退は少しずつ身体をむしばんでいく病気が表面化する過程に似ている。 <br>  <br> 終わり <br>  <br> http://news.searchina.ne.jp/disp.cgi?y=2011&d=1201&f=business_1201_145.shtml <br>  <br>  <br>  <br>  <>
名無しさん＠涙目です。</b>(アラバマ州)<b><> <>2011/12/04(日) 13:02:53.45 ID:/4dgCeau0<> イノベーションだろ(キリッ <>
名無しさん＠涙目です。</b>(奈良県)<b><><>2011/12/04(日) 13:03:04.52 ID:NXfcoUyp0<> 安さだけじゃなく品質も負けました <br> 技術立国（笑） <>
名無しさん＠涙目です。</b>(WiMAX)<b><>sage<>2011/12/04(日) 13:04:53.45 ID:+XfxBFpk0<> また産業構造の転換期に来てるのに老害どもが古い産業にしがみついてるからだろ <>
名無しさん＠涙目です。</b>(神奈川県)<b><><>2011/12/04(日) 13:05:05.97 ID:yFwZnsUc0<> 最近の日本製電化製品の魅力のなさは異常 <br> こじつけのような機能高付加価値だかを付けて価格吊り上げようとしてるのが丸見え。 <br> それならシンプルで安い海外製の方がマシ・・・。 <>

Perlのスクリプト

#!C:\strawberryperl\bin\perl.exe -w

use strict;

open(IN, "<1322971121.dat");
open(OUT, ">output.txt");

my @Array = (
	"ね",
	"こ",
	"大",
	"好",
	"き",
	"い",
	"ぬ",
	"嫌",
	"い",
	"。",
	"。",
	"。",
	"。",
	"。",
	"。",
	"。",
	"。",
	"別に文章はどんなでもよかった",
	"です"
);

my $loop = 0;

while(<IN>){
	$_ =~ s|名無しさん|Anonymous|g;
	$_ =~ s|涙目です。|2ch|g;
	$_ =~ s|[\d]{2}:[\d]{2}:[\d]{2}(.)+|$Array[$loop]|;
	print $_;
	$loop++;
}

close(IN);
close(OUT);


出力結果

Anonymous＠2ch</b>(福岡県)<b><><>2011/12/04(日) ね
Anonymous＠2ch</b>(岩手県)<b><><>2011/12/04(日) こ
Anonymous＠2ch</b>(アラバマ州)<b><><>2011/12/04(日) 大
Anonymous＠2ch</b>(大阪都)<b><><>2011/12/04(日) 好
Anonymous＠2ch</b>(四国地方)<b><>sage<>2011/12/04(日) き
Anonymous＠2ch</b>(福岡県)<b><><>2011/12/04(日) い
Anonymous＠2ch</b>(アラバマ州)<b><> <>2011/12/04(日) ぬ
Anonymous＠2ch</b>(奈良県)<b><><>2011/12/04(日) 嫌
Anonymous＠2ch</b>(WiMAX)<b><>sage<>2011/12/04(日) い
Anonymous＠2ch</b>(神奈川県)<b><><>2011/12/04(日) 。
Anonymous＠2ch</b>(新疆ウイグル自治区)<b><><>2011/12/04(日) 。
Anonymous＠2ch</b>(西日本)<b><>sage<>2011/12/04(日) 。
Anonymous＠2ch</b>(愛媛県)<b><><>2011/12/04(日) 。
Anonymous＠2ch</b>(アラバマ州)<b><><>2011/12/04(日) 。
Anonymous＠2ch</b>(SB-iPhone)<b><><>2011/12/04(日) 。
Anonymous＠2ch</b>(SB-iPhone)<b><>sage<>2011/12/04(日) 。
Anonymous＠2ch</b>(新潟・東北)<b><><>2011/12/04(日) 。
Anonymous＠2ch</b>(茨城県)<b><><>2011/12/04(日) 別に文章はどんなでもよかった
Anonymous＠2ch</b>(東日本)<b><><>2011/12/04(日) です