This module provides a UNIX-like command `colalign'. Copyright (c) 2023 Toshiyuki SHIMONO. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. â– â– æ¦‚è¦ â– â– ã“ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’インストールã™ã‚‹ã¨ã€ã‚³ãƒžãƒ³ãƒ‰ colalign ãŒä½¿ãˆã‚‹ã‚ˆã†ã«ãªã‚‹ã€‚ ■■目的 ■■コマンド colalign ã¯ã€ä»¥ä¸‹ã®ã‚ˆã†ãªæ©Ÿèƒ½ã‚’æŒã¤ã€‚ TSVå½¢å¼ã«ã—ã¦ã€NUM列ã«æº€ãŸãªã„è¡ŒãŒã‚ã£ãŸå ´åˆã«ã€ä½™åˆ†ãªæ”¹è¡Œæ–‡å—ãŒã‚ã£ãŸã¨è¦‹åšã—ã¦ã€ ãã®æ”¹è¡Œæ–‡å—ã‚’é©å½“ãªæ–‡å—列ã«ç½®ãæ›ãˆã¦ã€è¤‡æ•°ã®åˆ—ã‚’1è¡Œã«ã¾ã¨ã‚る。 ã•ã‚‰ã«ã€NUM列を超ãˆã‚‹åˆ—ãŒã‚ã£ãŸå ´åˆã¯ã€-C 3 ã®ã‚ˆã†ãªæŒ‡å®šã§ã€ã“ã®å ´åˆã¯ã€3列ã«ä½™åˆ†ãªåˆ—㌠ã¾ã¨ã¾ã‚‹ã‚ˆã†ã«ã—ã¦ã€å…¨è¡ŒãŒã€NUM列ã«ãªã‚‹ã‚ˆã†ã«èª¿æ•´ã™ã‚‹ã€‚ 最後ã«2æ¬¡æƒ…å ±ã¨ã—ã¦ã€æ¨™æº–エラー出力ã«ã€å‡ºåŠ›ã®ä½•è¡Œç›®ãŒå¤‰æ›´ã•ã‚ŒãŸã‹ã‚’表示ã™ã‚‹ã€‚ (入力ã®ä½•è¡Œç›®ãŒå¤‰æ›´ã•ã‚ŒãŸã‹ã«ã¤ã„ã¦ã¯ã€æœªå®Ÿè£…。) ãªãŠã€ç©ºè¡ŒãŒæ¥ãŸå ´åˆã«ã¯ã€ä¸€æ—¦ãã‚Œã¾ã§ã®å‡ºåŠ›å‡¦ç†ã‚’済ã¾ã›ã¦ã€ç©ºè¡Œã‚’出力ã™ã‚‹ã€‚ ■■利用上ã®æ³¨æ„点 â– â– ã“ã®ã‚³ãƒžãƒ³ãƒ‰ã¯ã€ä½œæˆã‚’2023å¹´8月10æ—¥ã«ç™ºæ¡ˆã—実装ã—ãŸãŒã€ã¾ã 一部機能ãŒå®Ÿè£…ã•ã‚Œã¦ã„ãªã„。 ã“ã®ã‚³ãƒžãƒ³ãƒ‰ã®ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã«ã‚ˆã‚Š??kB(ã‚ãƒãƒã‚¤ãƒˆ)程度を消費ã™ã‚‹ã€‚ (cpanm ã§ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã—ãŸå ´åˆã€ãれらを消去ã™ã‚‹ã«ã¯ cpanm -U ã«ã‚ˆã‚Šã‚¢ãƒ³ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ãŒå¯èƒ½ã€‚) ■■コマンドã®ä¾‹ â– â– colalign -a 10 FILE.TSV # 10列ã«æƒãˆã‚‹ã€‚(10列未満ã®åˆ—を検出ã—ã¦ã€è¡Œé€£çµã™ã‚‹ã€‚) # -c '' を指定ã—ãªã„ã¨ã€é€£çµç®‡æ‰€ã¯ "#n#" ã®3æ–‡å—ã«ãªã‚‹ã€‚ ■■利用シーンã®ä¾‹ â– â– TSVå½¢å¼ã¾ãŸã¯CSVå½¢å¼ã®ãƒ‡ãƒ¼ã‚¿ã‚’もらã£ãŸã®ã ãŒã€é€”ä¸ã«ä½™åˆ†ãªæ”¹è¡Œæ–‡å—ãŒå«ã¾ã‚Œã‚‹ã“ã¨ãŒ åŽŸå› ã§ã€åˆ—æ•°ãŒæƒã£ã¦ã„ãªãã¦ã€ãã®ãƒ‡ãƒ¼ã‚¿ãŒãã®ã¾ã¾ä½¿ãˆãªã„å ´åˆã€‚ãã®å ´åˆã€ä½™åˆ†ãªæ”¹è¡Œæ–‡å—ã‚’ ã“ã®ã‚³ãƒžãƒ³ãƒ‰ãŒè‡ªå‹•çš„ã«è¦‹ã¤ã‘ã¦ã€åˆ—æ•°ã‚’æƒãˆã‚‹ã€‚ ■■補足 â– â–