awk で DPC EFファイルの先頭に年月を追加する

ある病院のDPC EFファイルの件数

$ wc -l EFn_000000000_14*.txt
380502 EFn_000000000_1404.txt
390134 EFn_000000000_1405.txt
423224 EFn_000000000_1406.txt
450589 EFn_000000000_1407.txt
429559 EFn_000000000_1408.txt
412329 EFn_000000000_1409.txt
435993 EFn_000000000_1410.txt
391426 EFn_000000000_1411.txt
403304 EFn_000000000_1412.txt
3717060 total

年月を先頭につけて、UTF-8に変換し、１つのファイルに出力する

awk '{print "20" substr(FILENAME,15,4) "\t" $0}' EFn_000000000_14* | nkf -x > DPC_EFn_201404-12.txt

【解説】ファイル名の年月はYYMMなので、先頭に"20"を追加します。年月YYMMはファイル名の15文字目から4文字をとります。TAB（"\t"）を挟んで元の行（$0）とくっつけます。それから、パイプ | を通して nkf コマンドで文字コードをUTF-8（-x)に変換してから、DPC_EFn_201404-12.txt というファイルに出力（>）します。

このブログの人気の投稿

さくらインターネットのレンタルサーバにMysqlの大きいdumpファイルのインポート

さくらインターネットのレンタルサーバはFreeBSDをつかっています。 LAMP の環境が揃っています。基本的にFTPアカウントが発行されて、Webベースでファイルの転送もデータベースの作成および管理（phpMyAdmin）ができます。しかし、phpMyAdminは、dumpファイルをインポートする場合、最大１６MBのファイルしかアプロードできません。明確的にSSHアカウントは提示されていないが、実際にSSHでの接続も可能だと確認しました。しかし、SSHで接続してもmysqlでリモートMysqlサーバへの接続はできなかったようです。そこで、dumpファイルの中身はSQL文なので、 A5m2 というSQLクライアントからインポートすることを試しました。もちろん、自宅のパソコンから直接Mysqlサーバを接続できるとは思いませんが、一応試してみました。案の定、当たり前に制限がかけられています。で、よく考えるとレンタルサーバからアクセスできるから、そのIPは許可されているだろうと思います。なので、SSHトンネルを Bitvise SSH Client で掘ろうと考えていました。 BitviseのSSH設定はそんなに難しくないので、割愛しますが、 C2Sのタブの設定は下記の通りです。 listen interface => 127.0.0.1 List Port => 3306 (ローカルにMysqlが稼働している場合、3326とかに設定してください） Destination Host => レンタルサーバが提供しているMysqlサーバ　mysql~.~.ac.jp Dest. Port => 3306 A5m2のデータベース設定は、Mysql直接接続で、IPを127.0.0.1にすれば、接続できるはずです。それから、Dumpファイルを読み込んで「先頭からすべて」実行をすれば、いまのところ500MB位のファイルでも実行できました。だが、１．２GBのファイルは読み込みの途中にエラーになったが、ファイルが大きい過ぎたか、それともUTF8コードの問題なのか調査中です。結果がわかった次第追記します。

Redmine 4.1.1-5 Textile の外部リンクを新しいタブで開く

\Bitnami\redmine-4.1.1-5\apps\redmine\htdocs\lib\redmine\wiki_formatting\textile にある、redcloth3.rb の８５０行目を下記のように target='_blank' を追加して、Redmineを再起動してください。 "#{pre}<a#{atts}#{external} target='_blank' >#{text}</a>#{post}"

plantuml node procedure アーキテクチャ図の部品化

最近よくアーキテクチャ図を描くようになりました。一々Node名とリンクやIP、データベースの設定するのもいいのですが、 Node数が多すぎると大変な作業になります。そこで、plantumlのprocedureを作れました。他の部品も同じ方法で作れますので、興味ある方はご参考ください。 SVG画像 @startuml !procedure $node($alias, $name="mynode",$ip="", $database="", $namelink="", $dbtype="", $dblink="", $fontsize=14, $color="#bafcc8") !include skinparam node { backgroundColor $color FontSize $size } !if ($namelink != "") !$name = "[[" + $namelink + " " + $name + "]]" !endif !if ($ip != "") !$name = $name + "\n（" + $ip + "）" !endif node "$name" <<$archimate/technology-node>> as $alias { !if ($database != "") !$dbalias = $alias + "DB" !if ($dblink != "") !$database = "[[" + $dblink + " " + $databas...

枯木春開

このブログを検索