파싱 질문입니다. 펄이나 파이썬에 능숙하면 좀더 용이할 것 같은데 녹록지가 않네요.

사과먹는 곰돌이의 이미지

허…아래 input file과 같은 tab-delimited 파일들을 파싱해서 각 product(여기서 product명은 알파벳으로 표기했지만 실제 파일은 space-delimited입니다)별로 quantity*order의 총합을 days로 나누어준 값을 정리해야 합니다. 각 파일의 첫줄은 식별을 위해 제가 이 글에서 임의로 추가한 것이고, 실제 파일은 첫줄이 없습니다. 각 product는 고유의 ID를 갖고 있고요. product 구분 없이 전체 값을 일괄적으로 정리를 하는 것까지는 R로 어찌어찌 해보겠는데 product 별로 각각의 값을 구해야 한다는데서 막히네요. 펄로도 해결할 수 있을 것 같긴 한데 아직 입문 단계라 역시 product별로 값을 구하는 문제가 막힙니다. 실제 파일은 예로 들어둔 목록보다 훨씬 길어서 직접 계산하기에는 무리가 있는데, 이걸 일괄적으로 처리할 수 있는 스크립트를 짤 수 있을까요? 데이터는 product별로 sorting이 되어 있습니다.

ID product quantity order days
24723 A 3 4 20
24723 A 5 9 20
24723 A 7 2 20
24723 A 0 7 20
24725 B 3 6 12
24725 B 4 1 12
24726 C 15 2 8
24726 C 2 4 8

ID product avg.quantity per day 24723 A 2 24725 B 0.9167 24726 C 4.75

cinsk의 이미지

$ cat foo.awk
#!/usr/bin/awk -f
 
{
    IDS[$2] = $1;
    SUM[$2] += $3 * $4 / $5;
}
 
END {
    for (v in SUM)
        printf "%d %s %f\n", IDS[v], v, SUM[v];
}
$ cat data
24723	A	3	4	20
24723	A	5	9	20
24723	A	7	2	20
24723	A	0	7	20
24725	B	3	6	12
24725	B	4	1	12
24726	C	15	2	8
24726	C	2	4	8
$ ./foo.awk data
24723 A 3.550000
24725 B 1.833333
24726 C 4.750000
사과먹는 곰돌이의 이미지

아이고 세상에! awk로도 이게 가능했군요! 업무에서 자주 사용하는 단순한 명령어들 위주로만 써온 터라 생각지도 못하고 있었는데..스크립트의 세계는 역시 무궁무진하군요.
언제쯤이면 좀 능숙해질런지...감사드리고 또 감사드립니다.

raymundo의 이미지

$ cat foo.pl
#!/usr/bin/env perl
 
my %info;
 
while (<>) {
    my ($id, $product, $quantity, $order, $days) = split;
    $info{$id}->{product}     = $product;
    $info{$id}->{sum_qxo}    += $quantity * $order;
    $info{$id}->{total_days} += $days;
}
 
foreach my $id ( sort keys %info ) {
    printf "%5s %10s %f\n", $id, $info{$id}->{product}, $info{$id}->{sum_qxo} / $info{$id}->{total_days};
}
 
$ cat data.txt
24723 A 3 4 20
24723 A 5 9 20
24723 A 7 2 20
24723 A 0 7 20
24725 B 3 6 12
24725 B 4 1 12
24726 C 15 2 8
24726 C 2 4 8
$ perl foo.pl data.txt
24723          A 0.887500
24725          B 0.916667
24726          C 2.375000

위의 cinsk 님과는 계산법을 다르게 했습니다. 본문에 적으신 대로라면 "order 와 quantity 의 곱"들의 합을 다 구한 후에 그걸 "days의 합"으로 나누어야 하니 나눗셈은 가장 마지막에 한번만 이뤄져야 할 것 같아서요.

좋은 하루 되세요!

bushi의 이미지

[bushi@rose net]$ cat foo.sh 
#!/bin/bash
 
declare -A IDS
declare -A PRODUCTS
declare -A DAYS
declare -A NUMS
 
while read ID product quantity order days; do
	IDS[$product]=$ID
	((DAYS[$product]+=$days))
	PRODUCTS[$product]=$product
	((NUMS[$product]+=$quantity\*$order\*1000))
done
 
for p in ${PRODUCTS[*]}; do
	# WARN: ${DAYS[$p] != 0
	((avg_e=${NUMS[$p]}/${DAYS[$p]}))
	((avg_d=${avg_e}/1000))
	((avg_f=${avg_e}-${avg_d}\*1000))
	printf "%6s %-10s %d.%03d\n" ${IDS[$p]} ${PRODUCTS[$p]} $avg_d $avg_f
done
 
[bushi@rose net]$ 
[bushi@rose net]$ cat data.txt 
24723 A 3 4 20
24723 A 5 9 20
24723 A 7 2 20
24723 A 0 7 20
24725 B 3 6 12
24725 B 4 1 12
24726 C 15 2 8
24726 C 2 4 8
[bushi@rose net]$ 
[bushi@rose net]$ ./foo.sh < data.txt
 24723 A          0.887
 24725 B          0.916
 24726 C          2.375

위의 raymundo 님과 같은 계산 방식입니다. 아... zsh 를 사용하면 float 부분을 간단하게 할 수 있겠습니다.
익명 사용자의 이미지

엑셀로 하면 되지 않나요?

댓글 달기

Filtered HTML

  • 텍스트에 BBCode 태그를 사용할 수 있습니다. URL은 자동으로 링크 됩니다.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>
  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.

BBCode

  • 텍스트에 BBCode 태그를 사용할 수 있습니다. URL은 자동으로 링크 됩니다.
  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param>
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.

Textile

  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • You can use Textile markup to format text.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>

Markdown

  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • Quick Tips:
    • Two or more spaces at a line's end = Line break
    • Double returns = Paragraph
    • *Single asterisks* or _single underscores_ = Emphasis
    • **Double** or __double__ = Strong
    • This is [a link](http://the.link.example.com "The optional title text")
    For complete details on the Markdown syntax, see the Markdown documentation and Markdown Extra documentation for tables, footnotes, and more.
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>

Plain text

  • HTML 태그를 사용할 수 없습니다.
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.
  • 줄과 단락은 자동으로 분리됩니다.
댓글 첨부 파일
이 댓글에 이미지나 파일을 업로드 합니다.
파일 크기는 8 MB보다 작아야 합니다.
허용할 파일 형식: txt pdf doc xls gif jpg jpeg mp3 png rar zip.
CAPTCHA
이것은 자동으로 스팸을 올리는 것을 막기 위해서 제공됩니다.