/usr/bin/exiftool is in libimage-exiftool-perl 10.40-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 1600 1601 1602 1603 1604 1605 1606 1607 1608 1609 1610 1611 1612 1613 1614 1615 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712 1713 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729 1730 1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 1760 1761 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 1846 1847 1848 1849 1850 1851 1852 1853 1854 1855 1856 1857 1858 1859 1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 2030 2031 2032 2033 2034 2035 2036 2037 2038 2039 2040 2041 2042 2043 2044 2045 2046 2047 2048 2049 2050 2051 2052 2053 2054 2055 2056 2057 2058 2059 2060 2061 2062 2063 2064 2065 2066 2067 2068 2069 2070 2071 2072 2073 2074 2075 2076 2077 2078 2079 2080 2081 2082 2083 2084 2085 2086 2087 2088 2089 2090 2091 2092 2093 2094 2095 2096 2097 2098 2099 2100 2101 2102 2103 2104 2105 2106 2107 2108 2109 2110 2111 2112 2113 2114 2115 2116 2117 2118 2119 2120 2121 2122 2123 2124 2125 2126 2127 2128 2129 2130 2131 2132 2133 2134 2135 2136 2137 2138 2139 2140 2141 2142 2143 2144 2145 2146 2147 2148 2149 2150 2151 2152 2153 2154 2155 2156 2157 2158 2159 2160 2161 2162 2163 2164 2165 2166 2167 2168 2169 2170 2171 2172 2173 2174 2175 2176 2177 2178 2179 2180 2181 2182 2183 2184 2185 2186 2187 2188 2189 2190 2191 2192 2193 2194 2195 2196 2197 2198 2199 2200 2201 2202 2203 2204 2205 2206 2207 2208 2209 2210 2211 2212 2213 2214 2215 2216 2217 2218 2219 2220 2221 2222 2223 2224 2225 2226 2227 2228 2229 2230 2231 2232 2233 2234 2235 2236 2237 2238 2239 2240 2241 2242 2243 2244 2245 2246 2247 2248 2249 2250 2251 2252 2253 2254 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268 2269 2270 2271 2272 2273 2274 2275 2276 2277 2278 2279 2280 2281 2282 2283 2284 2285 2286 2287 2288 2289 2290 2291 2292 2293 2294 2295 2296 2297 2298 2299 2300 2301 2302 2303 2304 2305 2306 2307 2308 2309 2310 2311 2312 2313 2314 2315 2316 2317 2318 2319 2320 2321 2322 2323 2324 2325 2326 2327 2328 2329 2330 2331 2332 2333 2334 2335 2336 2337 2338 2339 2340 2341 2342 2343 2344 2345 2346 2347 2348 2349 2350 2351 2352 2353 2354 2355 2356 2357 2358 2359 2360 2361 2362 2363 2364 2365 2366 2367 2368 2369 2370 2371 2372 2373 2374 2375 2376 2377 2378 2379 2380 2381 2382 2383 2384 2385 2386 2387 2388 2389 2390 2391 2392 2393 2394 2395 2396 2397 2398 2399 2400 2401 2402 2403 2404 2405 2406 2407 2408 2409 2410 2411 2412 2413 2414 2415 2416 2417 2418 2419 2420 2421 2422 2423 2424 2425 2426 2427 2428 2429 2430 2431 2432 2433 2434 2435 2436 2437 2438 2439 2440 2441 2442 2443 2444 2445 2446 2447 2448 2449 2450 2451 2452 2453 2454 2455 2456 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 2468 2469 2470 2471 2472 2473 2474 2475 2476 2477 2478 2479 2480 2481 2482 2483 2484 2485 2486 2487 2488 2489 2490 2491 2492 2493 2494 2495 2496 2497 2498 2499 2500 2501 2502 2503 2504 2505 2506 2507 2508 2509 2510 2511 2512 2513 2514 2515 2516 2517 2518 2519 2520 2521 2522 2523 2524 2525 2526 2527 2528 2529 2530 2531 2532 2533 2534 2535 2536 2537 2538 2539 2540 2541 2542 2543 2544 2545 2546 2547 2548 2549 2550 2551 2552 2553 2554 2555 2556 2557 2558 2559 2560 2561 2562 2563 2564 2565 2566 2567 2568 2569 2570 2571 2572 2573 2574 2575 2576 2577 2578 2579 2580 2581 2582 2583 2584 2585 2586 2587 2588 2589 2590 2591 2592 2593 2594 2595 2596 2597 2598 2599 2600 2601 2602 2603 2604 2605 2606 2607 2608 2609 2610 2611 2612 2613 2614 2615 2616 2617 2618 2619 2620 2621 2622 2623 2624 2625 2626 2627 2628 2629 2630 2631 2632 2633 2634 2635 2636 2637 2638 2639 2640 2641 2642 2643 2644 2645 2646 2647 2648 2649 2650 2651 2652 2653 2654 2655 2656 2657 2658 2659 2660 2661 2662 2663 2664 2665 2666 2667 2668 2669 2670 2671 2672 2673 2674 2675 2676 2677 2678 2679 2680 2681 2682 2683 2684 2685 2686 2687 2688 2689 2690 2691 2692 2693 2694 2695 2696 2697 2698 2699 2700 2701 2702 2703 2704 2705 2706 2707 2708 2709 2710 2711 2712 2713 2714 2715 2716 2717 2718 2719 2720 2721 2722 2723 2724 2725 2726 2727 2728 2729 2730 2731 2732 2733 2734 2735 2736 2737 2738 2739 2740 2741 2742 2743 2744 2745 2746 2747 2748 2749 2750 2751 2752 2753 2754 2755 2756 2757 2758 2759 2760 2761 2762 2763 2764 2765 2766 2767 2768 2769 2770 2771 2772 2773 2774 2775 2776 2777 2778 2779 2780 2781 2782 2783 2784 2785 2786 2787 2788 2789 2790 2791 2792 2793 2794 2795 2796 2797 2798 2799 2800 2801 2802 2803 2804 2805 2806 2807 2808 2809 2810 2811 2812 2813 2814 2815 2816 2817 2818 2819 2820 2821 2822 2823 2824 2825 2826 2827 2828 2829 2830 2831 2832 2833 2834 2835 2836 2837 2838 2839 2840 2841 2842 2843 2844 2845 2846 2847 2848 2849 2850 2851 2852 2853 2854 2855 2856 2857 2858 2859 2860 2861 2862 2863 2864 2865 2866 2867 2868 2869 2870 2871 2872 2873 2874 2875 2876 2877 2878 2879 2880 2881 2882 2883 2884 2885 2886 2887 2888 2889 2890 2891 2892 2893 2894 2895 2896 2897 2898 2899 2900 2901 2902 2903 2904 2905 2906 2907 2908 2909 2910 2911 2912 2913 2914 2915 2916 2917 2918 2919 2920 2921 2922 2923 2924 2925 2926 2927 2928 2929 2930 2931 2932 2933 2934 2935 2936 2937 2938 2939 2940 2941 2942 2943 2944 2945 2946 2947 2948 2949 2950 2951 2952 2953 2954 2955 2956 2957 2958 2959 2960 2961 2962 2963 2964 2965 2966 2967 2968 2969 2970 2971 2972 2973 2974 2975 2976 2977 2978 2979 2980 2981 2982 2983 2984 2985 2986 2987 2988 2989 2990 2991 2992 2993 2994 2995 2996 2997 2998 2999 3000 3001 3002 3003 3004 3005 3006 3007 3008 3009 3010 3011 3012 3013 3014 3015 3016 3017 3018 3019 3020 3021 3022 3023 3024 3025 3026 3027 3028 3029 3030 3031 3032 3033 3034 3035 3036 3037 3038 3039 3040 3041 3042 3043 3044 3045 3046 3047 3048 3049 3050 3051 3052 3053 3054 3055 3056 3057 3058 3059 3060 3061 3062 3063 3064 3065 3066 3067 3068 3069 3070 3071 3072 3073 3074 3075 3076 3077 3078 3079 3080 3081 3082 3083 3084 3085 3086 3087 3088 3089 3090 3091 3092 3093 3094 3095 3096 3097 3098 3099 3100 3101 3102 3103 3104 3105 3106 3107 3108 3109 3110 3111 3112 3113 3114 3115 3116 3117 3118 3119 3120 3121 3122 3123 3124 3125 3126 3127 3128 3129 3130 3131 3132 3133 3134 3135 3136 3137 3138 3139 3140 3141 3142 3143 3144 3145 3146 3147 3148 3149 3150 3151 3152 3153 3154 3155 3156 3157 3158 3159 3160 3161 3162 3163 3164 3165 3166 3167 3168 3169 3170 3171 3172 3173 3174 3175 3176 3177 3178 3179 3180 3181 3182 3183 3184 3185 3186 3187 3188 3189 3190 3191 3192 3193 3194 3195 3196 3197 3198 3199 3200 3201 3202 3203 3204 3205 3206 3207 3208 3209 3210 3211 3212 3213 3214 3215 3216 3217 3218 3219 3220 3221 3222 3223 3224 3225 3226 3227 3228 3229 3230 3231 3232 3233 3234 3235 3236 3237 3238 3239 3240 3241 3242 3243 3244 3245 3246 3247 3248 3249 3250 3251 3252 3253 3254 3255 3256 3257 3258 3259 3260 3261 3262 3263 3264 3265 3266 3267 3268 3269 3270 3271 3272 3273 3274 3275 3276 3277 3278 3279 3280 3281 3282 3283 3284 3285 3286 3287 3288 3289 3290 3291 3292 3293 3294 3295 3296 3297 3298 3299 3300 3301 3302 3303 3304 3305 3306 3307 3308 3309 3310 3311 3312 3313 3314 3315 3316 3317 3318 3319 3320 3321 3322 3323 3324 3325 3326 3327 3328 3329 3330 3331 3332 3333 3334 3335 3336 3337 3338 3339 3340 3341 3342 3343 3344 3345 3346 3347 3348 3349 3350 3351 3352 3353 3354 3355 3356 3357 3358 3359 3360 3361 3362 3363 3364 3365 3366 3367 3368 3369 3370 3371 3372 3373 3374 3375 3376 3377 3378 3379 3380 3381 3382 3383 3384 3385 3386 3387 3388 3389 3390 3391 3392 3393 3394 3395 3396 3397 3398 3399 3400 3401 3402 3403 3404 3405 3406 3407 3408 3409 3410 3411 3412 3413 3414 3415 3416 3417 3418 3419 3420 3421 3422 3423 3424 3425 3426 3427 3428 3429 3430 3431 3432 3433 3434 3435 3436 3437 3438 3439 3440 3441 3442 3443 3444 3445 3446 3447 3448 3449 3450 3451 3452 3453 3454 3455 3456 3457 3458 3459 3460 3461 3462 3463 3464 3465 3466 3467 3468 3469 3470 3471 3472 3473 3474 3475 3476 3477 3478 3479 3480 3481 3482 3483 3484 3485 3486 3487 3488 3489 3490 3491 3492 3493 3494 3495 3496 3497 3498 3499 3500 3501 3502 3503 3504 3505 3506 3507 3508 3509 3510 3511 3512 3513 3514 3515 3516 3517 3518 3519 3520 3521 3522 3523 3524 3525 3526 3527 3528 3529 3530 3531 3532 3533 3534 3535 3536 3537 3538 3539 3540 3541 3542 3543 3544 3545 3546 3547 3548 3549 3550 3551 3552 3553 3554 3555 3556 3557 3558 3559 3560 3561 3562 3563 3564 3565 3566 3567 3568 3569 3570 3571 3572 3573 3574 3575 3576 3577 3578 3579 3580 3581 3582 3583 3584 3585 3586 3587 3588 3589 3590 3591 3592 3593 3594 3595 3596 3597 3598 3599 3600 3601 3602 3603 3604 3605 3606 3607 3608 3609 3610 3611 3612 3613 3614 3615 3616 3617 3618 3619 3620 3621 3622 3623 3624 3625 3626 3627 3628 3629 3630 3631 3632 3633 3634 3635 3636 3637 3638 3639 3640 3641 3642 3643 3644 3645 3646 3647 3648 3649 3650 3651 3652 3653 3654 3655 3656 3657 3658 3659 3660 3661 3662 3663 3664 3665 3666 3667 3668 3669 3670 3671 3672 3673 3674 3675 3676 3677 3678 3679 3680 3681 3682 3683 3684 3685 3686 3687 3688 3689 3690 3691 3692 3693 3694 3695 3696 3697 3698 3699 3700 3701 3702 3703 3704 3705 3706 3707 3708 3709 3710 3711 3712 3713 3714 3715 3716 3717 3718 3719 3720 3721 3722 3723 3724 3725 3726 3727 3728 3729 3730 3731 3732 3733 3734 3735 3736 3737 3738 3739 3740 3741 3742 3743 3744 3745 3746 3747 3748 3749 3750 3751 3752 3753 3754 3755 3756 3757 3758 3759 3760 3761 3762 3763 3764 3765 3766 3767 3768 3769 3770 3771 3772 3773 3774 3775 3776 3777 3778 3779 3780 3781 3782 3783 3784 3785 3786 3787 3788 3789 3790 3791 3792 3793 3794 3795 3796 3797 3798 3799 3800 3801 3802 3803 3804 3805 3806 3807 3808 3809 3810 3811 3812 3813 3814 3815 3816 3817 3818 3819 3820 3821 3822 3823 3824 3825 3826 3827 3828 3829 3830 3831 3832 3833 3834 3835 3836 3837 3838 3839 3840 3841 3842 3843 3844 3845 3846 3847 3848 3849 3850 3851 3852 3853 3854 3855 3856 3857 3858 3859 3860 3861 3862 3863 3864 3865 3866 3867 3868 3869 3870 3871 3872 3873 3874 3875 3876 3877 3878 3879 3880 3881 3882 3883 3884 3885 3886 3887 3888 3889 3890 3891 3892 3893 3894 3895 3896 3897 3898 3899 3900 3901 3902 3903 3904 3905 3906 3907 3908 3909 3910 3911 3912 3913 3914 3915 3916 3917 3918 3919 3920 3921 3922 3923 3924 3925 3926 3927 3928 3929 3930 3931 3932 3933 3934 3935 3936 3937 3938 3939 3940 3941 3942 3943 3944 3945 3946 3947 3948 3949 3950 3951 3952 3953 3954 3955 3956 3957 3958 3959 3960 3961 3962 3963 3964 3965 3966 3967 3968 3969 3970 3971 3972 3973 3974 3975 3976 3977 3978 3979 3980 3981 3982 3983 3984 3985 3986 3987 3988 3989 3990 3991 3992 3993 3994 3995 3996 3997 3998 3999 4000 4001 4002 4003 4004 4005 4006 4007 4008 4009 4010 4011 4012 4013 4014 4015 4016 4017 4018 4019 4020 4021 4022 4023 4024 4025 4026 4027 4028 4029 4030 4031 4032 4033 4034 4035 4036 4037 4038 4039 4040 4041 4042 4043 4044 4045 4046 4047 4048 4049 4050 4051 4052 4053 4054 4055 4056 4057 4058 4059 4060 4061 4062 4063 4064 4065 4066 4067 4068 4069 4070 4071 4072 4073 4074 4075 4076 4077 4078 4079 4080 4081 4082 4083 4084 4085 4086 4087 4088 4089 4090 4091 4092 4093 4094 4095 4096 4097 4098 4099 4100 4101 4102 4103 4104 4105 4106 4107 4108 4109 4110 4111 4112 4113 4114 4115 4116 4117 4118 4119 4120 4121 4122 4123 4124 4125 4126 4127 4128 4129 4130 4131 4132 4133 4134 4135 4136 4137 4138 4139 4140 4141 4142 4143 4144 4145 4146 4147 4148 4149 4150 4151 4152 4153 4154 4155 4156 4157 4158 4159 4160 4161 4162 4163 4164 4165 4166 4167 4168 4169 4170 4171 4172 4173 4174 4175 4176 4177 4178 4179 4180 4181 4182 4183 4184 4185 4186 4187 4188 4189 4190 4191 4192 4193 4194 4195 4196 4197 4198 4199 4200 4201 4202 4203 4204 4205 4206 4207 4208 4209 4210 4211 4212 4213 4214 4215 4216 4217 4218 4219 4220 4221 4222 4223 4224 4225 4226 4227 4228 4229 4230 4231 4232 4233 4234 4235 4236 4237 4238 4239 4240 4241 4242 4243 4244 4245 4246 4247 4248 4249 4250 4251 4252 4253 4254 4255 4256 4257 4258 4259 4260 4261 4262 4263 4264 4265 4266 4267 4268 4269 4270 4271 4272 4273 4274 4275 4276 4277 4278 4279 4280 4281 4282 4283 4284 4285 4286 4287 4288 4289 4290 4291 4292 4293 4294 4295 4296 4297 4298 4299 4300 4301 4302 4303 4304 4305 4306 4307 4308 4309 4310 4311 4312 4313 4314 4315 4316 4317 4318 4319 4320 4321 4322 4323 4324 4325 4326 4327 4328 4329 4330 4331 4332 4333 4334 4335 4336 4337 4338 4339 4340 4341 4342 4343 4344 4345 4346 4347 4348 4349 4350 4351 4352 4353 4354 4355 4356 4357 4358 4359 4360 4361 4362 4363 4364 4365 4366 4367 4368 4369 4370 4371 4372 4373 4374 4375 4376 4377 4378 4379 4380 4381 4382 4383 4384 4385 4386 4387 4388 4389 4390 4391 4392 4393 4394 4395 4396 4397 4398 4399 4400 4401 4402 4403 4404 4405 4406 4407 4408 4409 4410 4411 4412 4413 4414 4415 4416 4417 4418 4419 4420 4421 4422 4423 4424 4425 4426 4427 4428 4429 4430 4431 4432 4433 4434 4435 4436 4437 4438 4439 4440 4441 4442 4443 4444 4445 4446 4447 4448 4449 4450 4451 4452 4453 4454 4455 4456 4457 4458 4459 4460 4461 4462 4463 4464 4465 4466 4467 4468 4469 4470 4471 4472 4473 4474 4475 4476 4477 4478 4479 4480 4481 4482 4483 4484 4485 4486 4487 4488 4489 4490 4491 4492 4493 4494 4495 4496 4497 4498 4499 4500 4501 4502 4503 4504 4505 4506 4507 4508 4509 4510 4511 4512 4513 4514 4515 4516 4517 4518 4519 4520 4521 4522 4523 4524 4525 4526 4527 4528 4529 4530 4531 4532 4533 4534 4535 4536 4537 4538 4539 4540 4541 4542 4543 4544 4545 4546 4547 4548 4549 4550 4551 4552 4553 4554 4555 4556 4557 4558 4559 4560 4561 4562 4563 4564 4565 4566 4567 4568 4569 4570 4571 4572 4573 4574 4575 4576 4577 4578 4579 4580 4581 4582 4583 4584 4585 4586 4587 4588 4589 4590 4591 4592 4593 4594 4595 4596 4597 4598 4599 4600 4601 4602 4603 4604 4605 4606 4607 4608 4609 4610 4611 4612 4613 4614 4615 4616 4617 4618 4619 4620 4621 4622 4623 4624 4625 4626 4627 4628 4629 4630 4631 4632 4633 4634 4635 4636 4637 4638 4639 4640 4641 4642 4643 4644 4645 4646 4647 4648 4649 4650 4651 4652 4653 4654 4655 4656 4657 4658 4659 4660 4661 4662 4663 4664 4665 4666 4667 4668 4669 4670 4671 4672 4673 4674 4675 4676 4677 4678 4679 4680 4681 4682 4683 4684 4685 4686 4687 4688 4689 4690 4691 4692 4693 4694 4695 4696 4697 4698 4699 4700 4701 4702 4703 4704 4705 4706 4707 4708 4709 4710 4711 4712 4713 4714 4715 4716 4717 4718 4719 4720 4721 4722 4723 4724 4725 4726 4727 4728 4729 4730 4731 4732 4733 4734 4735 4736 4737 4738 4739 4740 4741 4742 4743 4744 4745 4746 4747 4748 4749 4750 4751 4752 4753 4754 4755 4756 4757 4758 4759 4760 4761 4762 4763 4764 4765 4766 4767 4768 4769 4770 4771 4772 4773 4774 4775 4776 4777 4778 4779 4780 4781 4782 4783 4784 4785 4786 4787 4788 4789 4790 4791 4792 4793 4794 4795 4796 4797 4798 4799 4800 4801 4802 4803 4804 4805 4806 4807 4808 4809 4810 4811 4812 4813 4814 4815 4816 4817 4818 4819 4820 4821 4822 4823 4824 4825 4826 4827 4828 4829 4830 4831 4832 4833 4834 4835 4836 4837 4838 4839 4840 4841 4842 4843 4844 4845 4846 4847 4848 4849 4850 4851 4852 4853 4854 4855 4856 4857 4858 4859 4860 4861 4862 4863 4864 4865 4866 4867 4868 4869 4870 4871 4872 4873 4874 4875 4876 4877 4878 4879 4880 4881 4882 4883 4884 4885 4886 4887 4888 4889 4890 4891 4892 4893 4894 4895 4896 4897 4898 4899 4900 4901 4902 4903 4904 4905 4906 4907 4908 4909 4910 4911 4912 4913 4914 4915 4916 4917 4918 4919 4920 4921 4922 4923 4924 4925 4926 4927 4928 4929 4930 4931 4932 4933 4934 4935 4936 4937 4938 4939 4940 4941 4942 4943 4944 4945 4946 4947 4948 4949 4950 4951 4952 4953 4954 4955 4956 4957 4958 4959 4960 4961 4962 4963 4964 4965 4966 4967 4968 4969 4970 4971 4972 4973 4974 4975 4976 4977 4978 4979 4980 4981 4982 4983 4984 4985 4986 4987 4988 4989 4990 4991 4992 4993 4994 4995 4996 4997 4998 4999 5000 5001 5002 5003 5004 5005 5006 5007 5008 5009 5010 5011 5012 5013 5014 5015 5016 5017 5018 5019 5020 5021 5022 5023 5024 5025 5026 5027 5028 5029 5030 5031 5032 5033 5034 5035 5036 5037 5038 5039 5040 5041 5042 5043 5044 5045 5046 5047 5048 5049 5050 5051 5052 5053 5054 5055 5056 5057 5058 5059 5060 5061 5062 5063 5064 5065 5066 5067 5068 5069 5070 5071 5072 5073 5074 5075 5076 5077 5078 5079 5080 5081 5082 5083 5084 5085 5086 5087 5088 5089 5090 5091 5092 5093 5094 5095 5096 5097 5098 5099 5100 5101 5102 5103 5104 5105 5106 5107 5108 5109 5110 5111 5112 5113 5114 5115 5116 5117 5118 5119 5120 5121 5122 5123 5124 5125 5126 5127 5128 5129 5130 5131 5132 5133 5134 5135 5136 5137 5138 5139 5140 5141 5142 5143 5144 5145 5146 5147 5148 5149 5150 5151 5152 5153 5154 5155 5156 5157 5158 5159 5160 5161 5162 5163 5164 5165 5166 5167 5168 5169 5170 5171 5172 5173 5174 5175 5176 5177 5178 5179 5180 5181 5182 5183 5184 5185 5186 5187 5188 5189 5190 5191 5192 5193 5194 5195 5196 5197 5198 5199 5200 5201 5202 5203 5204 5205 5206 5207 5208 5209 5210 5211 5212 5213 5214 5215 5216 5217 5218 5219 5220 5221 5222 5223 5224 5225 5226 5227 5228 5229 5230 5231 5232 5233 5234 5235 5236 5237 5238 5239 5240 5241 5242 5243 5244 5245 5246 5247 5248 5249 5250 5251 5252 5253 5254 5255 5256 5257 5258 5259 5260 5261 5262 5263 5264 5265 5266 5267 5268 5269 5270 5271 5272 5273 5274 5275 5276 5277 5278 5279 5280 5281 5282 5283 5284 5285 5286 5287 5288 5289 5290 5291 5292 5293 5294 5295 5296 5297 5298 5299 5300 5301 5302 5303 5304 5305 5306 5307 5308 5309 5310 5311 5312 5313 5314 5315 5316 5317 5318 5319 5320 5321 5322 5323 5324 5325 5326 5327 5328 5329 5330 5331 5332 5333 5334 5335 5336 5337 5338 5339 5340 5341 5342 5343 5344 5345 5346 5347 5348 5349 5350 5351 5352 5353 5354 5355 5356 5357 5358 5359 5360 5361 5362 5363 5364 5365 5366 5367 5368 5369 5370 5371 5372 5373 5374 5375 5376 5377 5378 5379 5380 5381 5382 5383 5384 5385 5386 5387 5388 5389 5390 5391 5392 5393 5394 5395 5396 5397 5398 5399 5400 5401 5402 5403 5404 5405 5406 5407 5408 5409 5410 5411 5412 5413 5414 5415 5416 5417 5418 5419 5420 5421 5422 5423 5424 5425 5426 5427 5428 5429 5430 5431 5432 5433 5434 5435 5436 5437 5438 5439 5440 5441 5442 5443 5444 5445 5446 5447 5448 5449 5450 5451 5452 5453 5454 5455 5456 5457 5458 5459 5460 5461 5462 5463 5464 5465 5466 5467 5468 5469 5470 5471 5472 5473 5474 5475 5476 5477 5478 5479 5480 5481 5482 5483 5484 5485 5486 5487 5488 5489 5490 5491 5492 5493 5494 5495 5496 5497 5498 5499 5500 5501 5502 5503 5504 5505 5506 5507 5508 5509 5510 5511 5512 5513 5514 5515 5516 5517 5518 5519 5520 5521 5522 5523 5524 5525 5526 5527 5528 5529 5530 5531 5532 5533 5534 5535 5536 5537 5538 5539 5540 5541 5542 5543 5544 5545 5546 5547 5548 5549 5550 5551 5552 5553 5554 5555 5556 5557 5558 5559 5560 5561 5562 5563 5564 5565 5566 5567 5568 5569 5570 5571 5572 5573 5574 5575 5576 5577 5578 5579 5580 5581 5582 5583 5584 5585 5586 5587 5588 5589 5590 5591 5592 5593 5594 5595 5596 5597 5598 5599 5600 5601 5602 5603 5604 5605 5606 5607 5608 5609 5610 5611 5612 5613 5614 5615 5616 5617 5618 5619 5620 5621 5622 5623 5624 5625 5626 5627 5628 5629 5630 5631 5632 5633 5634 5635 5636 5637 5638 5639 5640 5641 5642 5643 5644 5645 5646 5647 5648 5649 5650 5651 5652 5653 5654 5655 5656 5657 5658 5659 5660 5661 5662 5663 5664 5665 5666 5667 5668 5669 5670 5671 5672 5673 5674 5675 5676 5677 5678 5679 5680 5681 5682 5683 5684 5685 5686 5687 5688 5689 5690 5691 5692 5693 5694 5695 5696 5697 5698 5699 5700 5701 5702 5703 5704 5705 5706 5707 5708 5709 5710 5711 5712 5713 5714 5715 5716 5717 5718 5719 5720 5721 5722 5723 5724 5725 5726 5727 5728 5729 5730 5731 5732 5733 5734 5735 5736 5737 5738 5739 5740 5741 5742 5743 5744 5745 5746 5747 5748 5749 5750 5751 5752 5753 5754 5755 5756 5757 5758 5759 5760 5761 5762 5763 5764 5765 5766 5767 5768 5769 5770 5771 5772 5773 5774 5775 5776 5777 5778 5779 5780 5781 5782 5783 5784 5785 5786 5787 5788 5789 5790 5791 5792 5793 5794 5795 5796 5797 5798 5799 5800 5801 5802 5803 5804 5805 5806 5807 5808 5809 5810 5811 5812 5813 5814 5815 5816 5817 5818 5819 5820 5821 5822 5823 5824 5825 5826 5827 5828 5829 5830 5831 5832 5833 5834 5835 5836 5837 5838 5839 5840 5841 5842 5843 5844 5845 5846 5847 5848 5849 5850 5851 5852 5853 5854 5855 5856 5857 5858 5859 5860 5861 5862 5863 5864 5865 5866 5867 5868 5869 5870 5871 5872 5873 5874 5875 5876 5877 5878 5879 5880 5881 5882 5883 5884 5885 5886 5887 5888 5889 5890 5891 5892 5893 5894 5895 5896 5897 5898 5899 5900 5901 5902 5903 5904 5905 5906 5907 5908 5909 5910 5911 5912 5913 5914 5915 5916 5917 5918 5919 5920 5921 5922 5923 5924 5925 5926 5927 5928 5929 5930 5931 5932 5933 5934 5935 5936 5937 5938 5939 5940 5941 5942 5943 5944 5945 5946 5947 5948 5949 5950 5951 5952 5953 5954 5955 5956 5957 5958 5959 5960 5961 5962 5963 5964 5965 5966 5967 5968 5969 5970 5971 5972 5973 5974 5975 5976 5977 5978 5979 5980 5981 5982 5983 5984 5985 5986 5987 5988 5989 5990 5991 5992 5993 5994 5995 5996 5997 5998 5999 6000 6001 6002 6003 6004 6005 6006 6007 6008 6009 6010 6011 6012 6013 6014 6015 6016 6017 6018 6019 6020 6021 6022 6023 6024 6025 6026 6027 6028 6029 6030 6031 6032 6033 6034 6035 6036 6037 6038 6039 6040 6041 6042 6043 6044 6045 6046 6047 6048 6049 6050 6051 6052 6053 6054 6055 6056 6057 6058 6059 6060 6061 6062 6063 6064 6065 6066 6067 6068 6069 6070 6071 6072 6073 6074 6075 6076 6077 6078 6079 6080 6081 6082 6083 6084 6085 6086 6087 6088 6089 6090 6091 6092 6093 6094 6095 6096 6097 6098 6099 6100 6101 6102 6103 6104 6105 6106 6107 6108 6109 6110 6111 6112 6113 6114 6115 6116 6117 6118 6119 6120 6121 6122 6123 6124 6125 6126 6127 6128 6129 6130 6131 6132 6133 6134 6135 6136 6137 6138 6139 6140 6141 6142 6143 6144 6145 6146 6147 6148 6149 6150 6151 6152 6153 6154 6155 6156 6157 6158 6159 6160 6161 6162 6163 6164 6165 6166 6167 6168 6169 6170 6171 6172 6173 6174 6175 6176 6177 6178 6179 6180 6181 6182 6183 6184 6185 6186 6187 6188 6189 6190 6191 6192 6193 6194 6195 6196 6197 6198 6199 6200 6201 6202 6203 6204 6205 6206 6207 6208 6209 6210 6211 6212 6213 6214 6215 6216 6217 6218 6219 6220 6221 6222 6223 6224 6225 6226 6227 6228 6229 6230 6231 6232 6233 6234 6235 6236 6237 6238 6239 6240 6241 6242 6243 6244 6245 6246 6247 6248 6249 6250 6251 6252 6253 6254 6255 6256 6257 6258 6259 6260 6261 6262 6263 6264 6265 6266 6267 6268 6269 6270 6271 6272 6273 6274 6275 6276 6277 6278 6279 6280 6281 6282 6283 6284 6285 6286 6287 6288 6289 6290 6291 6292 6293 6294 6295 6296 6297 6298 6299 6300 6301 6302 6303 6304 6305 6306 6307 6308 6309 6310 6311 6312 6313 6314 6315 6316 6317 6318 6319 6320 6321 6322 6323 6324 6325 6326 6327 6328 6329 6330 6331 6332 6333 6334 6335 6336 6337 6338 6339 6340 6341 6342 6343 6344 6345 6346 6347 6348 6349 6350 6351 6352 6353 6354 6355 6356 6357 6358 6359 6360 6361 6362 6363 6364 6365 6366 6367 6368 6369 6370 6371 6372 6373 6374 6375 6376 6377 6378 6379 6380 6381 6382 6383 6384 6385 6386 6387 6388 6389 6390 6391 6392 6393 6394 6395 6396 6397 6398 6399 6400 6401 6402 6403 6404 6405 6406 6407 6408 6409 6410 6411 6412 6413 6414 6415 6416 6417 6418 6419 6420 6421 6422 6423 6424 6425 6426 6427 6428 6429 6430 6431 6432 6433 6434 6435 6436 6437 6438 6439 6440 6441 6442 6443 6444 6445 6446 6447 6448 6449 6450 6451 6452 6453 6454 6455 6456 6457 6458 6459 6460 6461 6462 | #!/usr/bin/perl -w
#------------------------------------------------------------------------------
# File: exiftool
#
# Description: Read/write meta information
#
# Revisions: Nov. 12/03 - P. Harvey Created
# (See html/history.html for revision history)
#
# References: ATV - Alexander Vonk, private communication
#------------------------------------------------------------------------------
use strict;
require 5.004;
my $version = '10.40';
# add our 'lib' directory to the include list BEFORE 'use Image::ExifTool'
my $exeDir;
BEGIN {
# get exe directory
$exeDir = ($0 =~ /(.*)[\\\/]/) ? $1 : '.';
# add lib directory at start of include path
unshift @INC, "$exeDir/lib";
# load or disable config file if specified
if (@ARGV and lc($ARGV[0]) eq '-config') {
shift;
$Image::ExifTool::configFile = shift;
}
}
use Image::ExifTool qw{:Public};
# function prototypes
sub SigInt();
sub SigCont();
sub Cleanup();
sub GetImageInfo($$);
sub SetImageInfo($$$);
sub DoHardLink($$$$);
sub CleanXML($);
sub EncodeXML($);
sub FormatXML($$$);
sub EscapeJSON($;$);
sub FormatJSON($$$);
sub PrintCSV();
sub AddGroups($$$$);
sub ConvertBinary($);
sub IsEqual($$);
sub Infile($;$);
sub AddSetTagsFile($;$);
sub DoSetFromFile($$$);
sub CleanFilename($);
sub SetWindowTitle($);
sub ProcessFiles($;$);
sub ScanDir($$;$);
sub FindFileWindows($$);
sub FileNotFound($);
sub PreserveTime();
sub AbsPath($);
sub MyConvertFileName($$);
sub SuggestedExtension($$$);
sub LoadPrintFormat($);
sub FilenameSPrintf($;$@);
sub NextUnusedFilename($;$$);
sub CreateDirectory($);
sub OpenOutputFile($;@);
sub AcceptFile($);
sub SlurpFile($$);
sub ReadStayOpen($);
sub PrintTagList($@);
sub PrintErrors($$$);
$SIG{INT} = 'SigInt'; # do cleanup on Ctrl-C
$SIG{CONT} = 'SigCont'; # (allows break-out of delays)
END {
Cleanup();
}
# declare all static file-scope variables
my @commonArgs; # arguments common to all commands
my @csvFiles; # list of files when reading with CSV option (in ExifTool Charset)
my @csvTags; # order of tags for first file with CSV option (lower case)
my @delFiles; # list of files to delete
my @dynamicFiles; # list of -tagsFromFile files with dynamic names and -TAG<=FMT pairs
my @exclude; # list of excluded tags
my (@echo3, @echo4);# stdout and stderr echo after processing is complete
my @files; # list of files and directories to scan
my @moreArgs; # more arguments to process after -stay_open -@
my @newValues; # list of new tag values to set
my @requestTags; # tags to request (for -p or -if option arguments)
my @srcFmt; # source file name format strings
my @tags; # list of tags to extract
my %appended; # list of files appended to
my %created; # list of files we created
my %csvTags; # lookup for all found tags with CSV option (lower case keys)
my %database; # lookup for database information based on file name (in ExifTool Charset)
my %filterExt; # lookup for filtered extensions
my %ignore; # directory names to ignore
my %preserveTime; # preserved timestamps for files
my %printFmt; # the contents of the print format file
my %setTags; # hash of list references for tags to set from files
my %setTagsList; # list of other tag lists for multiple -tagsFromFile from the same file
my %usedFileName; # lookup for file names we already used in TestName feature
my %utf8FileName; # lookup for file names that are UTF-8 encoded
my %warnedOnce; # lookup for once-only warnings
my %wext; # -W extensions to write
my $allGroup; # show group name for all tags
my $argFormat; # use exiftool argument-format output
my $binaryOutput; # flag for binary output (undef or 1, or 0 for binary XML/PHP)
my $binaryStdout; # flag set if we output binary to stdout
my $comma; # flag set if we need a comma in JSON output
my $condition; # conditional processing of files
my $count; # count of files scanned
my $countBad; # count of files with errors
my $countBadCr; # count files not created due to errors
my $countBadLink; # count bad links
my $countBadWr; # count write errors
my $countCopyWr; # count of files copied without being changed
my $countDir; # count of directories scanned
my $countFailed; # count files that failed condition
my $countGoodCr; # count files created OK
my $countGoodWr; # count files written OK
my $countLink; # count number of links created
my $countNewDir; # count of directories created
my $countSameWr; # count files written OK but not changed
my $critical; # flag for critical operations (disable CTRL-C)
my $csv; # flag for CSV option (set to "CSV", or maybe "JSON" when writing)
my $csvAdd; # flag to add CSV information to existing lists
my $csvSaveCount; # save counter for last CSV file loaded
my $deleteOrig; # 0=restore original files, 1=delete originals, 2=delete w/o asking
my $disableOutput; # flag to disable normal output
my $doSetFileName; # flag set if FileName may be written
my $doUnzip; # flag to extract info from .gz and .bz2 files
my $escapeHTML; # flag to escape printed values for html
my $evalWarning; # warning from eval
my $executeID; # -execute ID number
my $fileHeader; # header to print to output file (or console, once)
my $fileTrailer; # trailer for output file
my $filtered; # flag indicating file was filtered by name
my $filterFlag; # file filter flag (0x01=deny extensions, 0x02=allow extensions)
my $fixLen; # flag to fix description lengths when writing alternate languages
my $forcePrint; # string to use for missing tag values (undef to not print them)
my $helped; # flag to avoid printing help if no tags specified
my $html; # flag for html-formatted output (2=html dump)
my $interrupted; # flag set if CTRL-C is pressed during a critical process
my $isWriting; # flag set if we are writing tags
my $joinLists; # flag set to join list values into a single string
my $json; # flag for JSON/PHP output format (1=JSON, 2=PHP)
my $langOpt; # language option
my $listItem; # item number for extracting single item from a list
my $listSep; # list item separator (', ' by default)
my $mt; # main ExifTool object
my $multiFile; # non-zero if we are scanning multiple files
my $outFormat; # -1=Canon format, 0=same-line, 1=tag names, 2=values only
my $outOpt; # output file or directory name
my $overwriteOrig; # flag to overwrite original file (1=overwrite, 2=in place)
my $pause; # pause before returning
my $preserveTime; # flag to preserve times of updated files (2=preserve FileCreateDate only)
my $progress; # flag to calculate total files to process (0=calculate but don't display)
my $progressCount; # count of files processed
my $progressMax; # total number of files to process
my $progStr; # progress message string
my $quiet; # flag to disable printing of informational messages / warnings
my $rafStdin; # File::RandomAccess for stdin (if necessary to rewind)
my $recurse; # recurse into subdirectories (2=also hidden directories)
my $rtnVal; # command return value (0=success)
my $saveCount; # count the number of times we will/did call SaveNewValues()
my $scanWritable; # flag to process only writable file types
my $seqFileNum; # sequential file number used for %C
my $showGroup; # number of group to show (may be zero or '')
my $showTagID; # non-zero to show tag ID's
my $stayOpenBuff='';# buffer for -stay_open file
my $stayOpenFile; # name of the current -stay_open argfile
my $structOpt; # output structured XMP information (JSON and XML output only)
my $tabFormat; # non-zero for tab output format
my $tagOut; # flag for separate text output file for each tag
my $textOut; # extension for text output file (or undef for no output)
my $textOverwrite; # flag to overwrite existing text output file (2=append, 3=over+append)
my $tmpFile; # temporary file to delete on exit
my $tmpText; # temporary text file
my $utf8; # flag set if we are using UTF-8 encoding
my $validFile; # flag indicating we processed a valid file
my $verbose; # verbose setting
my $vout; # verbose output file reference (\*STDOUT or \*STDERR)
my $windowTitle; # title for console window
my $xml; # flag for XML-formatted output
# flag to keep the input -@ argfile open:
# 0 = normal behaviour
# 1 = received "-stay_open true" and waiting for argfile to keep open
# 2 = currently reading from STAYOPEN argfile
# 3 = waiting for -@ to switch to a new STAYOPEN argfile
my $stayOpen = 0;
my $curTitle = ''; # current window title
# lookup for O/S names which may use a backslash as a directory separator
# (ref File::Spec of PathTools-3.2701)
my %hasBackslash = ( MSWin32 => 1, os2 => 1, dos => 1, NetWare => 1, symbian => 1, cygwin => 1 );
# lookup for O/S names which use CR/LF newlines
my $isCRLF = { MSWin32 => 1, os2 => 1, dos => 1 }->{$^O};
# lookup for JSON characters that we escape specially
my %jsonChar = ( '"'=>'"', '\\'=>'\\', "\t"=>'t', "\n"=>'n', "\r"=>'r' );
# options requiring additional arguments
# (used only to skip over these arguments when reading -stay_open ARGFILE)
my %optArgs = (
'-tagsfromfile' => 1, '-addtagsfromfile' => 1, '-alltagsfromfile' => 1,
'-@' => 1,
'-api' => 1,
'-c' => 1, '-coordformat' => 1,
'-charset' => 0, # (optional arg; OK because arg cannot begin with "-")
'-config' => 1,
'-d' => 1, '-dateformat' => 1,
'-D' => 0, # necessary to avoid matching lower-case equivalent
'-echo' => 1, '-echo1' => 1, '-echo2' => 1, '-echo3' => 1, '-echo4' => 1,
'-ext' => 1, '--ext' => 1, '-extension' => 1, '--extension' => 1,
'-fileorder' => 1,
'-geotag' => 1,
'-globaltimeshift' => 1,
'-i' => 1, '-ignore' => 1,
'-if' => 1,
'-lang' => 0, # (optional arg; cannot begin with "-")
'-listitem' => 1,
'-o' => 1, '-out' => 1,
'-p' => 1, '-printformat' => 1,
'-P' => 0,
'-password' => 1,
'-require' => 1,
'-sep' => 1, '-separator' => 1,
'-srcfile' => 1,
'-stay_open' => 1,
'-use' => 1,
'-userparam' => 1,
'-w' => 1, '-w!' => 1, '-w+' => 1, '-w+!' => 1, '-w!+' => 1,
'-textout' => 1, '-textout!' => 1, '-textout+' => 1, '-textout+!' => 1, '-textout!+' => 1,
'-tagout' => 1, '-tagout!' => 1, '-tagout+' => 1, '-tagout+!' => 1, '-tagout!+' => 1,
'-wext' => 1,
'-wm' => 1,
'-x' => 1, '-exclude' => 1,
'-X' => 0,
);
# recommended packages and alternatives
my @recommends = qw(
Archive::Zip
Compress::Zlib
Digest::MD5
Digest::SHA
IO::Compress::Bzip2
POSIX::strptime
Unicode::LineBreak
IO::Compress::RawDeflate
IO::Uncompress::RawInflate
Win32::API
Win32::FindFile
Win32API::File
);
my %altRecommends = (
'POSIX::strptime' => 'Time::Piece', # (can use Time::Piece instead of POSIX::strptime)
);
# exit routine
sub Exit {
if ($pause) {
if (eval { require Term::ReadKey }) {
print STDERR "-- press any key --";
Term::ReadKey::ReadMode('cbreak');
Term::ReadKey::ReadKey(0);
Term::ReadKey::ReadMode(0);
print STDERR "\b \b" x 20;
} else {
print STDERR "-- press RETURN --\n";
<STDIN>;
}
}
exit shift;
}
# my warning and error routines (NEVER say "die"!)
sub Warn {
if ($quiet < 2 or $_[0] =~ /^Error/) {
my $oldWarn = $SIG{'__WARN__'};
delete $SIG{'__WARN__'};
warn(@_);
$SIG{'__WARN__'} = $oldWarn if defined $oldWarn;
}
}
sub Error { Warn @_; $rtnVal = 1; }
sub WarnOnce($) {
Warn(@_) and $warnedOnce{$_[0]} = 1 unless $warnedOnce{$_[0]};
}
# define signal handlers and cleanup routine
sub SigInt() {
$critical and $interrupted = 1, return;
Cleanup();
exit 1;
}
sub SigCont() { }
sub Cleanup() {
$mt->Unlink($tmpFile) if defined $tmpFile;
$mt->Unlink($tmpText) if defined $tmpText;
undef $tmpFile;
undef $tmpText;
PreserveTime() if %preserveTime;
SetWindowTitle('');
}
#------------------------------------------------------------------------------
# main script
#
# isolate arguments common to all commands
if (grep /^-common_args$/i, @ARGV) {
my (@newArgs, $common);
foreach (@ARGV) {
if (/^-common_args$/i) {
$common = 1;
} elsif ($common) {
push @commonArgs, $_;
} else {
push @newArgs, $_;
}
}
@ARGV = @newArgs if $common;
}
#..............................................................................
# loop over sets of command-line arguments separated by "-execute"
Command: for (;;) {
@echo3 and print STDOUT join("\n", @echo3), "\n";
@echo4 and print STDERR join("\n", @echo4), "\n";
$rafStdin->Close() if $rafStdin;
undef $rafStdin;
# exit Command loop now if we are all done processing commands
last unless @ARGV or not defined $rtnVal or $stayOpen >= 2 or @commonArgs;
# attempt to restore text mode for STDOUT if necessary
if ($binaryStdout) {
binmode(STDOUT,':crlf') if $] >= 5.006 and $isCRLF;
$binaryStdout = 0;
}
# flush console and print "{ready}" message if -stay_open is in effect
if ($stayOpen >= 2) {
if ($quiet) {
# flush output if possible
eval { require IO::Handle } and STDERR->flush(), STDOUT->flush();
} else {
eval { require IO::Handle } and STDERR->flush();
my $id = defined $executeID ? $executeID : '';
my $save = $|;
$| = 1; # turn on output autoflush for stdout
print "{ready$id}\n";
$| = $save; # restore original autoflush setting
}
}
$rtnVal = 0 unless defined $rtnVal;
# initialize necessary static file-scope variables
# (not done: @commonArgs, @moreArgs, $critical, $binaryStdout, $helped,
# $interrupted, $mt, $pause, $rtnVal, $stayOpen, $stayOpenBuff, $stayOpenFile)
undef @csvFiles;
undef @csvTags;
undef @delFiles;
undef @dynamicFiles;
undef @echo3;
undef @echo4;
undef @exclude;
undef @files;
undef @newValues;
undef @srcFmt;
undef @tags;
undef %appended;
undef %created;
undef %csvTags;
undef %database;
undef %filterExt;
undef %ignore;
undef %printFmt;
undef %preserveTime;
undef %setTags;
undef %setTagsList;
undef %usedFileName;
undef %utf8FileName;
undef %warnedOnce;
undef %wext;
undef $allGroup;
undef $argFormat;
undef $binaryOutput;
undef $comma;
undef $condition;
undef $csv;
undef $csvAdd;
undef $deleteOrig;
undef $disableOutput;
undef $doSetFileName;
undef $doUnzip;
undef $escapeHTML;
undef $evalWarning;
undef $executeID;
undef $fileHeader;
undef $fileTrailer;
undef $filtered;
undef $fixLen;
undef $forcePrint;
undef $joinLists;
undef $langOpt;
undef $listItem;
undef $multiFile;
undef $outOpt;
undef $preserveTime;
undef $progress;
undef $progressCount;
undef $progressMax;
undef $recurse;
undef $scanWritable;
undef $showGroup;
undef $showTagID;
undef $structOpt;
undef $tagOut;
undef $textOut;
undef $textOverwrite;
undef $tmpFile;
undef $tmpText;
undef $validFile;
undef $verbose;
undef $windowTitle;
$count = 0;
$countBad = 0;
$countBadCr = 0;
$countBadLink = 0;
$countBadWr = 0;
$countCopyWr = 0;
$countDir = 0;
$countFailed = 0;
$countGoodCr = 0;
$countGoodWr = 0;
$countLink = 0;
$countNewDir = 0;
$countSameWr = 0;
$csvSaveCount = 0;
$filterFlag = 0;
$html = 0;
$isWriting = 0;
$json = 0;
$listSep = ', ';
$outFormat = 0;
$overwriteOrig = 0;
$progStr = '';
$quiet = 0;
$saveCount = 0;
$seqFileNum = 0;
$tabFormat = 0;
$utf8 = 1;
$vout = \*STDOUT;
$xml = 0;
# define local variables used only in this command loop
my @fileOrder; # tags to use for ordering of input files
my %excludeGrp; # hash of tags excluded by group
my $addGeotime; # automatically added geotime argument
my $allInGroup; # flag to show all tags in a group
my $doGlob; # flag set to do filename wildcard expansion
my $escapeXML; # flag to escape printed values for xml
my $setTagsFile; # filename for last TagsFromFile option
my $sortOpt; # sort option is used
my $srcStdin; # one of the source files is STDIN
my $useMWG; # flag set if we are using any MWG tag
my ($argsLeft, @nextPass, $badCmd);
my $pass = 0;
# for Windows, use globbing for wildcard expansion if available - MK/20061010
if ($^O eq 'MSWin32' and eval { require File::Glob }) {
# override the core glob forcing case insensitivity
import File::Glob qw(:globally :nocase);
$doGlob = 1;
}
$mt = new Image::ExifTool; # create ExifTool object
# don't extract duplicates by default unless set by UserDefined::Options
$mt->Options(Duplicates => 0) unless %Image::ExifTool::UserDefined::Options
and defined $Image::ExifTool::UserDefined::Options{Duplicates};
# default is to join lists if the List option was set in the config file
$joinLists = 1 if defined $mt->Options('List') and not $mt->Options('List');
# preserve FileCreateDate if possible
if (not $preserveTime and $^O eq 'MSWin32') {
$preserveTime = 2 if eval { require Win32::API } and eval { require Win32API::File };
}
# parse command-line options in 2 passes...
# pass 1: set all of our ExifTool options
# pass 2: print all of our help and informational output (-list, -ver, etc)
for (;;) {
# execute the command now if no more arguments or -execute is used
if (not @ARGV or $ARGV[0] =~ /^-execute(\d*)$/i) {
if (@ARGV) {
$executeID = $1; # save -execute number for "{ready}" response
$helped = 1; # don't show help if we used -execute
$badCmd and shift, next Command;
} elsif ($stayOpen >= 2) {
ReadStayOpen(\@ARGV); # read more arguments from -stay_open file
next;
} elsif ($badCmd) {
next Command;
}
if ($pass == 0) {
# insert common arguments now if not done already
if (@commonArgs and not defined $argsLeft) {
# count the number of arguments remaining for subsequent commands
$argsLeft = scalar(@ARGV) + scalar(@moreArgs);
unshift @ARGV, @commonArgs;
# all done with commonArgs if this is the end of the command
undef @commonArgs unless $argsLeft;
next;
}
# check if we have more arguments now than we did before we processed
# the common arguments. If so, then we have an infinite processing loop
if (defined $argsLeft and $argsLeft < scalar(@ARGV) + scalar(@moreArgs)) {
Warn "Ignoring -common_args from $ARGV[0] onwards to avoid infinite recursion\n";
while ($argsLeft < scalar(@ARGV) + scalar(@moreArgs)) {
@ARGV and shift(@ARGV), next;
shift @moreArgs;
}
}
# require MWG module if used in any argument
# (note: doesn't cover the -p option because these tags will be parsed on the 2nd pass)
$useMWG = 1 if not $useMWG and grep /^mwg:/i, @tags, @requestTags;
if ($useMWG) {
require Image::ExifTool::MWG;
Image::ExifTool::MWG::Load();
}
}
if (@nextPass) {
# process arguments which were deferred to the next pass
unshift @ARGV, @nextPass;
undef @nextPass;
++$pass;
next;
}
@ARGV and shift; # remove -execute from argument list
last; # process the command now
}
$_ = shift;
next if $badCmd; # flush remaining arguments if aborting this command
if (s/^(-|\xe2\x88\x92)//) { # allow funny dashes (nroff dash bug for cut-n-paste from pod)
s/^\xe2\x88\x92/-/; # translate double-dash too
my $a = lc $_;
if (/^list([wfrdx]|wf|g(\d*))?$/i) {
$pass or push @nextPass, "-$_";
my $type = lc($1 || '');
if (not $type or $type eq 'w' or $type eq 'x') {
my $group;
if ($ARGV[0] and $ARGV[0] =~ /^(-|\xe2\x88\x92)(.+):(all|\*)$/i) {
if ($pass == 0) {
$useMWG = 1 if lc($2) eq 'mwg';
push @nextPass, shift;
next;
}
$group = $2;
shift;
$group =~ /IFD/i and Warn("Can't list tags for specific IFD\n"), next;
$group =~ /^(all|\*)$/ and undef $group;
} else {
$pass or next;
}
$helped = 1;
if ($type eq 'x') {
require Image::ExifTool::TagInfoXML;
my %opts;
$opts{Flags} = 1 if defined $forcePrint;
$opts{NoDesc} = 1 if $outFormat > 0;
$opts{Lang} = $langOpt;
Image::ExifTool::TagInfoXML::Write(undef, $group, %opts);
next;
}
my $wr = ($type eq 'w');
my $msg = ($wr ? 'Writable' : 'Available') . ($group ? " $group" : '') . ' tags';
PrintTagList($msg, $wr ? GetWritableTags($group) : GetAllTags($group));
# also print shortcuts if listing all tags
next if $group or $wr;
my @tagList = GetShortcuts();
PrintTagList('Command-line shortcuts', @tagList) if @tagList;
next;
}
$pass or next;
$helped = 1;
if ($type eq 'wf') {
my @wf;
CanWrite($_) and push @wf, $_ foreach GetFileType();
PrintTagList('Writable file extensions', @wf);
} elsif ($type eq 'f') {
PrintTagList('Supported file extensions', GetFileType());
} elsif ($type eq 'r') {
PrintTagList('Recognized file extensions', GetFileType(undef, 0));
} elsif ($type eq 'd') {
PrintTagList('Deletable groups', GetDeleteGroups());
} else { # 'g(\d*)'
# list all groups in specified family
my $family = $2 || 0;
PrintTagList("Groups in family $family", GetAllGroups($family));
}
next;
}
if ($a eq 'ver') {
$pass or push(@nextPass,'-ver'), next;
my $libVer = $Image::ExifTool::VERSION;
my $str = $libVer eq $version ? '' : " [Warning: Library version is $libVer]";
if ($verbose) {
print "ExifTool version $version$str$Image::ExifTool::RELEASE\n";
printf "Perl version %s%s\n", $], (defined ${^UNICODE} ? " (-C${^UNICODE})" : '');
print "Platform: $^O\n";
print "Optional libraries:\n";
foreach (@recommends) {
next if /^Win32/ and $^O ne 'MSWin32';
my $ver = eval "require $_ and \$${_}::VERSION";
my $alt = $altRecommends{$_};
# check for alternative if primary not available
$ver = eval "require $alt and \$${alt}::VERSION" and $_ = $alt if not $ver and $alt;
printf " %-28s %s\n", $_, $ver || '(not installed)';
}
} else {
print "$version$str$Image::ExifTool::RELEASE\n";
}
$helped = 1;
next;
}
if (/^(all|add)?tagsfromfile(=.*)?$/i) {
$setTagsFile = $2 ? substr($2,1) : (@ARGV ? shift : '');
if ($setTagsFile eq '') {
Error("File must be specified for -tagsFromFile option\n");
$badCmd = 1;
next;
}
# create necessary lists, etc for this new -tagsFromFile file
AddSetTagsFile($setTagsFile, { Replace => ($1 and lc($1) eq 'add') ? 0 : 1 } );
next;
}
if ($a eq '@') {
my $argFile = shift or Error("Expecting filename for -\@ option\n"), $badCmd=1, next;
# switch to new ARGFILE if using chained -stay_open options
if ($stayOpen == 1) {
# defer remaining arguments until we close this argfile
@moreArgs = @ARGV;
undef @ARGV;
} elsif ($stayOpen == 3) {
if ($stayOpenFile and $stayOpenFile ne '-' and $argFile eq $stayOpenFile) {
# don't allow user to switch to the same -stay_open argfile
# because it will result in endless recursion
$stayOpen = 2;
Warn "Ignoring request to switch to the same -stay_open ARGFILE ($argFile)\n";
next;
}
close STAYOPEN;
$stayOpen = 1; # switch to this -stay_open file
}
my $fp = ($stayOpen == 1 ? \*STAYOPEN : \*ARGFILE);
unless ($mt->Open($fp, $argFile)) {
unless ($argFile !~ /^\// and $mt->Open($fp, "$exeDir/$argFile")) {
Error "Error opening arg file $argFile\n";
$badCmd = 1;
next
}
}
if ($stayOpen == 1) {
$stayOpenFile = $argFile; # remember the name of the file we have open
$stayOpenBuff = ''; # initialize buffer for reading this file
$stayOpen = 2;
$helped = 1;
ReadStayOpen(\@ARGV);
next;
}
my (@newArgs, $didBOM);
foreach (<ARGFILE>) {
# filter Byte Order Mark if it exists from start of UTF-8 text file
unless ($didBOM) {
s/^\xef\xbb\xbf//;
$didBOM = 1;
}
next if /^#/; # ignore lines beginning with '#'
s/^\s+//; s/[\x0d\x0a]+$//s; # remove leading white space and trailing newline
# remove white space before, and single space after '=', '+=', '-=' or '<='
s/^(-[-:\w]+#?)\s*([-+<]?=) ?/$1$2/;
push @newArgs, $_ unless $_ eq '';
}
close ARGFILE;
unshift @ARGV, @newArgs;
next;
}
/^(-?)(a|duplicates)$/i and $mt->Options(Duplicates => ($1 ? 0 : 1)), next;
if ($a eq 'api') {
my $opt = shift;
defined $opt or Error("Expected OPT[=VAL] argument for -api option\n"), $badCmd=1, next;
my $val = ($opt =~ s/=(.*)//s) ? $1 : 1;
$mt->Options($opt => (length($val) ? $val : undef));
# update $forcePrint in case MissingTagValue was changed
$forcePrint = $mt->Options('MissingTagValue') if defined $forcePrint;
next;
}
/^arg(s|format)$/i and $argFormat = 1, next;
/^b(inary)?$/i and $mt->Options(Binary => 1, NoPDFList => 1), $binaryOutput = 1, next;
if (/^c(oordFormat)?$/i) {
my $fmt = shift;
$fmt or Error("Expecting coordinate format for -c option\n"), $badCmd=1, next;
$mt->Options('CoordFormat', $fmt);
next;
}
if ($a eq 'charset') {
my $charset = (@ARGV and $ARGV[0] !~ /^(-|\xe2\x88\x92)/) ? shift : undef;
if (not $charset) {
$pass or push(@nextPass, '-charset'), next;
my %charsets;
$charsets{$_} = 1 foreach values %Image::ExifTool::charsetName;
PrintTagList('Available character sets', sort keys %charsets);
$helped = 1;
} elsif ($charset !~ s/^(\w+)=// or lc($1) eq 'exiftool') {
$mt->Options(Charset => $charset);
$utf8 = ($mt->Options('Charset') eq 'UTF8');
} else {
# set internal encoding of specified metadata type
my $type = { id3 => 'ID3', iptc => 'IPTC', exif => 'EXIF', filename => 'FileName',
photoshop => 'Photoshop', quicktime => 'QuickTime', riff=>'RIFF' }->{lc $1};
$type or Warn("Unknown type for -charset option: $1\n"), next;
$mt->Options("Charset$type" => $charset);
}
next;
}
/^config$/i and Warn("Ignored -config option (not first on command line)\n"), shift, next;
if (/^csv(\+?=.*)?/i) {
my $csvFile = $1;
# must process on 2nd pass so -f and -charset options are available
unless ($pass) {
push @nextPass, "-$_";
if ($csvFile) {
push @newValues, { SaveCount => ++$saveCount }; # marker to save new values now
$csvSaveCount = $saveCount;
}
next;
}
if ($csvFile) {
$csvFile =~ s/^(\+?=)//;
$csvAdd = 2 if $1 eq '+=';
$vout = \*STDERR if $srcStdin;
$verbose and print $vout "Reading CSV file $csvFile\n";
my $msg;
if ($mt->Open(\*CSVFILE, $csvFile)) {
binmode CSVFILE;
require Image::ExifTool::Import;
$msg = Image::ExifTool::Import::ReadCSV(\*CSVFILE, \%database, $forcePrint);
close(CSVFILE);
} else {
$msg = "Error opening CSV file '$csvFile'";
}
$msg and Warn("$msg\n");
$isWriting = 1;
}
$csv = 'CSV';
next;
}
if (/^d$/ or $a eq 'dateformat') {
my $fmt = shift;
$fmt or Error("Expecting date format for -d option\n"), $badCmd=1, next;
$mt->Options('DateFormat', $fmt);
next;
}
(/^D$/ or $a eq 'decimal') and $showTagID = 'D', next;
/^delete_original(!?)$/i and $deleteOrig = ($1 ? 2 : 1), next;
(/^e$/ or $a eq '-composite') and $mt->Options(Composite => 0), next;
(/^-e$/ or $a eq 'composite') and $mt->Options(Composite => 1), next;
(/^E$/ or $a eq 'escapehtml') and require Image::ExifTool::HTML and $escapeHTML = 1, next;
($a eq 'ex' or $a eq 'escapexml') and $escapeXML = 1, next;
if (/^echo(\d)?$/i) {
my $n = $1 || 1;
my $arg = shift;
next unless defined $arg;
$n > 4 and Warn("Invalid -echo number\n"), next;
if ($n > 2) {
$n == 3 ? push(@echo3, $arg) : push(@echo4, $arg);
} else {
print {$n==2 ? \*STDERR : \*STDOUT} $arg, "\n";
}
$helped = 1;
next;
}
if (/^(ee|extractembedded)$/i) {
$mt->Options(ExtractEmbedded => 1);
$mt->Options(Duplicates => 1);
next;
}
# (-execute handled at top of loop)
if (/^-?ext(ension)?$/i) {
my $ext = shift;
defined $ext or Error("Expecting extension for -ext option\n"), $badCmd=1, next;
$ext =~ s/^\.//; # remove leading '.' if it exists
my $flag = /^-/ ? 0 : 1;
$filterFlag |= (0x01 << $flag);
$filterExt{uc($ext)} = $flag;
next;
}
if (/^f$/ or $a eq 'forceprint') {
$forcePrint = $mt->Options('MissingTagValue');
unless (defined $forcePrint) {
$forcePrint = '-';
$mt->Options(MissingTagValue => '-');
}
next;
}
if (/^F([-+]?\d*)$/ or /^fixbase([-+]?\d*)$/i) {
$mt->Options(FixBase => $1);
next;
}
if (/^fast(\d*)$/i) {
$mt->Options(FastScan => (length $1 ? $1 : 1));
next;
}
if ($a eq 'fileorder') {
push @fileOrder, shift if @ARGV;
next;
}
$a eq 'globaltimeshift' and $mt->Options(GlobalTimeShift => shift), next;
if (/^(g)(roupHeadings|roupNames)?([\d:]*)$/i) {
$showGroup = $3 || 0;
$allGroup = ($2 ? lc($2) eq 'roupnames' : $1 eq 'G');
$mt->Options(SavePath => 1) if $showGroup =~ /\b5\b/;
next;
}
if ($a eq 'geotag') {
my $trkfile = shift;
unless ($pass) {
# defer to next pass so the filename charset is available
push @nextPass, '-geotag', $trkfile;
next;
}
$trkfile or Error("Expecting file name for -geotag option\n"), $badCmd=1, next;
# allow wildcards in filename
if ($trkfile =~ /[*?]/) {
# CORE::glob() splits on white space, so use File::Glob if possible
my @trks;
if ($^O eq 'MSWin32' and eval { require Win32::FindFile }) {
# ("-charset filename=UTF8" must be set for this to work with Unicode file names)
@trks = FindFileWindows($mt, $trkfile);
} elsif (eval { require File::Glob }) {
@trks = File::Glob::bsd_glob($trkfile);
} else {
@trks = glob($trkfile);
}
@trks or Error("No matching file found for -geotag option\n"), $badCmd=1, next;
push @newValues, 'geotag='.shift(@trks) while @trks > 1;
$trkfile = pop(@trks);
}
$_ = "geotag=$trkfile";
# (fall through!)
}
if (/^h$/ or $a eq 'htmlformat') {
require Image::ExifTool::HTML;
$html = $escapeHTML = 1;
$json = $xml = 0;
next;
}
(/^H$/ or $a eq 'hex') and $showTagID = 'H', next;
if (/^htmldump([-+]?\d+)?$/i) {
$verbose = ($verbose || 0) + 1;
$html = 2;
$mt->Options(HtmlDumpBase => $1) if defined $1;
next;
}
if (/^i(gnore)?$/i) {
my $dir = shift;
defined $dir or Error("Expecting directory name for -i option\n"), $badCmd=1, next;
$ignore{$dir} = 1;
next;
}
if ($a eq 'if') {
my $cond = shift;
defined $cond or Error("Expecting expression for -if option\n"), $badCmd=1, next;
# add to list of requested tags
push @requestTags, $cond =~ /\$\{?((?:[-\w]+:)*[-\w?*]+)/g;
if (defined $condition) {
$condition .= " and ($cond)";
} else {
$condition = "($cond)";
}
next;
}
if (/^j(son)?(\+?=.*)?$/i) {
if ($2) {
# must process on 2nd pass because we need -f and -charset options
unless ($pass) {
push @nextPass, "-$_";
push @newValues, { SaveCount => ++$saveCount }; # marker to save new values now
$csvSaveCount = $saveCount;
next;
}
my $jsonFile = $2;
$jsonFile =~ s/^(\+?=)//;
$csvAdd = 2 if $1 eq '+=';
$vout = \*STDERR if $srcStdin;
$verbose and print $vout "Reading JSON file $jsonFile\n";
my $chset = $mt->Options('Charset');
my $msg;
if ($mt->Open(\*JSONFILE, $jsonFile)) {
binmode JSONFILE;
require Image::ExifTool::Import;
$msg = Image::ExifTool::Import::ReadJSON(\*JSONFILE, \%database, $forcePrint, $chset);
close(JSONFILE);
} else {
$msg = "Error opening JSON file '$jsonFile'";
}
$msg and Warn("$msg\n");
$isWriting = 1;
$csv = 'JSON';
} else {
$json = 1;
$html = $xml = 0;
$mt->Options(Duplicates => 1);
require Image::ExifTool::XMP; # for FixUTF8()
}
next;
}
/^(k|pause)$/i and $pause = 1, next;
(/^l$/ or $a eq 'long') and --$outFormat, next;
(/^L$/ or $a eq 'latin') and $utf8 = 0, $mt->Options(Charset => 'Latin'), next;
if ($a eq 'lang') {
$langOpt = (@ARGV and $ARGV[0] !~ /^-/) ? shift : undef;
if ($langOpt) {
# make lower case and use underline as a separator (eg. 'en_ca')
$langOpt =~ tr/-A-Z/_a-z/;
$mt->Options(Lang => $langOpt);
next if $langOpt eq $mt->Options('Lang');
} else {
$pass or push(@nextPass, '-lang'), next;
}
my $langs = "Available languages:\n";
$langs .= " $_ - $Image::ExifTool::langName{$_}\n" foreach @Image::ExifTool::langs;
$langs =~ tr/_/-/; # display dashes instead of underlines in language codes
$langs = $mt->Decode($langs, 'UTF8');
$langs = Image::ExifTool::HTML::EscapeHTML($langs) if $escapeHTML;
$langOpt and Error("Invalid or unsupported language '$langOpt'.\n$langs"), $badCmd=1, next;
print $langs;
$helped = 1;
next;
}
if ($a eq 'listitem') {
my $li = shift;
defined $li and Image::ExifTool::IsInt($li) or Warn("Expecting integer for -listItem option\n"), next;
$mt->Options(ListItem => $li);
$listItem = $li;
next;
}
/^(m|ignoreminorerrors)$/i and $mt->Options(IgnoreMinorErrors => 1), next;
/^(n|-printconv)$/i and $mt->Options(PrintConv => 0), next;
/^(-n|printconv)$/i and $mt->Options(PrintConv => 1), next;
if (/^o(ut)?$/i) {
$outOpt = shift;
defined $outOpt or Error("Expected output file or directory name for -o option\n"), $badCmd=1, next;
CleanFilename($outOpt);
# verbose messages go to STDERR of output is to console
$vout = \*STDERR if $vout =~ /^-(\.\w+)?$/;
next;
}
/^overwrite_original$/i and $overwriteOrig = 1, next;
/^overwrite_original_in_place$/i and $overwriteOrig = 2, next;
if (/^p$/ or $a eq 'printformat') {
my $fmt = shift;
if ($pass) {
LoadPrintFormat($fmt);
# load MWG module now if necessary
if (not $useMWG and grep /^mwg:/i, @requestTags) {
$useMWG = 1;
require Image::ExifTool::MWG;
Image::ExifTool::MWG::Load();
}
} else {
# defer to next pass so the filename charset is available
push @nextPass, '-p', $fmt;
}
next;
}
(/^P$/ or $a eq 'preserve') and $preserveTime = 1, next;
/^password$/i and $mt->Options(Password => shift), next;
if (/^progress(:.*)?/i) {
if ($1) {
$windowTitle = substr $1, 1;
$windowTitle = 'ExifTool %p%%' unless length $windowTitle;
$windowTitle =~ /%\d*[bpr]/ and $progress = 0 unless defined $progress;
} else {
$progress = 1;
$verbose = 0 unless defined $verbose;
}
$progressCount = 0;
next;
}
/^q(uiet)?$/i and ++$quiet, next;
/^r(ecurse)?(\.?)$/i and $recurse = ($2 ? 2 : 1), next;
if ($a eq 'require') { # undocumented, added in version 8.65
my $ver = shift;
unless (defined $ver and Image::ExifTool::IsFloat($ver)) {
Error("Expecting version number for -require option\n");
$badCmd = 1;
next;
}
unless ($Image::ExifTool::VERSION >= $ver) {
Error("Requires ExifTool version $ver or later\n");
$badCmd = 1;
}
next;
}
/^restore_original$/i and $deleteOrig = 0, next;
(/^S$/ or $a eq 'veryshort') and $outFormat+=2, next;
/^s(hort)?(\d*)$/i and $outFormat = $2 eq '' ? $outFormat + 1 : $2, next;
/^scanforxmp$/i and $mt->Options(ScanForXMP => 1), next;
if (/^sep(arator)?$/i) {
$listSep = shift;
defined $listSep or Error("Expecting list item separator for -sep option\n"), $badCmd=1, next;
$mt->Options(ListSep => $listSep);
$joinLists = 1;
# also split when writing values
my $listSplit = quotemeta $listSep;
# a space in the string matches zero or more whitespace characters
$listSplit =~ s/(\\ )+/\\s\*/g;
# but a single space alone matches one or more whitespace characters
$listSplit = '\\s+' if $listSplit eq '\\s*';
$mt->Options(ListSplit => $listSplit);
next;
}
/^(-)?sort$/i and $sortOpt = $1 ? 0 : 1, next;
if ($a eq 'srcfile') {
@ARGV or Warn("Expecting FMT for -srcfile option\n"), next;
push @srcFmt, shift;
next;
}
if ($a eq 'stay_open') {
my $arg = shift;
defined $arg or Warn("Expecting argument for -stay_open option\n"), next;
if ($arg =~ /^(1|true)$/i) {
if (not $stayOpen) {
$stayOpen = 1;
} elsif ($stayOpen == 2) {
$stayOpen = 3; # chained -stay_open options
} else {
Warn "-stay_open already active\n";
}
} elsif ($arg =~ /^(0|false)$/i) {
if ($stayOpen >= 2) {
# close -stay_open argfile and process arguments up to this point
close STAYOPEN;
push @ARGV, @moreArgs;
undef @moreArgs;
} elsif (not $stayOpen) {
Warn("-stay_open wasn't active\n");
}
$stayOpen = 0;
} else {
Warn "Invalid argument for -stay_open\n";
}
next;
}
if (/^(-)?struct$/i) {
$structOpt = $1 ? 0 : 1;
$mt->Options(Struct => $structOpt);
# require XMPStruct in case we need to serialize a structure
require 'Image/ExifTool/XMPStruct.pl' if $structOpt;
next;
}
/^t(ab)?$/ and $tabFormat = 1, next;
if (/^T$/ or $a eq 'table') {
$tabFormat = 1; $outFormat+=2; ++$quiet;
$forcePrint = $mt->Options('MissingTagValue');
unless (defined $forcePrint) {
$forcePrint = '-';
$mt->Options(MissingTagValue => '-');
}
next;
}
if (/^(u)(nknown(2)?)?$/i) {
my $inc = ($3 or (not $2 and $1 eq 'U')) ? 2 : 1;
$mt->Options(Unknown => $mt->Options('Unknown') + $inc);
next;
}
if ($a eq 'use') {
my $module = shift;
$module or Error("Expecting module name for -use option\n"), $badCmd=1, next;
lc $module eq 'mwg' and $useMWG = 1, next;
$module =~ /[^\w:]/ and Error("Invalid module name: $module\n"), $badCmd=1, next;
local $SIG{'__WARN__'} = sub { $evalWarning = $_[0] };
unless (eval "require Image::ExifTool::$module" or
eval "require $module" or
eval "require '$module'")
{
Error("Error using module $module\n");
$badCmd = 1;
}
next;
}
if ($a eq 'userparam') {
my $opt = shift;
defined $opt or Error("Expected parameter for -userParam option\n"), $badCmd=1, next;
$opt =~ /=/ or $opt .= '=1';
$mt->Options(UserParam => $opt);
next;
}
if (/^v(erbose)?(\d*)$/i) {
$verbose = ($2 eq '') ? ($verbose || 0) + 1 : $2;
next;
}
if (/^(w|textout|tagout)([!+]*)$/i) {
$textOut = shift || Warn("Expecting output extension for -$_ option\n");
my ($t1, $t2) = ($1, $2);
$textOverwrite = 0;
$textOverwrite += 1 if $t2 =~ /!/; # overwrite
$textOverwrite += 2 if $t2 =~ /\+/; # append
if ($t1 ne 'W' and lc($t1) ne 'tagout') {
undef $tagOut;
} elsif ($textOverwrite >= 2 and $textOut !~ /%[-+]?\d*[.:]?\d*[lu]?[tgs]/) {
$tagOut = 0; # append tags to one file
} else {
$tagOut = 1; # separate file for each tag
}
next;
}
if (/^(-?)(wext|tagoutext)$/i) {
my $ext = shift;
defined $ext or Error("Expecting extension for -wext option\n"), $badCmd=1, next;
my $flag = 1;
$1 and $wext{'*'} = 1, $flag = -1;
$ext =~ s/^\.//;
$wext{lc $ext} = $flag;
next;
}
if ($a eq 'wm' or $a eq 'writemode') {
my $wm = shift;
defined $wm or Error("Expecting argument for -$_ option\n"), $badCmd=1, next;
$wm =~ /^[wcg]*$/i or Error("Invalid argument for -$_ option\n"), $badCmd=1, next;
$mt->Options(WriteMode => $wm);
next;
}
if (/^x$/ or $a eq 'exclude') {
my $tag = shift;
defined $tag or Error("Expecting tag name for -x option\n"), $badCmd=1, next;
$tag =~ s/\ball\b/\*/ig; # replace 'all' with '*' in tag names
if ($setTagsFile) {
push @{$setTags{$setTagsFile}}, "-$tag";
} else {
push @exclude, $tag;
}
next;
}
(/^X$/ or $a eq 'xmlformat') and $xml = 1, $html = $json = 0, $mt->Options(Duplicates => 1), next;
if (/^php$/i) {
$json = 2;
$html = $xml = 0;
$mt->Options(Duplicates=>1);
next;
}
/^z(ip)?$/i and $doUnzip = 1, $mt->Options(Compress => 1, Compact => 1), next;
$_ eq '' and push(@files, '-'), $srcStdin = 1, next; # read STDIN
length $_ eq 1 and $_ ne '*' and Error("Unknown option -$_\n"), $badCmd=1, next;
if (/^[^<]+(<?)=(.*)/s) {
my $val = $2;
if ($1 and length($val) and ($val eq '@' or not defined FilenameSPrintf($val))) {
# save count of new values before a dynamic value
push @newValues, { SaveCount => ++$saveCount };
}
push @newValues, $_;
if (/^mwg:/i) {
$useMWG = 1;
} elsif (/^([-\w]+:)*(filename|directory)\b/i) {
$doSetFileName = 1;
} elsif (/^([-\w]+:)*(geotag|geotime)\b/i) {
if (lc $2 eq 'geotag') {
if ((not defined $addGeotime or $addGeotime) and length $val) {
$addGeotime = ($1 || '') . 'Geotime<DateTimeOriginal#';
}
} else {
$addGeotime = '';
}
}
} else {
# assume '-tagsFromFile @' if tags are being redirected
# and -tagsFromFile hasn't already been specified
AddSetTagsFile($setTagsFile = '@') if not $setTagsFile and /(<|>)/;
if ($setTagsFile) {
push @{$setTags{$setTagsFile}}, $_;
if (/>/) {
$useMWG = 1 if /^(.*>\s*)?mwg:/si;
if (/\b(filename|directory)#?$/i) {
$doSetFileName = 1;
} elsif (/\bgeotime#?$/i) {
$addGeotime = '';
}
} else {
$useMWG = 1 if /^([^<]+<\s*(.*\$\{?)?)?mwg:/si;
if (/^([-\w]+:)*(filename|directory)\b/i) {
$doSetFileName = 1;
} elsif (/^([-\w]+:)*geotime\b/i) {
$addGeotime = '';
}
}
} else {
my $lst = s/^-// ? \@exclude : \@tags;
unless (/^([-\w*]+:)*([-\w*?]+)#?$/) {
Warn(qq(Invalid TAG name: $_\n));
}
push @$lst, $_; # (push everything for backward compatibility)
}
}
} else {
unless ($pass) {
# defer to next pass so the filename charset is available
push @nextPass, $_;
next;
}
if ($doGlob and /[*?]/) {
if ($^O eq 'MSWin32' and eval { require Win32::FindFile }) {
push @files, FindFileWindows($mt, $_);
} else {
# glob each filespec if necessary - MK/20061010
push @files, File::Glob::bsd_glob($_);
}
$doGlob = 2;
} else {
push @files, $_;
$srcStdin = 1 if $_ eq '-';
}
}
}
# set verbose output to STDERR if output could be to console
$vout = \*STDERR if $srcStdin and ($isWriting or @newValues);
$mt->Options(TextOut => $vout) if $vout eq \*STDERR;
# change default EXIF string encoding if MWG used
if ($useMWG and not defined $mt->Options('CharsetEXIF')) {
$mt->Options(CharsetEXIF => 'UTF8');
}
# print help
unless ((@tags and not $outOpt) or @files or @newValues) {
if ($doGlob and $doGlob == 2) {
Warn "No matching files\n";
$rtnVal = 1;
next;
}
if ($outOpt) {
Warn "Nothing to write\n";
$rtnVal = 1;
next;
}
unless ($helped) {
# catch warnings if we have problems running perldoc
local $SIG{'__WARN__'} = sub { $evalWarning = $_[0] };
my $dummy = \*SAVEERR; # avoid "used only once" warning
unless ($^O eq 'os2') {
open SAVEERR, ">&STDERR";
open STDERR, '>/dev/null';
}
if (system('perldoc',$0)) {
print "Syntax: exiftool [OPTIONS] FILE\n\n";
print "Consult the exiftool documentation for a full list of options.\n";
}
unless ($^O eq 'os2') {
close STDERR;
open STDERR, '>&SAVEERR';
}
}
next;
}
# do sanity check on -delete_original and -restore_original
if (defined $deleteOrig and (@newValues or @tags)) {
if (not @newValues) {
my $verb = $deleteOrig ? 'deleting' : 'restoring from';
Warn "Can't specify tags when $verb originals\n";
} elsif ($deleteOrig) {
Warn "Can't use -delete_original when writing.\n";
Warn "Maybe you meant -overwrite_original ?\n";
} else {
Warn "It makes no sense to use -restore_original when writing\n";
}
$rtnVal = 1;
next;
}
if ($overwriteOrig > 1 and $outOpt) {
Warn "Can't overwrite in place when -o option is used\n";
$rtnVal = 1;
next;
}
if ($tagOut and ($csv or %printFmt or $tabFormat or $xml or ($verbose and $html))) {
Warn "Sorry, -W may not be combined with -csv, -htmlDump, -j, -p, -t or -X\n";
$rtnVal = 1;
next;
}
if ($textOut and $csv and $csv eq 'CSV' and not $isWriting) {
Warn "Sorry, -w may not be combined with -csv\n";
$rtnVal = 1;
next;
}
if ($escapeHTML or $json) {
# must be UTF8 for HTML conversion and JSON output
$mt->Options(Charset => 'UTF8');
# use Escape option to do our HTML escaping unless XML output
$mt->Options(Escape => 'HTML') if $escapeHTML and not $xml;
} elsif ($escapeXML and not $xml) {
$mt->Options(Escape => 'XML');
}
# set sort option
if ($sortOpt) {
# (note that -csv sorts alphabetically by default anyway if more than 1 file)
my $sort = ($outFormat > 0 or $xml or $json or $csv) ? 'Tag' : 'Descr';
$mt->Options(Sort => $sort, Sort2 => $sort);
}
# set up for RDF/XML, JSON and PHP output formats
if ($xml) {
require Image::ExifTool::XMP; # for EscapeXML()
my $charset = $mt->Options('Charset');
# standard XML encoding names for supported Charset settings
# (ref http://www.iana.org/assignments/character-sets)
my %encoding = (
UTF8 => 'UTF-8',
Latin => 'windows-1252',
Latin2 => 'windows-1250',
Cyrillic => 'windows-1251',
Greek => 'windows-1253',
Turkish => 'windows-1254',
Hebrew => 'windows-1255',
Arabic => 'windows-1256',
Baltic => 'windows-1257',
Vietnam => 'windows-1258',
MacRoman => 'macintosh',
);
# switch to UTF-8 if we don't have a standard encoding name
unless ($encoding{$charset}) {
$charset = 'UTF8';
$mt->Options(Charset => $charset);
}
# set file header/trailer for XML output
$fileHeader = "<?xml version='1.0' encoding='$encoding{$charset}'?>\n" .
"<rdf:RDF xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#'>\n";
$fileTrailer = "</rdf:RDF>\n";
# extract as a list unless short output format
$joinLists = 1 if $outFormat > 0;
$mt->Options(List => 1) unless $joinLists;
$showGroup = $allGroup = 1; # always show group 1
# set binaryOutput flag to 0 or undef (0 = output encoded binary in XML)
$binaryOutput = ($outFormat > 0 ? undef : 0) if $binaryOutput;
$showTagID = 'D' if $tabFormat and not $showTagID;
} elsif ($json) {
if ($json == 1) { # JSON
$fileHeader = '[';
$fileTrailer = "]\n";
} else { # PHP
$fileHeader = 'Array(';
$fileTrailer = ");\n";
}
# allow binary output in a text-mode file when -php/-json and -b used together
# (this works because PHP strings are simple arrays of bytes, and CR/LF
# won't be messed up in the text mode output because they are converted
# to escape sequences in the strings)
if ($binaryOutput) {
$binaryOutput = 0;
require Image::ExifTool::XMP if $json == 1; # (for EncodeBase64)
}
$mt->Options(List => 1) unless $joinLists;
$mt->Options(Duplicates => 0) unless defined $showGroup;
} elsif ($structOpt) {
$mt->Options(List => 1);
} else {
$joinLists = 1; # join lists for all other unstructured output formats
}
if ($argFormat) {
$outFormat = 3;
$allGroup = 1 if defined $showGroup;
}
# change to forward slashes if necessary in all filenames (like CleanFilename)
if ($hasBackslash{$^O}) {
tr/\\/\// foreach @files;
}
# can't do anything if no file specified
unless (@files) {
unless ($outOpt) {
if ($doGlob and $doGlob == 2) {
Warn "No matching files\n";
} else {
Warn "No file specified\n";
}
$rtnVal = 1;
next;
}
push @files, ''; # create file from nothing
}
# set Verbose and HtmlDump options
if ($verbose) {
$disableOutput = 1 unless @tags or @exclude or $tagOut;
undef $binaryOutput unless $tagOut; # disable conflicting option
if ($html) {
$html = 2; # flag for html dump
$mt->Options(HtmlDump => $verbose);
} else {
$mt->Options(Verbose => $verbose) unless $tagOut;
}
} elsif (defined $verbose) {
# auto-flush output when -v0 is used
require FileHandle;
STDOUT->autoflush(1);
STDERR->autoflush(1);
}
# validate all tags we're writing
my $needSave = 1;
if (@newValues) {
# assume -geotime value if -geotag specified without -geotime
if ($addGeotime) {
AddSetTagsFile($setTagsFile = '@') unless $setTagsFile and $setTagsFile eq '@';
push @{$setTags{$setTagsFile}}, $addGeotime;
$verbose and print $vout qq{Argument "-$addGeotime" is assumed\n};
}
my %setTagsIndex;
# add/delete option lookup
my %addDelOpt = ( '+' => 'AddValue', '-' => 'DelValue', "\xe2\x88\x92" => 'DelValue' );
$saveCount = 0;
foreach (@newValues) {
if (ref $_ eq 'HASH') {
# save new values now if we stored a "SaveCount" marker
if ($$_{SaveCount}) {
$saveCount = $mt->SaveNewValues();
$needSave = 0;
# insert marker to load values from CSV file now if this was the CSV file
push @dynamicFiles, \$csv if $$_{SaveCount} == $csvSaveCount;
}
next;
}
/(.*?)=(.*)/s or next;
my ($tag, $newVal) = ($1, $2);
$tag =~ s/\ball\b/\*/ig; # replace 'all' with '*' in tag names
$newVal eq '' and undef $newVal; # undefined to delete tag
if ($tag =~ /^(All)?TagsFromFile$/i) {
defined $newVal or Error("Need file name for -tagsFromFile\n"), next Command;
++$isWriting;
if ($newVal eq '@' or not defined FilenameSPrintf($newVal)) {
push @dynamicFiles, $newVal;
next; # set tags from dynamic file later
}
unless ($mt->Exists($newVal) or $newVal eq '-') {
Warn "File '$newVal' does not exist for -tagsFromFile option\n";
$rtnVal = 1;
next Command;
}
my $setTags = $setTags{$newVal};
# do we have multiple -tagsFromFile options with this file?
if ($setTagsList{$newVal}) {
# use the tags set in the i-th occurrence
my $i = $setTagsIndex{$newVal} || 0;
$setTagsIndex{$newVal} = $i + 1;
$setTags = $setTagsList{$newVal}[$i] if $setTagsList{$newVal}[$i];
}
# set specified tags from this file
unless (DoSetFromFile($mt, $newVal, $setTags)) {
$rtnVal = 1;
next Command;
}
$needSave = 1;
next;
}
my %opts = ( Shift => 0 ); # shift values if possible instead of adding/deleting
# allow writing of 'unsafe' tags unless specified by wildcard
$opts{Protected} = 1 unless $tag =~ /[?*]/;
if ($tag =~ s/<// and defined $newVal) {
if (defined FilenameSPrintf($newVal)) {
SlurpFile($newVal, \$newVal) or next; # read file data into $newVal
} else {
$tag =~ s/([-+]|\xe2\x88\x92)$// and $opts{$addDelOpt{$1}} = 1;
# verify that this tag can be written
my $result = Image::ExifTool::IsWritable($tag);
if ($result) {
$opts{ProtectSaved} = $saveCount; # protect new values set after this
# add to list of dynamic tag values
push @dynamicFiles, [ $tag, $newVal, \%opts ];
++$isWriting;
} elsif (defined $result) {
Warn "Tag '$tag' is not writable\n";
} else {
Warn "Tag '$tag' does not exist\n";
}
next;
}
}
if ($tag =~ s/([-+]|\xe2\x88\x92)$//) {
$opts{$addDelOpt{$1}} = 1; # set AddValue or DelValue option
# set $newVal to '' if deleting nothing
$newVal = '' if $1 eq '-' and not defined $newVal;
}
my ($rtn, $wrn) = $mt->SetNewValue($tag, $newVal, %opts);
$needSave = 1;
++$isWriting if $rtn;
$wrn and Warn "Warning: $wrn\n";
}
# exclude specified tags
foreach (@exclude) {
$mt->SetNewValue($_, undef, Replace => 2);
$needSave = 1;
}
unless ($isWriting or $outOpt or @tags) {
Warn "Nothing to do.\n";
$rtnVal = 1;
next;
}
} elsif (grep /^(\*:)?\*$/, @exclude) {
Warn "All tags excluded -- nothing to do.\n";
$rtnVal = 1;
next;
}
if ($isWriting and @tags and not $outOpt) {
my ($tg, $s) = @tags > 1 ? ("$tags[0] ...", 's') : ($tags[0], '');
Warn "Ignored superfluous tag name$s or invalid option$s: -$tg\n";
}
# save current state of new values if setting values from target file
# or if we may be translating to a different format
$mt->SaveNewValues() if $outOpt or (@dynamicFiles and $needSave);
$multiFile = 1 if @files > 1;
@exclude and $mt->Options(Exclude => \@exclude);
undef $binaryOutput if $html;
if ($binaryOutput) {
$outFormat = 99; # shortest possible output format
$mt->Options(PrintConv => 0);
unless ($textOut or $binaryStdout) {
binmode(STDOUT);
$binaryStdout = 1;
$mt->Options(TextOut => ($vout = \*STDERR));
}
# disable conflicting options
undef $showGroup;
}
# sort by groups to look nicer depending on options
if (defined $showGroup and not (@tags and $allGroup) and ($sortOpt or not defined $sortOpt)) {
$mt->Options(Sort => "Group$showGroup");
}
if (defined $textOut) {
CleanFilename($textOut); # make all forward slashes
# add '.' before output extension if necessary
$textOut = ".$textOut" unless $textOut =~ /[.%]/ or defined $tagOut;
}
# determine if we should scan for only writable files
if ($outOpt) {
my $type = GetFileType($outOpt);
if ($type) {
unless (CanWrite($type)) {
Warn "Can't write $type files\n";
$rtnVal = 1;
next;
}
$scanWritable = $type unless CanCreate($type);
} else {
$scanWritable = 1;
}
$isWriting = 1; # set writing flag
} elsif ($isWriting or defined $deleteOrig) {
$scanWritable = 1;
}
# set flag to fix description lengths if necessary
if ($utf8 and $mt->Options('Lang') ne 'en' and eval { require Encode }) {
# (note that Unicode::GCString is part of the Unicode::LineBreak package)
$fixLen = eval { require Unicode::GCString } ? 2 : 1;
}
# sort input files if specified
if (@fileOrder) {
my @allFiles;
ProcessFiles($mt, \@allFiles);
my $sortTool = new Image::ExifTool;
$sortTool->Options(PrintConv => $mt->Options('PrintConv'));
$sortTool->Options(Duplicates => 0);
my (%sortBy, %isFloat, @rev, $file);
# save reverse sort flags
push @rev, (s/^-// ? 1 : 0) foreach @fileOrder;
foreach $file (@allFiles) {
my @tags;
my $info = $sortTool->ImageInfo(Infile($file,1), @fileOrder, \@tags);
# get values of all tags (or '~' to sort last if not defined)
foreach (@tags) {
$_ = $$info{$_}; # put tag value into @tag list
defined $_ or $_ = '~', next;
$isFloat{$_} = Image::ExifTool::IsFloat($_);
# pad numbers to 12 digits to keep them sequential
s/(\d+)/(length($1) < 12 ? '0'x(12-length($1)) : '') . $1/eg unless $isFloat{$_};
}
$sortBy{$file} = \@tags; # save tag values for each file
}
# sort in specified order
@files = sort {
my ($i, $cmp);
for ($i=0; $i<@rev; ++$i) {
my $u = $sortBy{$a}[$i];
my $v = $sortBy{$b}[$i];
if (not $isFloat{$u} and not $isFloat{$v}) {
$cmp = $u cmp $v; # alphabetically
} elsif ($isFloat{$u} and $isFloat{$v}) {
$cmp = $u <=> $v; # numerically
} else {
$cmp = $isFloat{$u} ? -1 : 1; # numbers first
}
return $rev[$i] ? -$cmp : $cmp if $cmp;
}
return $a cmp $b; # default to sort by name
} @allFiles;
} elsif (defined $progress) {
# expand FILE argument to count the number of files to process
my @allFiles;
ProcessFiles($mt, \@allFiles);
@files = @allFiles;
}
# set file count for progress message
$progressMax = scalar @files if defined $progress;
# store duplicate database information under absolute path
my @dbKeys = keys %database;
if (@dbKeys) {
if (eval { require Cwd }) {
undef $evalWarning;
local $SIG{'__WARN__'} = sub { $evalWarning = $_[0] };
foreach (@dbKeys) {
# (punt on using ConvertFileName here, so $absPath may be a mix of encodings)
my $absPath = AbsPath($_);
if (defined $absPath) {
$database{$absPath} = $database{$_} unless $database{$absPath};
if ($verbose and $verbose > 1) {
print $vout "Imported entry for '$_' (full path: '$absPath')\n";
}
}
}
}
}
# process all specified files
ProcessFiles($mt);
if ($filtered and not $validFile) {
Warn "No file with specified extension\n";
$rtnVal = 1;
}
# print CSV information if necessary
PrintCSV() if $csv and not $isWriting;
# print file trailer if necessary
print $fileTrailer if $fileTrailer and not $textOut and not $fileHeader;
if (defined $deleteOrig) {
# print summary and delete requested files
unless ($quiet) {
printf "%5d directories scanned\n", $countDir if $countDir;
printf "%5d directories created\n", $countNewDir if $countNewDir;
printf "%5d files failed condition\n", $countFailed if $countFailed;
printf "%5d image files found\n", $count;
}
if (@delFiles) {
# verify deletion unless "-delete_original!" was specified
if ($deleteOrig == 1) {
printf '%5d originals will be deleted! Are you sure [y/n]? ', scalar(@delFiles);
my $response = <STDIN>;
unless ($response =~ /^(y|yes)\s*$/i) {
Warn "Originals not deleted.\n";
next;
}
}
$countGoodWr = $mt->Unlink(@delFiles);
$countBad = scalar(@delFiles) - $countGoodWr;
}
if ($quiet) {
# no more messages
} elsif ($count and not $countGoodWr and not $countBad) {
printf "%5d original files found\n", $countGoodWr;
} elsif ($deleteOrig) {
printf "%5d original files deleted\n", $countGoodWr if $count;
printf "%5d originals not deleted due to errors\n", $countBad if $countBad;
} else {
printf "%5d image files restored from original\n", $countGoodWr if $count;
printf "%5d files not restored due to errors\n", $countBad if $countBad;
}
} elsif ((not $binaryStdout or $verbose) and not $quiet) {
# print summary
my $tot = $count + $countBad;
my $totWr = $countGoodWr + $countBadWr + $countSameWr + $countCopyWr +
$countGoodCr + $countBadCr;
if ($countDir or $totWr or $countFailed or $tot > 1 or $textOut or $countLink or $countBadLink) {
my $o = (($html or $json or $xml or %printFmt or $csv) and not $textOut) ? \*STDERR : $vout;
printf($o "%5d directories scanned\n", $countDir) if $countDir;
printf($o "%5d directories created\n", $countNewDir) if $countNewDir;
printf($o "%5d files failed condition\n", $countFailed) if $countFailed;
printf($o "%5d image files created\n", $countGoodCr) if $countGoodCr;
printf($o "%5d image files updated\n", $countGoodWr) if $totWr - $countGoodCr - $countBadCr - $countCopyWr;
printf($o "%5d image files unchanged\n", $countSameWr) if $countSameWr;
printf($o "%5d image files %s\n", $countCopyWr, $overwriteOrig ? 'moved' : 'copied') if $countCopyWr;
printf($o "%5d files weren't updated due to errors\n", $countBadWr) if $countBadWr;
printf($o "%5d files weren't created due to errors\n", $countBadCr) if $countBadCr;
printf($o "%5d image files read\n", $count) if $tot>1 or ($countDir and not $totWr);
printf($o "%5d files could not be read\n", $countBad) if $countBad;
printf($o "%5d output files created\n", scalar(keys %created)) if $textOut;
printf($o "%5d output files appended\n", scalar(keys %appended)) if %appended;
printf($o "%5d hard links created\n", $countLink) if $countLink or $countBadLink;
printf($o "%5d hard links could not be created\n", $countBadLink) if $countBadLink;
}
}
# set error status if we had any errors or if all files failed the "-if" condition
$rtnVal = 1 if $countBadWr or $countBadCr or $countBad or ($countFailed and not $count);
# clean up after each command
Cleanup();
} # end "Command" loop ........................................................
close STAYOPEN if $stayOpen >= 2;
Exit $rtnVal; # all done
#------------------------------------------------------------------------------
# Get image information from EXIF data in file (or write file if writing)
# Inputs: 0) ExifTool object reference, 1) file name
sub GetImageInfo($$)
{
my ($et, $orig) = @_;
my (@foundTags, $info, $file, $ind);
# set window title for this file if necessary
if (defined $windowTitle) {
my $prog = $progressMax ? "$progressCount/$progressMax" : '0/0';
my $title = $windowTitle;
my ($num, $denom) = split '/', $prog;
my $frac = $num / ($denom || 1);
my $n = $title =~ s/%(\d+)b/%b/ ? $1 : 20; # length of bar
my $bar = int($frac * $n + 0.5);
my %lkup = (
b => ('I' x $bar) . ('.' x ($n - $bar)), # (undocumented)
f => $orig,
p => int(100 * $frac + 0.5),
r => $prog,
'%'=> '%',
);
$title =~ s/%([%bfpr])/$lkup{$1}/eg;
SetWindowTitle($title);
}
# determine the name of the source file based on the original input file name
if (@srcFmt) {
my ($fmt, $first);
foreach $fmt (@srcFmt) {
$file = $fmt eq '@' ? $orig : FilenameSPrintf($fmt, $orig);
# use this file if it exists
$et->Exists($file) and undef($first), last;
$verbose and print $vout "Source file $file does not exist\n";
$first = $file unless defined $first;
}
$file = $first if defined $first;
} else {
$file = $orig;
}
my $pipe = $file;
if ($doUnzip) {
# pipe through gzip or bzip2 if necessary
if ($file =~ /\.gz$/i) {
$pipe = qq{gzip -dc "$file" |};
} elsif ($file =~ /\.bz2$/i) {
$pipe = qq{bzip2 -dc "$file" |};
}
}
# evaluate -if expression for conditional processing
if (defined $condition) {
unless ($file eq '-' or $et->Exists($file)) {
Warn "File not found: $file\n";
FileNotFound($file);
++$countBad;
return;
}
# catch run time errors as well as compile errors
undef $evalWarning;
local $SIG{'__WARN__'} = sub { $evalWarning = $_[0] };
my %info;
# extract information and build expression for evaluation
my $opts = { Duplicates => 1, RequestTags => \@requestTags, Verbose => 0, HtmlDump => 0 };
# return all tags but explicitly mention tags on command line so
# requested images will generate the appropriate warnings
@foundTags = ('*', @tags) if @tags;
$info = $et->ImageInfo(Infile($pipe,$isWriting), \@foundTags, $opts);
my $cond = $et->InsertTagValues(\@foundTags, $condition, \%info);
#### eval "-if" condition (%info)
my $result = eval $cond;
$@ and $evalWarning = $@;
if ($evalWarning) {
# fail condition if warning is issued
undef $result;
if ($verbose) {
chomp $evalWarning;
$evalWarning =~ s/ at \(eval .*//s;
Warn "Condition: $evalWarning - $file\n";
}
}
unless ($result) {
$verbose and print $vout "-------- $file (failed condition)$progStr\n";
++$countFailed;
return;
}
# can't make use of $info if verbose because we must reprocess
# the file anyway to generate the verbose output
undef $info if $verbose;
}
if (defined $deleteOrig) {
print $vout "======== $file$progStr\n" if defined $verbose;
++$count;
my $original = "${file}_original";
$et->Exists($original) or return;
if ($deleteOrig) {
$verbose and print $vout "Scheduled for deletion: $original\n";
push @delFiles, $original;
} elsif ($et->Rename($original, $file)) {
$verbose and print $vout "Restored from $original\n";
++$countGoodWr;
} else {
Warn "Error renaming $original\n";
++$countBad;
}
return;
}
++$seqFileNum; # increment our file counter
my $lineCount = 0;
my ($fp, $outfile, $append);
if ($textOut and $verbose and not $tagOut) {
($fp, $outfile, $append) = OpenOutputFile($orig);
$fp or ++$countBad, return;
# delete file if we exit prematurely (unless appending)
$tmpText = $outfile unless $append;
$et->Options(TextOut => $fp);
}
if ($isWriting) {
print $vout "======== $file$progStr\n" if defined $verbose;
SetImageInfo($et, $file, $orig);
$info = $et->GetInfo('Warning', 'Error');
PrintErrors($et, $info, $file);
# close output text file if necessary
if ($outfile) {
undef $tmpText;
close($fp);
$et->Options(TextOut => $vout);
if ($info->{Error}) {
$et->Unlink($outfile); # erase bad file
} elsif ($append) {
$appended{$outfile} = 1 unless $created{$outfile};
} else {
$created{$outfile} = 1;
}
}
return;
}
# extract information from this file
unless ($file eq '-' or $et->Exists($file)) {
Warn "File not found: $file\n";
FileNotFound($file);
$outfile and close($fp), undef($tmpText), $et->Unlink($outfile);
++$countBad;
return;
}
# print file/progress message
my $o;
unless ($binaryOutput or $textOut or %printFmt or $html > 1 or $csv) {
if ($html) {
require Image::ExifTool::HTML;
my $f = Image::ExifTool::HTML::EscapeHTML($file);
print "<!-- $f -->\n";
} elsif (not ($json or $xml)) {
$o = \*STDOUT if ($multiFile and not $quiet) or $progress;
}
}
$o = \*STDERR if $progress and not $o;
$o and print $o "======== $file$progStr\n";
if ($info) {
# get the information we wanted
if (@tags and not %printFmt) {
@foundTags = @tags;
$info = $et->GetInfo(\@foundTags);
}
} else {
# request specified tags unless using print format option
my $oldDups = $et->Options('Duplicates');
if (%printFmt) {
$et->Options(Duplicates => 1);
$et->Options(RequestTags => \@requestTags);
} else {
@foundTags = @tags;
}
# extract the information
$info = $et->ImageInfo(Infile($pipe), \@foundTags);
$et->Options(Duplicates => $oldDups);
}
# all done now if we already wrote output text file (eg. verbose option)
if ($fp) {
if ($outfile) {
$et->Options(TextOut => \*STDOUT);
undef $tmpText;
if ($info->{Error}) {
close($fp);
$et->Unlink($outfile); # erase bad file
} else {
++$lineCount; # output text file (likely) is not empty
}
}
if ($info->{Error}) {
Warn "Error: $info->{Error} - $file\n";
++$countBad;
return;
}
}
# print warnings to stderr if using binary output
# (because we are likely ignoring them and piping stdout to file)
# or if there is none of the requested information available
if ($binaryOutput or not %$info) {
my $errs = $et->GetInfo('Warning', 'Error');
PrintErrors($et, $errs, $file) and $rtnVal = 1;
} elsif ($et->GetValue('Error')) {
$rtnVal = 1;
}
# open output file (or stdout if no output file) if not done already
unless ($outfile or $tagOut) {
($fp, $outfile, $append) = OpenOutputFile($orig);
$fp or ++$countBad, return;
$tmpText = $outfile unless $append;
}
# print the results for this file
if (%printFmt) {
# output using print format file (-p) option
my ($type, $doc, $grp);
undef $fileTrailer;
# repeat for each embedded document if necessary
my $lastDoc = $et->Options('ExtractEmbedded') ? $$et{DOC_COUNT} : 0;
foreach $type ('HEAD', 'BODY', 'TAIL') {
my $prf = $printFmt{$type} or next;
for ($doc=0; $doc<=$lastDoc; ++$doc) {
if ($lastDoc) {
if ($doc) {
last unless $type eq 'BODY'; # only repeat BODY lines
$grp = "Doc$doc:";
} else {
$grp = 'Main:';
}
# change tag groups to print next document by adding "Main:" or "Doc#:"
# to all tags which don't already start with a family 3 group name
$prf = [ @{$printFmt{$type}} ];
s/((^|[^\$])(\$\$)*\$\{?)((?!(Main|Doc\d+):)[\w])/$1$grp$4/ig foreach @$prf;
}
my @lines;
foreach (@$prf) {
my $line = $et->InsertTagValues(\@foundTags, $_, 'Warn');
push @lines, $line if defined $line;
}
$lineCount += scalar @lines;
if ($type eq 'TAIL') {
$fileTrailer = '' unless defined $fileTrailer;
$fileTrailer .= join '', @lines;
} elsif (@lines) {
print $fp @lines;
}
}
}
delete $printFmt{HEAD} unless $outfile; # print header only once per output file
my $errs = $et->GetInfo('Warning', 'Error');
PrintErrors($et, $errs, $file);
} elsif (not $disableOutput) {
my ($tag, $line, %noDups, %csvInfo, $bra, $ket, $sep);
if ($fp) {
# print file header (only once)
if ($fileHeader) {
print $fp $fileHeader;
undef $fileHeader unless $textOut;
}
if ($html) {
print $fp "<table>\n";
} elsif ($xml) {
my $f = $file;
CleanXML(\$f);
print $fp "\n<rdf:Description rdf:about='$f'";
print $fp "\n xmlns:et='http://ns.exiftool.ca/1.0/'";
print $fp " et:toolkit='Image::ExifTool $Image::ExifTool::VERSION'";
# define namespaces for all tag groups
my (%groups, @groups, $grp0, $grp1);
foreach $tag (@foundTags) {
($grp0, $grp1) = $et->GetGroup($tag);
unless ($grp1) {
next unless defined $forcePrint;
$grp0 = $grp1 = 'Unknown';
}
next if $groups{$grp1};
# include family 0 and 1 groups in URI except for internal tags
# (this will put internal tags in the "XML" group on readback)
$groups{$grp1} = $grp0;
push @groups, $grp1;
AddGroups($$info{$tag}, $grp0, \%groups, \@groups) if ref $$info{$tag};
}
foreach $grp1 (@groups) {
my $grp = $groups{$grp1};
unless ($grp eq $grp1 and $grp =~ /^(ExifTool|File|Composite|Unknown)$/) {
$grp .= "/$grp1";
}
print $fp "\n xmlns:$grp1='http://ns.exiftool.ca/$grp/1.0/'";
}
print $fp '>' if $outFormat < 1; # finish rdf:Description token unless short format
$ind = $outFormat >= 0 ? ' ' : ' ';
} elsif ($json) {
# set delimiters for JSON or PHP output
($bra, $ket, $sep) = $json == 1 ? ('{','}',':') : ('Array(',')',' =>');
print $fp ",\n" if $comma;
print $fp qq($bra\n "SourceFile"$sep ), EscapeJSON(MyConvertFileName($et,$file));
$comma = 1;
$ind = (defined $showGroup and not $allGroup) ? ' ' : ' ';
} elsif ($csv) {
my $file2 = MyConvertFileName($et, $file);
$database{$file2} = \%csvInfo;
push @csvFiles, $file2;
}
}
# suppress duplicates manually in JSON and short XML output
my $noDups = ($json or ($xml and $outFormat > 0));
my $printConv = $et->Options('PrintConv');
my $lastGroup = '';
TAG: foreach $tag (@foundTags) {
my $tagName = GetTagName($tag);
my ($group, $valList);
# make sure this tag has a value
my $val = $$info{$tag};
if (ref $val) {
if (defined $binaryOutput and not $binaryOutput) { # happens with -X -b or -php -b
# avoid extracting Protected binary tags (eg. data blocks) [insider information]
next if $$et{TAG_INFO}{$tag}{Protected} and not $$et{REQ_TAG_LOOKUP}{lc $tag};
}
$val = ConvertBinary($val); # convert SCALAR references
if ($structOpt) {
# serialize structure if necessary
$val = Image::ExifTool::XMP::SerializeStruct($val) unless $xml or $json;
} elsif (ref $val eq 'ARRAY') {
if (defined $listItem) {
# take only the specified item
$val = $$val[$listItem];
# join arrays of simple values (with newlines for binary output)
} elsif ($binaryOutput) {
if ($tagOut) {
$valList = $val;
$val = shift @$valList;
} else {
$val = join "\n", @$val;
}
} elsif ($joinLists) {
$val = join $listSep, @$val;
}
}
}
if (not defined $val) {
# ignore tags that weren't found unless necessary
next if $binaryOutput;
if (defined $forcePrint) {
$val = $forcePrint; # forced to print all tag values
} elsif (not $csv) {
next;
}
}
if (defined $showGroup) {
$group = $et->GetGroup($tag, $showGroup);
# look ahead to see if this tag may suppress a priority tag in
# the same group, and if so suppress this tag instead
next if $noDups and $tag =~ /^(.*?) ?\(/ and defined $$info{$1} and
$group eq $et->GetGroup($1, $showGroup);
$group = 'Unknown' if not $group and ($xml or $json);
if ($fp and not ($allGroup or $csv)) {
if ($lastGroup ne $group) {
if ($html) {
my $cols = 1;
++$cols if $outFormat==0 or $outFormat==1;
++$cols if $showTagID;
print $fp "<tr><td colspan=$cols bgcolor='#dddddd'>$group</td></tr>\n";
} elsif ($json) {
print $fp "\n $ket" if $lastGroup;
print $fp ',' if $lastGroup or $comma;
print $fp qq(\n "$group"$sep $bra);
undef $comma;
undef %noDups; # allow duplicate names in different groups
} else {
print $fp "---- $group ----\n";
}
$lastGroup = $group;
}
undef $group; # undefine so we don't print it below
}
}
++$lineCount; # we are printing something meaningful
# loop through list values when -b -W used
for (;;) {
if ($tagOut) {
# determine suggested extension for output file
my $ext = SuggestedExtension($et, \$val, $tagName);
if (%wext and ($wext{$ext} || $wext{'*'} || -1) < 0) {
if ($verbose and $verbose > 1) {
print $vout "Not writing $ext output file for $tagName\n";
}
next TAG;
}
my @groups = $et->GetGroup($tag);
$outfile and close($fp), undef($tmpText); # (shouldn't happen)
($fp, $outfile, $append) = OpenOutputFile($orig, $tagName, \@groups, $ext);
$fp or ++$countBad, next TAG;
$tmpText = $outfile unless $append;
}
# write binary output
if ($binaryOutput) {
print $fp $val;
if ($tagOut) {
if ($append) {
$appended{$outfile} = 1 unless $created{$outfile};
} else {
$created{$outfile} = 1;
}
close($fp);
undef $tmpText;
$verbose and print $vout "Wrote $tagName to $outfile\n";
undef $outfile;
undef $fp;
next TAG unless $valList and @$valList;
$val = shift @$valList;
next; # loop over values of List tag
}
next TAG;
}
last;
}
# save information for CSV output
if ($csv) {
my $t = $group ? "$group:$tagName" : $tagName;
$t .= '#' if $tag =~ /#/; # add ValueConv "#" suffix if used
# (tag-name case may be different if some tags don't exist
# in a file, so all logic must use lower-case tag names)
my $lcTag = lc $t;
# override existing entry only if top priority
next if defined $csvInfo{$lcTag} and $tag =~ /\(/;
$csvInfo{$lcTag} = $val;
if (defined $csvTags{$lcTag}) {
# overwrite with actual extracted tag name
# (note: can't check "if defined $val" here because -f may be used)
$csvTags{$lcTag} = $t if defined $$info{$tag};
} else {
# (don't save unextracted tag name unless -f was used)
$csvTags{$lcTag} = defined($val) ? $t : '';
if (@csvFiles == 1) {
push @csvTags, $lcTag; # save order of tags for first file
} elsif (@csvTags) {
undef @csvTags;
}
}
next;
}
# get description if we need it (use tag name if $outFormat > 0)
my $desc = $outFormat > 0 ? $tagName : $et->GetDescription($tag);
if ($xml) {
# RDF/XML output format
my $tok = "$group:$tagName";
# manually un-do CR/LF conversion in Windows because output
# is in text mode, which will re-convert newlines to CR/LF
$isCRLF and $val =~ s/\x0d\x0a/\x0a/g;
if ($outFormat > 0) {
if ($structOpt and ref $val) {
$val = Image::ExifTool::XMP::SerializeStruct($val);
}
if ($escapeHTML) {
$val =~ tr/\0-\x08\x0b\x0c\x0e-\x1f/./;
Image::ExifTool::XMP::FixUTF8(\$val) if $utf8;
$val = Image::ExifTool::HTML::EscapeHTML($val);
} else {
CleanXML(\$val);
}
unless ($noDups{$tok}) {
print $fp "\n $tok='$val'";
# XML does not allow duplicate attributes
$noDups{$tok} = 1;
}
next;
}
my ($xtra, $valNum, $descClose);
if ($showTagID) {
my ($id, $lang) = $et->GetTagID($tag);
if ($id =~ /^\d+$/) {
$id = sprintf("0x%.4x", $id) if $showTagID eq 'H';
} else {
$id = Image::ExifTool::XMP::FullEscapeXML($id);
}
$xtra = " et:id='$id'";
$xtra .= " xml:lang='$lang'" if $lang;
} else {
$xtra = '';
}
if ($tabFormat) {
my $table = $et->GetTableName($tag);
my $index = $et->GetTagIndex($tag);
$xtra .= " et:table='$table'";
$xtra .= " et:index='$index'" if defined $index;
}
my $lastVal = $val;
for ($valNum=0; $valNum<2; ++$valNum) {
$val = FormatXML($val, $ind, $group);
if ($outFormat >= 0) {
# normal output format (note: this will give
# non-standard RDF/XML if there are any attributes)
print $fp "\n <$tok$xtra$val</$tok>";
last;
} elsif ($valNum == 0) {
CleanXML(\$desc);
if ($xtra) {
print $fp "\n <$tok>";
print $fp "\n <rdf:Description$xtra>";
$descClose = "\n </rdf:Description>";
} else {
print $fp "\n <$tok rdf:parseType='Resource'>";
$descClose = '';
}
# print tag Description
print $fp "\n <et:desc>$desc</et:desc>";
if ($printConv) {
# print PrintConv value
print $fp "\n <et:prt$val</et:prt>";
$val = $et->GetValue($tag, 'ValueConv');
$val = '' unless defined $val;
# go back to print ValueConv value only if different
next unless IsEqual($val, $lastVal);
print $fp "$descClose\n </$tok>";
last;
}
}
# print ValueConv value
print $fp "\n <et:val$val</et:val>";
print $fp "$descClose\n </$tok>";
last;
}
next;
} elsif ($json) {
# JSON or PHP output format
my $tok = $allGroup ? "$group:$tagName" : $tagName;
# (removed due to backward incompatibility)
# $tok .= '#' if $tag =~ /#/; # add back '#' suffix if used
next if $noDups{$tok};
$noDups{$tok} = 1;
print $fp ',' if $comma;
print $fp qq(\n$ind"$tok"$sep );
if ($showTagID or $outFormat < 0) {
$val = { val => $val };
if ($showTagID) {
my $id = $et->GetTagID($tag);
$id = sprintf('0x%.4x', $id) if $showTagID eq 'H' and $id =~ /^\d+$/;
$$val{id} = $id;
}
if ($outFormat < 0) {
$$val{desc} = $desc;
if ($printConv) {
my $num = $et->GetValue($tag, 'ValueConv');
$$val{num} = $num if defined $num and not IsEqual($num, $$val{val});
}
}
}
FormatJSON($fp, $val, $ind);
$comma = 1;
next;
}
my $id;
if ($showTagID) {
$id = $et->GetTagID($tag);
if ($id =~ /^(\d+)(\.\d+)?$/) { # only print numeric ID's
$id = sprintf("0x%.4x", $1) if $showTagID eq 'H';
} else {
$id = '-';
}
}
# translate unprintable chars in value and remove trailing spaces
$val =~ tr/\x01-\x1f\x7f/./;
$val =~ s/\x00//g;
$val =~ s/\s+$//;
if ($html) {
print $fp "<tr>";
print $fp "<td>$group</td>" if defined $group;
print $fp "<td>$id</td>" if $showTagID;
print $fp "<td>$desc</td>" if $outFormat <= 1;
print $fp "<td>$val</td></tr>\n";
} else {
my $buff = '';
if ($tabFormat) {
$buff = "$group\t" if defined $group;
$buff .= "$id\t" if $showTagID;
if ($outFormat <= 1) {
$buff .= "$desc\t$val\n";
} elsif (defined $line) {
$line .= "\t$val";
} else {
$line = $val;
}
} elsif ($outFormat < 0) { # long format
$buff = "[$group] " if defined $group;
$buff .= "$id " if $showTagID;
$buff .= "$desc\n $val\n";
} elsif ($outFormat == 0 or $outFormat == 1) {
my $wid;
my $len = 0;
if (defined $group) {
$buff = sprintf("%-15s ", "[$group]");
$len = 16;
}
if ($showTagID) {
$wid = ($showTagID eq 'D') ? 5 : 6;
$len += $wid + 1;
($wid = $len - length($buff) - 1) < 1 and $wid = 1;
$buff .= sprintf "%${wid}s ", $id;
}
$wid = 32 - (length($buff) - $len);
# pad description to a constant length
# (get actual character length when using alternate languages
# because these descriptions may contain UTF8-encoded characters)
my $padLen = $wid;
if (not $fixLen) {
$padLen -= length $desc;
} elsif ($fixLen == 1) {
$padLen -= length Encode::decode_utf8($desc);
} else {
my $gcstr = eval { new Unicode::GCString(Encode::decode_utf8($desc)) };
if ($gcstr) {
$padLen -= $gcstr->columns;
} else {
$padLen -= length Encode::decode_utf8($desc);
Warn "Warning: Unicode::GCString problem. Columns may be misaligned\n";
$fixLen = 1;
}
}
$padLen = 0 if $padLen < 0;
$buff .= $desc . (' ' x $padLen) . ": $val\n";
} elsif ($outFormat == 2) {
$buff = "[$group] " if defined $group;
$buff .= "$id " if $showTagID;
$buff .= "$tagName: $val\n";
} elsif ($argFormat) {
$buff = '-';
$buff .= "$group:" if defined $group;
$tagName .= '#' if $tag =~ /#/; # add '#' suffix if used
$buff .= "$tagName=$val\n";
} else {
$buff = "$group " if defined $group;
$buff .= "$id " if $showTagID;
$buff .= "$val\n";
}
print $fp $buff;
}
if ($tagOut) {
if ($append) {
$appended{$outfile} = 1 unless $created{$outfile};
} else {
$created{$outfile} = 1;
}
close($fp);
undef $tmpText;
$verbose and print $vout "Wrote $tagName to $outfile\n";
undef $outfile;
undef $fp;
}
}
if ($fp) {
if ($html) {
print $fp "</table>\n";
} elsif ($xml) {
# close rdf:Description element
print $fp $outFormat < 1 ? "\n</rdf:Description>\n" : "/>\n";
} elsif ($json) {
print $fp "\n $ket" if $lastGroup;
print $fp "\n$ket";
$comma = 1;
} elsif ($tabFormat and $outFormat > 1) {
print $fp "$line\n" if defined $line;
}
}
}
if ($outfile) {
print $fp $fileTrailer if $fileTrailer; # write file trailer
close($fp);
undef $tmpText;
if ($lineCount) {
if ($append) {
$appended{$outfile} = 1 unless $created{$outfile};
} else {
$created{$outfile} = 1;
}
} else {
$et->Unlink($outfile) unless $append; # don't keep empty output files
}
undef $comma;
}
++$count;
}
#------------------------------------------------------------------------------
# Set information in file
# Inputs: 0) ExifTool object reference, 1) source file name
# 2) original source file name ('' to create from scratch)
# Returns: true on success
sub SetImageInfo($$$)
{
my ($et, $file, $orig) = @_;
my ($outfile, $restored, $isTemporary, $isStdout, $outType, $tagsFromSrc, $hardLink, $testName);
my $infile = $file; # save infile in case we change it again
# clean up old temporary file if necessary
if (defined $tmpFile) {
$et->Unlink($tmpFile);
undef $tmpFile;
}
# clear any existing errors or warnings since we check these on return
delete $$et{VALUE}{Error};
delete $$et{VALUE}{Warning};
# first, try to determine our output file name so we can return quickly
# if it already exists (note: this test must be delayed until after we
# set tags from dynamic files if writing FileName or Directory)
if (defined $outOpt) {
if ($outOpt =~ /^-(\.\w+)?$/) {
# allow output file type to be specified with "-o -.EXT"
$outType = GetFileType($outOpt) if $1;
$outfile = '-';
$isStdout = 1;
} else {
$outfile = FilenameSPrintf($outOpt, $orig);
if ($outfile eq '') {
Warn "Can't create file with zero-length name from $orig\n";
++$countBadCr;
return 0;
}
}
if (not $isStdout and ($et->IsDirectory($outfile) or $outfile =~ /\/$/)) {
$outfile .= '/' unless $outfile =~ /\/$/;
my $name = $file;
$name =~ s/^.*\///s; # remove directory name
$outfile .= $name;
} else {
my $srcType = GetFileType($file) || '';
$outType or $outType = GetFileType($outfile);
if ($outType and ($srcType ne $outType or $outType eq 'ICC') and $file ne '-') {
unless (CanCreate($outType)) {
my $what = $srcType ? 'other types' : 'scratch';
WarnOnce "Error: Can't create $outType files from $what\n";
++$countBadCr;
return 0;
}
if ($file ne '') {
# restore previous new values unless done already
$et->RestoreNewValues() unless $restored;
$restored = 1;
# translate to this type by setting specified tags from file
my @setTags = @tags;
foreach (@exclude) {
push @setTags, "-$_";
}
# force some tags to be copied for certain file types
my %forceCopy = (
ICC => 'ICC_Profile',
VRD => 'CanonVRD',
DR4 => 'CanonDR4',
);
push @setTags, $forceCopy{$outType} if $forceCopy{$outType};
# assume "-tagsFromFile @" unless -tagsFromFile already specified
# (%setTags won't be empty if -tagsFromFile used)
if (not %setTags or (@setTags and not $setTags{'@'})) {
return 0 unless DoSetFromFile($et, $file, \@setTags);
} elsif (@setTags) {
# add orphaned tags to existing "-tagsFromFile @" for this file only
push @setTags, @{$setTags{'@'}};
$tagsFromSrc = \@setTags;
}
# all done with source file -- create from meta information alone
$file = '';
}
}
}
unless ($isStdout) {
$outfile = NextUnusedFilename($outfile);
if ($et->Exists($outfile) and not $doSetFileName) {
Warn "Error: '$outfile' already exists - $infile\n";
++$countBadWr;
return 0;
}
}
} elsif ($file eq '-') {
$isStdout = 1;
}
# set tags from destination file if required
if (@dynamicFiles) {
# restore previous values if necessary
$et->RestoreNewValues() unless $restored;
my ($dyFile, %setTagsIndex);
foreach $dyFile (@dynamicFiles) {
if (not ref $dyFile) {
my ($fromFile, $setTags);
if ($dyFile eq '@') {
$fromFile = $orig;
$setTags = $tagsFromSrc || $setTags{$dyFile};
} else {
$fromFile = FilenameSPrintf($dyFile, $orig);
++$countBadWr, return 0 unless defined $fromFile;
$setTags = $setTags{$dyFile};
}
# do we have multiple -tagsFromFile options with this file?
if ($setTagsList{$dyFile}) {
# use the tags set in the i-th occurrence
my $i = $setTagsIndex{$dyFile} || 0;
$setTagsIndex{$dyFile} = $i + 1;
$setTags = $setTagsList{$dyFile}[$i] if $setTagsList{$dyFile}[$i];
}
# set new values values from file
return 0 unless DoSetFromFile($et, $fromFile, $setTags);
} elsif (ref $dyFile eq 'ARRAY') {
# a dynamic file containing a simple tag value
my $fname = FilenameSPrintf($$dyFile[1], $orig);
my ($buff, $rtn, $wrn);
my $opts = $$dyFile[2];
if (defined $fname and SlurpFile($fname, \$buff)) {
$verbose and print $vout "Reading $$dyFile[0] from $fname\n";
($rtn, $wrn) = $et->SetNewValue($$dyFile[0], $buff, %$opts);
$wrn and Warn "$wrn\n";
}
# remove this tag if we couldn't set it properly
$rtn or $et->SetNewValue($$dyFile[0], undef, Replace => 2,
ProtectSaved => $$opts{ProtectSaved});
next;
} elsif (ref $dyFile eq 'SCALAR') {
# set new values from CSV or JSON database
my ($f, $found, $tag);
undef $evalWarning;
local $SIG{'__WARN__'} = sub { $evalWarning = $_[0] };
# force UTF-8 if the database was JSON
my $old = $et->Options('Charset');
$et->Options(Charset => 'UTF8') if $csv eq 'JSON';
# read tags for SourceFile '*' plus the specific file
foreach $f ('*', MyConvertFileName($et, $file)) {
my $csvInfo = $database{$f};
unless ($csvInfo) {
next if $f eq '*';
# check absolute path
# (punt on using ConvertFileName here, so $absPath may be a mix of encodings)
my $absPath = AbsPath($f);
next unless defined $absPath and $csvInfo = $database{$absPath};
}
$found = 1;
$verbose and print $vout "Setting new values from $csv database\n";
foreach $tag (sort keys %$csvInfo) {
next if $tag =~ /\b(SourceFile|Directory|FileName)$/i; # don't write these
my ($rtn, $wrn) = $et->SetNewValue($tag, $$csvInfo{$tag},
Protected => 1, AddValue => $csvAdd,
ProtectSaved => $csvSaveCount);
$wrn and Warn "$wrn\n" if $verbose;
}
}
$et->Options(Charset => $old) if $csv eq 'JSON';
unless ($found) {
Warn("No SourceFile '$file' in imported $csv database\n");
my $absPath = AbsPath($file);
Warn("(full path: '$absPath')\n") if defined $absPath and $absPath ne $file;
return 0;
}
}
}
}
if ($isStdout) {
# write to STDOUT
$outfile = \*STDOUT;
unless ($binaryStdout) {
binmode(STDOUT);
$binaryStdout = 1;
}
} else {
# get name of hard link if we are creating one
$hardLink = $et->GetNewValues('HardLink');
$testName = $et->GetNewValues('TestName');
$hardLink = FilenameSPrintf($hardLink, $orig) if defined $hardLink;
if (defined $testName) {
$testName = FilenameSPrintf($testName, $orig);
$testName = Image::ExifTool::GetNewFileName($file, $testName) if $file ne '';
}
# determine what our output file name should be
my $newFileName = $et->GetNewValues('FileName');
my $newDir = $et->GetNewValues('Directory');
if (defined $newFileName or defined $newDir or ($doSetFileName and defined $outfile)) {
if ($newFileName) {
$newFileName = FilenameSPrintf($newFileName, $orig);
if (defined $outfile) {
$outfile = Image::ExifTool::GetNewFileName($file, $outfile) if $file ne '';
$outfile = Image::ExifTool::GetNewFileName($outfile, $newFileName);
} elsif ($file ne '') {
$outfile = Image::ExifTool::GetNewFileName($file, $newFileName);
}
}
if ($newDir) {
$newDir = FilenameSPrintf($newDir, $orig);
$outfile = Image::ExifTool::GetNewFileName(defined $outfile ? $outfile : $file, $newDir);
}
$outfile = NextUnusedFilename($outfile, $infile);
if ($et->Exists($outfile)) {
if ($infile ne $outfile) {
Warn "Error: '$outfile' already exists - $infile\n";
++$countBadWr;
return 0;
}
undef $outfile; # not changing the file name after all
}
}
if (defined $outfile) {
$verbose and print $vout "'$infile' --> '$outfile'\n";
# create output directory if necessary
CreateDirectory($outfile);
# set temporary file (automatically erased on abnormal exit)
$tmpFile = $outfile if defined $outOpt;
}
unless (defined $tmpFile) {
# count the number of tags and pseudo-tags we are writing
my ($numSet, $numPseudo) = $et->CountNewValues();
if ($et->Exists($file)) {
unless ($numSet) {
# no need to write if no tags set
print $vout "Nothing changed in $file\n" if defined $verbose;
++$countSameWr;
return 1;
}
} elsif (CanCreate($file)) {
if ($numSet == $numPseudo) {
# no need to write if no real tags
Warn("Error: Nothing to write - $file\n");
++$countBadWr;
return 0;
}
unless (defined $outfile) {
# create file from scratch
$outfile = $file;
$file = '';
}
} else {
# file doesn't exist, and we can't create it
Warn("Error: File not found - $file\n");
FileNotFound($file);
++$countBadWr;
return 0;
}
# quickly rename file and/or set file date if this is all we are doing
if ($numSet == $numPseudo) {
my $r1 = $et->SetFileModifyDate($file,undef,'FileCreateDate');
my $r2 = $et->SetFileModifyDate($file);
my $r3 = $et->SetFilePermissions($file);
my $r4 = 0;
$r4 = $et->SetFileName($file, $outfile) if defined $outfile;
if ($r1 > 0 or $r2 > 0 or $r3 > 0 or $r4 > 0) {
++$countGoodWr;
} elsif ($r1 < 0 or $r2 < 0 or $r3 < 0 or $r4 < 0) {
++$countBadWr;
return 0;
} else {
++$countSameWr;
}
if (defined $hardLink or defined $testName) {
my $src = (defined $outfile and $r4 > 0) ? $outfile : $file;
DoHardLink($et, $src, $hardLink, $testName);
}
return 1;
}
unless (defined $outfile) {
# write to a truly temporary file
$outfile = "${file}_exiftool_tmp";
if ($et->Exists($outfile)) {
Warn("Error: Temporary file already exists: $outfile\n");
++$countBadWr;
return 0;
}
$isTemporary = 1;
}
# new output file is temporary until we know it has been written properly
$tmpFile = $outfile;
}
}
# rewrite the file
my $success = $et->WriteInfo(Infile($file), $outfile, $outType);
# create hard link if specified
if ($success and (defined $hardLink or defined $testName)) {
my $src = defined $outfile ? $outfile : $file;
DoHardLink($et, $src, $hardLink, $testName);
}
# get file time if preserving it
my ($aTime, $mTime, $cTime, $doPreserve);
$doPreserve = $preserveTime unless $file eq '';
if ($doPreserve and $success) {
($aTime, $mTime, $cTime) = $et->GetFileTime($file);
# don't override date/time values written by the user
undef $cTime if $$et{WRITTEN}{FileCreateDate};
if ($$et{WRITTEN}{FileModifyDate} or $doPreserve == 2) {
if (defined $cTime) {
undef $aTime; # only preserve FileCreateDate
undef $mTime;
} else {
undef $doPreserve; # (nothing to preserve)
}
}
}
if ($success == 1) {
# preserve the original file times
if (defined $tmpFile) {
if ($et->Exists($file)) {
$et->SetFileTime($tmpFile, $aTime, $mTime, $cTime) if $doPreserve;
if ($isTemporary) {
# preserve original file attributes if possible
$et->CopyFileAttrs($file, $outfile);
# move original out of the way
my $original = "${file}_original";
if (not $overwriteOrig and not $et->Exists($original)) {
# rename the file and check again to be sure the file doesn't exist
# (in case, say, the filesystem truncated the file extension)
if (not $et->Rename($file, $original) or $et->Exists($file)) {
Error "Error renaming $file\n";
return 0;
}
}
if ($overwriteOrig > 1) {
# copy temporary file over top of original to preserve attributes
my ($err, $buff);
my $newFile = $tmpFile;
$et->Open(\*NEW_FILE, $newFile) or Error("Error opening $newFile\n"), return 0;
binmode(NEW_FILE);
#..........................................................
# temporarily disable CTRL-C during this critical operation
$critical = 1;
undef $tmpFile; # handle deletion of temporary file ourself
if ($et->Open(\*ORIG_FILE, $file, '>')) {
binmode(ORIG_FILE);
while (read(NEW_FILE, $buff, 65536)) {
print ORIG_FILE $buff or $err = 1;
}
close(NEW_FILE);
close(ORIG_FILE) or $err = 1;
if ($err) {
Warn "Couldn't overwrite in place - $file\n";
unless ($et->Rename($newFile, $file) or
($et->Unlink($file) and $et->Rename($newFile, $file)))
{
Error("Error renaming $newFile to $file\n"), return 0;
}
} else {
$et->SetFileModifyDate($file, $cTime, 'FileCreateDate', 1);
$et->SetFileModifyDate($file, $mTime, 'FileModifyDate', 1);
$et->Unlink($newFile);
if ($doPreserve) {
$et->SetFileTime($file, $aTime, $mTime, $cTime);
# save time to set it later again to patch OS X 10.6 bug
$preserveTime{$file} = [ $aTime, $mTime, $cTime ];
}
}
++$countGoodWr;
} else {
close(NEW_FILE);
Warn "Error opening $file for writing\n";
$et->Unlink($newFile);
++$countBadWr;
}
undef $critical; # end critical section
SigInt() if $interrupted; # issue delayed SIGINT if necessary
#..........................................................
# simply rename temporary file to replace original
# (if we didn't already rename it to add "_original")
} elsif ($et->Rename($tmpFile, $file)) {
++$countGoodWr;
} else {
my $newFile = $tmpFile;
undef $tmpFile; # (avoid deleting file if we get interrupted)
# unlink may fail if already renamed or no permission
if (not $et->Unlink($file)) {
Warn "Error renaming temporary file to $file\n";
$et->Unlink($newFile);
++$countBadWr;
# try renaming again now that the target has been deleted
} elsif (not $et->Rename($newFile, $file)) {
Warn "Error renaming temporary file to $file\n";
# (don't delete tmp file now because it is all we have left)
++$countBadWr;
} else {
++$countGoodWr;
}
}
} elsif ($overwriteOrig) {
# erase original file
$et->Unlink($file) or Warn "Error erasing original $file\n";
++$countGoodWr;
} else {
++$countGoodCr;
}
} else {
# this file was created from scratch, not edited
++$countGoodCr;
}
} else {
++$countGoodWr;
}
} elsif ($success) {
if ($isTemporary) {
# just erase the temporary file since no changes were made
$et->Unlink($tmpFile);
++$countSameWr;
} else {
$et->SetFileTime($outfile, $aTime, $mTime, $cTime) if $doPreserve;
if ($overwriteOrig) {
$et->Unlink($file) or Warn "Error erasing original $file\n";
}
++$countCopyWr;
}
print $vout "Nothing changed in $file\n" if defined $verbose;
} else {
$et->Unlink($tmpFile) if defined $tmpFile;
++$countBadWr;
}
undef $tmpFile;
return $success;
}
#------------------------------------------------------------------------------
# Make hard link and handle TestName if specified
# Inputs: 0) ExifTool ref, 1) source file name, 2) HardLink name, 3) TestFile name
sub DoHardLink($$$$)
{
my ($et, $src, $hardLink, $testName) = @_;
if (defined $hardLink) {
$hardLink = NextUnusedFilename($hardLink);
if ($et->SetFileName($src, $hardLink, 'Link') > 0) {
++$countLink;
} else {
++$countBadLink;
}
}
if (defined $testName) {
$testName = NextUnusedFilename($testName, undef, 1);
if ($usedFileName{$testName}) {
$et->Warn("File '$testName' would exist");
} elsif ($et->SetFileName($src, $testName, 'Test') == 1) {
$usedFileName{$testName} = 1;
}
}
}
#------------------------------------------------------------------------------
# Clean string for XML (also removes invalid control chars and malformed UTF-8)
# Inputs: 0) string ref
# Returns: nothing, but input string is escaped
sub CleanXML($)
{
my $strPt = shift;
# translate control characters that are invalid in XML
$$strPt =~ tr/\0-\x08\x0b\x0c\x0e-\x1f/./;
# fix malformed UTF-8 characters
Image::ExifTool::XMP::FixUTF8($strPt) if $utf8;
# escape necessary characters for XML
$$strPt = Image::ExifTool::XMP::EscapeXML($$strPt);
}
#------------------------------------------------------------------------------
# Encode string for XML
# Inputs: 0) string ref
# Returns: encoding used (and input string is translated)
sub EncodeXML($)
{
my $strPt = shift;
if ($$strPt =~ /[\0-\x08\x0b\x0c\x0e-\x1f]/ or
($utf8 and Image::ExifTool::XMP::IsUTF8($strPt) < 0))
{
# encode binary data and non-UTF8 with special characters as base64
$$strPt = Image::ExifTool::XMP::EncodeBase64($$strPt);
return 'http://www.w3.org/2001/XMLSchema#base64Binary'; #ATV
} elsif ($escapeHTML) {
$$strPt = Image::ExifTool::HTML::EscapeHTML($$strPt);
} else {
$$strPt = Image::ExifTool::XMP::EscapeXML($$strPt);
}
return ''; # not encoded
}
#------------------------------------------------------------------------------
# Format value for XML output
# Inputs: 0) value, 1) indentation, 2) group
# Returns: formatted value
sub FormatXML($$$)
{
local $_;
my ($val, $ind, $grp) = @_;
my $gt = '>';
if (ref $val eq 'ARRAY') {
# convert ARRAY into an rdf:Bag
my $val2 = "\n$ind <rdf:Bag>";
foreach (@$val) {
$val2 .= "\n$ind <rdf:li" . FormatXML($_, "$ind ", $grp) . "</rdf:li>";
}
$val = "$val2\n$ind </rdf:Bag>\n$ind";
} elsif (ref $val eq 'HASH') {
$gt = " rdf:parseType='Resource'>";
my $val2 = '';
foreach (sort keys %$val) {
# (some variable-namespace XML structure fields may have a different group)
my $tok = /:/ ? $_ : ($grp . ':' . $_);
$val2 .= "\n$ind <$tok" . FormatXML($$val{$_}, "$ind ", $grp) . "</$tok>";
}
$val = "$val2\n$ind";
} else {
# (note: SCALAR reference should have already been converted)
my $enc = EncodeXML(\$val);
$gt = " rdf:datatype='$enc'>\n" if $enc; #ATV
}
return $gt . $val;
}
#------------------------------------------------------------------------------
# Escape string for JSON or PHP
# Inputs: 0) string, 1) flag to force numbers to be quoted too
# Returns: Escaped string (quoted if necessary)
sub EscapeJSON($;$)
{
my ($str, $quote) = @_;
unless ($quote) {
# JSON boolean (true or false)
return lc($str) if $str =~ /^(true|false)$/i and $json < 2;
# JSON/PHP number (see json.org for numerical format)
# return $str if $str =~ /^-?(\d|[1-9]\d+)(\.\d+)?(e[-+]?\d+)?$/i;
# (these big numbers caused problems for some JSON parsers, so be more conservative)
return $str if $str =~ /^-?(\d|[1-9]\d{1,14})(\.\d{1,16})?(e[-+]?\d{1,3})?$/i;
}
# encode JSON string as Base64 if necessary
if ($json < 2 and defined $binaryOutput and Image::ExifTool::XMP::IsUTF8(\$str) < 0) {
return '"base64:' . Image::ExifTool::XMP::EncodeBase64($str, 1) . '"';
}
# escape special characters
$str =~ s/(["\t\n\r\\])/\\$jsonChar{$1}/sg;
if ($json < 2) { # JSON
# escape other control characters with \u
$str =~ s/([\0-\x1f])/sprintf("\\u%.4X",ord $1)/sge;
# JSON strings must be valid UTF8
Image::ExifTool::XMP::FixUTF8(\$str) if $utf8;
} else { # PHP
# must escape "$" too for PHP
$str =~ s/\$/\\\$/sg;
# escape other control characters with \x
$str =~ s/([\0-\x1f])/sprintf("\\x%.2X",ord $1)/sge;
}
return '"' . $str . '"'; # return the quoted string
}
#------------------------------------------------------------------------------
# Print JSON or PHP value
# Inputs: 0) file reference, 1) value, 2) indentation
sub FormatJSON($$$)
{
local $_;
my ($fp, $val, $ind) = @_;
my $comma;
if (not ref $val) {
print $fp EscapeJSON($val);
} elsif (ref $val eq 'ARRAY') {
if ($joinLists and not ref $$val[0]) {
print $fp EscapeJSON(join $listSep, @$val);
} else {
my ($bra, $ket) = $json == 1 ? ('[',']') : ('Array(',')');
print $fp $bra;
foreach (@$val) {
print $fp ',' if $comma;
FormatJSON($fp, $_, $ind);
$comma = 1,
}
print $fp $ket,
}
} elsif (ref $val eq 'HASH') {
my ($bra, $ket, $sep) = $json == 1 ? ('{','}',':') : ('Array(',')',' =>');
print $fp $bra;
foreach (sort keys %$val) {
print $fp ',' if $comma;
print $fp qq(\n$ind "$_"$sep );
# hack to force decimal id's to be printed as strings with -H
if ($showTagID and $_ eq 'id' and $showTagID eq 'H' and $$val{$_} =~ /^\d+\.\d+$/) {
print $fp qq{"$$val{$_}"};
} else {
FormatJSON($fp, $$val{$_}, "$ind ");
}
$comma = 1,
}
print $fp "\n$ind$ket",
} else {
# (note: SCALAR reference should have already been converted)
print $fp '"<err>"';
}
}
#------------------------------------------------------------------------------
# Format value for CSV file
# Inputs: value
# Returns: value quoted if necessary
sub FormatCSV($)
{
my $val = shift;
# currently, the value may contain NULL characters. It is unclear
# whether or not this is valid CSV, but some readers may not like it.
# (if this becomes a problem, in the future values may need to be truncated at
# the first NULL character, but this would disable the use of CSV for binary data)
$val = qq{"$val"} if $val =~ s/"/""/g or $val =~ /(^\s+|\s+$)/ or $val =~ /[,\n\r]/;
return $val;
}
#------------------------------------------------------------------------------
# Print accumulated CSV information
sub PrintCSV()
{
my ($file, $lcTag, @tags);
@csvTags or @csvTags = sort keys %csvTags;
# make a list of tags actually found
foreach $lcTag (@csvTags) {
push @tags, $csvTags{$lcTag} if $csvTags{$lcTag};
}
print join(',', 'SourceFile', @tags), "\n";
my $empty = defined($forcePrint) ? $forcePrint : '';
foreach $file (@csvFiles) {
my @vals = (FormatCSV($file)); # start with full file name
my $csvInfo = $database{$file};
foreach $lcTag (@csvTags) {
next unless $csvTags{$lcTag};
my $val = $$csvInfo{$lcTag};
defined $val or push(@vals,$empty), next;
push @vals, FormatCSV($val);
}
print join(',', @vals), "\n";
}
}
#------------------------------------------------------------------------------
# Add tag groups from structure fields to a list
# Inputs: 0) tag value, 1) parent group, 2) group hash ref, 3) group list ref
sub AddGroups($$$$)
{
my ($val, $grp, $groupHash, $groupList) = @_;
my ($key, $val2);
if (ref $val eq 'HASH') {
foreach $key (sort keys %$val) {
if ($key =~ /(.*?):/ and not $$groupHash{$1}) {
$$groupHash{$1} = $grp;
push @$groupList, $1;
}
AddGroups($$val{$key}, $grp, $groupHash, $groupList) if ref $$val{$key};
}
} elsif (ref $val eq 'ARRAY') {
foreach $val2 (@$val) {
AddGroups($val2, $grp, $groupHash, $groupList) if ref $val2;
}
}
}
#------------------------------------------------------------------------------
# Convert binary data (SCALAR references) for printing
# Inputs: 0) object reference
# Returns: converted object
sub ConvertBinary($)
{
my $obj = shift;
my ($key, $val);
if (ref $obj eq 'HASH') {
foreach $key (keys %$obj) {
$$obj{$key} = ConvertBinary($$obj{$key}) if ref $$obj{$key};
}
} elsif (ref $obj eq 'ARRAY') {
foreach $val (@$obj) {
$val = ConvertBinary($val) if ref $val;
}
} elsif (ref $obj eq 'SCALAR') {
# (binaryOutput flag is set to 0 for binary mode of XML/PHP/JSON output formats)
if (defined $binaryOutput) {
$obj = $$obj;
# encode in base64 if necessary
if ($json == 1 and ($obj =~ /[^\x09\x0a\x0d\x20-\x7e\x80-\xf7]/ or
Image::ExifTool::XMP::IsUTF8(\$obj) < 0))
{
$obj = 'base64:' . Image::ExifTool::XMP::EncodeBase64($obj, 1);
}
} else {
# (-b is not valid for HTML output)
my $bOpt = $html ? '' : ', use -b option to extract';
if ($$obj =~ /^Binary data \d+ bytes$/) {
$obj = "($$obj$bOpt)";
} else {
$obj = '(Binary data ' . length($$obj) . " bytes$bOpt)";
}
}
}
return $obj;
}
#------------------------------------------------------------------------------
# Compare two tag values to see if they are equal
# Inputs: 0) value1, 1) value2
# Returns: true if they are equal
sub IsEqual($$)
{
return 1 if ref $_[0] eq 'SCALAR' or $_[0] eq $_[1];
return 0 if ref $_[0] ne 'ARRAY' or ref $_[1] ne 'ARRAY' or
@{$_[0]} ne @{$_[1]};
# test all elements of an array
my $i = 0;
for ($i=0; $i<scalar(@{$_[0]}); ++$i) {
return 0 if $_[0][$i] ne $_[1][$i];
}
return 1;
}
#------------------------------------------------------------------------------
# Add tag list for copying tags from specified file
# Inputs: 0) set tags file name (or FMT), 1) options for SetNewValuesFromFile()
# Returns: nothing
# Notes: Uses global variables: %setTags, %setTagsList, @newValues, $saveCount
sub AddSetTagsFile($;$)
{
my ($setFile, $opts) = @_;
if ($setTags{$setFile}) {
# move these tags aside and make a new list for the next invocation of this file
$setTagsList{$setFile} or $setTagsList{$setFile} = [ ];
push @{$setTagsList{$setFile}}, $setTags{$setFile};
}
$setTags{$setFile} = []; # create list for tags to copy from this file
# insert marker to save new values now (necessary even if this is not a dynamic
# file in case the same file is source'd multiple times in a single command)
push @newValues, { SaveCount => ++$saveCount }, "TagsFromFile=$setFile";
# add option to protect the tags which are assigned after this
# (this is the mechanism by which the command-line order-of-operations is preserved)
$opts or $opts = { };
$$opts{ProtectSaved} = $saveCount;
push @{$setTags{$setFile}}, $opts;
}
#------------------------------------------------------------------------------
# Get input file name or reference for calls to the ExifTool API
# Inputs: 0) file name ('-' for STDIN), 1) flag to buffer STDIN
# Returns: file name, or RAF reference for buffering STDIN
sub Infile($;$)
{
my ($file, $bufferStdin) = @_;
if ($file eq '-' and ($bufferStdin or $rafStdin)) {
if ($rafStdin) {
$rafStdin->Seek(0); # rewind
} elsif (open RAF_STDIN, '-') {
$rafStdin = new File::RandomAccess(\*RAF_STDIN);
$rafStdin->BinMode();
}
return $rafStdin if $rafStdin;
}
return $file;
}
#------------------------------------------------------------------------------
# Set new values from file
# Inputs: 0) exiftool ref, 1) filename, 2) reference to list of values to set
# Returns: 0 on error (and increments $countBadWr)
sub DoSetFromFile($$$)
{
local $_;
my ($et, $file, $setTags) = @_;
$verbose and print $vout "Setting new values from $file\n";
my $info = $et->SetNewValuesFromFile(Infile($file,1), @$setTags);
my $numSet = scalar(keys %$info);
if ($$info{Error}) {
# delete all error and warning tags
my @warns = grep /^(Error|Warning)\b/, keys %$info;
$numSet -= scalar(@warns);
# issue a warning for the main error only if we were able to set some tags
if (keys(%$info) > @warns) {
my $err = $$info{Error};
delete $$info{$_} foreach @warns;
$$info{Warning} = $err;
}
} elsif ($$info{Warning}) {
my $warns = 1;
++$warns while $$info{"Warning ($warns)"};
$numSet -= $warns;
}
PrintErrors($et, $info, $file) and ++$countBadWr, return 0;
Warn "Warning: No writable tags set from $file\n" unless $numSet;
return 1;
}
#------------------------------------------------------------------------------
# Translate backslashes to forward slashes in filename if necessary
# Inputs: 0) Filename
# Returns: nothing, but changes filename if necessary
sub CleanFilename($)
{
$_[0] =~ tr/\\/\// if $hasBackslash{$^O};
}
#------------------------------------------------------------------------------
# Check for valid UTF-8 of a file name
# Inputs: 0) string, 1) original encoding
# Returns: 0=plain ASCII, 1=valid UTF-8, -1=invalid UTF-8 (and print warning)
sub CheckUTF8($$)
{
my ($file, $enc) = @_;
my $isUTF8 = 0;
if ($file =~ /[\x80-\xff]/) {
require Image::ExifTool::XMP;
$isUTF8 = Image::ExifTool::XMP::IsUTF8(\$file);
if ($isUTF8 < 0) {
if ($enc) {
Warn("Invalid filename encoding for $file\n");
} else {
WarnOnce(qq{FileName encoding not specified. Use "-charset FileName=CHARSET"\n});
}
}
}
return $isUTF8;
}
#------------------------------------------------------------------------------
# Set window title
# Inputs: title string or '' to reset title
sub SetWindowTitle($)
{
my $title = shift;
if ($curTitle ne $title) {
$curTitle = $title;
if ($^O eq 'MSWin32') {
$title =~ s/([&\/\?:|"<>])/^$1/g; # escape special chars
eval { system qq{title $title} };
} else {
# (this only works for XTerm terminals, and STDERR must go to the console)
printf STDERR "\033]0;%s\007", $title;
}
}
}
#------------------------------------------------------------------------------
# Process files in our @files list
# Inputs: 0) ExifTool ref, 1) list ref to just return full file names
sub ProcessFiles($;$)
{
my ($et, $list) = @_;
my $enc = $et->Options('CharsetFileName');
my $file;
foreach $file (@files) {
$et->Options(CharsetFileName => 'UTF8') if $utf8FileName{$file};
if (defined $progressMax) {
++$progressCount;
$progStr = " [$progressCount/$progressMax]" if $progress;
}
if ($et->IsDirectory($file)) {
$multiFile = $validFile = 1;
ScanDir($et, $file, $list);
} elsif ($filterFlag and not AcceptFile($file)) {
if ($et->Exists($file)) {
$filtered = 1;
$verbose and print $vout "-------- $file (wrong extension)$progStr\n";
} else {
Warn "File not found: $file\n";
FileNotFound($file);
$rtnVal = 1;
}
} else {
$validFile = 1;
if ($list) {
push(@$list, $file);
} else {
GetImageInfo($et, $file);
}
}
$et->Options(CharsetFileName => $enc) if $utf8FileName{$file};
}
}
#------------------------------------------------------------------------------
# Scan directory for image files
# Inputs: 0) ExifTool ref, 1) directory name, 2) list ref to return file names
sub ScanDir($$;$)
{
local $_;
my ($et, $dir, $list) = @_;
my (@fileList, $done, $file, $utf8Name);
my $enc = $et->Options('CharsetFileName');
# recode as UTF-8 if necessary
if ($enc) {
unless ($enc eq 'UTF8') {
$dir = $et->Decode($dir, $enc, undef, 'UTF8');
$et->Options(CharsetFileName => 'UTF8'); # now using UTF8
}
$utf8Name = 1;
}
return if $ignore{$dir};
# use Win32::FindFile on Windows if available
# (ReadDir will croak if there is a wildcard, so check for this)
if ($^O eq 'MSWin32' and $dir !~ /[*?]/) {
local $SIG{'__WARN__'} = sub { $evalWarning = $_[0] };;
if (CheckUTF8($dir, $enc) >= 0) {
if (eval { require Win32::FindFile }) {
@fileList = Win32::FindFile::ReadDir($dir);
$_ = $_->cFileName foreach @fileList;
$et->Options(CharsetFileName => 'UTF8'); # now using UTF8
$utf8Name = 1; # ReadDir returns UTF-8 file names
$done = 1;
} else {
$done = 0;
}
}
}
unless ($done) {
# use standard perl library routines to read directory
opendir(DIR_HANDLE, $dir) or Warn("Error opening directory $dir\n"), return;
@fileList = readdir(DIR_HANDLE);
closedir(DIR_HANDLE);
if (defined $done) {
# issue warning if some names would have required Win32::FindFile
foreach $file ($dir, @fileList) {
next unless $file =~ /[\?\x80-\xff]/;
WarnOnce("Install Win32::FindFile to support Windows Unicode file names in directories\n");
last;
}
}
}
$dir =~ /\/$/ or $dir .= '/'; # make sure directory name ends with '/'
foreach $file (@fileList) {
my $path = "$dir$file";
if ($et->IsDirectory($path)) {
next unless $recurse;
# ignore directories starting with "." by default
next if $file =~ /^\./ and ($recurse == 1 or $file eq '.' or $file eq '..');
next if $ignore{$file} or ($ignore{SYMLINKS} and -l $path);
ScanDir($et, $path, $list);
next;
}
# apply rules from -ext options
my $accepted;
if ($filterFlag) {
$accepted = AcceptFile($file) or next;
# must be specifically accepted to bypass selection logic
$accepted &= 0x01;
}
unless ($accepted) {
# read/write this file if it is a supported type
if ($scanWritable) {
if ($scanWritable eq '1') {
next unless CanWrite($file);
} else {
my $type = GetFileType($file);
next unless defined $type and $type eq $scanWritable;
}
} elsif (not GetFileType($file)) {
next unless $doUnzip;
next unless $file =~ /\.(gz|bz2)$/i;
}
}
$utf8FileName{$path} = 1 if $utf8Name;
if ($list) {
push(@$list, $path);
} else {
GetImageInfo($et, $path);
}
}
++$countDir;
$et->Options(CharsetFileName => $enc); # restore original setting
}
#------------------------------------------------------------------------------
# Find files with wildcard expression on Windows
# Inputs: 0) ExifTool ref, 1) file name with wildcards
# Returns: list of matching file names
# Notes:
# 1) Win32::FindFile must already be loaded
# 2) Sets flag in %utf8FileName for each file found
sub FindFileWindows($$)
{
my ($et, $wildfile) = @_;
# recode file name as UTF-8 if necessary
my $enc = $et->Options('CharsetFileName');
$wildfile = $et->Decode($wildfile, $enc, undef, 'UTF8') if $enc and $enc ne 'UTF8';
$wildfile =~ tr/\\/\//; # use forward slashes
my ($dir, $wildname) = ($wildfile =~ m{(.*/)(.*)}) ? ($1, $2) : ('', $wildfile);
if ($dir =~ /[*?]/) {
Warn "Wildcards don't work in the directory specification\n";
return ();
}
CheckUTF8($wildfile, $enc) >= 0 or return ();
local $SIG{'__WARN__'} = sub { $evalWarning = $_[0] };;
my @names = Win32::FindFile::FindFile($wildfile) or return ();
# (apparently this isn't always sorted, so do a case-insensitive sort here)
@names = sort { uc($a) cmp uc($b) } @names;
my ($rname, $nm, @files);
# replace "\?" with ".", and "\*" with ".*" for regular expression
($rname = quotemeta $wildname) =~ s/\\\?/./g;
$rname =~ s/\\\*/.*/g;
foreach $nm (@names) {
$nm = $nm->cFileName;
# make sure that FindFile behaves
# (otherwise "*.jpg" matches things like "a.jpg_original"!)
next unless $nm =~ /^$rname$/i;
next if $nm eq '.' or $nm eq '..'; # don't match "." and ".."
my $file = "$dir$nm"; # add back directory name
push @files, $file;
$utf8FileName{$file} = 1; # flag this file name as UTF-8 encoded
}
return @files;
}
#------------------------------------------------------------------------------
# Handle missing file on the command line
# Inputs: 0) file name
sub FileNotFound($)
{
my $file = shift;
if ($file =~ /^(DIR|FILE)$/) {
my $type = { DIR => 'directory', FILE => 'file' }->{$file};
Warn qq{You were meant to enter any valid $type name, not "$file" literally.\n};
}
}
#------------------------------------------------------------------------------
# Patch for OS X 10.6 to preserve file modify date
# (this probably isn't a 100% fix, but it may solve a majority of the cases)
sub PreserveTime()
{
local $_;
$mt->SetFileTime($_, @{$preserveTime{$_}}) foreach keys %preserveTime;
undef %preserveTime;
}
#------------------------------------------------------------------------------
# Return absolute path for a file
# Inputs: 0) file name
# Returns: absolute path string, or undef if path could not be determined
# Note: Warnings should be suppressed when calling this routine
sub AbsPath($)
{
my $file = shift;
my $path;
if (defined $file and eval { require Cwd }) {
$path = eval { Cwd::abs_path($file) };
# make the delimiters and case consistent
# (abs_path is very inconsistent about what it returns in Windows)
if (defined $path and $hasBackslash{$^O}) {
$path =~ tr/\\/\//;
$path = lc $path;
}
}
return $path;
}
#------------------------------------------------------------------------------
# Convert file name to ExifTool Charset
# Inputs: 0) ExifTool ref, 1) file name in CharsetFileName
# Returns: file name in ExifTool Charset
sub MyConvertFileName($$)
{
my ($et, $file) = @_;
my $enc = $et->Options('CharsetFileName');
$et->Options(CharsetFileName => 'UTF8') if $utf8FileName{$file};
my $convFile = $et->ConvertFileName($file);
$et->Options(CharsetFileName => $enc) if $utf8FileName{$file};
return $convFile;
}
#------------------------------------------------------------------------------
# Add print format entry
# Inputs: 0) expression string
sub AddPrintFormat($)
{
my $expr = shift;
my $type;
if ($expr =~ /^#/) {
$expr =~ s/^#\[(HEAD|BODY|TAIL)\]// or return; # ignore comments
$type = $1;
} else {
$type = 'BODY';
}
$printFmt{$type} or $printFmt{$type} = [ ];
push @{$printFmt{$type}}, $expr;
# add to list of requested tags
push @requestTags, $expr =~ /\$\{?((?:[-\w]+:)*[-\w?*]+)/g;
}
#------------------------------------------------------------------------------
# Get suggested file extension based on tag value for binary output
# Inputs: 0) ExifTool ref, 1) data ref, 2) tag name
# Returns: file extension (lower case), or 'dat' if unknown
sub SuggestedExtension($$$)
{
my ($et, $valPt, $tag) = @_;
my $ext;
if (not $binaryOutput) {
$ext = 'txt';
} elsif ($$valPt =~ /^\xff\xd8\xff/) {
$ext = 'jpg';
} elsif ($$valPt =~ /^(\0\0\0\x0cjP( |\x1a\x1a)\x0d\x0a\x87\x0a|\xff\x4f\xff\x51\0)/) {
$ext = 'jp2';
} elsif ($$valPt =~ /^(\x89P|\x8aM|\x8bJ)NG\r\n\x1a\n/) {
$ext = 'png';
} elsif ($$valPt =~ /^GIF8[79]a/) {
$ext = 'gif';
} elsif ($$valPt =~ /^<\?xpacket/ or $tag eq 'XMP') {
$ext = 'xmp';
} elsif ($$valPt =~ /^<\?xml/ or $tag eq 'XML') {
$ext = 'xml';
} elsif ($$valPt =~ /^RIFF....WAVE/s) {
$ext = 'wav';
} elsif ($tag eq 'OriginalRawFileData' and
defined($ext = $et->GetValue('OriginalRawFileName')))
{
$ext =~ s/^.*\.//s;
$ext = $ext ? lc($ext) : 'raw';
} elsif ($tag eq 'EXIF') {
$ext = 'exif';
} elsif ($tag eq 'ICC_Profile') {
$ext = 'icc';
} elsif ($$valPt =~ /^(MM\0\x2a|II\x2a\0)/) {
$ext = 'tiff';
} elsif ($$valPt !~ /^.{0,4096}\0/s) {
$ext = 'txt';
} elsif ($$valPt =~ /^BM/) {
$ext = 'bmp';
} else {
$ext = 'dat';
}
return $ext;
}
#------------------------------------------------------------------------------
# Load print format file
# Inputs: 0) file name
# - saves lines of file to %printFmt list
# - adds tag names to @tags list
sub LoadPrintFormat($)
{
my $arg = shift;
if (not defined $arg) {
Error "Must specify file or expression for -p option\n";
} elsif ($arg !~ /\n/ and -f $arg and $mt->Open(\*FMT_FILE, $arg)) {
foreach (<FMT_FILE>) {
AddPrintFormat($_);
}
close(FMT_FILE);
} else {
AddPrintFormat($arg . "\n");
}
}
#------------------------------------------------------------------------------
# A sort of sprintf for filenames
# Inputs: 0) format string (%d=dir, %f=file name, %e=ext),
# 1) source filename or undef to test format string
# 2-4) [%t %g %s only] tag name, ref to array of group names, suggested extension
# Returns: new filename or undef on error (or if no file and fmt contains token)
sub FilenameSPrintf($;$@)
{
my ($fmt, $file, @extra) = @_;
local $_;
# return format string straight away if no tokens
return $fmt unless $fmt =~ /%[-+]?\d*[.:]?\d*[lu]?[dDfFeEtgs]/;
return undef unless defined $file;
CleanFilename($file); # make sure we are using forward slashes
# split filename into directory, file, extension
my %part;
@part{qw(d f E)} = ($file =~ /^(.*?)([^\/]*?)(\.[^.\/]*)?$/);
defined $part{f} or Warn("Error: Bad pattern match for file $file\n"), return undef;
if ($part{E}) {
$part{e} = substr($part{E}, 1);
} else {
@part{qw(e E)} = ('', '');
}
$part{F} = $part{f} . $part{E};
($part{D} = $part{d}) =~ s{/+$}{};
@part{qw(t g s)} = @extra;
my ($filename, $pos) = ('', 0);
while ($fmt =~ /(%([-+]?)(\d*)([.:]?)(\d*)([lu]?)([dDfFeEtgs]))/g) {
$filename .= substr($fmt, $pos, pos($fmt) - $pos - length($1));
$pos = pos($fmt);
my ($sign, $wid, $dot, $skip, $mod, $code) = ($2, $3, $4, $5 || 0, $6, $7);
my (@path, $part, $len, $groups);
if (lc $code eq 'd' and $dot and $dot eq ':') {
# field width applies to directory levels instead of characters
@path = split '/', $part{$code};
$len = scalar @path;
} else {
if ($code eq 'g') {
$groups = $part{g} || [ ] unless defined $groups;
$fmt =~ /\G(\d?)/g; # look for %g1, %g2, etc
$part{g} = $$groups[$1 || 0];
$pos = pos($fmt);
}
$part{$code} = '' unless defined $part{$code};
$len = length $part{$code};
}
next unless $skip < $len;
$wid = $len - $skip if $wid eq '' or $wid + $skip > $len;
$skip = $len - $wid - $skip if $sign eq '-';
if (@path) {
$part = join('/', @path[$skip..($skip+$wid-1)]);
$part .= '/' unless $code eq 'D';
} else {
$part = substr($part{$code}, $skip, $wid);
}
$part = ($mod eq 'u') ? uc($part) : lc($part) if $mod;
$filename .= $part;
}
$filename .= substr($fmt, $pos); # add rest of file name
# remove double slashes (except at beginning to allow Windows UNC paths)
$filename =~ s{(?!^)//}{/}g;
return $filename;
}
#------------------------------------------------------------------------------
# Convert number to alphabetical index: a, b, c, ... z, aa, ab ...
# Inputs: 0) number
# Returns: alphabetical index string
sub Num2Alpha($)
{
my $num = shift;
my $alpha = chr(97 + ($num % 26));
while ($num >= 26) {
$num = int($num / 26) - 1;
$alpha = chr(97 + ($num % 26)) . $alpha;
}
return $alpha;
}
#------------------------------------------------------------------------------
# Expand '%c' and '%C' codes if filename to get next unused file name
# Inputs: 0) file name format string, 1) filename ok to use even if it exists
# 2) dry run (won't really be renaming file)
# Returns: new file name
sub NextUnusedFilename($;$$)
{
my ($fmt, $okfile, $dryRun) = @_;
return $fmt unless $fmt =~ /%[-+]?\d*\.?\d*[lun]?[cC]/;
my %sep = ( '-' => '-', '+' => '_' );
my ($copy, $alpha) = (0, 'a');
for (;;) {
my ($filename, $pos) = ('', 0);
while ($fmt =~ /(%([-+]?)(\d*)(\.?)(\d*)([lun]?)([cC]))/g) {
$filename .= substr($fmt, $pos, pos($fmt) - $pos - length($1));
$pos = pos($fmt);
my ($sign, $wid, $dec, $wid2, $mod, $tok) = ($2, $3 || 0, $4, $5 || 0, $6, $7);
my $seq = $seqFileNum - 1;
if ($tok eq 'C') {
$seq += $wid if $wid;
$wid = $wid2;
} else {
next unless $dec or $copy;
$wid = $wid2 if $wid < $wid2;
}
# add dash or underline separator if '-' or '+' specified
$filename .= $sep{$sign} if $sign;
if ($mod and $mod ne 'n') {
my $a = $tok eq 'C' ? Num2Alpha($seq) : $alpha;
my $str = ($wid and $wid > length $a) ? 'a' x ($wid - length($a)) : '';
$str .= $a;
$str = uc $str if $mod eq 'u';
$filename .= $str;
} else {
my $c = $tok eq 'C' ? $seq : $copy;
my $num = $c + ($mod ? 1 : 0);
$filename .= $wid ? sprintf("%.${wid}d",$num) : $num;
}
}
$filename .= substr($fmt, $pos); # add rest of file name
# return now with filename unless file exists
return $filename unless $mt->Exists($filename) or $usedFileName{$filename};
return $filename if defined $okfile and $filename eq $okfile;
++$copy;
++$alpha;
}
}
#------------------------------------------------------------------------------
# Create directory for specified file
# Inputs: 0) complete file name including path
# Returns: true if a directory was created
my $k32CreateDir;
sub CreateDirectory($)
{
my $file = shift;
my ($dir, $created);
($dir = $file) =~ s/[^\/]*$//; # remove filename from path specification
if ($dir and not $mt->IsDirectory($dir)) {
my @parts = split /\//, $dir;
$dir = '';
foreach (@parts) {
$dir .= $_;
if (length $dir and not $mt->IsDirectory($dir) and
# don't try to create a network drive root directory
not ($hasBackslash{$^O} and $dir =~ m{^//[^/]*$}))
{
my $success;
# create directory since it doesn't exist
my $d2 = $dir; # (must make a copy in case EncodeFileName recodes it)
if ($mt->EncodeFileName($d2)) {
# handle Windows Unicode directory names
unless (eval { require Win32::API }) {
Error('Install Win32::API to create directories with Unicode names');
return 0;
}
unless ($k32CreateDir) {
$k32CreateDir = new Win32::API('KERNEL32', 'CreateDirectoryW', 'PP', 'I');
}
$success = $k32CreateDir->Call($d2, 0) if $k32CreateDir;
} else {
$success = mkdir($d2, 0777);
}
$success or Error("Error creating directory $dir\n"), return 0;
$verbose and print $vout "Created directory $dir\n";
$created = 1;
}
$dir .= '/';
}
}
++$countNewDir if $created;
return $created;
}
#------------------------------------------------------------------------------
# Open output text file
# Inputs: 0) file name format string, 1-N) extra arguments for FilenameSPrintf
# Returns: 0) file reference (or undef on error), 1) file name if opened, 2) append flag
# Notes: returns reference to STDOUT and no file name if no textOut file needed
sub OpenOutputFile($;@)
{
my ($file, @args) = @_;
my ($fp, $outfile, $append);
if ($textOut) {
$outfile = $file;
CleanFilename($outfile);
if ($textOut =~ /%[-+]?\d*[.:]?\d*[lun]?[dDfFeEtgscC]/ or defined $tagOut) {
# make filename from printf-like $textOut
$outfile = FilenameSPrintf($textOut, $file, @args);
return () unless defined $outfile;
$outfile = NextUnusedFilename($outfile);
CreateDirectory($outfile); # create directory if necessary
} else {
$outfile =~ s/\.[^.\/]*$//; # remove extension if it exists
$outfile .= $textOut;
}
my $mode = '>';
if ($mt->Exists($outfile)) {
unless ($textOverwrite) {
Warn "Output file $outfile already exists for $file\n";
return ();
}
if ($textOverwrite == 2 or ($textOverwrite == 3 and $created{$outfile})) {
$mode = '>>';
$append = 1;
}
}
unless ($mt->Open(\*OUTFILE, $outfile, $mode)) {
my $what = $mode eq '>' ? 'creating' : 'appending to';
Error("Error $what $outfile\n");
return ();
}
binmode(OUTFILE) if $binaryOutput;
$fp = \*OUTFILE;
} else {
$fp = \*STDOUT;
}
return($fp, $outfile, $append);
}
#------------------------------------------------------------------------------
# Filter files based on extension
# Inputs: 0) file name
# Returns: 0 = rejected, 1 = specifically accepted, 2 = accepted by default
# Notes: This routine should only be called if $filterFlag is set
sub AcceptFile($)
{
my $file = shift;
my $ext = ($file =~ /^.*\.(.+)$/s) ? uc($1) : '';
return $filterExt{$ext} if defined $filterExt{$ext};
return $filterExt{'*'} if defined $filterExt{'*'};
return 0 if $filterFlag & 0x02; # reject if accepting specific extensions
return 2; # accept by default
}
#------------------------------------------------------------------------------
# Slurp file into buffer
# Inputs: 0) file name, 1) buffer reference
# Returns: 1 on success
sub SlurpFile($$)
{
my ($file, $buffPt) = @_;
$mt->Open(\*INFILE, $file) or Warn("Error opening file $file\n"), return 0;
binmode(INFILE);
# (CAREFUL!: must clear buffer first to reset possible utf8 flag because the data
# would be corrupted if it was read into a buffer which had the utf8 flag set!)
undef $$buffPt;
my $bsize = 1024 * 1024;
my $num = read(INFILE, $$buffPt, $bsize);
unless (defined $num) {
close(INFILE);
Warn("Error reading $file\n");
return 0;
}
my $bmax = 64 * $bsize;
while ($num == $bsize) {
$bsize *= 2 if $bsize < $bmax;
my $buff;
$num = read(INFILE, $buff, $bsize);
last unless $num;
$$buffPt .= $buff;
}
close(INFILE);
return 1;
}
#------------------------------------------------------------------------------
# Read arguments from -stay_open argfile
# Inputs: 0) argument list ref
# Notes: blocks until -execute, -stay_open or -@ option is available
# (or until there was an error reading from the file)
sub ReadStayOpen($)
{
my $args = shift;
my (@newArgs, $processArgs, $result, $optArgs);
my $lastOpt = '';
my $unparsed = length $stayOpenBuff;
for (;;) {
if ($unparsed) {
# parse data already read from argfile
$result = $unparsed;
undef $unparsed;
} else {
# read more data from argfile
# - this read may block (which is good) if reading from a pipe
$result = sysread(STAYOPEN, $stayOpenBuff, 65536, length($stayOpenBuff));
}
if ($result) {
my $pos = 0;
while ($stayOpenBuff =~ /\n/g) {
my $len = pos($stayOpenBuff) - $pos;
my $arg = substr($stayOpenBuff, $pos, $len);
$pos += $len;
$arg =~ s/^\s+//; # remove leading white space
$arg =~ s/[\x0d\x0a]+$//s; # remove trailing newline
# remove white space before, and single space after '=', '+=', '-=' or '<='
$arg =~ s/^(-[-:\w]+#?)\s*([-+<]?=) ?/$1$2/;
next if $arg eq '' or $arg =~ /^#/; # ignore empty/comment lines
push @newArgs, $arg;
if ($optArgs) {
# this is an argument for the last option
undef $optArgs;
next unless $lastOpt eq '-stay_open' or $lastOpt eq '-@';
} else {
$optArgs = $optArgs{$arg};
$lastOpt = lc $arg;
$optArgs = $optArgs{$lastOpt} unless defined $optArgs;
next unless $lastOpt =~ /^-execute\d*$/;
}
$processArgs = 1;
last; # process arguments up to this point
}
next unless $pos; # nothing to do if we didn't read any arguments
# keep unprocessed data in buffer
$stayOpenBuff = substr($stayOpenBuff, $pos);
if ($processArgs) {
# process new arguments after -execute or -stay_open option
unshift @$args, @newArgs;
last;
}
} elsif ($result == 0) {
# sysread() didn't block (eg. when reading from a file),
# so wait for a short time (1/100 sec) then try again
# Note: may break out of this early if SIGCONT is received
select(undef,undef,undef,0.01);
} else {
Warn "Error reading from ARGFILE\n";
close STAYOPEN;
$stayOpen = 0;
last;
}
}
}
#------------------------------------------------------------------------------
# Print list of tags
# Inputs: 0) message, 1-N) list of tag names
sub PrintTagList($@)
{
my $msg = shift;
print $msg, ":\n" unless $quiet;
my $tag;
if ($outFormat < 0 and $msg =~ /file extensions$/ and @_) {
foreach $tag (@_) {
printf(" %-11s %s\n", $tag, GetFileType($tag, 1));
}
return;
}
print ' ';
my $len = 1;
foreach $tag (@_) {
my $taglen = length($tag);
if ($len + $taglen > 78) {
print "\n ";
$len = 1;
}
print " $tag";
$len += $taglen + 1;
}
@_ or print ' [empty list]';
print "\n";
}
#------------------------------------------------------------------------------
# Print warnings and errors from info hash
# Inputs: 0) ExifTool object ref, 1) info hash, 2) file name
# Returns: true if there was an Error
sub PrintErrors($$$)
{
my ($et, $info, $file) = @_;
my ($tag, $key);
foreach $tag (qw(Warning Error)) {
next unless $$info{$tag};
my @keys = ( $tag );
push @keys, sort(grep /^$tag /, keys %$info) if $et->Options('Duplicates');
foreach $key (@keys) {
Warn "$tag: $info->{$key} - $file\n";
}
}
return $$info{Error};
}
__END__
=head1 NAME
exiftool - Read and write meta information in files
=head1 SYNOPSIS
=head2 Reading
B<exiftool> [I<OPTIONS>] [-I<TAG>...] [--I<TAG>...] I<FILE>...
=head2 Writing
B<exiftool> [I<OPTIONS>] -I<TAG>[+-E<lt>]=[I<VALUE>]... I<FILE>...
=head2 Copying
B<exiftool> [I<OPTIONS>] B<-tagsFromFile> I<SRCFILE>
[-I<SRCTAG>[E<gt>I<DSTTAG>]...] I<FILE>...
=head2 Other
B<exiftool> [ B<-ver> |
B<-list>[B<w>|B<f>|B<r>|B<wf>|B<g>[I<NUM>]|B<d>|B<x>] ]
For specific examples, see the L<EXAMPLES|/READING EXAMPLES> sections below.
This documentation is displayed if exiftool is run without an input I<FILE>
when one is expected.
=head1 DESCRIPTION
A command-line interface to L<Image::ExifTool|Image::ExifTool>, used for
reading and writing meta information in a variety of file types. I<FILE> is
one or more source file names, directory names, or C<-> for the standard
input. Metadata is read from source files and printed in readable form
to the console (or written to output text files with B<-w>).
To write or delete metadata, tag values are assigned using the
-I<TAG>=[I<VALUE>] syntax, or the B<-geotag> option. To copy or move
metadata, the B<-tagsFromFile> feature is used. By default the original
files are preserved with C<_original> appended to their names -- be sure to
verify that the new files are OK before erasing the originals. Once in
write mode, exiftool will ignore any read-specific options.
Note: If I<FILE> is a directory name then only supported file types in the
directory are processed (in write mode only writable types are processed).
However, files may be specified by name, or the B<-ext> option may be used
to force processing of files with any extension. Hidden files in the
directory are also processed. Adding the B<-r> option causes subdirectories
to be processed recursively, but those with names beginning with "." are
skipped unless B<-r.> is used.
Below is a list of file types and meta information formats currently
supported by ExifTool (r = read, w = write, c = create):
File Types
------------+-------------+-------------+-------------+------------
3FR r | DV r | K25 r | OFR r | RSRC r
3G2 r/w | DVB r/w | KDC r | OGG r | RTF r
3GP r/w | DYLIB r | KEY r | OGV r | RW2 r/w
A r | EIP r | LA r | OPUS r | RWL r/w
AA r | EPS r/w | LFP r | ORF r/w | RWZ r
AAX r/w | EPUB r | LNK r | OTF r | RM r
ACR r | ERF r/w | M2TS r | PAC r | SEQ r
AFM r | EXE r | M4A/V r/w | PAGES r | SO r
AI r/w | EXIF r/w/c | MAX r | PBM r/w | SR2 r/w
AIFF r | EXR r | MEF r/w | PCD r | SRF r
APE r | EXV r/w/c | MIE r/w/c | PDB r | SRW r/w
ARW r/w | F4A/V r/w | MIFF r | PDF r/w | SVG r
ASF r | FFF r/w | MKA r | PEF r/w | SWF r
AVI r | FLA r | MKS r | PFA r | THM r/w
AZW r | FLAC r | MKV r | PFB r | TIFF r/w
BMP r | FLIF r/w | MNG r/w | PFM r | TORRENT r
BPG r | FLV r | MOBI r | PGF r | TTC r
BTF r | FPF r | MODD r | PGM r/w | TTF r
CHM r | FPX r | MOI r | PLIST r | VCF r
COS r | GIF r/w | MOS r/w | PICT r | VRD r/w/c
CR2 r/w | GZ r | MOV r/w | PMP r | VSD r
CRW r/w | HDP r/w | MP3 r | PNG r/w | WAV r
CS1 r/w | HDR r | MP4 r/w | PPM r/w | WDP r/w
DCM r | HTML r | MPC r | PPT r | WEBP r
DCP r/w | ICC r/w/c | MPG r | PPTX r | WEBM r
DCR r | ICS r | MPO r/w | PS r/w | WMA r
DFONT r | IDML r | MQV r/w | PSB r/w | WMV r
DIVX r | IIQ r/w | MRW r/w | PSD r/w | WV r
DJVU r | IND r/w | MXF r | PSP r | X3F r/w
DLL r | INX r | NEF r/w | QTIF r/w | XCF r
DNG r/w | ISO r | NRW r/w | RA r | XLS r
DOC r | ITC r | NUMBERS r | RAF r/w | XLSX r
DOCX r | J2C r | O r | RAM r | XMP r/w/c
DPX r | JNG r/w | ODP r | RAR r | ZIP r
DR4 r/w/c | JP2 r/w | ODS r | RAW r/w |
DSS r | JPEG r/w | ODT r | RIFF r |
Meta Information
----------------------+----------------------+---------------------
EXIF r/w/c | CIFF r/w | Ricoh RMETA r
GPS r/w/c | AFCP r/w | Picture Info r
IPTC r/w/c | Kodak Meta r/w | Adobe APP14 r
XMP r/w/c | FotoStation r/w | MPF r
MakerNotes r/w/c | PhotoMechanic r/w | Stim r
Photoshop IRB r/w/c | JPEG 2000 r | DPX r
ICC Profile r/w/c | DICOM r | APE r
MIE r/w/c | Flash r | Vorbis r
JFIF r/w/c | FlashPix r | SPIFF r
Ducky APP12 r/w/c | QuickTime r | DjVu r
PDF r/w/c | Matroska r | M2TS r
PNG r/w/c | MXF r | PE/COFF r
Canon VRD r/w/c | PrintIM r | AVCHD r
Nikon Capture r/w/c | FLAC r | ZIP r
GeoTIFF r/w/c | ID3 r | (and more)
=head1 OPTIONS
Case is not significant for any command-line option (including tag and group
names), except for single-character options when the corresponding
upper-case option exists. Many single-character options have equivalent
long-name versions (shown in brackets), and some options have inverses which
are invoked with a leading double-dash. Unrecognized options are
interpreted as tag names (for this reason, multiple single-character options
may NOT be combined into one argument). Contrary to standard practice,
options may appear after source file names on the exiftool command line.
=head2 Option Summary
L<Tag operations|/Tag operations>
-TAG or --TAG Extract or exclude specified tag
-TAG[+-]=[VALUE] Write new value for tag
-TAG[+-]<=DATFILE Write tag value from contents of file
-TAG[+-]<SRCTAG Copy tag value (see -tagsFromFile)
-tagsFromFile SRCFILE Copy tag values from file
-x TAG (-exclude) Exclude specified tag
L<Input-output text formatting|/Input-output text formatting>
-args (-argFormat) Format metadata as exiftool arguments
-b (-binary) Output metadata in binary format
-c FMT (-coordFormat) Set format for GPS coordinates
-charset [[TYPE=]CHARSET] Specify encoding for special characters
-csv[=CSVFILE] Export/import tags in CSV format
-d FMT (-dateFormat) Set format for date/time values
-D (-decimal) Show tag ID numbers in decimal
-E, -ex (-escape(HTML|XML)) Escape values for HTML (-E) or XML (-ex)
-f (-forcePrint) Force printing of all specified tags
-g[NUM...] (-groupHeadings) Organize output by tag group
-G[NUM...] (-groupNames) Print group name for each tag
-h (-htmlFormat) Use HMTL formatting for output
-H (-hex) Show tag ID number in hexadecimal
-htmlDump[OFFSET] Generate HTML-format binary dump
-j[=JSONFILE] (-json) Export/import tags in JSON format
-l (-long) Use long 2-line output format
-L (-latin) Use Windows Latin1 encoding
-lang [LANG] Set current language
-listItem INDEX Extract specific item from a list
-n (--printConv) No print conversion
-p FMTFILE (-printFormat) Print output in specified format
-php Export tags as a PHP Array
-s[NUM] (-short) Short output format
-S (-veryShort) Very short output format
-sep STR (-separator) Set separator string for list items
-sort Sort output alphabetically
-struct Enable output of structured information
-t (-tab) Output in tab-delimited list format
-T (-table) Output in tabular format
-v[NUM] (-verbose) Print verbose messages
-w[+|!] EXT (-textOut) Write (or overwrite!) output text files
-W[+|!] FMT (-tagOut) Write output text file for each tag
-Wext EXT (-tagOutExt) Write only specified file types with -W
-X (-xmlFormat) Use RDF/XML output format
L<Processing control|/Processing control>
-a (-duplicates) Allow duplicate tags to be extracted
-e (--composite) Do not calculate composite tags
-ee (-extractEmbedded) Extract information from embedded files
-ext EXT (-extension) Process files with specified extension
-F[OFFSET] (-fixBase) Fix the base for maker notes offsets
-fast[NUM] Increase speed for slow devices
-fileOrder [-]TAG Set file processing order
-i DIR (-ignore) Ignore specified directory name
-if EXPR Conditionally process files
-m (-ignoreMinorErrors) Ignore minor errors and warnings
-o OUTFILE (-out) Set output file or directory name
-overwrite_original Overwrite original by renaming tmp file
-overwrite_original_in_place Overwrite original by copying tmp file
-P (-preserve) Preserve date/time of original file
-password PASSWD Password for processing protected files
-progress[:[TITLE]] Show file progress count
-q (-quiet) Quiet processing
-r[.] (-recurse) Recursively process subdirectories
-scanForXMP Brute force XMP scan
-u (-unknown) Extract unknown tags
-U (-unknown2) Extract unknown binary tags too
-wm MODE (-writeMode) Set mode for writing/creating tags
-z (-zip) Read/write compressed information
L<Other options|/Other options>
-@ ARGFILE Read command-line arguments from file
-k (-pause) Pause before terminating
-list[w|f|wf|g[NUM]|d|x] List various exiftool capabilities
-ver Print exiftool version number
L<Special features|/Special features>
-geotag TRKFILE Geotag images from specified GPS log
-globalTimeShift SHIFT Shift all formatted date/time values
-use MODULE Add features from plug-in module
L<Utilities|/Utilities>
-delete_original[!] Delete "_original" backups
-restore_original Restore from "_original" backups
L<Advanced options|/Advanced options>
-api OPT[=VAL] Set ExifTool API option
-common_args Define common arguments
-config CFGFILE Specify configuration file name
-echo[NUM] TEXT Echo text to stdout or stderr
-execute[NUM] Execute multiple commands on one line
-srcfile FMT Process a different source file
-stay_open FLAG Keep reading -@ argfile even after EOF
-userParam PARAM[=VAL] Set user parameter (API UserParam opt)
-windowTitle TITLE Set console window title for each file
=head2 Option Details
=head3 Tag operations
=over 5
=item B<->I<TAG>
Extract information for the specified tag (eg. C<-CreateDate>). Multiple
tags may be specified in a single command. A tag name is the handle by
which a piece of information is referenced. See
L<Image::ExifTool::TagNames|Image::ExifTool::TagNames> for documentation on
available tag names. A tag name may include leading group names separated
by colons (eg. C<-EXIF:CreateDate>, or C<-Doc1:XMP:Creator>), and each group
name may be prefixed by a digit to specify family number (eg.
C<-1IPTC:City>). Use the B<-listg> option to list available group names by
family.
A special tag name of C<All> may be used to indicate all meta information
(ie. B<-All>). This is particularly useful when a group name is specified to
extract all information in a group (but beware that unless the B<-a> option
is also used, some tags in the group may be suppressed by same-named tags in
other groups). The wildcard characters C<?> and C<*> may be used in a tag
name to match any single character and zero or more characters respectively.
These may not be used in a group name, with the exception that a group name
of C<*> (or C<All>) may be used to extract all instances of a tag (as if
B<-a> was used). Note that arguments containing wildcards must be quoted on
the command line of most systems to prevent shell globbing.
A C<#> may be appended to the tag name to disable the print conversion on a
per-tag basis (see the B<-n> option). This may also be used when writing or
copying tags.
If no tags are specified, all available information is extracted (as if
C<-All> had been specified).
Note: Descriptions, not tag names, are shown by default when extracting
information. Use the B<-s> option to see the tag names instead.
=item B<-->I<TAG>
Exclude specified tag from extracted information. Same as the B<-x> option.
Group names and wildcards are permitted as described above for B<-TAG>.
Once excluded from the output, a tag may not be re-included by a subsequent
option. May also be used following a B<-tagsFromFile> option to exclude
tags from being copied (when redirecting to another tag, it is the source
tag that should be excluded), or to exclude groups from being deleted when
deleting all information (eg. C<-all= --exif:all> deletes all but EXIF
information). But note that this will not exclude individual tags from a
group delete (unless a family 2 group is specified, see note 4 below).
Instead, individual tags may be recovered using the B<-tagsFromFile> option
(eg. C<-all= -tagsfromfile @ -artist>).
=item B<->I<TAG>[+-]B<=>[I<VALUE>]
Write a new value for the specified tag (eg. C<-comment=wow>), or delete the
tag if no I<VALUE> is given (eg. C<-comment=>). C<+=> and C<-=> are used to
add or remove existing entries from a list, or to shift date/time values
(see L<Image::ExifTool::Shift.pl|Image::ExifTool::Shift.pl> and note 6 below
for more details). C<+=> may also be used to increment numerical values (or
decrement if I<VALUE> is negative), and C<-=> may be used to conditionally
delete or replace a tag (see L</WRITING EXAMPLES> for examples).
I<TAG> may contain one or more leading family 0, 1 or 2 group names,
prefixed by optional family numbers, and separated colons. If no group name
is specified, the tag is created in the preferred group, and updated in any
other location where a same-named tag already exists. The preferred group
is the first group in the following list where I<TAG> is valid: 1) EXIF, 2)
IPTC, 3) XMP.
The wildcards C<*> and C<?> may be used in tag names to assign the same
value to multiple tags. When specified with wildcards, "unsafe" tags are
not written. A tag name of C<All> is equivalent to C<*> (except that it
doesn't require quoting, while arguments with wildcards do on systems with
shell globbing), and is often used when deleting all metadata (ie. C<-All=>)
or an entire group (eg. C<-GROUP:All=>, see note 4 below). Note that not
all groups are deletable, and that the JPEG APP14 "Adobe" group is not
removed by default with C<-All=> because it may affect the appearance of the
image. However, this will remove color space information, so the colors may
be affected (but this may be avoided by copying back the tags defined by the
ColorSpaceTags shortcut). Use the B<-listd> option for a complete list of
deletable groups, and see note 5 below regarding the "APP" groups. Also,
within an image some groups may be contained within others, and these groups
are removed if the containing group is deleted:
JPEG Image:
- Deleting EXIF or IFD0 also deletes ExifIFD, GlobParamIFD,
GPS, IFD1, InteropIFD, MakerNotes, PrintIM and SubIFD.
- Deleting ExifIFD also deletes InteropIFD and MakerNotes.
- Deleting Photoshop also deletes IPTC.
TIFF Image:
- Deleting EXIF only removes ExifIFD which also deletes
InteropIFD and MakerNotes.
Notes:
1) B<Many tag values may be assigned in a single command>. If two
assignments affect the same tag, the latter takes precedence (except for
list-type tags, for which both values are written).
2) In general, MakerNotes tags are considered "Permanent", and may be edited
but not created or deleted individually. This avoids many potential
problems, including the inevitable compatibility problems with OEM software
which may be very inflexible about the information it expects to find in the
maker notes.
3) Changes to PDF files by ExifTool are reversible (by deleting the update
with C<-PDF-update:all=>) because the original information is never actually
deleted from the file. So ExifTool alone may not be used to securely edit
metadata in PDF files.
4) Specifying C<-GROUP:all=> deletes the entire group as a block only if a
single family 0 or 1 group is specified. Otherwise all deletable tags in
the specified group(s) are removed individually, and in this case is it
possible to exclude individual tags from a mass delete. For example,
C<-time:all --Exif:Time:All> removes all deletable Time tags except those in
the EXIF. This difference also applies if family 2 is specified when
deleting all groups. For example, C<-2all:all=> deletes tags individually,
while C<-all:all=> deletes entire blocks.
5) The "APP" group names ("APP0" through "APP15") are used to delete JPEG
application segments which are not associated with another deletable group.
For example, specifying C<-APP14:All=> will NOT delete the APP14 "Adobe"
segment because this is accomplished with C<-Adobe:All>.
6) When shifting a value, the shift is applied to the original value of the
tag, overriding any other values previously assigned to the tag on the same
command line. To shift a date/time value and copy it to another tag in the
same operation, use the B<-globalTimeShift> option.
Special feature: Integer values may be specified in hexadecimal with a
leading C<0x>, and simple rational values may be specified as fractions.
=item B<->I<TAG>E<lt>=I<DATFILE> or B<->I<TAG>E<lt>=I<FMT>
Set the value of a tag from the contents of file I<DATFILE>. The file name
may also be given by a I<FMT> string where %d, %f and %e represent the
directory, file name and extension of the original I<FILE> (see the B<-w>
option for more details). Note that quotes are required around this
argument to prevent shell redirection since it contains a C<E<lt>> symbol.
If I<DATFILE>/I<FMT> is not provided, the effect is the same as C<-TAG=>,
and the tag is simply deleted. C<+E<lt>=> or C<-E<lt>=> may also be used to
add or delete specific list entries, or to shift date/time values.
=item B<-tagsFromFile> I<SRCFILE> or I<FMT>
Copy tag values from I<SRCFILE> to I<FILE>. Tag names on the command line
after this option specify the tags to be copied, or excluded from the copy.
Wildcards are permitted in these tag names. If no tags are specified, then
all possible tags (see note 1 below) from the source file are copied to
same-named tags in the preferred location of the output file (the same as
specifying C<-all>). More than one B<-tagsFromFile> option may be used to
copy tags from multiple files.
By default, this option will update any existing and writable same-named
tags in the output I<FILE>, but will create new tags only in their preferred
groups. This allows some information to be automatically transferred to the
appropriate group when copying between images of different formats. However,
if a group name is specified for a tag then the information is written only
to this group (unless redirected to another group, see below). If C<All> is
used as a group name, then the specified tag(s) are written to the same
family 1 group they had in the source file (ie. the same specific location,
like ExifIFD or XMP-dc). For example, the common operation of copying all
writable tags to the same specific locations in the output I<FILE> is
achieved by adding C<-all:all>. A different family may be specified by
adding a leading family number to the group name (eg. C<-0all:all> preserves
the same general location, like EXIF or XMP).
I<SRCFILE> may be the same as I<FILE> to move information around within a
single file. In this case, C<@> may be used to represent the source file
(ie. C<-tagsFromFile @>), permitting this feature to be used for batch
processing multiple files. Specified tags are then copied from each file in
turn as it is rewritten. For advanced batch use, the source file name may
also be specified using a I<FMT> string in which %d, %f and %e represent the
directory, file name and extension of I<FILE>. See B<-w> option for I<FMT>
string examples.
A powerful redirection feature allows a destination tag to be specified for
each copied tag. With this feature, information may be written to a tag
with a different name or group. This is done using
E<quot>'-I<DSTTAG>E<lt>I<SRCTAG>'E<quot> or
E<quot>'-I<SRCTAG>E<gt>I<DSTTAG>'E<quot> on the command line after
B<-tagsFromFile>, and causes the value of I<SRCTAG> to be copied from
I<SRCFILE> and written to I<DSTTAG> in I<FILE>. Note that this argument
must be quoted to prevent shell redirection, and there is no C<=> sign as
when assigning new values. Source and/or destination tags may be prefixed
by a group name and/or suffixed by C<#>. Wildcards are allowed in both the
source and destination tag names. A destination group and/or tag name of
C<All> or C<*> writes to the same family 1 group and/or tag name as the
source. If no destination group is specified, the information is written to
the preferred group. Whitespace around the C<E<gt>> or C<E<lt>> is ignored.
As a convenience, C<-tagsFromFile @> is assumed for any redirected tags
which are specified without a prior B<-tagsFromFile> option. Copied tags
may also be added or deleted from a list with arguments of the form
E<quot>'-I<SRCTAG>+E<lt>I<DSTTAG>'E<quot> or
E<quot>'-I<SRCTAG>-E<lt>I<DSTTAG>'E<quot>.
An extension of the redirection feature allows strings involving tag names
to be used on the right hand side of the C<E<lt>> symbol with the syntax
E<quot>'-I<DSTTAG>E<lt>I<STR>'E<quot>, where tag names in I<STR> are
prefixed with a C<$> symbol. See the B<-p> option for more details about
this syntax. Strings starting with a C<=> sign must insert a single space
after the C<E<lt>> to avoid confusion with the C<E<lt>=> operator which sets
the tag value from the contents of a file. A single space at the start of
the string is removed if it exists, but all other whitespace in the string
is preserved. See note 8 below about using shortcuts or wildcards with the
redirection feature.
See L</COPYING EXAMPLES> for examples using B<-tagsFromFile>.
Notes:
1) Some tags (generally tags which may affect the appearance of the image)
are considered "unsafe" to write, and are only copied if specified
explicitly (ie. no wildcards). See the
L<tag name documentation|Image::ExifTool::TagNames> for more details about
"unsafe" tags.
2) Be aware of the difference between excluding a tag from being copied
(--I<TAG>), and deleting a tag (-I<TAG>=). Excluding a tag prevents it from
being copied to the destination image, but deleting will remove a
pre-existing tag from the image.
3) The maker note information is copied as a block, so it isn't affected
like other information by subsequent tag assignments on the command line,
and individual makernote tags may not be excluded from a block copy. Also,
since the PreviewImage referenced from the maker notes may be rather large,
it is not copied, and must be transferred separately if desired.
4) The order of operations is to copy all specified tags at the point of the
B<-tagsFromFile> option in the command line. Any tag assignment to the
right of the B<-tagsFromFile> option is made after all tags are copied. For
example, new tag values are set in the order One, Two, Three then Four with
this command:
exiftool -One=1 -tagsFromFile s.jpg -Two -Four=4 -Three d.jpg
This is significant in the case where an overlap exists between the copied
and assigned tags because later operations may override earlier ones.
5) The normal behaviour of copied tags differs subtly from that of assigned
tags for list-type tags. When copying to a list, each copied tag overrides
any previous operations on the list. While this avoids duplicate list items
when copying groups of tags from a file containing redundant information, it
also prevents values of different tags from being copied into the same list
when this is the intent. So a B<-addTagsFromFile> option is provided which
allows copying of multiple tags into the same list. eg)
exiftool -addtagsfromfile @ '-subject<make' '-subject<model' ...
Similarly, B<-addTagsFromFile> must be used when conditionally replacing a
tag to prevent overriding earlier conditions.
Other than these differences, the B<-tagsFromFile> and B<-addTagsFromFile>
options are equivalent.
6) The B<-a> option (allow duplicate tags) is always in effect when copying
tags from I<SRCFILE>.
7) Structured tags are copied by default when copying tags. See the
B<-struct> option for details.
8) With the redirection feature, copying a tag directly (ie.
E<quot>'-I<DSTTAG>E<lt>I<SRCTAG>'E<quot>) is not the same as interpolating
its value inside a string (ie. E<quot>'-I<DSTTAG>E<lt>$I<SRCTAG>'E<quot>)
for L<shortcut tags|Image::ExifTool::Shortcuts> or tag names containing
wildcards. When copying directly, the values of each matching source tag
are copied individually to the destination tag (as if multiple redirection
arguments were used). However, when interpolated inside a string, the
values of shortcut tags are concatenated, and wildcards are not allowed.
=item B<-x> I<TAG> (B<-exclude>)
Exclude the specified tag. There may be multiple B<-x> options. This has
the same effect as --I<TAG> on the command line. See the --I<TAG>
documentation above for a complete description.
=back
=head3 Input-output text formatting
Note that trailing spaces are removed from extracted values for most output
text formats. The exceptions are C<-b>, C<-csv>, C<-j> and C<-X>.
=over 5
=item B<-args> (B<-argFormat>)
Output information in the form of exiftool arguments, suitable for use with
the B<-@> option when writing. May be combined with the B<-G> option to
include group names. This feature may be used to effectively copy tags
between images, but allows the metadata to be altered by editing the
intermediate file (C<out.args> in this example):
exiftool -args -G1 --filename --directory src.jpg > out.args
exiftool -@ out.args dst.jpg
Note: Be careful when copying information with this technique since it is
easy to write tags which are normally considered "unsafe". For instance,
the FileName and Directory tags are excluded in the example above to avoid
renaming and moving the destination file. Also note that the second command
above will produce warning messages for any tags which are not writable.
As well, the B<-sep> option should be used when reading back to maintain
separate list items, and the B<-struct> option may be used when extracting
to preserve structured XMP information.
=item B<-b> (B<-binary>)
Output requested metadata in binary format without tag names or
descriptions. This option is mainly used for extracting embedded images or
other binary data, but it may also be useful for some text strings since
control characters (such as newlines) are not replaced by '.' as they are in
the default output. List items are separated by a newline when extracted
with the B<-b> option. May be combined with C<-j>, C<-php> or C<-X> to
extract binary data in JSON, PHP or XML format.
=item B<-c> I<FMT> (B<-coordFormat>)
Set the print format for GPS coordinates. I<FMT> uses the same syntax as
the C<printf> format string. The specifiers correspond to degrees, minutes
and seconds in that order, but minutes and seconds are optional. For
example, the following table gives the output for the same coordinate using
various formats:
FMT Output
------------------- ------------------
"%d deg %d' %.2f"\" 54 deg 59' 22.80" (default for reading)
"%d %d %.8f" 54 59 22.80000000 (default for copying)
"%d deg %.4f min" 54 deg 59.3800 min
"%.6f degrees" 54.989667 degrees
Notes:
1) To avoid loss of precision, the default coordinate format is different
when copying tags using the B<-tagsFromFile> option.
2) If the hemisphere is known, a reference direction (N, S, E or W) is
appended to each printed coordinate, but adding a C<+> to the format
specifier (eg. C<%+.6f>) prints a signed coordinate instead.
3) This print formatting may be disabled with the B<-n> option to extract
coordinates as signed decimal degrees.
=item B<-charset> [[I<TYPE>=]I<CHARSET>]
If I<TYPE> is C<ExifTool> or not specified, this option sets the ExifTool
character encoding for output tag values when reading and input values when
writing. The default ExifTool encoding is C<UTF8>. If no I<CHARSET> is
given, a list of available character sets is returned. Valid I<CHARSET>
values are:
CHARSET Alias(es) Description
---------- --------------- ----------------------------------
UTF8 cp65001, UTF-8 UTF-8 characters (default)
Latin cp1252, Latin1 Windows Latin1 (West European)
Latin2 cp1250 Windows Latin2 (Central European)
Cyrillic cp1251, Russian Windows Cyrillic
Greek cp1253 Windows Greek
Turkish cp1254 Windows Turkish
Hebrew cp1255 Windows Hebrew
Arabic cp1256 Windows Arabic
Baltic cp1257 Windows Baltic
Vietnam cp1258 Windows Vietnamese
Thai cp874 Windows Thai
MacRoman cp10000, Roman Macintosh Roman
MacLatin2 cp10029 Macintosh Latin2 (Central Europe)
MacCyrillic cp10007 Macintosh Cyrillic
MacGreek cp10006 Macintosh Greek
MacTurkish cp10081 Macintosh Turkish
MacRomanian cp10010 Macintosh Romanian
MacIceland cp10079 Macintosh Icelandic
MacCroatian cp10082 Macintosh Croatian
I<TYPE> may be C<FileName> to specify the encoding of file names on the
command line (ie. I<FILE> arguments). In Windows, this triggers use of
wide-character i/o routines, thus providing support for Unicode file names.
See the L</WINDOWS UNICODE FILE NAMES> section below for details.
Other values of I<TYPE> listed below are used to specify the internal
encoding of various meta information formats.
TYPE Description Default
--------- ------------------------------------------- -------
EXIF Internal encoding of EXIF "ASCII" strings (none)
ID3 Internal encoding of ID3v1 information Latin
IPTC Internal IPTC encoding to assume when Latin
IPTC:CodedCharacterSet is not defined
Photoshop Internal encoding of Photoshop IRB strings Latin
QuickTime Internal encoding of QuickTime strings MacRoman
RIFF Internal encoding of RIFF strings 0
See L<http://owl.phy.queensu.ca/~phil/exiftool/faq.html#Q10> for more
information about coded character sets, and the
L<Image::ExifTool Options|Image::ExifTool/Options> for more details about
the B<-charset> settings.
=item B<-csv>[=I<CSVFILE>]
Export information in CSV format, or import information if I<CSVFILE> is
specified. When importing, the CSV file must be in exactly the same format
as the exported file. The first row of the I<CSVFILE> must be the ExifTool
tag names (with optional group names) for each column of the file, and
values must be separated by commas. A special "SourceFile" column specifies
the files associated with each row of information (and a SourceFile of "*"
may be used to define default tags to be imported for all files). The
following examples demonstrate basic use of this option:
# generate CSV file with common tags from all images in a directory
exiftool -common -csv dir > out.csv
# update metadata for all images in a directory from CSV file
exiftool -csv=a.csv dir
Empty values are ignored when importing. Also, FileName and Directory
columns are ignored if they exist (ie. ExifTool will not attempt to write
these tags with a CSV import). To force a tag to be deleted, use the B<-f>
option and set the value to "-" in the CSV file (or to the MissingTagValue
if this API option was used). Multiple databases may be imported in a
single command.
When exporting a CSV file, the B<-g> or B<-G> option to add group names to
the tag headings. If the B<-a> option is used to allow duplicate tag names,
the duplicate tags are only included in the CSV output if the column
headings are unique. Adding the B<-G4> option ensures a unique column
heading for each tag. When exporting specific tags, the CSV columns are
arranged in the same order as the specified tags provided the column
headings exactly match the specified tag names, otherwise the columns are
sorted in alphabetical order.
When importing from a CSV file, only files specified on the command line are
processed. Any extra entries in the CSV file are ignored.
List-type tags are stored as simple strings in a CSV file, but the B<-sep>
option may be used to split them back into separate items when importing.
Special feature: B<-csv>+=I<CSVFILE> may be used to add items to existing
lists. This affects only list-type tags. Also applies to the B<-j> option.
Note that this option is fundamentally different than all other output
format options because it requires information from all input files to be
buffered in memory before the output is written. This may result in
excessive memory usage when processing a very large number of files with a
single command. Also, it makes this option incompatible with the B<-w>
option.
=item B<-d> I<FMT> (B<-dateFormat>)
Set the format for date/time tag values. The specifics of the I<FMT> syntax
are system dependent -- consult the C<strftime> man page on your system for
details. The default format is equivalent to "%Y:%m:%d %H:%M:%S". This
option has no effect on date-only or time-only tags and ignores timezone
information if present. Only one B<-d> option may be used per command.
Requires POSIX::strptime or Time::Piece for the inversion conversion when
writing.
=item B<-D> (B<-decimal>)
Show tag ID number in decimal when extracting information.
=item B<-E>, B<-ex> (B<-escapeHTML>, B<-escapeXML>)
Escape characters in output values for HTML (B<-E>) or XML (B<-ex>). For
HTML, all characters with Unicode code points above U+007F are escaped as
well as the following 5 characters: & (&) E<39> (') E<quot> (")
E<gt> (>) and E<lt> (<). For XML, only these 5 characters are
escaped. The B<-E> option is implied with B<-h>, and B<-ex> is implied with
B<-X>. The inverse conversion is applied when writing tags.
=item B<-f> (B<-forcePrint>)
Force printing of tags even if their values are not found. This option only
applies when specific tags are requested on the command line (ie. not with
wildcards or by C<-all>). With this option, a dash (C<->) is printed for
the value of any missing tag, but the dash may be changed via the API
MissingTagValue option. May also be used to add a 'flags' attribute to the
B<-listx> output, or to allow tags to be deleted when writing with the
B<-csv>=I<CSVFILE> feature.
=item B<-g>[I<NUM>][:I<NUM>...] (B<-groupHeadings>)
Organize output by tag group. I<NUM> specifies a group family number, and
may be 0 (general location), 1 (specific location), 2 (category), 3
(document number) or 4 (instance number). B<-g0> is assumed if a family
number is not specified, and family numbers may be added wherever B<-g> is
mentioned in the documentation. Multiple families may be specified by
separating them with colons. By default the resulting group name is
simplified by removing any leading C<Main:> and collapsing adjacent
identical group names, but this can be avoided by placing a colon before the
first family number (eg. B<-g:3:1>). Use the B<-listg> option to list group
names for a specified family.
=item B<-G>[I<NUM>][:I<NUM>...] (B<-groupNames>)
Same as B<-g> but print group name for each tag. B<-G0> is assumed if
I<NUM> is not specified. May be combined with a number of other options to
add group names to the output. Note that I<NUM> may be added wherever B<-G>
is mentioned in the documentation. See the B<-g> option above for details.
=item B<-h> (B<-htmlFormat>)
Use HTML table formatting for output. Implies the B<-E> option. The
formatting options B<-D>, B<-H>, B<-g>, B<-G>, B<-l> and B<-s> may be used
in combination with B<-h> to influence the HTML format.
=item B<-H> (B<-hex>)
Show tag ID number in hexadecimal when extracting information.
=item B<-htmlDump>[I<OFFSET>]
Generate a dynamic web page containing a hex dump of the EXIF information.
This can be a very powerful tool for low-level analysis of EXIF information.
The B<-htmlDump> option is also invoked if the B<-v> and B<-h> options are
used together. The verbose level controls the maximum length of the blocks
dumped. An I<OFFSET> may be given to specify the base for displayed
offsets. If not provided, the EXIF/TIFF base offset is used. Use
B<-htmlDump0> for absolute offsets. Currently only EXIF/TIFF and JPEG
information is dumped, but the -u option can be used to give a raw hex dump
of other file formats.
=item B<-j>[=I<JSONFILE>] (B<-json>)
Use JSON (JavaScript Object Notation) formatting for console output, or
import JSON file if I<JSONFILE> is specified. This option may be combined
with B<-g> to organize the output into objects by group, or B<-G> to add
group names to each tag. List-type tags with multiple items are output as
JSON arrays unless B<-sep> is used. By default XMP structures are flattened
into individual tags in the JSON output, but the original structure may be
preserved with the B<-struct> option (this also causes all list-type XMP
tags to be output as JSON arrays, otherwise single-item lists are output as
simple strings). The B<-a> option is implied if the B<-g> or B<-G> options
are used, otherwise it is ignored and duplicate tags are suppressed. Adding
the B<-D> or B<-H> option changes tag values to JSON objects with "val" and
"id" fields, and adding B<-l> adds a "desc" field, and a "num" field if the
numerical value is different from the converted "val". The B<-b> option may
be added to output binary data, encoded in base64 if necessary (indicated by
"base64:" as the first 7 bytes of the value). The JSON output is UTF-8
regardless of any B<-L> or B<-charset> option setting, but the UTF-8
validation is disabled if a character set other than UTF-8 is specified.
If I<JSONFILE> is specified, the file is imported and the tag definitions
from the file are used to set tag values on a per-file basis. The special
"SourceFile" entry in each JSON object associates the information with a
specific target file. An object with a missing SourceFile or a SourceFile
of "*" defines default tags for all target files. The imported JSON file
must have the same format as the exported JSON files with the exception that
the B<-g> option is not compatible with the import file format (use B<-G>
instead). Additionally, tag names in the input JSON file may be suffixed
with a C<#> to disable print conversion.
Unlike CSV import, empty values are not ignored, and will cause an empty
value to be written if supported by the specific metadata type. Tags are
deleted by using the B<-f> option and setting the tag value to "-" (or to
the MissingTagValue setting if this API option was used). Importing with
B<-j>+=I<JSONFILE> causes new values to be added to existing lists.
=item B<-l> (B<-long>)
Use long 2-line Canon-style output format. Adds a description and
unconverted value (if it is different from the converted value) to the XML,
JSON or PHP output when B<-X>, B<-j> or B<-php> is used. May also be
combined with B<-listf>, B<-listr> or B<-listwf> to add descriptions of the
file types.
=item B<-L> (B<-latin>)
Use Windows Latin1 encoding (cp1252) for output tag values instead of the
default UTF-8. When writing, B<-L> specifies that input text values are
Latin1 instead of UTF-8. Equivalent to C<-charset latin>.
=item B<-lang> [I<LANG>]
Set current language for tag descriptions and converted values. I<LANG> is
C<de>, C<fr>, C<ja>, etc. Use B<-lang> with no other arguments to get a
list of available languages. The default language is C<en> if B<-lang> is
not specified. Note that tag/group names are always English, independent of
the B<-lang> setting, and translation of warning/error messages has not yet
been implemented. May also be combined with B<-listx> to output
descriptions in one language only.
By default, ExifTool uses UTF-8 encoding for special characters, but the
the B<-L> or B<-charset> option may be used to invoke other encodings.
Currently, the language support is not complete, but users are welcome to
help improve this by submitting their own translations. To submit a set of
translations, first use the B<-listx> option and redirect the output to a
file to generate an XML tag database, then add entries for other languages,
zip this file, and email it to phil at owl.phy.queensu.ca for inclusion in
ExifTool.
Note: ExifTool uses Unicode::LineBreak if available to help preserve the
column alignment of the plain text output for languages with a
variable-width character set.
=item B<-listItem> I<INDEX>
For list-type tags, this causes only the item with the specified index to be
extracted. I<INDEX> is 0 for the first item in the list. Negative indices
may also be used to reference items from the end of the list. Has no effect
on single-valued tags. Also applies to tag values when copying, and in
B<-if> conditions.
=item B<-n> (B<--printConv>)
Disable print conversion for all tags. By default, extracted values are
converted to a more human-readable format, but the B<-n> option disables
this conversion, revealing the machine-readable values. For example:
> exiftool -Orientation -S a.jpg
Orientation: Rotate 90 CW
> exiftool -Orientation -S -n a.jpg
Orientation: 6
The print conversion may also be disabled on a per-tag basis by suffixing
the tag name with a C<#> character:
> exiftool -Orientation# -Orientation -S a.jpg
Orientation: 6
Orientation: Rotate 90 CW
These techniques may also be used to disable the inverse print conversion
when writing. For example, the following commands all have the same effect:
> exiftool -Orientation='Rotate 90 CW' a.jpg
> exiftool -Orientation=6 -n a.jpg
> exiftool -Orientation#=6 a.jpg
=item B<-p> I<FMTFILE> or I<STR> (B<-printFormat>)
Print output in the format specified by the given file or string (and ignore
other format options). Tag names in the format file or string begin with a
C<$> symbol and may contain a leading group names and/or a trailing C<#>.
Case is not significant. Braces C<{}> may be used around the tag name to
separate it from subsequent text. Use C<$$> to represent a C<$> symbol, and
C<$/> for a newline. Multiple B<-p> options may be used, each contributing
a line of text to the output. Lines beginning with C<#[HEAD]> and
C<#[TAIL]> are output only for the first and last processed files
respectively. Lines beginning with C<#[BODY]> and lines not beginning with
C<#> are output for each processed file. Other lines beginning with C<#>
are ignored. For example, this format file:
# this is a comment line
#[HEAD]-- Generated by ExifTool $exifToolVersion --
File: $FileName - $DateTimeOriginal
(f/$Aperture, ${ShutterSpeed}s, ISO $EXIF:ISO)
#[TAIL]-- end --
with this command:
exiftool -p test.fmt a.jpg b.jpg
produces output like this:
-- Generated by ExifTool 10.40 --
File: a.jpg - 2003:10:31 15:44:19
(f/5.6, 1/60s, ISO 100)
File: b.jpg - 2006:05:23 11:57:38
(f/8.0, 1/13s, ISO 100)
-- end --
When B<-ee> (B<-extractEmbedded>) is combined with B<-p>, embedded documents
are effectively processed as separate input files.
If a specified tag does not exist, a minor warning is issued and the line
with the missing tag is not printed. However, the B<-f> option may be used
to set the value of missing tags to '-' (but this may be configured via the
MissingTagValue API option), or the B<-m> option may be used to ignore minor
warnings and leave the missing values empty.
An advanced formatting feature allows an arbitrary Perl expression to be
applied to the value of any tag by placing it inside the braces after the
tag name, separated by a semicolon. The expression acts on the value of the
tag through the default input variable (C<$_>), and has access to the full
ExifTool API through the current ExifTool object (C<$self>). It may contain
any valid Perl code, including translation (C<tr///>) and substitution
(C<s///>) operations, but note that braces within the expression must be
balanced. The example below prints the camera Make with spaces translated to
underlines, and multiple consecutive underlines replaced by a single
underline:
exiftool -p '${make;tr/ /_/;s/__+/_/g}' image.jpg
A default expression of C<tr(/\\?*:|"E<lt>E<gt>\0)()d> is assumed if the
expression is empty. This removes the characters / \ ? * : | E<lt> E<gt>
and null from the printed value. (These characters are illegal in Windows
file names, so this feature is useful if tag values are used in file names.)
=item B<-php>
Format output as a PHP Array. The B<-g>, B<-G>, B<-D>, B<-H>, B<-l>,
B<-sep> and B<-struct> options combine with B<-php>, and duplicate tags are
handled in the same way as with the B<-json> option. As well, the B<-b>
option may be added to output binary data. Here is a simple example showing
how this could be used in a PHP script:
<?php
eval('$array=' . `exiftool -php -q image.jpg`);
print_r($array);
?>
=item B<-s>[I<NUM>] (B<-short>)
Short output format. Prints tag names instead of descriptions. Add I<NUM>
or up to 3 B<-s> options for even shorter formats:
-s1 or -s - print tag names instead of descriptions
-s2 or -s -s - no extra spaces to column-align values
-s3 or -s -s -s - print values only (no tag names)
Also effective when combined with B<-t>, B<-h>, B<-X> or B<-listx> options.
=item B<-S> (B<-veryShort>)
Very short format. The same as B<-s2> or two B<-s> options. Tag names are
printed instead of descriptions, and no extra spaces are added to
column-align values.
=item B<-sep> I<STR> (B<-separator>)
Specify separator string for items in list-type tags. When reading, the
default is to join list items with ", ". When writing, this option causes
values assigned to list-type tags to be split into individual items at each
substring matching I<STR> (otherwise they are not split by default). Space
characters in I<STR> match zero or more whitespace characters in the value.
Note that an empty separator ("") is allowed, and will join items with no
separator when reading, or split the value into individual characters when
writing.
=item B<-sort>, B<--sort>
Sort output by tag description, or by tag name if the B<-s> option is used.
When sorting by description, the sort order will depend on the B<-lang>
option setting. Without the B<-sort> option, tags appear in the order they
were specified on the command line, or if not specified, the order they were
extracted from the file. By default, tags are organized by groups when
combined with the B<-g> or B<-G> option, but this grouping may be disabled
with B<--sort>.
=item B<-struct>, B<--struct>
Output structured XMP information instead of flattening to individual tags.
This option works well when combined with the XML (B<-X>) and JSON (B<-j>)
output formats. For other output formats, the structures are serialized
into the same format as when writing structured information (see
L<http://owl.phy.queensu.ca/~phil/exiftool/struct.html> for details). When
copying, structured tags are copied by default unless B<--struct> is used to
disable this feature (although flattened tags may still be copied by
specifying them individually unless B<-struct> is used). These options have
no effect when assigning new values since both flattened and structured tags
may always be used when writing.
=item B<-t> (B<-tab>)
Output a tab-delimited list of description/values (useful for database
import). May be combined with B<-s> to print tag names instead of
descriptions, or B<-S> to print tag values only, tab-delimited on a single
line. The B<-t> option may also be used to add tag table information to the
B<-X> option output.
=item B<-T> (B<-table>)
Output tag values in table form. Equivalent to B<-t -S -q -f>.
=item B<-v>[I<NUM>] (B<-verbose>)
Print verbose messages. I<NUM> specifies the level of verbosity in the
range 0-5, with higher numbers being more verbose. If I<NUM> is not given,
then each B<-v> option increases the level of verbosity by 1. With any
level greater than 0, most other options are ignored and normal console
output is suppressed unless specific tags are extracted. Using B<-v0>
causes the console output buffer to be flushed after each line (which may be
useful to avoid delays when piping exiftool output), and prints the name of
each processed file when writing. Also see the B<-progress> option.
=item B<-w>[+|!] I<EXT> or I<FMT> (B<-textOut>)
Write console output to files with names ending in I<EXT>, one for each
source file. The output file name is obtained by replacing the source file
extension (including the '.') with the specified extension (and a '.' is
added to the start of I<EXT> if it doesn't already contain one).
Alternatively, a I<FMT> string may be used to give more control over the
output file name and directory. In the format string, %d, %f and %e
represent the directory, filename and extension of the source file, and %c
represents a copy number which is automatically incremented if the file
already exists. %d includes the trailing '/' if necessary, but %e does not
include the leading '.'. For example:
-w %d%f.txt # same effect as "-w txt"
-w dir/%f_%e.out # write files to "dir" as "FILE_EXT.out"
-w dir2/%d%f.txt # write to "dir2", keeping dir structure
-w a%c.txt # write to "a.txt" or "a1.txt" or "a2.txt"...
Existing files will not be overwritten unless an exclamation point is added
to the option name (ie. B<-w!> or B<-textOut!>), or a plus sign to append to
the existing file (ie. B<-w+> or B<-textOut+>). Both may be used (ie.
B<-w+!> or B<-textOut+!>) to overwrite output files that didn't exist before
the command was run, and append the output from multiple source files. For
example, to write one output file for all source files in each directory:
exiftool -filename -createdate -T -w+! %d/out.txt -r DIR
Capitalized format codes %D, %F, %E and %C provide slightly different
alternatives to the lower case versions. %D does not include the trailing
'/', %F is the full filename including extension, %E includes the leading
'.', and %C increments the count for each processed file (see below).
Notes:
1) In a Windows BAT file the C<%> character is represented by C<%%>, so an
argument like C<%d%f.txt> is written as C<%%d%%f.txt>.
2) If the argument for B<-w> does not contain a valid format code (eg. %f),
then it is interpreted as a file extension. It is not possible to specify a
simple filename as an argument -- creating a single output file from
multiple source files is typically done by shell redirection, ie)
exiftool FILE1 FILE2 ... > out.txt
But if necessary, an empty format code may be used to force the argument to
be interpreted as a format string, and the same result may be obtained
without the use of shell redirection:
exiftool -w+! %0fout.txt FILE1 FILE2 ...
Advanced features:
A substring of the original file name, directory or extension may be taken
by specifying a field width immediately following the '%' character. If the
width is negative, the substring is taken from the end. The substring
position (characters to ignore at the start or end of the string) may be
given by a second optional value after a decimal point. For example:
Input File Name Format Specifier Output File Name
---------------- ---------------- ----------------
Picture-123.jpg %7f.txt Picture.txt
Picture-123.jpg %-.4f.out Picture.out
Picture-123.jpg %7f.%-3f Picture.123
Picture-123a.jpg Meta%-3.1f.txt Meta123.txt
For %d and %D, the field width/position specifiers may be applied to the
directory levels instead of substring position by using a colon instead of a
decimal point in the format specifier. For example:
Source Dir Format Result Notes
------------ ------ ---------- ------------------
pics/2012/02 %2:d pics/2012/ take top 2 levels
pics/2012/02 %-:1d pics/2012/ up one directory level
pics/2012/02 %:1d 2012/02/ ignore top level
pics/2012/02 %1:1d 2012/ take 1 level after top
pics/2012/02 %-1:D 02 bottom level folder name
/Users/phil %:2d phil/ ignore top 2 levels
(Note that the root directory counts as one level when an absolute path is
used as in the last example above.)
For %c, these modifiers have a different effects. If a field width is
given, the copy number is padded with zeros to the specified width. A
leading '-' adds a dash before the copy number, and a '+' adds an underline.
By default, the copy number is omitted from the first file of a given name,
but this can be changed by adding a decimal point to the modifier. For
example:
-w A%-cZ.txt # AZ.txt, A-1Z.txt, A-2Z.txt ...
-w B%5c.txt # B.txt, B00001.txt, B00002.txt ...
-w C%.c.txt # C0.txt, C1.txt, C2.txt ...
-w D%-.c.txt # D-0.txt, D-1.txt, D-2.txt ...
-w E%-.4c.txt # E-0000.txt, E-0001.txt, E-0002.txt ...
-w F%-.4nc.txt # F-0001.txt, F-0002.txt, F-0003.txt ...
-w G%+c.txt # G.txt, G_1.txt G_2.txt ...
-w H%-lc.txt # H.txt, H-b.txt, H-c.txt ...
-w I.%.3uc.txt # I.AAA.txt, I.AAB.txt, I.AAC.txt ...
A special feature allows the copy number to be incremented for each
processed file by using %C (upper case) instead of %c. This allows a
sequential number to be added to output file names, even if the names are
different. For %C, a copy number of zero is not omitted as it is with %c.
The number before the decimal place gives the starting index, the number
after the decimal place gives the field width. The following examples show
the output filenames when used with the command
C<exiftool rose.jpg star.jpg jet.jpg ...>:
-w %C%f.txt # 0rose.txt, 1star.txt, 2jet.txt
-w %f-%10C.txt # rose-10.txt, star-11.txt, jet-12.txt
-w %.3C-%f.txt # 000-rose.txt, 001-star.txt, 002-jet.txt
-w %57.4C%f.txt # 0057rose.txt, 0058star.txt, 0059jet.txt
All format codes may be modified by 'l' or 'u' to specify lower or upper
case respectively (ie. C<%le> for a lower case file extension). When used
to modify %c or %C, the numbers are changed to an alphabetical base (see
example H above). Also, %c and %C may be modified by 'n' to count using
natural numbers starting from 1, instead of 0 (see example F above).
This same I<FMT> syntax is used with the B<-o> and B<-tagsFromFile> options,
although %c and %C are only valid for output file names.
=item B<-W>[!|+] I<FMT> (B<-tagOut>)
This enhanced version of the B<-w> option allows a separate output file to
be created for each extracted tag. The differences between B<-W> and B<-w>
are as follows:
1) With B<-W>, a new output file is created for each extracted tag.
2) B<-W> supports three additional format codes: %t, %g and %s represent
the tag name, group name, and suggested extension for the output file (based
on the format of the data). The %g code may be followed by a single digit
to specify the group family number (eg. %g1), otherwise family 0 is assumed.
The substring width/position/case specifiers may be used with these format
codes in exactly the same way as with %f and %e.
3) The argument for B<-W> is interpreted as a file name if it contains no
format codes. (For B<-w>, this would be a file extension.) This change
allows a simple file name to be specified, which, when combined with the
append feature, provides a method to write metadata from multiple source
files to a single output file without the need for shell redirection.
4) Adding the B<-v> option to B<-W> generates a list of the tags and output
file names instead of giving a verbose dump of the entire file. (Unless
appending all output to one file for each source file by using B<-W+> with
an output file I<FMT> that does not contain %t, $g or %s.)
5) Individual list items are stored in separate files when B<-W> is combined
with B<-b>, but note that for separate files to be created %c or %C must be
used in I<FMT> to give the files unique names.
=item B<-Wext> I<EXT>, B<--Wext> I<EXT> (B<-tagOutExt>)
This option is used to specify the type of output file(s) written by the
B<-W> option. An output file is written only if the suggested extension
matches I<EXT>. Multiple B<-Wext> options may be used to write more than
one type of file. Use B<--Wext> to write all but the specified type(s).
=item B<-X> (B<-xmlFormat>)
Use ExifTool-specific RDF/XML formatting for console output. Implies the
B<-a> option, so duplicate tags are extracted. The formatting options
B<-b>, B<-D>, B<-H>, B<-l>, B<-s>, B<-sep>, B<-struct> and B<-t> may be used
in combination with B<-X> to affect the output, but note that the tag ID
(B<-D>, B<-H> and B<-t>), binary data (B<-b>) and structured output
(B<-struct>) options are not effective for the short output (B<-s>). Another
restriction of B<-s> is that only one tag with a given group and name may
appear in the output. Note that the tag ID options (B<-D>, B<-H> and B<-t>)
will produce non-standard RDF/XML unless the B<-l> option is also used.
By default, B<-X> outputs flattened tags, so B<-struct> should be added if
required to preserve XMP structures. List-type tags with multiple values
are formatted as an RDF Bag, but they are combined into a single string when
B<-s> or B<-sep> is used. Using B<-L> changes the XML encoding from "UTF-8"
to "windows-1252". Other B<-charset> settings change the encoding only if
there is a corresponding standard XML character set. The B<-b> option
causes binary data values to be written, encoded in base64 if necessary.
The B<-t> option adds tag table information to the output (table C<name>,
decimal tag C<id>, and C<index> for cases where multiple conditional tags
exist with the same ID).
Note: This output is NOT the same as XMP because it uses
dynamically-generated property names corresponding to the ExifTool tag
names, and not the standard XMP properties. To write XMP instead, use the
B<-o> option with an XMP extension for the output file.
=back
=head3 Processing control
=over 5
=item B<-a>, B<--a> (B<-duplicates>, B<--duplicates>)
Allow (B<-a>) or suppress (B<--a>) duplicate tag names to be extracted. By
default, duplicate tags are suppressed unless the B<-ee> or B<-X> options
are used or the Duplicates option is enabled in the configuration file.
This option also has an affect when writing to allow duplicate Warning
messages to be shown.
=item B<-e> (B<--composite>)
Extract existing tags only -- don't calculate composite tags.
=item B<-ee> (B<-extractEmbedded>)
Extract information from embedded documents in EPS files, embedded EPS
information and JPEG and Jpeg2000 images in PDF files, embedded MPF images
in JPEG and MPO files, streaming metadata in AVCHD videos, and the resource
fork of Mac OS files. Implies the B<-a> option. Use B<-g3> or B<-G3> to
identify the originating document for extracted information. Embedded
documents containing sub-documents are indicated with dashes in the family 3
group name. (eg. C<Doc2-3> is the 3rd sub-document of the 2nd embedded
document.) Note that this option may increase processing time substantially,
especially for PDF files with many embedded images.
=item B<-ext> I<EXT>, B<--ext> I<EXT> (B<-extension>)
Process only files with (B<-ext>) or without (B<--ext>) a specified
extension. There may be multiple B<-ext> and B<--ext> options. EXT may
begin with a leading '.', and case is not significant. C<"*"> may be used
to process files with any extension (or none at all), as in the last three
examples:
exiftool -ext .JPG DIR # process only JPG files
exiftool --ext cr2 --ext dng DIR # supported files but CR2/DNG
exiftool -ext "*" DIR # process all files
exiftool -ext "*" --ext xml DIR # process all but XML files
exiftool -ext "*" --ext . DIR # all but those with no ext
Using this option has two main advantages over specifying C<*.I<EXT>> on the
command line: 1) It applies to files in subdirectories when combined with
the B<-r> option. 2) The B<-ext> option is case-insensitive, which is
useful when processing files on case-sensitive filesystems.
=item B<-F>[I<OFFSET>] (B<-fixBase>)
Fix the base for maker notes offsets. A common problem with some image
editors is that offsets in the maker notes are not adjusted properly when
the file is modified. This may cause the wrong values to be extracted for
some maker note entries when reading the edited file. This option allows an
integer I<OFFSET> to be specified for adjusting the maker notes base offset.
If no I<OFFSET> is given, ExifTool takes its best guess at the correct base.
Note that exiftool will automatically fix the offsets for images which store
original offset information (eg. newer Canon models). Offsets are fixed
permanently if B<-F> is used when writing EXIF to an image. eg)
exiftool -F -exif:resolutionunit=inches image.jpg
=item B<-fast>[I<NUM>]
Increase speed of extracting information. With this option, ExifTool will
not scan to the end of a JPEG image to check for an AFCP or PreviewImage
trailer, or past the first comment in GIF images or the audio/video data in
WAV/AVI files to search for additional metadata. These speed benefits are
small when reading images directly from disk, but can be substantial if
piping images through a network connection. For more substantial speed
benefits, B<-fast2> also causes exiftool to avoid extracting any EXIF
MakerNote information. B<-fast3> avoids processing the file entirely, and
returns only an initial guess at FileType and the pseudo System tags.
=item B<-fileOrder> [-]I<TAG>
Set file processing order according to the sorted value of the specified
I<TAG>. For example, to process files in order of date:
exiftool -fileOrder DateTimeOriginal DIR
Additional B<-fileOrder> options may be added for secondary sort keys.
Numbers are sorted numerically, and all other values are sorted
alphabetically. The sort order may be reversed by prefixing the tag name
with a C<-> (eg. C<-fileOrder -createdate>). Print conversion of the sorted
values is disabled with the B<-n> option, or a C<#> appended to the tag
name. Other formatting options (eg. B<-d>) have no effect on the sorted
values. Note that the B<-fileOrder> option has a large performance impact
since it involves an additional processing pass of each file.
=item B<-i> I<DIR> (B<-ignore>)
Ignore specified directory name. I<DIR> may be either an individual folder
name, or a full path. If a full path is specified, it must match the
Directory tag exactly to be ignored. Use multiple B<-i> options to ignore
more than one directory name. A special I<DIR> value of C<SYMLINKS> (case
sensitive) may be specified to ignore symbolic links when the B<-r> option
is used.
=item B<-if> I<EXPR>
Specify a condition to be evaluated before processing each I<FILE>. I<EXPR>
is a Perl-like logic expression containing tag names prefixed by C<$>
symbols. It is evaluated with the tags from each I<FILE> in turn, and the
file is processed only if the expression returns true. Unlike Perl variable
names, tag names are not case sensitive and may contain a hyphen. As well,
tag names may have a leading group names separated by colons, and/or a
trailing C<#> character to disable print conversion. The expression
C<$GROUP:all> evaluates to 1 if any tag exists in the specified C<GROUP>, or
0 otherwise (see note 2 below). When multiple B<-if> options are used, all
conditions must be satisfied to process the file. Returns an exit status of
1 if all files fail the condition. Below are a few examples:
# extract shutterspeed from all Canon images in a directory
exiftool -shutterspeed -if '$make eq "Canon"' dir
# add one hour to all images created on or after Apr. 2, 2006
exiftool -alldates+=1 -if '$CreateDate ge "2006:04:02"' dir
# set EXIF ISO value if possible, unless it is set already
exiftool '-exif:iso<iso' -if 'not $exif:iso' dir
# find images containing a specific keyword (case insensitive)
exiftool -if '$keywords =~ /harvey/i' -filename dir
Notes:
1) The B<-n> and B<-b> options also apply to tags used in I<EXPR>.
2) Some binary data blocks are not extracted unless specified explicitly.
These tags are not available for use in the B<-if> condition unless they are
also specified on the command line. The alternative is to use the
C<$GROUP:all> syntax. (eg. Use C<$exif:all> instead of C<$exif> in I<EXPR>
to test for the existence of EXIF tags.)
3) Tags in the string are interpolated the same way as with B<-p> before the
expression is evaluated. In this interpolation, C<$/> is converted to a
newline and C<$$> represents a single C<$> symbol (so Perl variables, if
used, require a double C<$>).
4) The condition may only test tags from the file being processed. To
process one file based on tags from another, two steps are required. For
example, to process XMP sidecar files in directory C<DIR> based on tags from
the associated NEF:
exiftool -if EXPR -p '$directory/$filename' -ext nef DIR > nef.txt
exiftool -@ nef.txt -srcfile %d%f.xmp ...
5) The B<-a> option has no effect on the evaluation of the expression, and
the values of duplicate tags are accessible only by specifying a group name
(such as a family 4 instance number, eg. C<$Copy1:TAG>, C<$Copy2:TAG>, etc).
=item B<-m> (B<-ignoreMinorErrors>)
Ignore minor errors and warnings. This enables writing to files with minor
errors and disables some validation checks which could result in minor
warnings. Generally, minor errors/warnings indicate a problem which usually
won't result in loss of metadata if ignored. However, there are exceptions,
so ExifTool leaves it up to you to make the final decision. Minor errors
and warnings are indicated by "[minor]" at the start of the message.
Warnings which affect processing when ignored are indicated by "[Minor]"
(with a capital "M").
=item B<-o> I<OUTFILE> or I<FMT> (B<-out>)
Set the output file or directory name when writing information. Without
this option, when any "real" tags are written the original file is renamed
to C<FILE_original> and output is written to I<FILE>. When writing only
FileName and/or Directory "pseudo" tags, B<-o> causes the file to be copied
instead of moved, but directories specified for either of these tags take
precedence over that specified by the B<-o> option.
I<OUTFILE> may be C<-> to write to stdout. The output file name may also be
specified using a I<FMT> string in which %d, %f and %e represent the
directory, file name and extension of I<FILE>. Also, %c may be used to add
a copy number. See the B<-w> option for I<FMT> string examples.
The output file is taken to be a directory name if it already exists as a
directory or if the name ends with '/'. Output directories are created if
necessary. Existing files will not be overwritten. Combining the
B<-overwrite_original> option with B<-o> causes the original source file to
be erased after the output file is successfully written.
A special feature of this option allows the creation of certain types of
files from scratch, or with the metadata from another type of file. The
following file types may be created using this technique:
XMP, EXIF, EXV, MIE, ICC/ICM, VRD, DR4
The output file type is determined by the extension of I<OUTFILE> (specified
as C<-.EXT> when writing to stdout). The output file is then created from a
combination of information in I<FILE> (as if the B<-tagsFromFile> option was
used), and tag values assigned on the command line. If no I<FILE> is
specified, the output file may be created from scratch using only tags
assigned on the command line.
=item B<-overwrite_original>
Overwrite the original I<FILE> (instead of preserving it by adding
C<_original> to the file name) when writing information to an image.
Caution: This option should only be used if you already have separate backup
copies of your image files. The overwrite is implemented by renaming a
temporary file to replace the original. This deletes the original file and
replaces it with the edited version in a single operation. When combined
with B<-o>, this option causes the original file to be deleted if the output
file was successfully written (ie. the file is moved instead of copied).
=item B<-overwrite_original_in_place>
Similar to B<-overwrite_original> except that an extra step is added to
allow the original file attributes to be preserved. For example, on a Mac
this causes the original file creation date, type, creator, label color,
icon, Finder tags and hard links to the file to be preserved (but note that
the Mac OS resource fork is always preserved unless specifically deleted
with C<-rsrc:all=>). This is implemented by opening the original file in
update mode and replacing its data with a copy of a temporary file before
deleting the temporary. The extra step results in slower performance, so
the B<-overwrite_original> option should be used instead unless necessary.
=item B<-P> (B<-preserve>)
Preserve the filesystem modification date/time of the original file
(C<FileModifyDate>) when writing. Note that some filesystems store a
creation date (C<FileCreateDate>) which is not affected by this option.
This creation date is preserved only on Windows systems where Win32API::File
and Win32::API are available. For other systems, the
B<-overwrite_original_in_place> option may be used if necessary to preserve
the creation date. This option is superseded by writing the FileModifyDate
tag (and FileCreateDate in Windows).
=item B<-password> I<PASSWD>
Specify password to allow processing of password-protected PDF documents.
If a password is required but not given, a warning is issued and the
document is not processed. This option is ignored if a password is not
required.
=item B<-progress>[:[I<TITLE>]]
Show file progress count in messages. The progress count appears in
brackets after the name of each processed file, and gives the current file
number and the total number of files to be processed. Implies the B<-v0>
option if I<TITLE> is not used, printing the name of each processed file
when writing. When combined with the B<-if> option, the total count
includes all files before the condition is applied, but files that fail the
condition will not have their names printed.
If followed by a colon (ie. B<-progress:>), the console window title is set
according to the specified I<TITLE> string. If no I<TITLE> is given, a
default I<TITLE> string of "ExifTool %p%%" is assumed. In the string, %f
represents the file name, %p is the progress as a percent, %r is the
progress as a ratio, and %% is a % character. May be combined with the
normal B<-progress> option to also show the progress count in console
messages. (Note: This feature works on Mac/Linux only if stderr goes to
the console.)
=item B<-q> (B<-quiet>)
Quiet processing. One B<-q> suppresses normal informational messages, and a
second B<-q> suppresses warnings as well. Error messages can not be
suppressed, although minor errors may be downgraded to warnings with the
B<-m> option, which may then be suppressed with C<-q -q>.
=item B<-r>[.] (B<-recurse>)
Recursively process files in subdirectories. Only meaningful if I<FILE> is
a directory name. Subdirectories with names beginning with "." are not
processed unless "." is added to the option name (ie. B<-r.> or
B<-recurse.>). By default, exiftool will also follow symbolic links to
directories if supported by the system, but this may be disabled with C<-i
SYMLINKS> (see the B<-i> option for details).
=item B<-scanForXMP>
Scan all files (even unsupported formats) for XMP information unless found
already. When combined with the B<-fast> option, only unsupported file
types are scanned. Warning: It can be time consuming to scan large files.
=item B<-u> (B<-unknown>)
Extract values of unknown tags. Add another B<-u> to also extract unknown
information from binary data blocks. This option applies to tags with
numerical tag ID's, and causes tag names like "Exif_0xc5d9" to be generated
for unknown information. It has no effect on information types which have
human-readable tag ID's (such as XMP), since unknown tags are extracted
automatically from these formats.
=item B<-U> (B<-unknown2>)
Extract values of unknown tags as well as unknown information from some
binary data blocks. This is the same as two B<-u> options.
=item B<-wm> I<MODE> (B<-writeMode>)
Set mode for writing/creating tags. I<MODE> is a string of one or more
characters from the list below. Write mode is C<wcg> unless otherwise
specified.
w - Write existing tags
c - Create new tags
g - create new Groups as necessary
For example, use C<-wm cg> to only create new tags (and avoid editing
existing ones).
The level of the group is the SubDirectory level in the metadata structure.
For XMP or IPTC this is the full XMP/IPTC block (the family 0 group), but
for EXIF this is the individual IFD (the family 1 group).
=item B<-z> (B<-zip>)
When reading, causes information to be extracted from .gz and .bz2
compressed images. (Only one image per archive. Requires gzip and bzip2 to
be installed on the system.) When writing, causes compressed information to
be written if supported by the metadata format. (eg. PNG supports
compressed textual metadata.) This option also disables the recommended
padding in embedded XMP, saving 2424 bytes when writing XMP in a file.
=back
=head3 Other options
=over 5
=item B<-@> I<ARGFILE>
Read command-line arguments from the specified file. The file contains one
argument per line (NOT one option per line -- some options require
additional arguments, and all arguments must be placed on separate lines).
Blank lines and lines beginning with C<#> are ignored. White space at the
start of a line is removed. Normal shell processing of arguments is not
performed, which among other things means that arguments should not be
quoted and spaces are treated as any other character. I<ARGFILE> may exist
relative to either the current directory or the exiftool directory unless an
absolute pathname is given.
For example, the following I<ARGFILE> will set the value of Copyright to
"Copyright YYYY, Phil Harvey", where "YYYY" is the year of CreateDate:
-d
%Y
-copyright<Copyright $createdate, Phil Harvey
=item B<-k> (B<-pause>)
Pause with the message C<-- press any key --> or C<-- press RETURN -->
(depending on your system) before terminating. This option is used to
prevent the command window from closing when run as a Windows drag and drop
application.
=item B<-list>, B<-listw>, B<-listf>, B<-listr>, B<-listwf>,
B<-listg>[I<NUM>], B<-listd>, B<-listx>
Print a list of all valid tag names (B<-list>), all writable tag names
(B<-listw>), all supported file extensions (B<-listf>), all recognized file
extensions (B<-listr>), all writable file extensions (B<-listwf>), all tag
groups [in a specified family] (B<-listg>[I<NUM>]), all deletable tag groups
(B<-listd>), or an XML database of tag details including language
translations (B<-listx>). The B<-list>, B<-listw> and B<-listx> options may
be followed by an additional argument of the form C<-GROUP:All> to list only
tags in a specific group, where C<GROUP> is one or more family 0-2 group
names (excepting EXIF IFD groups) separated by colons. With B<-listg>,
I<NUM> may be given to specify the group family, otherwise family 0 is
assumed. The B<-l> option may be combined with B<-listf>, B<-listr> or
B<-listwf> to add file descriptions to the list. The B<-lang> option may be
combined with B<-listx> to output descriptions in a single language. Here
are some examples:
-list # list all tag names
-list -EXIF:All # list all EXIF tags
-list -xmp:time:all # list all XMP tags relating to time
-listw -XMP-dc:All # list all writable XMP-dc tags
-listf # list all supported file extensions
-listr # list all recognized file extensions
-listwf # list all writable file extensions
-listg1 # list all groups in family 1
-listd # list all deletable groups
-listx -EXIF:All # list database of EXIF tags in XML format
-listx -XMP:All -s # list short XML database of XMP tags
When combined with B<-listx>, the B<-s> option shortens the output by
omitting the descriptions and values (as in the last example above), and
B<-f> adds a 'flags' attribute if applicable. The flags are formatted as a
comma-separated list of the following possible values: Avoid, Binary, List,
Mandatory, Permanent, Protected, Unknown and Unsafe (see the L<Tag Name
documentation|Image::ExifTool::TagNames>). For XMP List tags, the list type
(Alt, Bag or Seq) is added to the flags, and flattened structure tags are
indicated by a Flattened flag.
Note that none of the B<-list> options require an input I<FILE>.
=item B<-ver>
Print exiftool version number. The B<-v> option may be added to print
addition system information (see the README file of the full distribution
for more details about optional libraries).
=back
=head3 Special features
=over 5
=item B<-geotag> I<TRKFILE>
Geotag images from the specified GPS track log file. Using the B<-geotag>
option is equivalent to writing a value to the C<Geotag> tag. After the
B<-geotag> option has been specified, the value of the C<Geotime> tag is
written to define a date/time for the position interpolation. If C<Geotime>
is not specified, the value is copied from C<DateTimeOriginal#> (the C<#> is
added to copy the unformatted value, avoiding potential conflicts with the
B<-d> option). For example, the following two commands are equivalent:
exiftool -geotag trk.log image.jpg
exiftool -geotag trk.log "-Geotime<DateTimeOriginal#" image.jpg
When the C<Geotime> value is converted to UTC, the local system timezone is
assumed unless the date/time value contains a timezone. Writing C<Geotime>
causes the following tags to be written (provided they can be calculated
from the track log, and they are supported by the destination metadata
format): GPSLatitude, GPSLatitudeRef, GPSLongitude, GPSLongitudeRef,
GPSAltitude, GPSAltitudeRef, GPSDateStamp, GPSTimeStamp, GPSDateTime,
GPSTrack, GPSTrackRef, GPSSpeed, GPSSpeedRef, GPSImgDirection,
GPSImgDirectionRef, GPSPitch and GPSRoll. By default, tags are created in
EXIF, and updated in XMP only if they already exist. However,
C<EXIF:Geotime> or C<XMP:Geotime> may be specified to write only EXIF or XMP
tags respectively. Note that GPSPitch and GPSRoll are non-standard, and
require user-defined tags in order to be written.
The C<Geosync> tag may be used to specify a time correction which is applied
to each C<Geotime> value for synchronization with GPS time. For example,
the following command compensates for image times which are 1 minute and 20
seconds behind GPS:
exiftool -geosync=+1:20 -geotag a.log DIR
C<Geosync> must be set before C<Geotime> (if specified) to be effective.
Advanced C<Geosync> features allow a linear time drift correction and
synchronization from previously geotagged images. See "geotag.html" in the
full ExifTool distribution for more information.
Multiple B<-geotag> options may be used to concatenate GPS track log data.
Also, a single B<-geotag> option may be used to load multiple track log
files by using wildcards in the I<TRKFILE> name, but note that in this case
I<TRKFILE> must be quoted on most systems (with the notable exception of
Windows) to prevent filename expansion. For example:
exiftool -geotag "TRACKDIR/*.log" IMAGEDIR
Currently supported track file formats are GPX, NMEA RMC/GGA/GLL, KML, IGC,
Garmin XML and TCX, Magellan PMGNTRK, Honeywell PTNTHPR, Winplus Beacon
text, and Bramor gEO log files. See L</GEOTAGGING EXAMPLES> for examples.
Also see "geotag.html" in the full ExifTool distribution and the
L<Image::ExifTool Options|Image::ExifTool/Options> for more details and for
information about geotag configuration options.
=item B<-globalTimeShift> I<SHIFT>
Shift all formatted date/time values by the specified amount when reading.
Does not apply to unformatted (B<-n>) output. I<SHIFT> takes the same form
as the date/time shift when writing (see
L<Image::ExifTool::Shift.pl|Image::ExifTool::Shift.pl> for details), with a
negative shift being indicated with a minus sign (C<->) at the start of the
I<SHIFT> string. For example:
# return all date/times, shifted back by 1 hour
exiftool -globalTimeShift -1 -time:all a.jpg
# set the file name from the shifted CreateDate (-1 day) for
# all images in a directory
exiftool "-filename<createdate" -globaltimeshift "-0:0:1 0:0:0" \
-d %Y%m%d-%H%M%S.%%e dir
=item B<-use> I<MODULE>
Add features from specified plug-in I<MODULE>. Currently, the MWG module is
the only plug-in module distributed with exiftool. This module adds
read/write support for tags as recommended by the Metadata Working Group.
To save typing, C<-use MWG> is assumed if the C<MWG> group is specified for
any tag on the command line. See the
L<MWG Tags documentation|Image::ExifTool::TagNames/MWG Tags> for more
details. Note that this option is not reversible, and remains in effect
until the application terminates, even across the C<-execute> option.
=back
=head3 Utilities
=over 5
=item B<-restore_original>
=item B<-delete_original>[!]
These utility options automate the maintenance of the C<_original> files
created by exiftool. They have no effect on files without an C<_original>
copy. The B<-restore_original> option restores the specified files from
their original copies by renaming the C<_original> files to replace the
edited versions. For example, the following command restores the originals
of all JPG images in directory C<DIR>:
exiftool -restore_original -ext jpg DIR
The B<-delete_original> option deletes the C<_original> copies of all files
specified on the command line. Without a trailing C<!> this option prompts
for confirmation before continuing. For example, the following command
deletes C<a.jpg_original> if it exists, after asking "Are you sure?":
exiftool -delete_original a.jpg
These options may not be used with other options to read or write tag values
in the same command, but may be combined with options such B<-ext>, B<-if>,
B<-r>, B<-q> and B<-v>.
=back
=head3 Advanced options
Among other things, the advanced options allow complex processing to be
performed from a single command without the need for additional scripting.
This may be particularly useful for implementations such as Windows
drag-and-drop applications. These options may also be used to improve
performance in multi-pass processing by reducing the overhead required to
load exiftool for each invocation.
=over 5
=item B<-api> I<OPT[=VAL]>
Set ExifTool API option. I<OPT> is an API option name. The option value is
set to 1 if I<=VAL> is omitted, or undef if just I<VAL> is omitted. An
option may not be set to an empty string ("") via the command line, but the
config file may be used to accomplish this if necessary. See
L<Image::ExifTool Options|Image::ExifTool/Options> for a list of available
API options. This overrides API options set via the config file.
=item B<-common_args>
Specifies that all arguments following this option are common to all
executed commands when B<-execute> is used. This and the B<-config> option
are the only options that may not be used inside a B<-@> I<ARGFILE>. Note
that by definition this option and its arguments MUST come after all other
options on the command line.
=item B<-config> I<CFGFILE>
Load specified configuration file instead of the default ".ExifTool_config".
If used, this option must come before all other arguments on the command
line. The I<CFGFILE> name may contain a directory specification (otherwise
the file must exist in the current directory), or may be set to an empty
string ("") to disable loading of the config file. See the sample
configuration file and "config.html" in the full ExifTool distribution for
more information about the ExifTool configuration file.
=item B<-echo>[I<NUM>] I<TEXT>
Echo I<TEXT> to stdout (B<-echo> or B<-echo1>) or stderr (B<-echo2>). Text
is output as the command line is parsed, before the processing of any input
files. I<NUM> may also be 3 or 4 to output text (to stdout or stderr
respectively) after processing is complete.
=item B<-execute>[I<NUM>]
Execute command for all arguments up to this point on the command line (plus
any arguments specified by B<-common_args>). The result is as if the
commands were executed as separate command lines (with the exception of the
B<-use> option which remains in effect for subsequent commands). Allows
multiple commands to be executed from a single command line. I<NUM> is an
optional number that is echoed in the "{ready}" message when using the
B<-stay_open> feature.
=item B<-srcfile> I<FMT>
Specify a different source file to be processed based on the name of the
original I<FILE>. This may be useful in some special situations for
processing related preview images or sidecar files. See the B<-w> option
for a description of the I<FMT> syntax. Note that file name I<FMT> strings
for all options are based on the original I<FILE> specified from the command
line, not the name of the source file specified by B<-srcfile>.
For example, to copy metadata from NEF files to the corresponding JPG
previews in a directory where other JPG images may exist:
exiftool -ext nef -tagsfromfile @ -srcfile %d%f.jpg dir
If than one B<-srcfile> option is specified, the files are tested in order
and the first existing source file is processed. If none of the source
files already exist, then exiftool uses the first B<-srcfile> specified.
A I<FMT> of C<@> may be used to represent the original I<FILE>, which may be
useful when specifying multiple B<-srcfile> options (eg. to fall back to
processing the original I<FILE> if no sidecar exists).
=item B<-stay_open> I<FLAG>
If I<FLAG> is C<1> or C<True>, causes exiftool keep reading from the B<-@>
I<ARGFILE> even after reaching the end of file. This feature allows calling
applications to pre-load exiftool, thus avoiding the overhead of loading
exiftool for each command. The procedure is as follows:
1) Execute C<exiftool -stay_open True -@ I<ARGFILE>>, where I<ARGFILE> is the
name of an existing (possibly empty) argument file or C<-> to pipe arguments
from the standard input.
2) Write exiftool command-line arguments to I<ARGFILE>, one argument per
line (see the B<-@> option for details).
3) Write C<-execute\n> to I<ARGFILE>, where C<\n> represents a newline
sequence. (Note: You may need to flush your write buffers here if using
buffered output.) Exiftool will then execute the command with the arguments
received up to this point, send a "{ready}" message to stdout when done
(unless the B<-q> or B<-T> option is used), and continue trying to read
arguments for the next command from I<ARGFILE>. To aid in command/response
synchronization, any number appended to the C<-execute> option is echoed in
the "{ready}" message. For example, C<-execute613> results in "{ready613}".
4) Repeat steps 2 and 3 for each command.
5) Write C<-stay_open\nFalse\n> to I<ARGFILE> when done. This will cause
exiftool to process any remaining command-line arguments then exit normally.
The input I<ARGFILE> may be changed at any time before step 5 above by
writing the following lines to the currently open I<ARGFILE>:
-stay_open
True
-@
NEWARGFILE
This causes I<ARGFILE> to be closed, and I<NEWARGFILE> to be kept open.
(Without the B<-stay_open> here, exiftool would have returned to reading
arguments from I<ARGFILE> after reaching the end of I<NEWARGFILE>.)
Note: When writing arguments to a disk file there is a delay of up to 0.01
seconds after writing C<-execute\n> before exiftool starts processing the
command. This delay may be avoided by sending a CONT signal to the exiftool
process immediately after writing C<-execute\n>. (There is no associated
delay when writing arguments via a pipe with C<-@ ->, so the signal is not
necessary when using this technique.)
=item B<-userParam> I<PARAM[=VAL]>
Set user parameter. I<PARAM> is an arbitrary user parameter name. This
is an interface to the API UserParam option (see the
L<Image::ExifTool Options|Image::ExifTool/Options> documentation), and
provides a method to access user-defined parameters from inside tag name
expressions (as if it were any other tag, see example below), and from
PrintConv/ValueConv logic (via the ExifTool Options function). Similar to
the B<-api> option, the parameter value is set to 1 if I<=VAL> is omitted,
or undef if just I<VAL> is omitted.
exiftool -p '$test from $filename' -userparam test=Hello FILE
=back
=head1 WINDOWS UNICODE FILE NAMES
In Windows, by default, file and directory names are specified on the
command line (or in arg files) using the system code page, which varies with
the system settings. Unfortunately, these code pages are not complete
character sets, so not all file names may be represented.
ExifTool 9.79 and later allow the file name encoding to be specified with
C<-charset filename=CHARSET>, where C<CHARSET> is the name of a valid
ExifTool character set, preferably C<UTF8> (see the B<-charset> option for a
complete list). Setting this triggers the use of Windows wide-character i/o
routines, thus providing support for all Unicode file names. But note that
it is not trivial to pass properly encoded file names on the Windows command
line (see L<http://owl.phy.queensu.ca/~phil/exiftool/faq.html#Q18> for
details), so placing them in a UTF-8 encoded B<-@> argfile is recommended if
possible.
When a directory name is provided, the file name encoding need not be
specified (unless the directory name contains special characters), and
ExifTool will automatically use wide-character routines to scan the
directory.
The filename character set applies to the I<FILE> arguments as well as
filename arguments of B<-@>, B<-geotag>, B<-o>, B<-p>, B<-srcfile>,
B<-tagsFromFile>, B<-csv>=, B<-j>= and B<->I<TAG>E<lt>=. However, it does
not apply to the B<-config> filename, which always uses the system character
set. The C<-charset filename=> option must come before the B<-@> option to
be effective, but the order doesn't matter with respect to other options.
Notes:
1) FileName and Directory tag values still use the same encoding as other
tag values, and are converted to/from the filename character set when
writing/reading if specified.
2) Unicode support is not yet implemented for other Windows-based systems
like Cygwin.
3) See L</WRITING READ-ONLY FILES> below for a note about editing read-only
files with Unicode names.
=head1 WRITING READ-ONLY FILES
In general, ExifTool may be used to write metadata to read-only files
provided that the user has write permission in the directory. However,
there are three cases where file write permission is also required:
1) When using the B<-overwrite_original_in_place> option.
2) When writing only pseudo System tags (eg. FileModifyDate).
3) On Windows if the file has Unicode characters in its name, and a) the
B<-overwrite_original> option is used, or b) the C<_original> backup already
exists.
=head1 READING EXAMPLES
B<Note>: Beware when cutting and pasting these examples into your terminal!
Some characters such as single and double quotes and hyphens may have been
changed into similar-looking yet functionally-different characters by the
text formatter used to display this documentation. Also note that Windows
users must use double quotes instead of single quotes as below around
arguments containing special characters.
=over 5
=item exiftool -a -u -g1 a.jpg
Print all meta information in an image, including duplicate and unknown
tags, sorted by group (for family 1).
=item exiftool -common dir
Print common meta information for all images in C<dir>. C<-common> is a
L<shortcut tag|Image::ExifTool::Shortcuts> representing common EXIF meta
information.
=item exiftool -T -createdate -aperture -shutterspeed -iso dir > out.txt
List specified meta information in tab-delimited column form for all images
in C<dir> to an output text file named "out.txt".
=item exiftool -s -ImageSize -ExposureTime b.jpg
Print ImageSize and ExposureTime tag names and values.
=item exiftool -l -canon c.jpg d.jpg
Print standard Canon information from two image files.
=item exiftool -r -w .txt -common pictures
Recursively extract common meta information from files in C<pictures>
directory, writing text output to C<.txt> files with the same names.
=item exiftool -b -ThumbnailImage image.jpg > thumbnail.jpg
Save thumbnail image from C<image.jpg> to a file called C<thumbnail.jpg>.
=item exiftool -b -JpgFromRaw -w _JFR.JPG -ext NEF -r .
Recursively extract JPG image from all Nikon NEF files in the current
directory, adding C<_JFR.JPG> for the name of the output JPG files.
=item exiftool -a -b -W %d%f_%t%-c.%s -preview:all dir
Extract all types of preview images (ThumbnailImage, PreviewImage,
JpgFromRaw, etc.) from files in directory "dir", adding the tag name to the
output preview image file names.
=item exiftool -d '%r %a, %B %e, %Y' -DateTimeOriginal -S -s -ext jpg .
Print formatted date/time for all JPG files in the current directory.
=item exiftool -IFD1:XResolution -IFD1:YResolution image.jpg
Extract image resolution from EXIF IFD1 information (thumbnail image IFD).
=item exiftool '-*resolution*' image.jpg
Extract all tags with names containing the word "Resolution" from an image.
=item exiftool -xmp:author:all -a image.jpg
Extract all author-related XMP information from an image.
=item exiftool -xmp -b a.jpg > out.xmp
Extract complete XMP data record intact from C<a.jpg> and write it to
C<out.xmp> using the special C<XMP> tag (see the Extra tags in
L<Image::ExifTool::TagNames|Image::ExifTool::TagNames>).
=item exiftool -p '$filename has date $dateTimeOriginal' -q -f dir
Print one line of output containing the file name and DateTimeOriginal for
each image in directory C<dir>.
=item exiftool -ee -p '$gpslatitude, $gpslongitude, $gpstimestamp' a.m2ts
Extract all GPS positions from an AVCHD video.
=item exiftool -icc_profile -b -w icc image.jpg
Save complete ICC_Profile from an image to an output file with the same name
and an extension of C<.icc>.
=item exiftool -htmldump -w tmp/%f_%e.html t/images
Generate HTML pages from a hex dump of EXIF information in all images from
the C<t/images> directory. The output HTML files are written to the C<tmp>
directory (which is created if it didn't exist), with names of the form
'FILENAME_EXT.html'.
=item exiftool -a -b -ee -embeddedimage -W Image_%.3g3.%s file.pdf
Extract embedded JPG and JP2 images from a PDF file. The output images will
have file names like "Image_#.jpg" or "Image_#.jp2", where "#" is the
ExifTool family 3 embedded document number for the image.
=back
=head1 WRITING EXAMPLES
Note that quotes are necessary around arguments which contain certain
special characters such as C<E<gt>>, C<E<lt>> or any white space. These
quoting techniques are shell dependent, but the examples below will work for
most Unix shells. With the Windows cmd shell however, double quotes should
be used (eg. -Comment=E<34>This is a new commentE<34>).
=over 5
=item exiftool -Comment='This is a new comment' dst.jpg
Write new comment to a JPG image (replaces any existing comment).
=item exiftool -comment= -o newdir -ext jpg .
Remove comment from all JPG images in the current directory, writing the
modified images to a new directory.
=item exiftool -keywords=EXIF -keywords=editor dst.jpg
Replace existing keyword list with two new keywords (C<EXIF> and C<editor>).
=item exiftool -Keywords+=word -o newfile.jpg src.jpg
Copy a source image to a new file, and add a keyword (C<word>) to the
current list of keywords.
=item exiftool -exposurecompensation+=-0.5 a.jpg
Decrement the value of ExposureCompensation by 0.5 EV. Note that += with a
negative value is used for decrementing because the -= operator is used for
conditional deletion (see next example).
=item exiftool -credit-=xxx dir
Delete Credit information from all files in a directory where the Credit
value was C<xxx>.
=item exiftool -xmp:description-de='kühl' -E dst.jpg
Write alternate language for XMP:Description, using HTML character escaping
to input special characters.
=item exiftool -all= dst.jpg
Delete all meta information from an image. Note: You should NOT do this to
RAW images (except DNG) since proprietary RAW image formats often contain
information in the makernotes that is necessary for converting the image.
=item exiftool -all= -comment='lonely' dst.jpg
Delete all meta information from an image and add a comment back in. (Note
that the order is important: C<-comment='lonely' -all=> would also delete
the new comment.)
=item exiftool -all= --jfif:all dst.jpg
Delete all meta information except JFIF group from an image.
=item exiftool -Photoshop:All= dst.jpg
Delete Photoshop meta information from an image (note that the Photoshop
information also includes IPTC).
=item exiftool -r -XMP-crss:all= DIR
Recursively delete all XMP-crss information from images in a directory.
=item exiftool '-ThumbnailImageE<lt>=thumb.jpg' dst.jpg
Set the thumbnail image from specified file (Note: The quotes are necessary
to prevent shell redirection).
=item exiftool '-JpgFromRawE<lt>=%d%f_JFR.JPG' -ext NEF -r .
Recursively write JPEG images with filenames ending in C<_JFR.JPG> to the
JpgFromRaw tag of like-named files with extension C<.NEF> in the current
directory. (This is the inverse of the C<-JpgFromRaw> command of the
L</READING EXAMPLES> section above.)
=item exiftool -DateTimeOriginal-='0:0:0 1:30:0' dir
Adjust original date/time of all images in directory C<dir> by subtracting
one hour and 30 minutes. (This is equivalent to C<-DateTimeOriginal-=1.5>.
See L<Image::ExifTool::Shift.pl|Image::ExifTool::Shift.pl> for details.)
=item exiftool -createdate+=3 -modifydate+=3 a.jpg b.jpg
Add 3 hours to the CreateDate and ModifyDate timestamps of two images.
=item exiftool -AllDates+=1:30 -if '$make eq E<34>CanonE<34>' dir
Shift the values of DateTimeOriginal, CreateDate and ModifyDate forward by 1
hour and 30 minutes for all Canon images in a directory. (The AllDates tag
is provided as a shortcut for these three tags, allowing them to be accessed
via a single tag.)
=item exiftool -xmp:city=Kingston image1.jpg image2.nef
Write a tag to the XMP group of two images. (Without the C<xmp:> this tag
would get written to the IPTC group since C<City> exists in both, and IPTC
is preferred by default.)
=item exiftool -LightSource-='Unknown (0)' dst.tiff
Delete C<LightSource> tag only if it is unknown with a value of 0.
=item exiftool -whitebalance-=auto -WhiteBalance=tung dst.jpg
Set C<WhiteBalance> to C<Tungsten> only if it was previously C<Auto>.
=item exiftool -comment-= -comment='new comment' a.jpg
Write a new comment only if the image doesn't have one already.
=item exiftool -o %d%f.xmp dir
Create XMP meta information data files for all images in C<dir>.
=item exiftool -o test.xmp -owner=Phil -title='XMP File'
Create an XMP data file only from tags defined on the command line.
=item exiftool '-ICC_Profile<=%d%f.icc' image.jpg
Write ICC_Profile to an image from a C<.icc> file of the same name.
=item exiftool -hierarchicalkeywords='{keyword=one,children={keyword=B}}'
Write structured XMP information. See
L<http://owl.phy.queensu.ca/~phil/exiftool/struct.html> for more details.
=item exiftool -trailer:all= image.jpg
Delete any trailer found after the end of image (EOI) in a JPEG file. A
number of digital cameras store a large PreviewImage after the JPEG EOI, and
the file size may be reduced significantly by deleting this trailer. See
the L<JPEG Tags documentation|Image::ExifTool::TagNames/JPEG Tags> for a
list of recognized JPEG trailers.
=back
=head1 COPYING EXAMPLES
These examples demonstrate the ability to copy tag values between files.
=over 5
=item exiftool -tagsFromFile src.cr2 dst.jpg
Copy the values of all writable tags from C<src.cr2> to C<dst.jpg>, writing
the information to same-named tags in the preferred groups.
=item exiftool -TagsFromFile src.jpg -all:all dst.jpg
Copy the values of all writable tags from C<src.jpg> to C<dst.jpg>,
preserving the original tag groups.
=item exiftool -all= -tagsfromfile src.jpg -exif:all dst.jpg
Erase all meta information from C<dst.jpg> image, then copy EXIF tags from
C<src.jpg>.
=item exiftool -exif:all= -tagsfromfile @ -all:all -unsafe bad.jpg
Rebuild all EXIF meta information from scratch in an image. This technique
can be used in JPEG images to repair corrupted EXIF information which
otherwise could not be written due to errors. The C<Unsafe> tag is a
shortcut for unsafe EXIF tags in JPEG images which are not normally copied.
See the L<tag name documentation|Image::ExifTool::TagNames> for more details
about unsafe tags.
=item exiftool -Tagsfromfile a.jpg out.xmp
Copy meta information from C<a.jpg> to an XMP data file. If the XMP data
file C<out.xmp> already exists, it will be updated with the new information.
Otherwise the XMP data file will be created. Only XMP, ICC and MIE files
may be created like this (other file types may be edited but not created).
See L</WRITING EXAMPLES> above for another technique to generate XMP files.
=item exiftool -tagsFromFile a.jpg -XMP:All= -ThumbnailImage= -m b.jpg
Copy all meta information from C<a.jpg> to C<b.jpg>, deleting all XMP
information and the thumbnail image from the destination.
=item exiftool -TagsFromFile src.jpg -title -author=Phil dst.jpg
Copy title from one image to another and set a new author name.
=item exiftool -TagsFromFile a.jpg -ISO -TagsFromFile b.jpg -comment
dst.jpg
Copy ISO from one image and Comment from another image to a destination
image.
=item exiftool -tagsfromfile src.jpg -exif:all --subifd:all dst.jpg
Copy only the EXIF information from one image to another, excluding SubIFD
tags.
=item exiftool '-FileModifyDateE<lt>DateTimeOriginal' dir
Use the original date from the meta information to set the same file's
filesystem modification date for all images in a directory. (Note that
C<-TagsFromFile @> is assumed if no other B<-TagsFromFile> is specified when
redirecting information as in this example.)
=item exiftool -TagsFromFile src.jpg '-xmp:allE<lt>all' dst.jpg
Copy all possible information from C<src.jpg> and write in XMP format to
C<dst.jpg>.
=item exiftool -@ iptc2xmp.args -iptc:all= a.jpg
Translate IPTC information to XMP with appropriate tag name conversions, and
delete the original IPTC information from an image. This example uses
iptc2xmp.args, which is a file included with the ExifTool distribution that
contains the required arguments to convert IPTC information to XMP format.
Also included with the distribution are xmp2iptc.args (which performs the
inverse conversion) and a few more .args files for other conversions between
EXIF, IPTC and XMP.
=item exiftool -tagsfromfile %d%f.CR2 -r -ext JPG dir
Recursively rewrite all C<JPG> images in C<dir> with information copied from
the corresponding C<CR2> images in the same directories.
=item exiftool '-keywords+E<lt>make' image.jpg
Add camera make to list of keywords.
=item exiftool '-commentE<lt>ISO=$exif:iso Exposure=${shutterspeed}' dir
Set the Comment tag of all images in C<dir> from the values of the EXIF:ISO
and ShutterSpeed tags. The resulting comment will be in the form "ISO=100
Exposure=1/60".
=item exiftool -TagsFromFile src.jpg -icc_profile dst.jpg
Copy ICC_Profile from one image to another.
=item exiftool -TagsFromFile src.jpg -all:all dst.mie
Copy all meta information in its original form from a JPEG image to a MIE
file. The MIE file will be created if it doesn't exist. This technique can
be used to store the metadata of an image so it can be inserted back into
the image (with the inverse command) later in a workflow.
=item exiftool -o dst.mie -all:all src.jpg
This command performs exactly the same task as the command above, except
that the B<-o> option will not write to an output file that already exists.
=item exiftool -if '$jpgfromraw' -b -jpgfromraw -w %d%f_%ue.jpg -execute
-if '$previewimage' -b -previewimage -w %d%f_%ue.jpg -execute
-tagsfromfile @ -srcfile %d%f_%ue.jpg -overwrite_original
-common_args --ext jpg DIR
[Advanced] Extract JpgFromRaw or PreviewImage from all but JPG files in DIR,
saving them with file names like C<image_EXT.jpg>, then add all meta
information from the original files to the extracted images. Here, the
command line is broken into three sections (separated by B<-execute>
options), and each is executed as if it were a separate command. The
B<-common_args> option causes the C<--ext jpg DIR> arguments to be applied
to all three commands, and the B<-srcfile> option allows the extracted JPG
image to be the source file for the third command (whereas the RAW files are
the source files for the other two commands).
=back
=head1 RENAMING EXAMPLES
By writing the C<FileName> and C<Directory> tags, files are renamed and/or
moved to new directories. This can be particularly useful and powerful for
organizing files by date when combined with the B<-d> option. New
directories are created as necessary, but existing files will not be
overwritten. The format codes %d, %f and %e may be used in the new file
name to represent the directory, name and extension of the original file,
and %c may be used to add a copy number if the file already exists (see the
B<-w> option for details). Note that if used within a date format string,
an extra '%' must be added to pass these codes through the date/time parser.
(And further note that in a Windows batch file, all '%' characters must also
be escaped, so in this extreme case '%%%%f' is necessary to pass a simple
'%f' through the two levels of parsing.) See
L<http://owl.phy.queensu.ca/~phil/exiftool/filename.html> for additional
documentation and examples.
=over 5
=item exiftool -filename=new.jpg dir/old.jpg
Rename C<old.jpg> to C<new.jpg> in directory C<dir>.
=item exiftool -directory=%e dir
Move all files from directory C<dir> into directories named by the original
file extensions.
=item exiftool '-Directory<DateTimeOriginal' -d %Y/%m/%d dir
Move all files in C<dir> into a directory hierarchy based on year, month and
day of C<DateTimeOriginal>. eg) This command would move the file
C<dir/image.jpg> with a C<DateTimeOriginal> of C<2005:10:12 16:05:56> to
C<2005/10/12/image.jpg>.
=item exiftool -o . '-Directory<DateTimeOriginal' -d %Y/%m/%d dir
Same effect as above except files are copied instead of moved.
=item exiftool '-filename<%f_${model;}.%e' dir
Rename all files in C<dir> by adding the camera model name to the file name.
The semicolon after the tag name inside the braces causes characters which
are invalid in Windows file names to be deleted from the tag value (see the
B<-p> option documentation for an explanation).
=item exiftool '-FileName<CreateDate' -d %Y%m%d_%H%M%S%%-c.%%e dir
Rename all images in C<dir> according to the C<CreateDate> date and time,
adding a copy number with leading '-' if the file already exists (C<%-c>),
and preserving the original file extension (C<%e>). Note the extra '%'
necessary to escape the filename codes (C<%c> and C<%e>) in the date format
string.
=item exiftool -r '-FileName<CreateDate' -d %Y-%m-%d/%H%M_%%f.%%e dir
Both the directory and the filename may be changed together via the
C<FileName> tag if the new C<FileName> contains a '/'. The example above
recursively renames all images in a directory by adding a C<CreateDate>
timestamp to the start of the filename, then moves them into new directories
named by date.
=item exiftool '-FileName<${CreateDate}_$filenumber.jpg' -d %Y%m%d -ext jpg .
Set the filename of all JPG images in the current directory from the
CreateDate and FileNumber tags, in the form "20060507_118-1861.jpg".
=back
=head1 GEOTAGGING EXAMPLES
ExifTool implements geotagging via 3 special tags: Geotag (which for
convenience is also implemented as an exiftool option), Geosync and Geotime.
The examples below highlight some geotagging features. See
L<http://owl.phy.queensu.ca/~phil/exiftool/geotag.html> for additional
documentation.
=over 5
=item exiftool -geotag track.log a.jpg
Geotag an image (C<a.jpg>) from position information in a GPS track log
(C<track.log>). Since the C<Geotime> tag is not specified, the value of
DateTimeOriginal is used for geotagging. Local system time is assumed
unless DateTimeOriginal contains a timezone.
=item exiftool -geotag t.log -geotime='2009:04:02 13:41:12-05:00' a.jpg
Geotag an image with the GPS position for a specific time. (Note that the
C<Geotag> tag must be assigned before C<Geotime> for the GPS data to be
available when C<Geotime> is set.)
=item exiftool -geotag log.gpx '-xmp:geotimeE<lt>createdate' dir
Geotag all images in directory C<dir> with XMP tags instead of EXIF tags,
based on the image CreateDate. (In this case, the order of the arguments
doesn't matter because tags with values copied from other tags are always
set after constant values.)
=item exiftool -geotag a.log -geosync=-20 dir
Geotag images in directory C<dir>, accounting for image timestamps which
were 20 seconds ahead of GPS.
=item exiftool -geotag a.log -geosync=1.jpg -geosync=2.jpg dir
Geotag images using time synchronization from two previously geotagged images
(1.jpg and 2.jpg), synchronizing the image and GPS times using a linear time
drift correction.
=item exiftool -geotag a.log '-geotimeE<lt>${createdate}+01:00' dir
Geotag images in C<dir> using CreateDate with the specified timezone. If
CreateDate already contained a timezone, then the timezone specified on the
command line is ignored.
=item exiftool -geotag= a.jpg
Delete GPS tags which may have been added by the geotag feature. Note that
this does not remove all GPS tags -- to do this instead use C<-gps:all=>.
=item exiftool -xmp:geotag= a.jpg
Delete XMP GPS tags which were added by the geotag feature.
=item exiftool -xmp:geotag=track.log a.jpg
Geotag an image with XMP tags, using the time from DateTimeOriginal.
=item exiftool -geotag a.log -geotag b.log -r dir
Combine multiple track logs and geotag an entire directory tree of images.
=item exiftool -geotag 'tracks/*.log' -r dir
Read all track logs from the C<tracks> directory.
=item exiftool -p gpx.fmt -d %Y-%m-%dT%H:%M:%SZ dir > out.gpx
Generate a GPX track log from all images in directory C<dir>. This example
uses the C<gpx.fmt> file included in the full ExifTool distribution package
and assumes that the images in C<dir> have all been previously geotagged.
=back
=head1 PIPING EXAMPLES
=over 5
=item cat a.jpg | exiftool -
Extract information from stdin.
=item exiftool image.jpg -thumbnailimage -b | exiftool -
Extract information from an embedded thumbnail image.
=item cat a.jpg | exiftool -iptc:keywords+=fantastic - > b.jpg
Add an IPTC keyword in a pipeline, saving output to a new file.
=item curl -s http://a.domain.com/bigfile.jpg | exiftool -fast -
Extract information from an image over the internet using the cURL utility.
The B<-fast> option prevents exiftool from scanning for trailer information,
so only the meta information header is transferred.
=item exiftool a.jpg -thumbnailimage -b | exiftool -comment=wow - |
exiftool a.jpg -thumbnailimage'<=-'
Add a comment to an embedded thumbnail image. (Why anyone would want to do
this I don't know, but I've included this as an example to illustrate the
flexibility of ExifTool.)
=back
=head1 DIAGNOSTICS
The exiftool application exits with a status of 0 on success, or 1 if an
error occurred or if all files failed the B<-if> condition (for any of the
commands if B<-execute> was used).
=head1 AUTHOR
Copyright 2003-2017, Phil Harvey
This is free software; you can redistribute it and/or modify it under the
same terms as Perl itself.
=head1 SEE ALSO
L<Image::ExifTool(3pm)|Image::ExifTool>,
L<Image::ExifTool::TagNames(3pm)|Image::ExifTool::TagNames>,
L<Image::ExifTool::Shortcuts(3pm)|Image::ExifTool::Shortcuts>,
L<Image::ExifTool::Shift.pl|Image::ExifTool::Shift.pl>
=cut
#------------------------------------------------------------------------------
# end
|