C - 小さなツールの作成: 1つのことだけをうまくやる(独自のデータストリーム, FILE, fopen, fclose)

Head First C ―頭とからだで覚えるCの基本
(オライリージャパン)
David Griffiths (著) Dawn Griffiths (著)
中田 秀基(監訳)(翻訳) 木下 哲也 (翻訳)

開発環境

• OS X Mavericks - Apple、たまにFreeBSD 10(OS)
• Emacs (CUI)、BBEdit - Bare Bones Software, Inc. (GUI) (Text Editor)
• C (プログラミング言語)
• Clang/LLVM (コンパイラ)

Head First C ―頭とからだで覚えるCの基本(David Griffiths (著)、Dawn Griffiths (著) 中田 秀基(監訳)(翻訳)、木下 哲也 (翻訳)、オライリージャパン)の3章(小さなツールの作成: 1つのことだけをうまくやる)、自分で考えてみよう(p.139)を解いてみる。

その他参考書籍

• プログラミング言語C 第2版 ANSI規格準拠 (B.W. カーニハン D.M. リッチー (著)、 石田 晴久 (翻訳)、共立出版)
• プログラミング言語Cアンサー・ブック 第2版 (クロビス・L．トンド、スコット・E．ギンペル(著)、矢吹 道郎(翻訳))
• C実践プログラミング 第3版 (Steve Oualline (著)、 望月 康司 (監訳) (翻訳)、 谷口 功 (翻訳)、 オライリージャパン)

自分で考えてみよう(p.139)

コード(BBEdit, Emacs)

sample139.c

#include <stdio.h>
#include <string.h>

int main(int argc, char *argv[])
{
  char line[80];
  FILE *in_fh = fopen("spooky.csv", "r");
  FILE *file1 = fopen("ufos.csv", "w");
  FILE *file2 = fopen("disappearances.csv", "w");
  FILE *file3 = fopen("others.csv", "w");

  while (fscanf(in_fh, "%79[^\n]\n", line) == 1)
    if (strstr(line, "UFO"))
      fprintf(file1, "%s\n", line);
    else if (strstr(line, "Disappearance"))
      fprintf(file2, "%s\n", line);
    else
      fprintf(file3, "%s\n", line);

  fclose(in_fh);
  fclose(file1);
  fclose(file2);
  fclose(file3);

  return (0);
}

Makefile

P=
CC=cc
CFLAGS=-g -Wall
SRC=
OBJ=
LDLIBS=

all:

$(P): $(OBJ)
 $(CC) $(CFLAGS) $(LDLIBS) $(OBJ) -o $@

入出力結果(Terminal)

$ make sample139
cc -g -Wall    sample139.c   -o sample139
$ ./sample139
$ cat spooky.csv
30.685163,-68.137207,Type=Yeti
-100.0, 50,Type=Test1
28.304380,-74.575195,Type=UFO
29.132971,-71.136475,Type=Ship
28.343065,-62.753906,Type=Elvis
27.868217,-68.005371,Type=Goatsucker
30.496017,-73.333740,Type=Disappearance
26.224447,-71.477051,Type=UFO
29.401320,-66.027832,Type=Ship
37.879536,-69.477539,Type=Elvis
22.705256,-68.192139,Type=Elvis
27.166695,-87.484131,Type=Elvis
50,200,Type=Test2
$ cat ufos.csv 
28.304380,-74.575195,Type=UFO
26.224447,-71.477051,Type=UFO
$ cat disappearances.csv 
30.496017,-73.333740,Type=Disappearance
$ cat others.csv 
30.685163,-68.137207,Type=Yeti
-100.0, 50,Type=Test1
29.132971,-71.136475,Type=Ship
28.343065,-62.753906,Type=Elvis
27.868217,-68.005371,Type=Goatsucker
29.401320,-66.027832,Type=Ship
37.879536,-69.477539,Type=Elvis
22.705256,-68.192139,Type=Elvis
27.166695,-87.484131,Type=Elvis
50,200,Type=Test2
$