Результат:

Question

Вот эти файлы:

проект2.телефон:

  Dave,7348389800
  Barry,3131234567
  Carl,2483445576
  Marci,3134491390
  Tom,2484962204
  Alden,6165564458 

проект2.день:

  Barry,tuesday
  Carl,friday
  Tom,sunday
  Alden,wednesday
  Dave,thursday
  Marci,saturday

Мой вывод выглядит так:

Day            Name         Phone
 ____________________________________
SUNDAY         Tom       2484962204
MONDAY         Nobody
TUESDAY        Barry     3131234567
WEDNESDAY      Alden     6165564458
THURSDAY       Dave      7348389800
FRIDAY         Carl      2483445576
SATURDAY       Marci     3134491390
SUNDAY         Tom       2484962204

Мне нужно, чтобы вывод выглядел так:

Day            Name         Phone
 ____________________________________
SUNDAY         Tom      [phone]
MONDAY         Nobody
TUESDAY        Barry    [phone]
WEDNESDAY      Alden    [phone]
THURSDAY       Dave     [phone]
FRIDAY         Carl     [phone]
SATURDAY       Marci    [phone]
SUNDAY         Tom      [phone]

---

Я не могу получить номера телефонов в правильном формате.

Это работает только тогда, когда я используюawk -F, -f проект2.ksh проект2.phone проект2.day.

Мне нужно запустить ksh project2.ksh, чтобы получить вывод.

Вот сценарий:

проект2.ksh

---

      BEGIN     { split("SUNDAY;MONDAY;TUESDAY;WEDNESDAY;THURSDAY;FRIDAY;SATURDAY", week, ";") }


      FNR == NR { name2phone[$1] = gensub(/([0-9]{3})([0-9]{3})(.*)/, "(\\1) \\2-\\3", "g", $2 )
        next
      }

      { day2name[toupper($2)] = $1 }

           END       { fmtstr= "%-10s\t%s\t%s\n"

                         printf(fmtstr,"Day","Name","Phone")

                         print "____________________________________"

                     for(d=1;d< length(week); d++ )
                     {

                         cname = (week[d] in day2name ) ? day2name[ week[d] ] : "NOBODY"

                         printf( fmtstr, week[d], cname, name2phone[ cname])
                     }
      }

Answer 1

Некоторые идеи по GNU awk:

$ awk '{match($0,/(...)(...)(.*)/,a);printf("(%s)%s-%s\n",a[1],a[2],a[3])}' <<<"333456789"
(333)456-789

$ awk '{match($0,/(...)(...)(.*)/,arr);printf( "(" arr[1] ")" arr[2] "-" arr[3])}' <<<"333456789"
(333)456-789

$ awk '{a=$0;printf("(%s)%s-%s\n",substr(a,1,3),substr(a,4,3), substr(a,7))}' <<<"333456789"
(333)456-789

Чтобы адаптировать его к вашему сценарию, попробуйте это:

Заменяем последнюю строку скрипта:

printf( fmtstr, week[d], cname, name2phone[ cname])

С нижеприведенным все должно работать нормально:

ph=name2phone[ cname];
match(ph,/(...)(...)(.*)/,arr);
printf( fmtstr, week[d], cname, "(" arr[1] ")" arr[2] "-" arr[3])

Answer 2

{
  raw=$3; //or whichever column the phone# is in
  area=substr(raw,1,3);
  prefix=substr(raw,4,3);
  suffix=substr(raw,7);
  print $1, $2, "("area")"prefix"-"suffix 
}

работает для меня

Answer 3

perl -F, -lane '

@ARGV and $Phone_of{$F[0]} = $F[1] =~ s/(...)(...)(.*)/($1)$2-$3/r;

@ARGV or $Person_of{uc $F[1]} = $F[0];

END {
   $fmt = join "\t", map { qq/%${_}s/ } qw/ -10 1 1 /;
   print sprintf $fmt, qw/ Day Name Phone /;
   print "_" x 37;
   for my $day ( map { uc($_ . day) } qw/ sun mon tues wednes thurs fri satur / ) {
      print sprintf $fmt, $day, $Person_of{$day} || "Nobody", $Phone_of{$Person_of{$day}};
   }
}

' project2.phone project2.day

Сначала мы заполняем хэш %Phone_ofключами в виде имен и значениями их телефонных номеров. Затем, когда @ARGVстановится равным нулю, т. е. обрабатывается последний файл (.day), мы заполняем хэш %Person_ofключами в виде заглавных букв day и значением в виде person working в этот день.

В END{...}блоке, когда оба файла обработаны, мы сначала настраиваем строку формата и с ее помощью печатаем заголовок. Наконец, мы циклически проходим по дням недели (в верхнем регистре) и отображаем день, человека, работающего в этот день (или никого, если никто не работает в этот день), и номер телефона человека.

Результат:

Day             Name    Phone
_____________________________________
SUNDAY          Tom     [phone]
MONDAY          Nobody
TUESDAY         Barry   [phone]
WEDNESDAY       Alden   [phone]
THURSDAY        Dave    [phone]
FRIDAY          Carl    [phone]
SATURDAY        Marci   [phone]

Предостережения

No whitespace(s) in the input files (*.phone, *.day)