\uc81c\uae38. perl \uc81c\uc791\ud55c \ud504\ub85c\uadf8\ub7a8\uc5d0 \ubc84\uadf8\uac00 \uc788\ub2e4. mysql \uc811\uadfc \uad8c\ud55c\uc744 update\ub97c \uc8fc\uba74 perl\uc774 \uc811\uc18d\ud558\uba74\uc11c gps \uc815\ubcf4\ub97c \ucd08\uae30\ud654\ud55c\ub2e4. perl \uc870\ud68c \uacc4\uc815\uc744 \ud558\ub098 \ub9cc\ub4e4\uc5b4 select \uad8c\ud55c\ub9cc \uc8fc\uc5c8\ub2e4.<\/p>\n\n\n\n
\uadf8\ub9ac\uace0 GPS\uc5d0 N,S, E, W \ub124 \ubc29\ud5a5\uc774 \uc788\ub2e4. \uc644\uc804 \uc88c\uc808..<\/p>\n\n\n\n
\uc798\ubabb\ud55c update \uce7c\ub7fc\uc744 \ucc3e\uc544 \ub2e4\uc2dc \uc88c\ud45c\ub97c \ub123\uc5b4\uc918\uc57c \ud55c\ub2e4.<\/p>\n\n\n\n
#!\/bin\/bash\n\n#file \uc720\ubb34 \ud655\uc778\nif [ ! -f $1 ];then\n\techo \"file is not there\";\n\texit\nfi\n\n#N, S, E, W \ubc29\ud5a5 \ud655\uc778.\n\nGpsRefNS=$(exiv2 -pa $1 2> \/dev\/null | grep -ae \"Exif\\.GPSInfo\\.GPSLatitudeRef.*Ascii\" | sed 's\/ \\{1,\\}\/ \/g'|cut -d' ' -f4-)\nGpsRefEW=$(exiv2 -pa $1 2> \/dev\/null | grep -ae \"Exif\\.GPSInfo\\.GPSLongitudeRef.*Ascii\" | sed 's\/ \\{1,\\}\/ \/g'|cut -d' ' -f4-)\n\nif [ -z \"$GpsRefNS\" ]\nthen\n\texit;\nfi;\n\nif [ -z \"$GpsRefEW\" ]\nthen\n\texit;\nfi;\n\nGpsLat=$(exiv2 -pa $1 2> \/dev\/null | grep -ae \"Exif\\.GPSInfo\\.GPSLatitude.*Rational\" | sed 's\/ \\{1,\\}\/ \/g' | cut -d' ' -f4-)\nGpsLong=$(exiv2 -pa $1 2> \/dev\/null | grep -ae \"Exif\\.GPSInfo\\.GPSLongitude.*Rational\" | sed 's\/ \\{1,\\}\/ \/g'| cut -d' ' -f4-)\n\n#GpsLat\ub9c8\uc9c0\ub9c9 \uc22b\uc790\nGpsLatSec=$(echo $GpsLat | cut -d' ' -f3 | tr -d \"\\\"\")\nGpsLatMin=$(echo $GpsLat | cut -d' ' -f2 | tr -d \"\\'\")\n\n#\ucd08\uac00 \uc5c6\ub294 \uacbd\uc6b0 0\uc744 \uc785\ub825.\nif [ -z \"$GpsLatSec\" ]\n\tthen\n\t\tGpsLatSec=0;\nfi\n\nGpsLongSec=$(echo $GpsLong | cut -d' ' -f3 | tr -d \"\\\"\")\nGpsLongMin=$(echo $GpsLong | cut -d' ' -f2 | tr -d \"\\'\")\n\nif [ -z \"$GpsLongSec\" ]\n\tthen\n\t\tGpsLongSec=0;\nfi\n\n#GPS\uc790\ud45c\uac00 \uc22b\uc790\uc778\uc9c0 \ud655\uc778\nre='^[0-9]{1,3}$'\n#\uac00\ub054 \uc18c\uc218\uc810\ub3c4 \uc788\uc74c..\nre='^[0-9]{1,3}(\\.[0-9]{1,5}$|$)'\n\nif ! [[ $GpsLatSec =~ $re ]]\nthen\n\texit 1;\nfi\n\nif ! [[ $GpsLatMin =~ $re ]]\nthen\n\texit 1;\nfi\n\nGpsLatFloat=$(bc <<< \"scale=4;($GpsLatSec\/60+$GpsLatMin)\/60\")\nGpsLongFloat=$(bc <<< \"scale=4;($GpsLongSec\/60+$GpsLongMin)\/60\")\n\n\n#$Gps \uc778\ud2f0\uc800\nGpsLatInt=$(echo $GpsLat | cut -d' ' -f1 | tr -d \"d-g\");\nGpsLongInt=$(echo $GpsLong | cut -d' ' -f1 | tr -d \"d-g\");\n\n#$\uc804\uccb4 \uc22b\uc790.\nGpsLatFull=$(bc <<< \"scale=4;$GpsLatFloat+$GpsLatInt\");\nGpsLongFull=$(bc <<< \"scale=4;$GpsLongFloat+$GpsLongInt\");\n\n#South, West\uba74 \ubc18\uc804\nif [ \"$GpsRefNS\" = \"South\" ]\nthen\n\tGpsLatFull=$(bc <<< \"scale=4;$GpsLatFull*-1\");\nfi\n\nif [ \"$GpsRefEW\" = \"West\" ]\nthen\n\tGpsLongFull=$(bc <<< \"scale=4;$GpsLongFull*-1\");\nfi\n\necho $GpsLatFull,$GpsLongFull;<\/pre>\n\n\n\n\uc774\uc81c \uc0ac\uc9c4\uc5d0 \ud0dc\uadf8\uc640 perl\uc774 \ud45c\uc2dc\ud560 \uc218 \uc788\ub294 \ub0b4\uc6a9\uc744 \uc785\ub825\ud574\uc57c \ud55c\ub2e4. perl\uc5d0\uc11c \ucd94\uac00 \ubaa8\ub4c8\uc774 \ud55c\uae00\ub85c \ub41c \uce7c\ub7fc\uc740 \uc870\ud68c\ud560 \uc218 \uc5c6\ub2e4. \ub3d9\uc77c\ud55c \ub0b4\uc6a9\uc73c\ub85c \uc601\uc5b4\ub85c \ub9cc\ub4e4\uc5c8\ub2e4. \uc774\uac83\ub3c4 \uac1c\ub178\uac00\ub2e4.<\/p>\n\n\n\n
\uc804\uc5d0 \ub9cc\ub4e0 php\ub97c \ud65c\uc6a9\ud558\uc5ec \uc0ac\uc9c4\uc744 \uc5c5\ub370\uc774\ud2b8 \ud588\ub2e4.<\/p>\n\n\n\n