db2 -nx "select utf8_col from tabname" | iconv -s -c -f utf8 -t kore5
더보기
'형~ 파일 이름을 출력하고, 파일 첫줄을 찍고 싶은데... 쉘 스크립트로는 어떻게 해요?'
글쎄... 어떤 문제이던지 해결 방법은 참 많을 수 있다라고 생각한다. 하지만, 문제를 내는 사람은 알게 모르게 본인이 생각한 방향대로 문제를 해결해 주기를 원하고, 그 방향으로 생각하도록 단서를 달아서 질문을 던지기 마련인 것 같다.
나는 이 질문을 받으면서 생각했다.
그래 이건 파일 리스트를 얻어와서 for 문을 이용해서 아래처럼 수행시키면 되겠구나.
for FILENAME in `ll /target`
do
echo $FILENAME
head -n 1 $FILENAME
done
알려주고 곰곰히 생각해보니 왜 굳이 이렇게 쉘 스크립트 작성해야하나 싶은거다. -_-
분명히 이보다 훨씬 더 좋은 유닉스 최강의 프로그램!!! find 가 있는데 말이다.
find /target -exec echo {} \; -exec head -n 1 {} \;
굳이 스크립트가 왜 필요하다고 생각했을까?? 싶을 정도로 너무나도 간단한 이 한가지 구문으로 결국 문제는 클리어~ 형상이 안부 묻고 일하러 ㄱㄳ
이번일을 격으면서 생각한건데 어떤 질문이나 문제이던지 약간 틀어진 각도에서 문제는 다시 한번 재해석하는 과정을 거쳐야할 것 같다라는 생각을 해본다. 분명히 문제를 다른 각도에서 볼 수만 있다면 정공법을 이용하는 것보다 훨씬 더 편한 방법으로 문제를 해결할 수 있을 것 같다.
ps. 인생사 꼼수없는 문제는 없는 듯 하다. 히히히 : P
#!/usr/bin/perl
use Sys::Hostname;
use Getopt::Std;
use Switch;
use POSIX;$host = hostname;
$TARGETDBNAME = "dbname";
$TARGETUSER = "username";
$TARGETPASS = "password";switch ($host) {
case "agdb1" { $DBNAME = "NPAGDB" }
case "qudb1" { $DBNAME = "NPQTDB" }
case "pddb1" { $DBNAME = "NPPDDB" }
case "batdrdb" { $DBNAME = "SFMIDB" }
case "agdevdb" { $DBNAME = "AGDEVDB" }
case "qtdevdb" { $DBNAME = "QTDEVDB" }
else { $DBNAME = "Unknown" }
}sub process {
# target loading
switch ($_[0]) {
case "file" {
$filename = $_[2];
open(MYDATA, $filename) or die ("error occured!");
@lines = <MYDATA>;
}else {
while(<STDIN>) {
@lines = (@lines, $_)
}
}
}# to split line with whitespace
# my $date = POSIX::strftime("%Y-%m-%d-%H:%M:%S", localtime(time()));
my $input_date = POSIX::strftime("%Y-%m-%d-%H.%M.%S", localtime(time()));
if ($_[1] ne "del") {
print "db2 -v \"connect to $TARGETDBNAME user $TARGETUSER using $TARGETPASS\"\n";
}# to find TCB Table Stats part.
$beg_idx_stats = 0;
$end_idx_stats = $#lines;
foreach $stats_line (@lines) {
if ( $stats_line =~ /TCB Table Stats/ ) {
$beg_idx_stats++;
last;
} else {
$beg_idx_stats++;
}
}
@tcbstats = @lines[$beg_idx_stats+1..$end_idx_stats];# to find TCB Table Infomation.
$beg_idx_info = 0;
$end_idx_info = $beg_idx_stats-3;
foreach $info_line (@lines) {
if ( $info_line =~ /TCB Table Information/ ) {
$beg_idx_info++;
last;
} else {
$beg_idx_info++;
}
}
@tcbinfo = @lines[$beg_idx_info+1..$end_idx_info];# generate data insertion statements.
$line_no = 0;
for $tcbstats_line (@tcbstats) {
@stats_record = split /\s+/, $tcbstats_line;if ($stats_record[1] !~ /^IBM/ && $stats_record[1] !~ /^SYS/ && $stats_record[1] !~ /^TEMP/ && $stats_record[1] !~ /^INTERNAL/ && $#stats_record >= 12) {
$table_schema = "unknown";for $tcbinfo_line (@tcbinfo) {
@info_record = split /\s+/, $tcbinfo_line;
if ($info_record[6] !~ /^IBM/ && $info_record[6] !~ /^SYS/ && $info_record[6] !~ /^TEMP/ && $info_record[6] !~ /^INTERNAL/) {
if ($stats_record[0] eq $info_record[0] ) {
$table_schema = $info_record[7];
}
}
}# db2pd tctstats index information
# Address 00
# TableName 01
# Scans 02
# UDI 03
# PgReorgs 04
# NoChgUpdts 05
# Reads 06
# FscrUpdates 07
# Inserts 08
# Updates 09
# Deletes 10
# OvFlReads 11
# OvFlCrtes 12if ($_[1] eq "del") {
print "\"$DBNAME\",\"$input_date\",\"$table_schema\",\"$stats_record[1]\",$stats_record[2],$stats_record[6],$stats_record[8],$stats_record[9],$stats_record[10]\n";
} else {
print "db2 -v \"insert into adm.tcbstats values ('$DBNAME', '$input_date', '$table_schema', '$stats_record[1]', $stats_record[2], $stats_record[6], $stats_record[8], $stats_record[9], $stats_record[10] )\"\n";
}
}if ($_[1] ne "del") {
if ($line_no != 0 && $line_no % 100 == 0) {
print "db2 -v \"commit work\"\n"
}
}
$line_no++;
}if ($_[1] ne "del") {
print "db2 -v \"commit work\"\n";
print "db2 -v \"terminate\"\n";
}
close MYDATA;
}sub help {
print "# ------------------------------------------------------------------ \n";
print "# This shell is generated by insert_tcbstats.pl \n";
print "# If you have a question, plz contact to youngchang.park@samsung.com \n";
print "# ------------------------------------------------------------------ \n";
print "Usage : insert_tcbstats.pl -t [del|sh] -f [filename] \n";
print " insert_tcbstats.pl -t [del|sh] -s [STDIN] \n";
print " insert_tcbstats.pl -h \n";
print " insert_tcbstats.pl -v \n";
}sub version {
print "insert_tcbstats.pl version : 2009 / 06 / 25 \n"
}%opts = ();
getopts("shvf:t:", \%opts);if (defined $opts{h}) {
help();
exit 0;
}if (defined $opts{v}) {
version();
exit 0;
}if (defined $opts{t}) {
if (defined $opts{s}) {
process("stdin", $opts{t});
exit 0;
} else {
if (defined $opts{f}) {
process("file", $opts{t}, $opts{f});
exit 0;
}
}
}
help();
keylock-KR-apple.cfg
UNIT00[1].표지.pdf
