質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
bash

bash(Bourne-again-Shell)は sh(Bourne Shell)のインプリメンテーションに様々な機能が追加されたシェルです。LinuxやMac OS XではBashはデフォルトで導入されています。

sh

shは、UNIX系OSのシェル操作の1つであり、最も基本的なシェルのことです。

AWK

AWKは、UNIX 上で開発されたプログラミング言語で、CSVファイルなどのテキストファイルの処理を目的にデザインされています。

Q&A

解決済

2回答

1089閲覧

ファイル名をキーとしてペアを作りたいのですが、ご教授いただければ幸いです。

t-taro

総合スコア38

bash

bash(Bourne-again-Shell)は sh(Bourne Shell)のインプリメンテーションに様々な機能が追加されたシェルです。LinuxやMac OS XではBashはデフォルトで導入されています。

sh

shは、UNIX系OSのシェル操作の1つであり、最も基本的なシェルのことです。

AWK

AWKは、UNIX 上で開発されたプログラミング言語で、CSVファイルなどのテキストファイルの処理を目的にデザインされています。

0グッド

0クリップ

投稿2019/02/06 13:54

平素より誠にお世話になっております。

BashやAwkでファイルの整形をしていますが、うまくコードが書けずにいるためご教授いただければ幸いです。

bash

1$ ls test* 2> test01_A test01_B test02_A test02_B

といった数字とアルファベットがIDとしてふられているファイルがあり、そのファイルを下記のような数字のペアで表示したい場合のコードがうまく書けません。

test01_A test01_B test02_A test02_B

なんとか目的の結果を得られるコードは書けたのですが、以下のように無理やりなものになってしまいました。

bash

1A=$(ls *_A) 2B=$(ls *_B) 3 4for i in $(seq 1 $(ls $A | wc -l)); do 5fst=$(echo $A | cut -d " " -f $i) 6snd=$(echo $B | cut -d " " -f $i) 7echo $fst $snd 8done

きっとAWKの連想配列などを用いればもっと素直に書けるのではないかと思っておりますが、力不足で書けませんでした。
BashやAWKでより素直な書き方をご教授いただければ幸いです。

何卒よろしくお願いいたします。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

ファイルを縦方向に結合するには、pasteを使います。

Bash

1paste <(\ls *_A) <(\ls *_B)

lsaliasされていることが多いので、それを避けるために\lsにしています。シェルスクリプトに書くなら、普通はaliasは効かないので、lsで良いです。

<(~~)というのは、

Bash

1\ls *_A >work1 2\ls *_B >work2 3paste work1 work2 4rm work1 work2

を簡単に書く記法です。

質問のコードを少し改善すると、配列を使って、

Bash

1A=($(echo *_A)) 2B=($(echo *_B)) 3 4for((i=0; i<${#A[*]}; i++)) 5do 6 fst=${A[i]} 7 snd=${B[i]} 8 echo $fst $snd 9done

投稿2019/02/06 14:21

otn

総合スコア84423

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

t-taro

2019/02/07 12:44

otn様、ご回答をありがとうございます。 paste <(\ls *_A) <(\ls *_B) などの記法、大変勉強になりました。 今後ともどうぞよろしくお願いいたします。
guest

0

ベストアンサー

awkの正規表現と部分文字列抜き出し用関数を使うと良さそうです。

awk

1# test.awk 2{ 3 match($0, /[0-9][0-9]*/) 4 d = substr($0, RSTART, RLENGTH) 5 x[d] = x[d] " " $0 6} 7END{ 8 for(i in x){ 9 print i,x[i] 10 } 11}
ls test* | awk -f test.awk

ちなみにperlを使うとワンライナーも可能。

ls test* | perl -nle '/(\d+)/ and push(@{$x{$1}}, $_); END{for (sort keys %x){print join(" ", @{$x{$_}})}}'

投稿2019/02/06 14:32

編集2019/02/06 14:44
KojiDoi

総合スコア13669

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

t-taro

2019/02/07 12:46

KojiDoi様、ご回答いただき誠にありがとうございます。 AWKの使い方につきまして、大変勉強になりました。 matchでRSTART, RLENGTHを取り出して連想配列に入れる、というアイディアは私には全くありませんでしたので目からウロコでした。 今後ともどうぞよろしくお願いいたします。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問