Perlã§è¤‡æ•°ã®TSVファイルを第一カラムをã‚ーã«ãƒžãƒ¼ã‚¸ã™ã‚‹Perlã§è¤‡æ•°ã®TSVファイルを第一カラムをã‚ーã«ãƒžãƒ¼ã‚¸ã™ã‚‹ 2012-01-13-1 [Programming] 複数ã®TSVファイルを第一カラムをã‚ーã«ãƒžãƒ¼ã‚¸ã™ã‚‹ã‚¿ã‚¹ã‚¯ã«ã¤ã„ã¦ã€‚プãƒã‚°ãƒ©ãƒ 言語ã¯Perlを使ã†ã€‚ サンプルã¨ã—ã¦ä½¿ã†ã®ã¯ä¸‹è¨˜ã®3ファイル（スペース連続ã¯ã‚¿ãƒ–）。 ==> a1.txt <== a b c d e f a ==> a2.txt <== a e b c d d a f b ==> a3.txt <== b c c a e f 一番簡å˜ãªã®ã¯ãƒãƒƒã‚·ãƒ¥ã«å…¨éƒ¨æŠ•ã’込んã§æœ€å¾Œã«ã¾ã¨ã‚ã¦å‡ºåŠ›ã™ã‚‹æ–¹æ³•ã€‚ワンライナーã§ã‚‚書ã‘る。 ■コード(merge-tsv.pl)： #!/usr/bin/env perl use strict; use warnings; my %link; while (<>) { chomp; my ($key, @c) = split(/\t/, $
ケータイã®æ–‡å—コードã«ã¤ã„ã¦èª¿ã¹ã¦ã¿ãŸ - 帰ã£ã¦ããŸðŸ’«Unicode刑事〔デカ〕リターンズ
æ ¡æ£ãƒ»ç·¨é›†ã®é´Žæ¥å ‚ | æ ¡æ£ãƒ„ール
{{#tags}}- {{label}}
{{/tags}}