Okanye i-tetrisology encinci esetyenzisiweyo.
Yonke into entsha ilityalwe kakuhle indala.
Ii-Epigraphs.
Џџ ѕЃ ° °
Kuyimfuneko ukukhuphela rhoqo ifayile yelog yePostgreSQL yangoku ukusuka kwilifu le-AWS ukuya kwindawo yasekhaya Linux umninimzi. Hayi ngexesha langempela, kodwa, masithi, ngokulibaziseka okuncinci.
Ixesha lokukhuphela uhlaziyo lwefayile yelog yimizuzu emi-5.
Ifayile yelog kwi-AWS ijikeleziswa rhoqo ngeyure.
Izixhobo ezisetyenzisiweyo
Ukukhuphela ifayile yelog kumamkeli, iskripthi se bash sisetyenziswa esibiza i AWS API "».
Iiparameters:
- -db-imeko-isazisi: AWS igama lomzekelo;
- --log-file-name: igama lefayile yelog eyenziweyo ngoku
- --max-item: Inani elipheleleyo lezinto ezibuyiselwe kwisiphumo somyalelo.Ubungakanani besahlulo sefayile ekhutshelweyo.
- --ukuqala-umqondiso: Ukuqala uphawu
Kule meko, umsebenzi wokulayisha iilogi uvele ngexesha lomsebenzi
Kwaye ilula - umsebenzi onomdla woqeqesho kunye nokwahluka ngexesha leeyure zokusebenza.
Ndiya kucinga ukuba ingxaki sele isonjululwe ngenxa yobomi bemihla ngemihla. Kodwa uGoogle okhawulezayo akazange acebise naziphi na izisombululo, kwaye bendingenawo umnqweno wokukhangela nzulu ngakumbi. Nokuba yeyiphi na indlela, kukuzilolonga okulungileyo.
Ukumiselwa komsebenzi
Ifayile yelog yokugqibela inemigca emininzi yobude obuguquguqukayo. Umzobo, ifayile yelog inokumelwa into enje:
Ngaba sele ikukhumbuza okuthile? UTetris wenza ntoni ngayo? Kwaye nantsi into enxulumene nayo.
Ukuba siqikelela iinketho ezinokuthi zivele xa kulayishwa ifayile elandelayo ngomzobo (ukwenza lula, kulo mzekelo, imigca mayibe nobude obufanayo), sifumana iziqwenga zeTetris eziqhelekileyo:
1) Ifayile ikhutshelwe ngokupheleleyo kwaye yeyokugqibela. Ubungakanani besahlulo bukhulu kunobukhulu befayile yokugqibela:
2) Ifayile iyaqhubeka. Ubungakanani be-chunk buncinci kunobukhulu befayile yokugqibela:
3) Ifayile kukuqhubekeka kwefayile yangaphambili kwaye inokuqhubeka. Ubungakanani be-chunk buncinci kunobukhulu bentsalela yefayile yokugqibela:
4) Ifayile kukuqhubeka kwefayile yangaphambili kwaye iyona yokugqibela. Ubungakanani be-chunk bukhulu kunobukhulu bentsalela yefayile yokugqibela:
Umsebenzi kukuhlanganisa uxande okanye udlale iTetris kwinqanaba elitsha.
Iingxaki ezivela ngelixa kusonjululwa ingxaki
1) Gcoba umgca weeqhekeza ezi-2
Ngokubanzi, kwakungekho zingxaki zikhethekileyo. Ingxaki esemgangathweni evela kwikhosi yeprogram yokuqala.
Ubungakanani obufanelekileyo bokukhonza
Kodwa oku kunomdla ngakumbi.
Ngelishwa, akukho ndlela yokusebenzisa i-offset emva kwelebhile yesahlulo sokuqala:
Njengoko sele usazi ukhetho-uphawu lokuqalisa lusetyenziselwa ukucacisa apho ungaqala khona ukwenza amaphepha. Olu khetho luthatha amaxabiso omtya nto leyo eya kuthetha ukuba xa uzama ukongeza ixabiso le-offset phambi koMtya oMtya olandelayo, ukhetho aluyi kuthathelwa ngqalelo njenge offset.
Ke ngoko, kufuneka uyifunde ibe ziziqwengana.
Ukuba ufunda kwiindawo ezinkulu, inani lokufunda liya kuba lincinci, kodwa umthamo uya kuba mkhulu.
Ukuba ufunda kwiincinci ezincinci, ngokuphambene noko, inani lokufunda liya kuba liphezulu, kodwa umthamo uya kuba mncinci.
Ngoko ke, ukuze kuncitshiswe i-traffic kunye nobuhle obupheleleyo besisombululo, kwafuneka ndize nolunye uhlobo lwesisombululo, ngelishwa, lubukeka luncinci njenge-crutch.
Ukwenza umzekeliso, makhe siqwalasele inkqubo yokukhuphela ifayile yelog kwiinguqulelo ezi-2 ezenziwe lula kakhulu. Inani lokufundwa kuzo zombini iimeko lixhomekeke kubungakanani besahlulo.
1) Layisha kwiinxalenye ezincinci:
2) Layisha kwiindawo ezinkulu:
Njengesiqhelo, isisombululo esisiso siphakathi.
Ubungakanani bokukhonza buncinci, kodwa ngexesha lenkqubo yokufunda, ubungakanani bunokwandiswa ukunciphisa inani lokufunda.
Kufuneka kuqatshelwe ukuba ingxaki yokukhetha ubungakanani obufanelekileyo besahlulo esifundekayo ayikasombululwa kwaye ifuna uphando olunzulu kunye nohlalutyo. Mhlawumbi emva kwexeshana.
Inkcazo ngokubanzi yokuphunyezwa
Kusetyenziswa iitafile zenkonzo
CREATE TABLE endpoint
(
id SERIAL ,
host text
);
TABLE database
(
id SERIAL ,
…
last_aws_log_time text ,
last_aws_nexttoken text ,
aws_max_item_size integer
);
last_aws_log_time — временная метка последнего загруженного лог-файла в формате YYYY-MM-DD-HH24.
last_aws_nexttoken — текстовая метка последней загруженной порции.
aws_max_item_size- эмпирическим путем, подобранный начальный размер порции.
Isicatshulwa esipheleleyo sombhalo
Khuphela_aws_piece.sh
#!/bin/bash
#########################################################
# download_aws_piece.sh
# downloan piece of log from AWS
# version HABR
let min_item_size=1024
let max_item_size=1048576
let growth_factor=3
let growth_counter=1
let growth_counter_max=3
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh:''STARTED'
AWS_LOG_TIME=$1
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh:AWS_LOG_TIME='$AWS_LOG_TIME
database_id=$2
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh:database_id='$database_id
RESULT_FILE=$3
endpoint=`psql -h MONITOR_ENDPOINT.rds.amazonaws.com -U USER -d MONITOR_DATABASE_DATABASE -A -t -c "select e.host from endpoint e join database d on e.id = d.endpoint_id where d.id = $database_id "`
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh:endpoint='$endpoint
db_instance=`echo $endpoint | awk -F"." '{print toupper($1)}'`
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh:db_instance='$db_instance
LOG_FILE=$RESULT_FILE'.tmp_log'
TMP_FILE=$LOG_FILE'.tmp'
TMP_MIDDLE=$LOG_FILE'.tmp_mid'
TMP_MIDDLE2=$LOG_FILE'.tmp_mid2'
current_aws_log_time=`psql -h MONITOR_ENDPOINT.rds.amazonaws.com -U USER -d MONITOR_DATABASE -A -t -c "select last_aws_log_time from database where id = $database_id "`
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh:current_aws_log_time='$current_aws_log_time
if [[ $current_aws_log_time != $AWS_LOG_TIME ]];
then
is_new_log='1'
if ! psql -h MONITOR_ENDPOINT.rds.amazonaws.com -U USER -d MONITOR_DATABASE -v ON_ERROR_STOP=1 -A -t -q -c "update database set last_aws_log_time = '$AWS_LOG_TIME' where id = $database_id "
then
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh: FATAL_ERROR - update database set last_aws_log_time .'
exit 1
fi
else
is_new_log='0'
fi
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh:is_new_log='$is_new_log
let last_aws_max_item_size=`psql -h MONITOR_ENDPOINT.rds.amazonaws.com -U USER -d MONITOR_DATABASE -A -t -c "select aws_max_item_size from database where id = $database_id "`
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh: last_aws_max_item_size='$last_aws_max_item_size
let count=1
if [[ $is_new_log == '1' ]];
then
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh: START DOWNLOADING OF NEW AWS LOG'
if ! aws rds download-db-log-file-portion
--max-items $last_aws_max_item_size
--region REGION
--db-instance-identifier $db_instance
--log-file-name error/postgresql.log.$AWS_LOG_TIME > $LOG_FILE
then
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh: FATAL_ERROR - Could not get log from AWS .'
exit 2
fi
else
next_token=`psql -h MONITOR_ENDPOINT.rds.amazonaws.com -U USER -d MONITOR_DATABASE -v ON_ERROR_STOP=1 -A -t -c "select last_aws_nexttoken from database where id = $database_id "`
if [[ $next_token == '' ]];
then
next_token='0'
fi
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh: CONTINUE DOWNLOADING OF AWS LOG'
if ! aws rds download-db-log-file-portion
--max-items $last_aws_max_item_size
--starting-token $next_token
--region REGION
--db-instance-identifier $db_instance
--log-file-name error/postgresql.log.$AWS_LOG_TIME > $LOG_FILE
then
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh: FATAL_ERROR - Could not get log from AWS .'
exit 3
fi
line_count=`cat $LOG_FILE | wc -l`
let lines=$line_count-1
tail -$lines $LOG_FILE > $TMP_MIDDLE
mv -f $TMP_MIDDLE $LOG_FILE
fi
next_token_str=`cat $LOG_FILE | grep NEXTTOKEN`
next_token=`echo $next_token_str | awk -F" " '{ print $2}' `
grep -v NEXTTOKEN $LOG_FILE > $TMP_FILE
if [[ $next_token == '' ]];
then
cp $TMP_FILE $RESULT_FILE
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh: NEXTTOKEN NOT FOUND - FINISH '
rm $LOG_FILE
rm $TMP_FILE
rm $TMP_MIDDLE
rm $TMP_MIDDLE2
exit 0
else
psql -h MONITOR_ENDPOINT.rds.amazonaws.com -U USER -d MONITOR_DATABASE -v ON_ERROR_STOP=1 -A -t -q -c "update database set last_aws_nexttoken = '$next_token' where id = $database_id "
fi
first_str=`tail -1 $TMP_FILE`
line_count=`cat $TMP_FILE | wc -l`
let lines=$line_count-1
head -$lines $TMP_FILE > $RESULT_FILE
###############################################
# MAIN CIRCLE
let count=2
while [[ $next_token != '' ]];
do
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh: count='$count
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh: START DOWNLOADING OF AWS LOG'
if ! aws rds download-db-log-file-portion
--max-items $last_aws_max_item_size
--starting-token $next_token
--region REGION
--db-instance-identifier $db_instance
--log-file-name error/postgresql.log.$AWS_LOG_TIME > $LOG_FILE
then
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh: FATAL_ERROR - Could not get log from AWS .'
exit 4
fi
next_token_str=`cat $LOG_FILE | grep NEXTTOKEN`
next_token=`echo $next_token_str | awk -F" " '{ print $2}' `
TMP_FILE=$LOG_FILE'.tmp'
grep -v NEXTTOKEN $LOG_FILE > $TMP_FILE
last_str=`head -1 $TMP_FILE`
if [[ $next_token == '' ]];
then
concat_str=$first_str$last_str
echo $concat_str >> $RESULT_FILE
line_count=`cat $TMP_FILE | wc -l`
let lines=$line_count-1
tail -$lines $TMP_FILE >> $RESULT_FILE
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh: NEXTTOKEN NOT FOUND - FINISH '
rm $LOG_FILE
rm $TMP_FILE
rm $TMP_MIDDLE
rm $TMP_MIDDLE2
exit 0
fi
if [[ $next_token != '' ]];
then
let growth_counter=$growth_counter+1
if [[ $growth_counter -gt $growth_counter_max ]];
then
let last_aws_max_item_size=$last_aws_max_item_size*$growth_factor
let growth_counter=1
fi
if [[ $last_aws_max_item_size -gt $max_item_size ]];
then
let last_aws_max_item_size=$max_item_size
fi
psql -h MONITOR_ENDPOINT.rds.amazonaws.com -U USER -d MONITOR_DATABASE -A -t -q -c "update database set last_aws_nexttoken = '$next_token' where id = $database_id "
concat_str=$first_str$last_str
echo $concat_str >> $RESULT_FILE
line_count=`cat $TMP_FILE | wc -l`
let lines=$line_count-1
#############################
#Get middle of file
head -$lines $TMP_FILE > $TMP_MIDDLE
line_count=`cat $TMP_MIDDLE | wc -l`
let lines=$line_count-1
tail -$lines $TMP_MIDDLE > $TMP_MIDDLE2
cat $TMP_MIDDLE2 >> $RESULT_FILE
first_str=`tail -1 $TMP_FILE`
fi
let count=$count+1
done
#
#################################################################
exit 0
Iziqwenga zescript ezineengcaciso ezithile:
Iiparamitha zongeniso lwescript:
- Isitampu sexesha segama lefayile yelog ngendlela YYYY-MM-DD-HH24: AWS_LOG_TIME=$1
- Isazisi sesiseko sedatha: database_id=$2
- Igama lefayile yelog eqokelelweyo: RESULT_FILE=$3
Fumana isitampu sexesha sefayile yelog yokugqibela elayishiweyo:
current_aws_log_time=`psql -h MONITOR_ENDPOINT.rds.amazonaws.com -U USER -d MONITOR_DATABASE -A -t -c "select last_aws_log_time from database where id = $database_id "`Ukuba isitampu sexesha sefayile yelog yokugqibela elayishiweyo ayihambelani nepharamitha yegalelo, ifayile yelog entsha iyalayishwa:
if [[ $current_aws_log_time != $AWS_LOG_TIME ]];
then
is_new_log='1'
if ! psql -h ENDPOINT.rds.amazonaws.com -U USER -d MONITOR_DATABASE -v ON_ERROR_STOP=1 -A -t -c "update database set last_aws_log_time = '$AWS_LOG_TIME' where id = $database_id "
then
echo '***download_aws_piece.sh -FATAL_ERROR - update database set last_aws_log_time .'
exit 1
fi
else
is_new_log='0'
fi
Sifumana ixabiso leleyibhile elandelayo kwifayile ekhutshelweyo:
next_token_str=`cat $LOG_FILE | grep NEXTTOKEN`
next_token=`echo $next_token_str | awk -F" " '{ print $2}' `
Ixabiso elingenanto le nexttoken lisebenza njengophawu lokuphela kokhuphelo.
Kwi-loop, sibala iinxalenye zefayile, sidibanisa imigca endleleni kunye nokwandisa ubungakanani besahlulo:
Ilophu engundoqo
# MAIN CIRCLE
let count=2
while [[ $next_token != '' ]];
do
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh: count='$count
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh: START DOWNLOADING OF AWS LOG'
if ! aws rds download-db-log-file-portion
--max-items $last_aws_max_item_size
--starting-token $next_token
--region REGION
--db-instance-identifier $db_instance
--log-file-name error/postgresql.log.$AWS_LOG_TIME > $LOG_FILE
then
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh: FATAL_ERROR - Could not get log from AWS .'
exit 4
fi
next_token_str=`cat $LOG_FILE | grep NEXTTOKEN`
next_token=`echo $next_token_str | awk -F" " '{ print $2}' `
TMP_FILE=$LOG_FILE'.tmp'
grep -v NEXTTOKEN $LOG_FILE > $TMP_FILE
last_str=`head -1 $TMP_FILE`
if [[ $next_token == '' ]];
then
concat_str=$first_str$last_str
echo $concat_str >> $RESULT_FILE
line_count=`cat $TMP_FILE | wc -l`
let lines=$line_count-1
tail -$lines $TMP_FILE >> $RESULT_FILE
echo $(date +%Y%m%d%H%M)': download_aws_piece.sh: NEXTTOKEN NOT FOUND - FINISH '
rm $LOG_FILE
rm $TMP_FILE
rm $TMP_MIDDLE
rm $TMP_MIDDLE2
exit 0
fi
if [[ $next_token != '' ]];
then
let growth_counter=$growth_counter+1
if [[ $growth_counter -gt $growth_counter_max ]];
then
let last_aws_max_item_size=$last_aws_max_item_size*$growth_factor
let growth_counter=1
fi
if [[ $last_aws_max_item_size -gt $max_item_size ]];
then
let last_aws_max_item_size=$max_item_size
fi
psql -h MONITOR_ENDPOINT.rds.amazonaws.com -U USER -d MONITOR_DATABASE -A -t -q -c "update database set last_aws_nexttoken = '$next_token' where id = $database_id "
concat_str=$first_str$last_str
echo $concat_str >> $RESULT_FILE
line_count=`cat $TMP_FILE | wc -l`
let lines=$line_count-1
#############################
#Get middle of file
head -$lines $TMP_FILE > $TMP_MIDDLE
line_count=`cat $TMP_MIDDLE | wc -l`
let lines=$line_count-1
tail -$lines $TMP_MIDDLE > $TMP_MIDDLE2
cat $TMP_MIDDLE2 >> $RESULT_FILE
first_str=`tail -1 $TMP_FILE`
fi
let count=$count+1
done
Yintoni elandelayo?
Ke, umsebenzi wokuqala ophakathi - "khuphela ifayile yelog efini" isonjululwe. Yintoni onokuyenza ngelog ekhutshelweyo?
Okokuqala, kufuneka uhlalutye ifayile yelog kwaye ukhuphe ezona zicelo kuyo.
Umsebenzi awunzima kakhulu. Esona script silula se-bash senza umsebenzi kakuhle.
upload_log_query.sh
#!/bin/bash
#########################################################
# upload_log_query.sh
# Upload table table from dowloaded aws file
# version HABR
###########################################################
echo 'TIMESTAMP:'$(date +%c)' Upload log_query table '
source_file=$1
echo 'source_file='$source_file
database_id=$2
echo 'database_id='$database_id
beginer=' '
first_line='1'
let "line_count=0"
sql_line=' '
sql_flag=' '
space=' '
cat $source_file | while read line
do
line="$space$line"
if [[ $first_line == "1" ]]; then
beginer=`echo $line | awk -F" " '{ print $1}' `
first_line='0'
fi
current_beginer=`echo $line | awk -F" " '{ print $1}' `
if [[ $current_beginer == $beginer ]]; then
if [[ $sql_flag == '1' ]]; then
sql_flag='0'
log_date=`echo $sql_line | awk -F" " '{ print $1}' `
log_time=`echo $sql_line | awk -F" " '{ print $2}' `
duration=`echo $sql_line | awk -F" " '{ print $5}' `
#replace ' to ''
sql_modline=`echo "$sql_line" | sed 's/'''/''''''/g'`
sql_line=' '
################
#PROCESSING OF THE SQL-SELECT IS HERE
if ! psql -h ENDPOINT.rds.amazonaws.com -U USER -d DATABASE -v ON_ERROR_STOP=1 -A -t -c "select log_query('$ip_port',$database_id , '$log_date' , '$log_time' , '$duration' , '$sql_modline' )"
then
echo 'FATAL_ERROR - log_query '
exit 1
fi
################
fi #if [[ $sql_flag == '1' ]]; then
let "line_count=line_count+1"
check=`echo $line | awk -F" " '{ print $8}' `
check_sql=${check^^}
#echo 'check_sql='$check_sql
if [[ $check_sql == 'SELECT' ]]; then
sql_flag='1'
sql_line="$sql_line$line"
ip_port=`echo $sql_line | awk -F":" '{ print $4}' `
fi
else
if [[ $sql_flag == '1' ]]; then
sql_line="$sql_line$line"
fi
fi #if [[ $current_beginer == $beginer ]]; then
done
Ngoku ungasebenza ngesicelo esikhethiweyo kwifayile yelog.
Kwaye amathuba amaninzi aluncedo avulelekayo.
Imibuzo ecazululiweyo kufuneka igcinwe ndaweni ithile. Itafile yenkonzo isetyenziselwa oku log_query
CREATE TABLE log_query
(
id SERIAL ,
queryid bigint ,
query_md5hash text not null ,
database_id integer not null ,
timepoint timestamp without time zone not null,
duration double precision not null ,
query text not null ,
explained_plan text[],
plan_md5hash text ,
explained_plan_wo_costs text[],
plan_hash_value text ,
baseline_id integer ,
ip text ,
port text
);
ALTER TABLE log_query ADD PRIMARY KEY (id);
ALTER TABLE log_query ADD CONSTRAINT queryid_timepoint_unique_key UNIQUE (queryid, timepoint );
ALTER TABLE log_query ADD CONSTRAINT query_md5hash_timepoint_unique_key UNIQUE (query_md5hash, timepoint );
CREATE INDEX log_query_timepoint_idx ON log_query (timepoint);
CREATE INDEX log_query_queryid_idx ON log_query (queryid);
ALTER TABLE log_query ADD CONSTRAINT database_id_fk FOREIGN KEY (database_id) REFERENCES database (id) ON DELETE CASCADE ;
Isicelo esicazululiweyo sijongiwe plpgsql imisebenzi"log_query».
log_query.sql
--log_query.sql
--verison HABR
CREATE OR REPLACE FUNCTION log_query( ip_port text ,log_database_id integer , log_date text , log_time text , duration text , sql_line text ) RETURNS boolean AS $$
DECLARE
result boolean ;
log_timepoint timestamp without time zone ;
log_duration double precision ;
pos integer ;
log_query text ;
activity_string text ;
log_md5hash text ;
log_explain_plan text[] ;
log_planhash text ;
log_plan_wo_costs text[] ;
database_rec record ;
pg_stat_query text ;
test_log_query text ;
log_query_rec record;
found_flag boolean;
pg_stat_history_rec record ;
port_start integer ;
port_end integer ;
client_ip text ;
client_port text ;
log_queryid bigint ;
log_query_text text ;
pg_stat_query_text text ;
BEGIN
result = TRUE ;
RAISE NOTICE '***log_query';
port_start = position('(' in ip_port);
port_end = position(')' in ip_port);
client_ip = substring( ip_port from 1 for port_start-1 );
client_port = substring( ip_port from port_start+1 for port_end-port_start-1 );
SELECT e.host , d.name , d.owner_pwd
INTO database_rec
FROM database d JOIN endpoint e ON e.id = d.endpoint_id
WHERE d.id = log_database_id ;
log_timepoint = to_timestamp(log_date||' '||log_time,'YYYY-MM-DD HH24-MI-SS');
log_duration = duration:: double precision;
pos = position ('SELECT' in UPPER(sql_line) );
log_query = substring( sql_line from pos for LENGTH(sql_line));
log_query = regexp_replace(log_query,' +',' ','g');
log_query = regexp_replace(log_query,';+','','g');
log_query = trim(trailing ' ' from log_query);
log_md5hash = md5( log_query::text );
--Explain execution plan--
EXECUTE 'SELECT dblink_connect(''LINK1'',''host='||database_rec.host||' dbname='||database_rec.name||' user=DATABASE password='||database_rec.owner_pwd||' '')';
log_explain_plan = ARRAY ( SELECT * FROM dblink('LINK1', 'EXPLAIN '||log_query ) AS t (plan text) );
log_plan_wo_costs = ARRAY ( SELECT * FROM dblink('LINK1', 'EXPLAIN ( COSTS FALSE ) '||log_query ) AS t (plan text) );
PERFORM dblink_disconnect('LINK1');
--------------------------
BEGIN
INSERT INTO log_query
(
query_md5hash ,
database_id ,
timepoint ,
duration ,
query ,
explained_plan ,
plan_md5hash ,
explained_plan_wo_costs ,
plan_hash_value ,
ip ,
port
)
VALUES
(
log_md5hash ,
log_database_id ,
log_timepoint ,
log_duration ,
log_query ,
log_explain_plan ,
md5(log_explain_plan::text) ,
log_plan_wo_costs ,
md5(log_plan_wo_costs::text),
client_ip ,
client_port
);
activity_string = 'New query has logged '||
' database_id = '|| log_database_id ||
' query_md5hash='||log_md5hash||
' , timepoint = '||to_char(log_timepoint,'YYYYMMDD HH24:MI:SS');
RAISE NOTICE '%',activity_string;
PERFORM pg_log( log_database_id , 'log_query' , activity_string);
EXCEPTION
WHEN unique_violation THEN
RAISE NOTICE '*** unique_violation *** query already has logged';
END;
SELECT queryid
INTO log_queryid
FROM log_query
WHERE query_md5hash = log_md5hash AND
timepoint = log_timepoint;
IF log_queryid IS NOT NULL
THEN
RAISE NOTICE 'log_query with query_md5hash = % and timepoint = % has already has a QUERYID = %',log_md5hash,log_timepoint , log_queryid ;
RETURN result;
END IF;
------------------------------------------------
RAISE NOTICE 'Update queryid';
SELECT *
INTO log_query_rec
FROM log_query
WHERE query_md5hash = log_md5hash AND timepoint = log_timepoint ;
log_query_rec.query=regexp_replace(log_query_rec.query,';+','','g');
FOR pg_stat_history_rec IN
SELECT
queryid ,
query
FROM
pg_stat_db_queries
WHERE
database_id = log_database_id AND
queryid is not null
LOOP
pg_stat_query = pg_stat_history_rec.query ;
pg_stat_query=regexp_replace(pg_stat_query,'n+',' ','g');
pg_stat_query=regexp_replace(pg_stat_query,'t+',' ','g');
pg_stat_query=regexp_replace(pg_stat_query,' +',' ','g');
pg_stat_query=regexp_replace(pg_stat_query,'$.','%','g');
log_query_text = trim(trailing ' ' from log_query_rec.query);
pg_stat_query_text = pg_stat_query;
--SELECT log_query_rec.query like pg_stat_query INTO found_flag ;
IF (log_query_text LIKE pg_stat_query_text) THEN
found_flag = TRUE ;
ELSE
found_flag = FALSE ;
END IF;
IF found_flag THEN
UPDATE log_query SET queryid = pg_stat_history_rec.queryid WHERE query_md5hash = log_md5hash AND timepoint = log_timepoint ;
activity_string = ' updated queryid = '||pg_stat_history_rec.queryid||
' for log_query with id = '||log_query_rec.id
;
RAISE NOTICE '%',activity_string;
EXIT ;
END IF ;
END LOOP ;
RETURN result ;
END
$$ LANGUAGE plpgsql;
Itafile yenkonzo isetyenziswa ngexesha lokucubungula pg_stat_db_queries, equlathe umfanekiso okhawulezayo wemibuzo yangoku esuka kwitafile pg_stat_history (Ukusetyenziswa kwetheyibhile kuchazwe apha − )
TABLE pg_stat_db_queries
(
database_id integer,
queryid bigint ,
query text ,
max_time double precision
);
TABLE pg_stat_history
(
…
database_id integer ,
…
queryid bigint ,
…
max_time double precision ,
…
);
Umsebenzi ikuvumela ukuba usebenzise inani lezinto eziluncedo zokucwangcisa izicelo kwifayile yelog. Oko kukuthi:
Ithuba #1 - Imbali yokwenziwa kombuzo
Iluncedo kakhulu ekuqaliseni ukusombulula isiganeko sokusebenza. Okokuqala, qhelana nembali - kwaqala nini ukucotha?
Emva koko, ngokweeklasikhi, khangela izizathu zangaphandle. Mhlawumbi umthwalo wesiseko sedatha uye wanda ngokukhawuleza kwaye isicelo esithile asinanto yakwenza nayo.
Yongeza ungeno olutsha kwilog_query table
port_start = position('(' in ip_port);
port_end = position(')' in ip_port);
client_ip = substring( ip_port from 1 for port_start-1 );
client_port = substring( ip_port from port_start+1 for port_end-port_start-1 );
SELECT e.host , d.name , d.owner_pwd
INTO database_rec
FROM database d JOIN endpoint e ON e.id = d.endpoint_id
WHERE d.id = log_database_id ;
log_timepoint = to_timestamp(log_date||' '||log_time,'YYYY-MM-DD HH24-MI-SS');
log_duration = to_number(duration,'99999999999999999999D9999999999');
pos = position ('SELECT' in UPPER(sql_line) );
log_query = substring( sql_line from pos for LENGTH(sql_line));
log_query = regexp_replace(log_query,' +',' ','g');
log_query = regexp_replace(log_query,';+','','g');
log_query = trim(trailing ' ' from log_query);
RAISE NOTICE 'log_query=%',log_query ;
log_md5hash = md5( log_query::text );
--Explain execution plan--
EXECUTE 'SELECT dblink_connect(''LINK1'',''host='||database_rec.host||' dbname='||database_rec.name||' user=DATABASE password='||database_rec.owner_pwd||' '')';
log_explain_plan = ARRAY ( SELECT * FROM dblink('LINK1', 'EXPLAIN '||log_query ) AS t (plan text) );
log_plan_wo_costs = ARRAY ( SELECT * FROM dblink('LINK1', 'EXPLAIN ( COSTS FALSE ) '||log_query ) AS t (plan text) );
PERFORM dblink_disconnect('LINK1');
--------------------------
BEGIN
INSERT INTO log_query
(
query_md5hash ,
database_id ,
timepoint ,
duration ,
query ,
explained_plan ,
plan_md5hash ,
explained_plan_wo_costs ,
plan_hash_value ,
ip ,
port
)
VALUES
(
log_md5hash ,
log_database_id ,
log_timepoint ,
log_duration ,
log_query ,
log_explain_plan ,
md5(log_explain_plan::text) ,
log_plan_wo_costs ,
md5(log_plan_wo_costs::text),
client_ip ,
client_port
);
Okunokwenzeka #2 - Gcina isicwangciso sokwenza umbuzo
Ngeli xesha inkcazo-ngcaciso-inkcazo inokuvela: "Kodwa sele kukho i-autoexplain" Ewe, ikhona, kodwa ithini inqaku ukuba isicwangciso sophumezo sigcinwe kwifayile yelog efanayo kwaye ukuze uyigcinele uhlalutyo olongezelelweyo, kufuneka ucazulule ifayile yelog?
Into ebendiyidinga yayikukuba:
okokuqala: gcina isicwangciso sokwenziwa kwitheyibhile yenkonzo yesiseko sedatha yokubeka iliso;
okwesibini: ukukwazi ukuthelekisa izicwangciso zokwenza kunye nomnye ukuze ubone ngokukhawuleza ukuba isicwangciso sokwenza umbuzo sitshintshile.
Kukho isicelo esineparameters ezithile zokuphumeza. Ukufumana kunye nokugcina isicwangciso sayo sokuphumeza usebenzisa i-EXPLAIN ngumsebenzi osisiseko.
Ngaphezu koko, usebenzisa i-EXPLAIN (IINDLEKO ZOBUXOKI), unokufumana i-skeleton yesicwangciso, esiza kusetyenziswa ukufumana ixabiso le-hash yesicwangciso, esiza kunceda uhlalutyo olulandelayo lwembali yotshintsho kwisicwangciso sokwenza.
Fumana itemplate yesicwangciso sophumezo
--Explain execution plan--
EXECUTE 'SELECT dblink_connect(''LINK1'',''host='||database_rec.host||' dbname='||database_rec.name||' user=DATABASE password='||database_rec.owner_pwd||' '')';
log_explain_plan = ARRAY ( SELECT * FROM dblink('LINK1', 'EXPLAIN '||log_query ) AS t (plan text) );
log_plan_wo_costs = ARRAY ( SELECT * FROM dblink('LINK1', 'EXPLAIN ( COSTS FALSE ) '||log_query ) AS t (plan text) );
PERFORM dblink_disconnect('LINK1');
Okunokwenzeka #3 - Ukusebenzisa ilogi yombuzo ukujonga iliso
Ekubeni iimetriki zokusebenza ziqwalaselwe kungekhona kwisicatshulwa esiceliwe, kodwa kwi-ID yayo, kufuneka udibanise izicelo ezivela kwifayile yelog kunye nezicelo apho iimetriki zokusebenza ziqwalaselwe.
Ewe, ubuncinci ukuze ube nexesha elichanekileyo lokwenzeka kwesehlo sokusebenza.
Ngale ndlela, xa isiganeko sokusebenza sisenzeka kwi-ID yesicelo, kuya kubakho ikhonkco kwisicelo esithile esinamaxabiso athile eparameter kunye nexesha elichanekileyo lokwenziwa kunye nobude besicelo. Fumana olu lwazi usebenzisa imboniselo kuphela pg_stat_statements - akuvumelekanga.
Fumana umbuzo wesicelo kwaye uhlaziye ungeniso kwilog_query table
SELECT *
INTO log_query_rec
FROM log_query
WHERE query_md5hash = log_md5hash AND timepoint = log_timepoint ;
log_query_rec.query=regexp_replace(log_query_rec.query,';+','','g');
FOR pg_stat_history_rec IN
SELECT
queryid ,
query
FROM
pg_stat_db_queries
WHERE
database_id = log_database_id AND
queryid is not null
LOOP
pg_stat_query = pg_stat_history_rec.query ;
pg_stat_query=regexp_replace(pg_stat_query,'n+',' ','g');
pg_stat_query=regexp_replace(pg_stat_query,'t+',' ','g');
pg_stat_query=regexp_replace(pg_stat_query,' +',' ','g');
pg_stat_query=regexp_replace(pg_stat_query,'$.','%','g');
log_query_text = trim(trailing ' ' from log_query_rec.query);
pg_stat_query_text = pg_stat_query;
--SELECT log_query_rec.query like pg_stat_query INTO found_flag ;
IF (log_query_text LIKE pg_stat_query_text) THEN
found_flag = TRUE ;
ELSE
found_flag = FALSE ;
END IF;
IF found_flag THEN
UPDATE log_query SET queryid = pg_stat_history_rec.queryid WHERE query_md5hash = log_md5hash AND timepoint = log_timepoint ;
activity_string = ' updated queryid = '||pg_stat_history_rec.queryid||
' for log_query with id = '||log_query_rec.id
;
RAISE NOTICE '%',activity_string;
EXIT ;
END IF ;
END LOOP ;
Emva kwegama
Ubuchule obuchaziweyo ekugqibeleni bufumene ukusetyenziswa kwi , kukuvumela ukuba ube nolwazi oluthe kratya lokuhlalutya xa usombulula iziganeko ezisakhulayo zokusebenza.
Nangona, ngokuqinisekileyo, ngokombono wam, kuya kufuneka ukuba usebenze ngakumbi kwi-algorithm yokukhetha kunye nokutshintsha ubungakanani becandelo elikhutshiweyo. Ingxaki ayikasonjululwa kwimeko jikelele. Mhlawumbi iya kuba nomdla.
Kodwa elo libali elahluke ngokupheleleyo...
umthombo: www.habr.com
