Result:
found more than 1015 distributions - search limited to the first 2001 files matching your query
( run in 1.734 )
Dist-Zilla-PluginBundle-GRS
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
}
else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
Dita-Extend
view release on metacpan or search on metacpan
lib/Dita/Validate.pm view on Meta::CPAN
"apply" => "eNrt2ctu2+gZBuB9r0LIqgWy0IGipAFaoMCgN1F0Qcu0w0ISPTo4DoK590qWM4j4f8Is+y0ebwLH\nr/7zgdTzsGkPh79+/8to9Gn8aTQa/f0fo3+fdo/t0+fRxz/fR83Ly+bb5S+Tqh79/vGH/3y+fGby\n4zPnX376uX70z//v++2vo1HzcBgNfy4VT+efi+juMYwGyff2l8kouO/fimBQ4...
"area" => "eNpLykktLtao5lJQUDJQUrC1U4guzUtJTdNRgFLVColFqYkgCUOFWqhorA5IuSF25cUZiQWpIBkj\nkHoDiFoj7GqT8/OLUopBUsZIio2xK64oSk0DSZggKTXBphRKGQKVAFUquSSWJFpZubg5KmkCAKhr\nQR0=\n",
"author" => "eNrt3M2K4kAUhuH9XEWo1QwomPjfMAMNTd/EMItSSw1aFalUtBvx3ieO0ppUYHZn9brRJF/qJx6f\n1cHF3pTl9/O3JFEDlSQ/fyW/K7cy615yfzsnugrbwl8vZdPkcr/wp3e9Jb3fUn9+vG43/u/UuXFU\nj6UXC2+OuQ5m1V8X3qp/M456Ue6QO22Nepyqc7MotrSrOJamUW6lg1aNU3Vu2...
"b" => "eNrt3Mtu20YUBuB9n0LQqgVswLrZToAWKBD0JYouaIm2CYukQpFOgiDvXjJWYotDILuz+rxxLPwZ\nzuVw9K3O3T4/Hn//+ttsNr+az2Z//jX7t6t2+f3F7PTr6+xu+HSzmn07ffbfxZBenNL9v19/Xv7P\nrz76evZXP1Z2d9fkz0XW5rvL+7op58PI69VFkjsUVVbm89eP+twiid3NZ6OfP...
"bind" => "eNrt2ctu48gVBuB9nkLoVQL0QiKp2wAJEGCQlwiyoGXaw0AXj0S5u9GYd48sewYt1hFmmbP4vGnY\n/avuVSzqe9h2p9Nfv/9lMvk0/TSZTP7+j8m/z/vH7unz5OOf75OHfv/49h+zZjH57ePv//n89pHZ\n7x+5/PLDz/sn//xv329/nUzah9Nk/PNW8az+XEQvbYqiTZl8edl+C5JR8Hj4W...
"body" => "eNrt3ctum0AUxvF9nwKxaiVbMuBrpFaqFPUlqi7GMCE0XBwuaVLL716wHdtwiPoA55+NY/wxw8wc\n57c6yja1VfV5/8lx3JnrOF+/OT+bPLIPE+f8sne2RfTWfRCsnMP58q9Jd4N3vqH9/fpzuu1/l/a9\nd+1Y3SRR8uJeL3UzzifDXFhEdpsW4ZN7k/MWIheZ2ri9S23OH89NzbZoavcmt...
"bodydiv" => "eNrt18lu48oVBuB9nkLQKgHagObhAgkQ4CIvEWRBSbTNtKamKLedRr97SNttS6q6yQOczxtPv2o6\nVUV+q215Ov35x596vf6g3+v99W+9f573m/L+S+/924/e6rB52VRP3f8Wo97P9//860v3meH7Z9qf\nP7/ePvn//vTj6re2rWK1qsunqmjKzd39od71u5ZH4y9J7ljti13Z//xTmxsPk...
"brand" => "eNrt3E2r2kAUxvF9P0WYVQsKJr5faKFw6ZcoXYxm9AaTiUxGvRfxu3escjWZQHdn9XejiU/mJTn+\nVgdXpWmar+cvSaJGKkm+/0h+H2xuNoPk/nZOVk7b/PpNNk8u9/N/Btcr0vsV4fPjdbvuf6fOraMw\nll6tnDkW2pt8uKldpf7NOBlEuX1hdWXU41TILaLYusrjWJpGuVx7rVqnQm7eG...
"bvar" => "eNpLykktLtao5lJQUDJQUrC1U4guzUtJTdNRgFLVCklliUUgCUOFWqhorA5IuSF25cmZIGEjHYXi\n1NzEvJLM5GIQ3xik2QCi0QibRihlCFFiTEAJ0DAll8SSRCsrFzdHJU0AeCE22Q==\n",
"category" => "eNrt3M2O2jAUhuF9ryLyqpVAIuF/pFaqNOpNVF0Y8DAR2EGOgUGIe68paCBxpO7O6mUDSb74Jxye\n1RGLranrr+cvWaYGKsu+/8h+793KvPWy+9s5W+pg1pU/XS8W0+xyv/Snd70pv98UPz9et1v/d+rc\nOIpj6cXCm0MZp1v13ypv1b8ZR70ktyudtkY9TsXcLIkt7SqN5XmSW+mgVeNUz...
"cause" => "eNrt281u2kAUhuF9r8LyqpVAwjghEKmVKkW9iaqLwQzEjX/IeJymjXLvHQNJsI8zs6tU6c2GYD7m\nzwc/q7MudNN8fPoQRfEsjqLPX6LvbbXR20l0enmKMtU2uvskiZ5Pl39Mui8kpy+4/9/+jl8LXXrq\nvXNjZfVGr4s6u4tfLnUTLibD3EZZFfcuudx8PDdV67q18VluKXP5Q3+4Qy6Vu...
lib/Dita/Validate.pm view on Meta::CPAN
"msrow" => "eNrt2ctuG8kVBuB9nkLwKgG8YJPN2wAJEGCQlwiyaFEtDTO8uUlqbAzm3UOK8pjddYQAZ/15Y8j+\nVfeqru7vcdMej3/9/S8PD59Gnx4eHv7+j4d/n3dP7fPnh/e/fn/YHrv9b9f/qeajhz/e/+M/n6+/\nU33/ncsPd39uv/r//+33/o8PD83jsf8P11rH089FbvdU5CZl6nDYfBuWFqW6/...
"mstack" => "eNrt2ctuG8kVBuB9nkLwKgG8YPPOARIgwCAvEWTRoloyM82Lm6THxmDePaQo2+yuI2R9gM8bQ/av\nuld1dX+PbXM8/vWPvzw8fBh9eHh4+Ps/Hv593j01zx8f3v7642F7PNXr367/VS0mD3++/c9/Pl5/\nqfr+S5cf7v7cfvf//9sf/R8fHurHY/8frrWOZx+L3O6pyE3K1OHQfhuWFqW6/...
"mstyle" => "eNrt2dtu29gVBuD7PoWRqxbIhShRpwFaoMCgL1H0gpZpjzrUIRSViTGYd69kORNxr2X0Bb7cBE5+\n7/Pe3OT32LWn019//8vDw6fJp4eHh7//4+Hf5/1T+/z54f2v3x92p+G1a6//VS3WD3+8/89/Pl9/\nqfr+S5cf7v7cfvf//9vv4x8fHprH0/gfrrVO559Dbv8UcrOYOh6717K0LNUfv...
"msub" => "eNrt2s2OG0l2BtC9n6KglQ30ghmRSTIHsAEDA7+E4QXFotT08KeaZKklNObdXVSpR0XmLcxdOTZn\nNg1pPuXPzciIuHn4cbc5n//1j395ePgw+/Dw8PDv//Hw38+Hx82nXx5+/OePh/35+eP1/+ge/v7j\nb//nl+s/6P78By9/ePO/13/3z//uj9s/PjysPp5v/+J6zrL4ZZI7PE5ywzT19...
"msubsup" => "eNrt3MuOJEeWHuC9nqLA1QjoRZj5JSIG0AACBnoJQYtkVrI6NXnrzCw2iUa/u7IuFCvDf4PORuOb\nj5sCyVMe7sfNzezY524/3928vPzLP/7Lhw8/HX768OHDf/u3D//z88PHm1/+8uH7H//4cP/y+eeX\nz09f/l/78M/v/+N//eXL32l//J23f/nhn29/9f/93/7x/l8/fLj6+eX9f3g79...
"msup" => "eNrt2s2OG0l2BtC9n6KglQ30ghmRSWYOYAMGBn4JwwuKRanpYZHVJEstoTHv7iqVelRk3sLclWNz\nZtOQ5lP+3IyMiJuHH/fb8/lf//iXu7sPiw93d3f//h93//10uN9++uXux3/+uHs4Pz2+/B/d3d9/\n/O3//PLyD7o//8HzH9787/Xf/fO/++P6j3d364/n6794OWdZ/TLLHe5nuWGee...
"mtable" => "eNpLykktLtao5lJQUDJQUrC1U4guzUtJTdNRgFLVCrkliUk5qSApY4VaqHisDkiDIQ4NOYlJqTmp\nKSVFIGkjHaAJYJYhSLshRKsR+VqNydQKpJRcEksSraxc3ByVNAHFdkX0\n",
"mtd" => "eNrt2ctu48gVBuB9nsLoVQL0QpSo2wAJEGCQlwiyoGXaowx1aYrydGMw7x7Jck+LdY6RF/h607Dx\nu+5VLPJ77NrT6a+//+Xh4dPk08PDw9//8fDv8/6pff788P7f7w+74en6+2qxfvjj/df/+Xz9i+r7\nX1x+uPt3+8P//7vfxz8+PDSPp/EvrrVO559Dbv8UcrOYOh67b2VpWao/fC1Sy...
"mtext" => "eNpLykktLtao5lJQUDJQUrC1U4guzUtJTdNRgFLVCrklqRUlIBljhVqocKwOSL0hDvWJOZnpebmJ\nRdkgaSMdhdz0nMqCDBDHEGSCIUS3EUW6jcnXDaSUXBJLEq2sXNwclTQBh3dJgA==\n",
"mtr" => "eNpLykktLtao5lJQUDJQUrC1U4guzUtJTdNRgFLVCrklRSBxI4VaqGCsDki1IS7VKSBxQ5BqQ4hK\nI+JUAikll8SSRCsrFzdHJU0A2o4ppg==\n",
"munder" => "eNrt2s2OG0l2BtC9n6KglQ30ghmRSWYOYAMGBn4JwwuKRanpYZHVJEstoTHv7iqVelRk3sLclWNz\nZtOj7k/5czMyIm4eftxvz+d//eNf7u4+LD7c3d39+3/c/ffT4X776Ze7H//44+7h5f+dXv5Td/f3\nH//+f355+Svdn3/l+Q9v/vf6N//5v/vj+o93d+uP5+t/8XLOsvplljvcz3LDP...
"munderover" => "eNrt3MuOJEeWHuC9nqLA1QjoRZj5JSIG0AACBnoJQYtkVrI6NXnrzCw2iUa/u7IuFCvDf4PORuOb\nrzfsIk95uB83N7Njn7v9fHfz8vIv//gvHz78dPjpw4cP/+3fPvzPzw8fb375y4fv//jHh/sv/+/5\n8deb5y//uX345/f/9r/+8uWvtT/+2tsffvjft7/9//53/3j/xw8frn5+ef8v3...
"navtitle" => "eNrt3EtP60YYBuB9f0WUVSsRiVy4HamVKh31T1RdmMSARXypY8NBiP9eG8IBeyx1ySyebCDJm7Fn\nvhk/u+96nx4Ovz7/MpvNT+ez2e9/zP5ui116czI7/nmeFclDkzX7tP9yczF7OX71z0n/o+XxR93/\nH6+3n/7fR8+Dd91YyfV1nT5kSZPuFjdlnc/7kVebkyBXZUWSp/OPj7rcZRC7n...
"note" => "eNrt3c1u20YUBtB9n0LQqgViIJL1YwdogQJBX6LogpJom40kKhTlOAjy7iVtR5Y0E3Rzl8cbx871\nkJy5M9RZfYt1ud//+u2XwWD4fjgY/P7H4O/DdlXevRu8fvs22NZt2f/H/Gbw/fXX/7zr/2D0+gfd\nv9++Xv7s/3717eynbqxisWjKx6poy9XVXd1shv3I4+t3Sd2u2habcvj2q67ue...
"numcharref" => "eNpLykktLtao5lJQUDJQUrC1U4guzUtJTdNRgFLVCnmluckZiUVFqWkgaROFWqhcrA5IkyFEE5AJ\nBxCd+EWqFZRSihLTSnST83NzU/NKwKYY6igoFaUWlmYWpaboJuekJuaVFoAljIASJakVEFXGQBcg\nG2WIxIO4yWgQusl4ELrJZLC5CZi0lFwSSxKtrFzcHJU0ARefmpU=\n",
"object" => "eNpLykktLtao5lJQUDJQUrC1U4guzUtJTdNRgFLVCvlJWanJJSApQ4VaqHisDkiDIUQDkAkHEF34\nRaqROUBjUlKLk5UQfKCRZjpoStLyi1Iz0/OUEEqM0JXk5Oelg0wqSk1TgiixQFeSm1iSkZujhGSR\nMbqSgsSixFwlZLeYoyspLkvXTc7PK0nMzEstAoeACbqS0rzsvPxyZOeaoiipR...
Dita-Validate
view release on metacpan or search on metacpan
lib/Dita/Validate.pm view on Meta::CPAN
"apply" => "eNrt2ctu2+gZBuB9r0LIqgWy0IGipAFaoMCgN1F0Qcu0w0ISPTo4DoK590qWM4j4f8Is+y0ebwLH\nr/7zgdTzsGkPh79+/8to9Gn8aTQa/f0fo3+fdo/t0+fRxz/fR83Ly+bb5S+Tqh79/vGH/3y+fGby\n4zPnX376uX70z//v++2vo1HzcBgNfy4VT+efi+juMYwGyff2l8kouO/fimBQ4...
"area" => "eNpLykktLtao5lJQUDJQUrC1U4guzUtJTdNRgFLVColFqYkgCUOFWqhorA5IuSF25cUZiQWpIBkj\nkHoDiFoj7GqT8/OLUopBUsZIio2xK64oSk0DSZggKTXBphRKGQKVAFUquSSWJFpZubg5KmkCAKhr\nQR0=\n",
"author" => "eNrt3M2K4kAUhuH9XEWo1QwomPjfMAMNTd/EMItSSw1aFalUtBvx3ieO0ppUYHZn9brRJF/qJx6f\n1cHF3pTl9/O3JFEDlSQ/fyW/K7cy615yfzsnugrbwl8vZdPkcr/wp3e9Jb3fUn9+vG43/u/UuXFU\nj6UXC2+OuQ5m1V8X3qp/M456Ue6QO22Nepyqc7MotrSrOJamUW6lg1aNU3Vu2...
"b" => "eNrt3Mtu20YUBuB9n0LQqgVswLrZToAWKBD0JYouaIm2CYukQpFOgiDvXjJWYotDILuz+rxxLPwZ\nzuVw9K3O3T4/Hn//+ttsNr+az2Z//jX7t6t2+f3F7PTr6+xu+HSzmn07ffbfxZBenNL9v19/Xv7P\nrz76evZXP1Z2d9fkz0XW5rvL+7op58PI69VFkjsUVVbm89eP+twiid3NZ6OfP...
"bind" => "eNrt2ctu48gVBuB9nkLoVQL0QiKp2wAJEGCQlwiyoGXaw0AXj0S5u9GYd48sewYt1hFmmbP4vGnY\n/avuVSzqe9h2p9Nfv/9lMvk0/TSZTP7+j8m/z/vH7unz5OOf75OHfv/49h+zZjH57ePv//n89pHZ\n7x+5/PLDz/sn//xv329/nUzah9Nk/PNW8az+XEQvbYqiTZl8edl+C5JR8Hj4W...
"body" => "eNrt3ctum0AUxvF9nwKxaiVbMuBrpFaqFPUlqi7GMCE0XBwuaVLL716wHdtwiPoA55+NY/wxw8wc\n57c6yja1VfV5/8lx3JnrOF+/OT+bPLIPE+f8sne2RfTWfRCsnMP58q9Jd4N3vqH9/fpzuu1/l/a9\nd+1Y3SRR8uJeL3UzzifDXFhEdpsW4ZN7k/MWIheZ2ri9S23OH89NzbZoavcmt...
"bodydiv" => "eNrt18lu48oVBuB9nkLQKgHagObhAgkQ4CIvEWRBSbTNtKamKLedRr97SNttS6q6yQOczxtPv2o6\nVUV+q215Ov35x596vf6g3+v99W+9f573m/L+S+/924/e6rB52VRP3f8Wo97P9//860v3meH7Z9qf\nP7/ePvn//vTj6re2rWK1qsunqmjKzd39od71u5ZH4y9J7ljti13Z//xTmxsPk...
"brand" => "eNrt3E2r2kAUxvF9P0WYVQsKJr5faKFw6ZcoXYxm9AaTiUxGvRfxu3escjWZQHdn9XejiU/mJTn+\nVgdXpWmar+cvSaJGKkm+/0h+H2xuNoPk/nZOVk7b/PpNNk8u9/N/Btcr0vsV4fPjdbvuf6fOraMw\nll6tnDkW2pt8uKldpf7NOBlEuX1hdWXU41TILaLYusrjWJpGuVx7rVqnQm7eG...
"bvar" => "eNpLykktLtao5lJQUDJQUrC1U4guzUtJTdNRgFLVCklliUUgCUOFWqhorA5IuSF25cmZIGEjHYXi\n1NzEvJLM5GIQ3xik2QCi0QibRihlCFFiTEAJ0DAll8SSRCsrFzdHJU0AeCE22Q==\n",
"category" => "eNrt3M2O2jAUhuF9ryLyqpVAIuF/pFaqNOpNVF0Y8DAR2EGOgUGIe68paCBxpO7O6mUDSb74Jxye\n1RGLranrr+cvWaYGKsu+/8h+793KvPWy+9s5W+pg1pU/XS8W0+xyv/Snd70pv98UPz9et1v/d+rc\nOIpj6cXCm0MZp1v13ypv1b8ZR70ktyudtkY9TsXcLIkt7SqN5XmSW+mgVeNUz...
"cause" => "eNrt281u2kAUhuF9r8LyqpVAwjghEKmVKkW9iaqLwQzEjX/IeJymjXLvHQNJsI8zs6tU6c2GYD7m\nzwc/q7MudNN8fPoQRfEsjqLPX6LvbbXR20l0enmKMtU2uvskiZ5Pl39Mui8kpy+4/9/+jl8LXXrq\nvXNjZfVGr4s6u4tfLnUTLibD3EZZFfcuudx8PDdV67q18VluKXP5Q3+4Qy6Vu...
lib/Dita/Validate.pm view on Meta::CPAN
"msrow" => "eNrt2ctuG8kVBuB9nkLwKgG8YJPN2wAJEGCQlwiyaFEtDTO8uUlqbAzm3UOK8pjddYQAZ/15Y8j+\nVfeqru7vcdMej3/9/S8PD59Gnx4eHv7+j4d/n3dP7fPnh/e/fn/YHrv9b9f/qeajhz/e/+M/n6+/\nU33/ncsPd39uv/r//+33/o8PD83jsf8P11rH089FbvdU5CZl6nDYfBuWFqW6/...
"mstack" => "eNrt2ctuG8kVBuB9nkLwKgG8YPPOARIgwCAvEWTRoloyM82Lm6THxmDePaQo2+yuI2R9gM8bQ/av\nuld1dX+PbXM8/vWPvzw8fBh9eHh4+Ps/Hv593j01zx8f3v7642F7PNXr367/VS0mD3++/c9/Pl5/\nqfr+S5cf7v7cfvf//9sf/R8fHurHY/8frrWOZx+L3O6pyE3K1OHQfhuWFqW6/...
"mstyle" => "eNrt2dtu29gVBuD7PoWRqxbIhShRpwFaoMCgL1H0gpZpjzrUIRSViTGYd69kORNxr2X0Bb7cBE5+\n7/Pe3OT32LWn019//8vDw6fJp4eHh7//4+Hf5/1T+/z54f2v3x92p+G1a6//VS3WD3+8/89/Pl9/\nqfr+S5cf7v7cfvf//9vv4x8fHprH0/gfrrVO559Dbv8UcrOYOh6717K0LNUfv...
"msub" => "eNrt2s2OG0l2BtC9n6KglQ30ghmRSTIHsAEDA7+E4QXFotT08KeaZKklNObdXVSpR0XmLcxdOTZn\nNg1pPuXPzciIuHn4cbc5n//1j395ePgw+/Dw8PDv//Hw38+Hx82nXx5+/OePh/35+eP1/+ge/v7j\nb//nl+s/6P78By9/ePO/13/3z//uj9s/PjysPp5v/+J6zrL4ZZI7PE5ywzT19...
"msubsup" => "eNrt3MuOJEeWHuC9nqLA1QjoRZj5JSIG0AACBnoJQYtkVrI6NXnrzCw2iUa/u7IuFCvDf4PORuOb\nj5sCyVMe7sfNzezY524/3928vPzLP/7Lhw8/HX768OHDf/u3D//z88PHm1/+8uH7H//4cP/y+eeX\nz09f/l/78M/v/+N//eXL32l//J23f/nhn29/9f/93/7x/l8/fLj6+eX9f3g79...
"msup" => "eNrt2s2OG0l2BtC9n6KglQ30ghmRSWYOYAMGBn4JwwuKRanpYZHVJEstoTHv7iqVelRk3sLclWNz\nZtOQ5lP+3IyMiJuHH/fb8/lf//iXu7sPiw93d3f//h93//10uN9++uXux3/+uHs4Pz2+/B/d3d9/\n/O3//PLyD7o//8HzH9787/Xf/fO/++P6j3d364/n6794OWdZ/TLLHe5nuWGee...
"mtable" => "eNpLykktLtao5lJQUDJQUrC1U4guzUtJTdNRgFLVCrkliUk5qSApY4VaqHisDkiDIQ4NOYlJqTmp\nKSVFIGkjHaAJYJYhSLshRKsR+VqNydQKpJRcEksSraxc3ByVNAHFdkX0\n",
"mtd" => "eNrt2ctu48gVBuB9nsLoVQL0QpSo2wAJEGCQlwiyoGXaowx1aYrydGMw7x7Jck+LdY6RF/h607Dx\nu+5VLPJ77NrT6a+//+Xh4dPk08PDw9//8fDv8/6pff788P7f7w+74en6+2qxfvjj/df/+Xz9i+r7\nX1x+uPt3+8P//7vfxz8+PDSPp/EvrrVO559Dbv8UcrOYOh67b2VpWao/fC1Sy...
"mtext" => "eNpLykktLtao5lJQUDJQUrC1U4guzUtJTdNRgFLVCrklqRUlIBljhVqocKwOSL0hDvWJOZnpebmJ\nRdkgaSMdhdz0nMqCDBDHEGSCIUS3EUW6jcnXDaSUXBJLEq2sXNwclTQBh3dJgA==\n",
"mtr" => "eNpLykktLtao5lJQUDJQUrC1U4guzUtJTdNRgFLVCrklRSBxI4VaqGCsDki1IS7VKSBxQ5BqQ4hK\nI+JUAikll8SSRCsrFzdHJU0A2o4ppg==\n",
"munder" => "eNrt2s2OG0l2BtC9n6KglQ30ghmRSWYOYAMGBn4JwwuKRanpYZHVJEstoTHv7iqVelRk3sLclWNz\nZtOj7k/5czMyIm4eftxvz+d//eNf7u4+LD7c3d39+3/c/ffT4X776Ze7H//44+7h5f+dXv5Td/f3\nH//+f355+Svdn3/l+Q9v/vf6N//5v/vj+o93d+uP5+t/8XLOsvplljvcz3LDP...
"munderover" => "eNrt3MuOJEeWHuC9nqLA1QjoRZj5JSIG0AACBnoJQYtkVrI6NXnrzCw2iUa/u7IuFCvDf4PORuOb\nrzfsIk95uB83N7Njn7v9fHfz8vIv//gvHz78dPjpw4cP/+3fPvzPzw8fb375y4fv//jHh/sv/+/5\n8deb5y//uX345/f/9r/+8uWvtT/+2tsffvjft7/9//53/3j/xw8frn5+ef8v3...
"navtitle" => "eNrt3EtP60YYBuB9f0WUVSsRiVy4HamVKh31T1RdmMSARXypY8NBiP9eG8IBeyx1ySyebCDJm7Fn\nvhk/u+96nx4Ovz7/MpvNT+ez2e9/zP5ui116czI7/nmeFclDkzX7tP9yczF7OX71z0n/o+XxR93/\nH6+3n/7fR8+Dd91YyfV1nT5kSZPuFjdlnc/7kVebkyBXZUWSp/OPj7rcZRC7n...
"note" => "eNrt3c1u20YUBtB9n0LQqgViIJL1YwdogQJBX6LogpJom40kKhTlOAjy7iVtR5Y0E3Rzl8cbx871\nkJy5M9RZfYt1ud//+u2XwWD4fjgY/P7H4O/DdlXevRu8fvs22NZt2f/H/Gbw/fXX/7zr/2D0+gfd\nv9++Xv7s/3717eynbqxisWjKx6poy9XVXd1shv3I4+t3Sd2u2habcvj2q67ue...
"numcharref" => "eNpLykktLtao5lJQUDJQUrC1U4guzUtJTdNRgFLVCnmluckZiUVFqWkgaROFWqhcrA5IkyFEE5AJ\nBxCd+EWqFZRSihLTSnST83NzU/NKwKYY6igoFaUWlmYWpaboJuekJuaVFoAljIASJakVEFXGQBcg\nG2WIxIO4yWgQusl4ELrJZLC5CZi0lFwSSxKtrFzcHJU0ARefmpU=\n",
"object" => "eNpLykktLtao5lJQUDJQUrC1U4guzUtJTdNRgFLVCvlJWanJJSApQ4VaqHisDkiDIUQDkAkHEF34\nRaqROUBjUlKLk5UQfKCRZjpoStLyi1Iz0/OUEEqM0JXk5Oelg0wqSk1TgiixQFeSm1iSkZujhGSR\nMbqSgsSixFwlZLeYoyspLkvXTc7PK0nMzEstAoeACbqS0rzsvPxyZOeaoiipR...
Dotenv
view release on metacpan or search on metacpan
lib/Dotenv.pm view on Meta::CPAN
}
}
my $parse = sub {
my ( $string, $env ) = @_;
$string =~ s/\A\x{feff}//; # drop BOM
my %kv;
for my $line ( split /$/m, $string ) {
chomp($line);
next if $line =~ /\A\s*(?:[#:]|\z)/; # skip blanks and comments
Duadua
view release on metacpan or search on metacpan
requires 'Test::Pod::Coverage';
requires 'Test::Pod';
requires 'Test::NoTabs';
requires 'Test::Vars';
requires 'File::Find::Rule::ConflictMarker';
requires 'File::Find::Rule::BOM';
};
Dyn
view release on metacpan or search on metacpan
dyncall/test/dynload_plain/Nmakefile view on Meta::CPAN
!INCLUDE $(TOP)\buildsys\nmake\prolog.nmake
!IF "$(BUILD_OS)" == "windows"
TEST_U8_SO = dynload_plain_ß_test # this non-ASCII character seems to work in Nmakefiles *iff* the utf-8/BOM mark is present
TARGETS = dynload_plain.exe $(TEST_U8_SO)
OBJS = dynload_plain.obj
dynload_plain.exe: $(OBJS)
echo Linking $@ ...
EV-Hiredis
view release on metacpan or search on metacpan
src/ppport.h view on Meta::CPAN
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
src/ppport.h view on Meta::CPAN
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
Email-Barcode-Decode
view release on metacpan or search on metacpan
t/tdata/msg01.eml view on Meta::CPAN
GTZYTFSWWImcSYwARldG2n3nk0YO0anVUTOoKs1hARnIA3ADghy0UExU10zJGEuOQhKNtP8A
zyaMJNGp1VEzoAoIrCAjOYhuAHBFEcrSzwjh1jwfnFTH+wITeNFLJwnOqeQDKYS3fHGUehT0
YUdO1LVc8qx5AG5Lcijec6s282OWsHDdD4o1ZFBMAkUA+QGPhijuc6s2AyLikGqCxcaai5Sm
DyTjKzH1knbGVmPrJO2MrMfWSdsWbV82cqAFaoisU4y8mBwHAoYLvHFMcz7eDKjbz4orUTpJ
yCdrWszTl8CGCxzVSJrkOIjuABgi+ki+RM/ZB1mC9ukQ1QTVRLf5cAw35IXPPFHOFjVEUnCZ
zmxyADBOModApowZwwWt0SnqCaoJb5T3fGEKuVhqopEE5xlO4LxjKHQqaMLUrQqOrWJwKQFK
4EvAL7jCAxk3pk9KMndOnpQo0dp2ThOVYkwGV09zxwyeOz2TdOvWNIRlsBAMUZQu+gU0YI7a
HtG6nwTSEMVw44nvOPi1jy4dkUg3/wAgRRo/SdWbBSPN9WXWOeSGzyYH4Vanf1NjwbKKYn/B
9uB1r7g1T7IYW/JC558LnlZswkUvyNbMHAl9Kef24aS5vqy4aN5zrDfGcfk9/wDJrHAylNMg
+O6KO5zqzReMUjzfVl1jmf7obPJgpO+t7qUv+sMUxzPt4aS7oNtUWNnU2ZiynWniEOCDyo6+
rjt1NLAokwdWCZzVjBUKa/yhFHN1qQEyKrlNM5bIgTATBP5MTgrh81t1SlqAa0MW6/gHjikX
t/tdata/msg01.eml view on Meta::CPAN
GD/ieUBzBYhJhccRv+oOyGghPDeWaRue5QneIP8A6gbv2/CPbqEyeH7OihqArGFCGFC6XxLZ
frngDgulCcLHKgUd+E++EHBBC4s2PaC2lVCTZg7CY4C2BmbcEWoh2Eqd4r4hHP8ABOZM2/uA
De72gIB/cB8w0pKGwFL/AOYYSMCopiYPbNsK8wACUYAJ4ilejiMDMriIKLEiGEAhReIAEWlI
dTjjjj6iHoYkdTE4DH/jugxoEomCLE5AzR7ID5Ah0fuIH8wkbfadttnRQEUAMTOaxY4WNYQG
pF7/AEg0IMwKDa4nhRl3gaFZysFSwuwJbPmNCH9edOABgGrqFSzMKFhvEMIGkaMdMAizHARe
psW0DDhg7QGormbCYBOMoPiA6Nv+onY/EgGINUHAAJQkWLQxcKFgZBAEGCYvChB3cJneIgJK
FTUBuEiFwGCQhLugJNDBFpjRwg6PoF3F6J9Km2h7OGiAPVZYMS6HXJQdgJ+oEvcmemYHMiwY
pvHKQnwDxA+jMbca7PJ8QRC9hagbD3GRAT9kis0O/MKF/ccq4Z5gdjEC72nBe0ElgAC4UGhW
CQADRhjsItAuAqBuC/CiTk0g1DPAhQtk3aHfYrxQmUgXsDOYG8uZaR8GDDlMC3AeqMaBpthw
W0ulTMZEBbIUBDYRl1UZXWh0EUSnmHEE2iiicXbUQxQekdFCO9Q/GDGGBZKGJkTy32lHtBA3
MUoo8GG4LgP5nn9wDf3RLCOGPaUCmlNipaDFcTJL3gC/u4Rs24OiXH8RZS0MMK3lcwiotBnV
Encode-Detect
view release on metacpan or search on metacpan
src/nsUniversalDetector.cpp view on Meta::CPAN
return NS_OK;
if (aLen > 0)
mGotData = PR_TRUE;
//If the data starts with BOM, we know it is UTF
if (mStart)
{
mStart = PR_FALSE;
if (aLen > 3)
switch (aBuf[0])
{
case '\xEF':
if (('\xBB' == aBuf[1]) && ('\xBF' == aBuf[2]))
// EF BB BF UTF-8 encoded BOM
mDetectedCharset = "UTF-8";
break;
case '\xFE':
if (('\xFF' == aBuf[1]) && ('\x00' == aBuf[2]) && ('\x00' == aBuf[3]))
// FE FF 00 00 UCS-4, unusual octet order BOM (3412)
mDetectedCharset = "X-ISO-10646-UCS-4-3412";
else if ('\xFF' == aBuf[1])
// FE FF UTF-16, big endian BOM
mDetectedCharset = "UTF-16BE";
break;
case '\x00':
if (('\x00' == aBuf[1]) && ('\xFE' == aBuf[2]) && ('\xFF' == aBuf[3]))
// 00 00 FE FF UTF-32, big-endian BOM
mDetectedCharset = "UTF-32BE";
else if (('\x00' == aBuf[1]) && ('\xFF' == aBuf[2]) && ('\xFE' == aBuf[3]))
// 00 00 FF FE UCS-4, unusual octet order BOM (2143)
mDetectedCharset = "X-ISO-10646-UCS-4-2143";
break;
case '\xFF':
if (('\xFE' == aBuf[1]) && ('\x00' == aBuf[2]) && ('\x00' == aBuf[3]))
// FF FE 00 00 UTF-32, little-endian BOM
mDetectedCharset = "UTF-32LE";
else if ('\xFE' == aBuf[1])
// FF FE UTF-16, little endian BOM
mDetectedCharset = "UTF-16LE";
break;
} // switch
if (mDetectedCharset)
Encode-DosHebrew
view release on metacpan or search on metacpan
lib/Encode/DosHebrew.pm view on Meta::CPAN
=head1 SYNOPSIS
use Encode;
use Encode::DosHebrew;
use File::BOM;
# Hebrew word for "newspaper"
my $dosTxt = "\x92\xA0\xFA\xED\x8F\xA7";
open $outF, ">:utf8:via(File::BOM)", 'unicode.txt'
or die "can't write: $!\n";
print $outF decode('DosHebrew', $dosTxt), "\n";
close $outF;
=head1 ABSTRACT
Encode-ISO2022
view release on metacpan or search on metacpan
t/iso2022jp2.enc view on Meta::CPAN
0x89c0: $Bk7$A<{9[(B $A9fCYJSjh@@>ujijjjk(B $Ajljmjnjo=G(B $(D]4]5]6]7]8(B $Bk8(B $Bk9k:$Au|(B
0x89e0: $B2r(B $(D]9$B?(k;(B $(D]:(B $(D];(B $(D]<(B $Av#(B $(D]=(B $(D]>$Bk<(B $(D]?(B $Bk=$(D]@(B $(D]A(B $(D]B(B
0x8a00: $B8@(B $BD{k>$(D]C]D(B $(D]E$B7W(B $B?V(B $BkA(B $BF$$(D]F$Bk@$(D]G]H$B71$(D]I]J$Bk?Bw5-(B $BkB(B $BkC$(D]K$B>Y(B
0x8a20: $(D]L(B $(D]M$B7m$(D]N$BkD$(D]O(B $BK,$(D]P]Q$B@_(B $(D]R(B $B5v(B $BLuAJ$(D]S$BkE$(D]T(B $B?GCp>Z$(D]U]V(B
0x8a40: $(D]W$BkF(B $(D]X(B $(D]Y$BkI$(D]Z$BkJ$(D][(B $(D]\]](B $B:>BBkH$(D]^$B>[I>$(D]_]`]a(B $BkG$(D]b]c$B;l(B
0x8a60: $B1S$(D]d$BkN7X(B $(D]e$B;n$(D]f(B $B;m(B $BOMkMkLA'(B $B5MOC3:>\(B $(D]g]h]i(B $(D]j]k]l$BkK(B $(D]m]n(B
0x8a80: $(D]o(B $BkP$(D]p$BkQkO$(D]q$B8X(B $BM@$AL\$(D]r$B;oG'(B $(D]s]t$BkT$(D]u$B@@(B $BCB$(D]v]w$BM6$(D]x$BkW(B $B8l$(D]y(B
0x8aa0: $B@?kS(B $BkX8mkUkV$(D]z$BkR$(D]{$(C`c(B $B@bFI$(D]|]}$BC/(B $B2]$(D]~(B $(D^!^"(B $BHp(B $(D^#$B5C(B $(D^$$BD4(B
0x8ac0: $Bk[$(D^%$BkY(B $(D^&$BCL$(D^'^(^)$B@A4RkZ(B $B?[(B $(D^*$BNJ$(D^+^,^-$BO@$(D^.(B $Bk\kgD5$(D^/$Bkf$(D^0(B
0x8ae0: $Bkckkkd(B $Bk`(B $BD|k_(B $(CouJ_$(D^1$BM!;p(B $(D^2$Bka(B $Bk^$(D^3^4^5$Bke=t(B $B8A(B $(D^6(B $BBz$(D^7(B
0x8b00: $BKE1Z0b(B $BF%$(D^8^9$Bki(B $(D^?^:$Bkh(B $BFf(B $Bkm$(D^;(B $Bkb(B $Bklkn(B $B8,kj9V$(D^<$B<U$(D^=^>(B
Encode-UTF8-Slow
view release on metacpan or search on metacpan
lib/Encode/UTF8/Slow.pm view on Meta::CPAN
Takes UTF-8 encoded bytes in a scalar and returns the Unicode codepoint for it.
Exported on request.
=head1 WARNING
This is a naive encoder - it doesn't handle UTF-16 pairs, BOM or other
noncharacters like 0xFFFE. It's also very slow!
=head1 SEE ALSO
=over 4
Encode
view release on metacpan or search on metacpan
Unicode/Unicode.pm view on Meta::CPAN
# Object Generator 8 transcoders all at once!
#
use Encode ();
our %BOM_Unknown = map { $_ => 1 } qw(UTF-16 UTF-32);
for my $name (
qw(UTF-16 UTF-16BE UTF-16LE
UTF-32 UTF-32BE UTF-32LE
UCS-2BE UCS-2LE)
Unicode/Unicode.pm view on Meta::CPAN
use parent qw(Encode::Encoding);
sub renew {
my $self = shift;
$BOM_Unknown{ $self->name } or return $self;
my $clone = bless {%$self} => ref($self);
$clone->{renewed}++; # so the caller knows it is renewed.
return $clone;
}
Unicode/Unicode.pm view on Meta::CPAN
Encode::Unicode::UTF7. For details see L<Encode::Unicode::UTF7>.
=item Quick Reference
Decodes from ord(N) Encodes chr(N) to...
octet/char BOM S.P d800-dfff ord > 0xffff \x{1abcd} ==
---------------+-----------------+------------------------------
UCS-2BE 2 N N is bogus Not Available
UCS-2LE 2 N N bogus Not Available
UTF-16 2/4 Y Y is S.P S.P BE/LE
UTF-16BE 2/4 N Y S.P S.P 0xd82a,0xdfcd
Unicode/Unicode.pm view on Meta::CPAN
UTF-8 1-4 - - bogus >= 4 octets \xf0\x9a\af\8d
---------------+-----------------+------------------------------
=back
=head1 Size, Endianness, and BOM
You can categorize these CES by 3 criteria: size of each character,
endianness, and Byte Order Mark.
=head2 by size
Unicode/Unicode.pm view on Meta::CPAN
pay attention to the endianness of each platform when you pass data
to one another.
Anything marked as BE is Big Endian (or network byte order) and LE is
Little Endian (aka VAX byte order). For anything not marked either
BE or LE, a character called Byte Order Mark (BOM) indicating the
endianness is prepended to the string.
CAVEAT: Though BOM in utf8 (\xEF\xBB\xBF) is valid, it is meaningless
and as of this writing Encode suite just leave it as is (\x{FeFF}).
=over 4
=item BOM as integer when fetched in network byte order
16 32 bits/char
-------------------------
BE 0xFeFF 0x0000FeFF
LE 0xFFFe 0xFFFe0000
-------------------------
=back
This modules handles the BOM as follows.
=over 4
=item *
When BE or LE is explicitly stated as the name of encoding, BOM is
simply treated as a normal character (ZERO WIDTH NO-BREAK SPACE).
=item *
When BE or LE is omitted during decode(), it checks if BOM is at the
beginning of the string; if one is found, the endianness is set to
what the BOM says.
=item *
Default Byte Order
When no BOM is found, Encode 2.76 and blow croaked. Since Encode
2.77, it falls back to BE accordingly to RFC2781 and the Unicode
Standard version 8.0
=item *
When BE or LE is omitted during encode(), it returns a BE-encoded
string with BOM prepended. So when you want to encode a whole text
file, make sure you encode() the whole text at once, not line by line
or each line, not file, will have a BOM prepended.
=item *
C<UCS-2> is an exception. Unlike others, this is an alias of UCS-2BE.
UCS-2 is already registered by IANA and others that way.
Unicode/Unicode.pm view on Meta::CPAN
Unicode encodings simply croaks.
% perl -MEncode -e'$_ = "\xfe\xff\xd8\xd9\xda\xdb\0\n"' \
-e'Encode::from_to($_, "utf16","shift_jis", 0); print'
UTF-16:Malformed LO surrogate d8d9 at /path/to/Encode.pm line 184.
% perl -MEncode -e'$a = "BOM missing"' \
-e' Encode::from_to($a, "utf16", "shift_jis", 0); print'
UTF-16:Unrecognised BOM 424f at /path/to/Encode.pm line 184.
Unlike other encodings where mappings are not one-to-one against
Unicode, UTFs are supposed to map 100% against one another. So Encode
is more strict on UTFs.
English-Name
view release on metacpan or search on metacpan
lib/English/ppport.h view on Meta::CPAN
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
lib/English/ppport.h view on Meta::CPAN
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
Error-Hierarchy
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
Error-Return
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
Expense-Tracker
view release on metacpan or search on metacpan
public/javascripts/vendor/require/text.js view on Meta::CPAN
//Using special require.nodeRequire, something added by r.js.
fs = require.nodeRequire('fs');
text.get = function (url, callback) {
var file = fs.readFileSync(url, 'utf8');
//Remove BOM (Byte Mark Order) from utf8 files if it is there.
if (file.indexOf('\uFEFF') === 0) {
file = file.substring(1);
}
callback(file);
};
public/javascripts/vendor/require/text.js view on Meta::CPAN
content = '';
try {
stringBuffer = new java.lang.StringBuffer();
line = input.readLine();
// Byte Order Mark (BOM) - The Unicode Standard, version 3.0, page 324
// http://www.unicode.org/faq/utf_bom.html
// Note that when we use utf-8, the BOM should appear as "EF BB BF", but it doesn't due to this bug in the JDK:
// http://bugs.sun.com/bugdatabase/view_bug.do?bug_id=4508058
if (line && line.length() && line.charAt(0) === 0xfeff) {
// Eat the BOM, since we've already found the encoding on this file,
// and we plan to concatenating this buffer with others; the BOM should
// only appear at the top of a file.
line = line.substring(1);
}
stringBuffer.append(line);
ExtUtils-MakeMaker
view release on metacpan or search on metacpan
bundled/CPAN-Meta-YAML/CPAN/Meta/YAML.pm view on Meta::CPAN
}
# Ensure Unicode character semantics, even for 0x80-0xff
utf8::upgrade($string);
# Check for and strip any leading UTF-8 BOM
$string =~ s/^\x{FEFF}//;
# Check for some special cases
return $self unless length $string;
FB3-Convert
view release on metacpan or search on metacpan
t/examples/fb2/hell_example_133321.fb2 view on Meta::CPAN
<p>Стих иÑпарÑет раÑпроÑтраненный рекламный блок, Ð¾Ñ‚Ñ€Ð¸Ñ†Ð°Ñ Ð¾Ñ‡ÐµÐ²Ð¸Ð´Ð½Ð¾Ðµ. Ритмоединица, как бы Ñто ни казалоÑÑŒ парадокÑальным, фонетичеÑки уч...
</section> <section id="c_6"><title><p>6</p>
</title><p><strong>[Комментарий] </strong>Даже еÑли учеÑÑ‚ÑŒ разреженный газ, заполнÑющий проÑтранÑтво между звездами, то вÑе равно Южное полушарие неÑ...
</section> <section id="c_7"><title><p>7</p>
</title><p><strong>[Комментарий] </strong>ÐšÑƒÐ»ÑŒÐ¼Ð¸Ð½Ð°Ñ†Ð¸Ñ Ð´Ð¸Ñкретно предÑтавлÑет Ñобой агробиогеоценоз, но еÑли бы пеÑен было раз в пÑÑ‚ÑŒ меньше, было бы Ð...
</section> </section> </body> <binary content-type="image/jpeg" id="_1001000.jpg">/9j/4AAQSkZJRgABAQEAeAB4AAD/4QEARXhpZgAATU0AKgAAAAgABQEaAAUAAAABAAAASgEbAAUAAAABAAAAUgEoAAMAAAABAAIAAAExAAIAAAASAAAAWodpAAQAAAABAAAAbAAAAAAAAAB4AAAAAQAAAHgAAAABUGFpbnQu...
FFI-Platypus
view release on metacpan or search on metacpan
include/ppport.h view on Meta::CPAN
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
include/ppport.h view on Meta::CPAN
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
FLV-AudioExtractor
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
Feersum
view release on metacpan or search on metacpan
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
File-BOM-Utils
view release on metacpan or search on metacpan
bin/bommer.pl view on Meta::CPAN
use strict;
use warnings;
use warnings qw(FATAL utf8); # Fatalize encoding glitches.
use File::BOM::Utils;
use Getopt::Long;
use Pod::Usage;
bin/bommer.pl view on Meta::CPAN
'output_file=s',
) )
{
pod2usage(1) if ($option{'help'});
exit File::BOM::Utils -> new(%option) -> run;
}
else
{
pod2usage(2);
}
bin/bommer.pl view on Meta::CPAN
=pod
=head1 NAME
bommer.pl - Check, Add and Remove BOMs
=head1 SYNOPSIS
bommer.pl [options]
bin/bommer.pl view on Meta::CPAN
=over 4
=item o add
Add the BOM named with the bom_name option to input_file.
Write the result to output_file.
=item o remove
Remove the BOM from the input_file. Write the result to output_file.
=item o test
Report the BOM status of input_file.
=back
Default: ''.
This option is mandatory.
=item -bom_name => $string
Specify which BOM to add to C<input_file>.
This option is mandatory if the C<action> is C<add>.
Values (always upper-case):
File-BOM
view release on metacpan or search on metacpan
lib/File/BOM.pm view on Meta::CPAN
package File::BOM;
=head1 NAME
File::BOM - Utilities for handling Byte Order Marks
=head1 SYNOPSIS
use File::BOM qw( :all )
=head2 high-level functions
# read a file with encoding from the BOM:
open_bom(FH, $file)
open_bom(FH, $file, ':utf8') # the same but with a default encoding
# get encoding too
$encoding = open_bom(FH, $file, ':utf8');
# open a potentially unseekable file:
($encoding, $spillage) = open_bom(FH, $file, ':utf8');
# change encoding of an open handle according to BOM
$encoding = defuse(*HANDLE);
($encoding, $spillage) = defuse(*HANDLE);
# Decode a string according to leading BOM:
$unicode = decode_from_bom($string_with_bom);
# Decode a string and get the encoding:
($unicode, $encoding) = decode_from_bom($string_with_bom)
=head2 PerlIO::via interface
# Read the Right Thing from a unicode file with BOM:
open(HANDLE, '<:via(File::BOM)', $filename)
# Writing little-endian UTF-16 file with BOM:
open(HANDLE, '>:encoding(UTF-16LE):via(File::BOM)', $filename)
=head2 lower-level functions
# read BOM encoding from a filehandle:
$encoding = get_encoding_from_filehandle(FH)
# Get encoding even if FH is unseekable:
($encoding, $spillage) = get_encoding_from_filehandle(FH);
# Get encoding from a known unseekable handle:
($encdoing, $spillage) = get_encoding_from_stream(FH);
# get encoding and BOM length from BOM at start of string:
($encoding, $offset) = get_encoding_from_bom($string);
=head2 variables
# print a BOM for a known encoding
print FH $enc2bom{$encoding};
# get an encoding from a known BOM
$enc = $bom2enc{$bom}
=head1 DESCRIPTION
This module provides functions for handling unicode byte order marks, which are
to be found at the beginning of some files and streams.
For details about what a byte order mark is, see
L<http://www.unicode.org/unicode/faq/utf_bom.html#BOM>
The intention of File::BOM is for files with BOMs to be readable as seamlessly
as possible, regardless of the encoding used. To that end, several different
interfaces are available, as shown in the synopsis above.
=cut
lib/File/BOM.pm view on Meta::CPAN
=head2 %bom2enc
Maps Byte Order marks to their encodings.
The keys of this hash are strings which represent the BOMs, the values are their
encodings, in a format which is understood by L<Encode>
The encodings represented in this hash are: UTF-8, UTF-16BE, UTF-16LE,
UTF-32BE and UTF-32LE
=head2 %enc2bom
A reverse-lookup hash for bom2enc, with a few aliases used in L<Encode>, namely utf8, iso-10646-1 and UCS-2.
Note that UTF-16, UTF-32 and UCS-4 are not included in this hash. Mainly
because Encode::encode automatically puts BOMs on output. See L<Encode::Unicode>
=cut
our(%bom2enc, %enc2bom, $MAX_BOM_LENGTH, $bom_re);
# length in bytes of the longest BOM
$MAX_BOM_LENGTH = 4;
Readonly %bom2enc => (
map { encode($_, "\x{feff}") => $_ } qw(
UTF-8
UTF-16BE
lib/File/BOM.pm view on Meta::CPAN
{
local $" = '|';
my @bombs = sort { length $b <=> length $a } keys %bom2enc;
Readonly $MAX_BOM_LENGTH => length $bombs[0];
Readonly $bom_re => qr/^(@bombs)/o;
}
=head1 FUNCTIONS
lib/File/BOM.pm view on Meta::CPAN
$encoding = open_bom(HANDLE, $filename, $default_mode)
($encoding, $spill) = open_bom(HANDLE, $filename, $default_mode)
opens HANDLE for reading on $filename, setting the mode to the appropriate
encoding for the BOM stored in the file.
On failure, a fatal error is raised, see the DIAGNOSTICS section for details on
how to catch these. This is in order to allow the return value(s) to be used for
other purposes.
If the file doesn't contain a BOM, $default_mode is used instead. Hence:
open_bom(FH, 'my_file.txt', ':utf8')
Opens my_file.txt for reading in an appropriate encoding found from the BOM in
that file, or as a UTF-8 file if none is found.
In the absence of a $default_mode argument, the following 2 calls should be equivalent:
open_bom(FH, 'no_bom.txt');
lib/File/BOM.pm view on Meta::CPAN
# create filehandle on the fly
$enc = open_bom(my $fh, $filename, ':utf8');
$line = <$fh>;
The filehandle will be cued up to read after the BOM. Unseekable files (e.g.
fifos) will cause croaking, unless called in list context to catch spillage
from the handle. Any spillage will be automatically decoded from the encoding,
if found.
e.g.
lib/File/BOM.pm view on Meta::CPAN
$enc = defuse(FH);
($enc, $spill) = defuse(FH);
FH should be a filehandle opened for reading, it will have the relevant encoding
layer pushed onto it be binmode if a BOM is found. Spillage should be Unicode,
not bytes.
Any uncaptured spillage will be silently lost. If the handle is unseekable, use
list context to avoid data loss.
If no BOM is found, the mode will be unaffected.
=cut
sub defuse (*) {
my $fh = qualify_to_ref(shift, caller);
lib/File/BOM.pm view on Meta::CPAN
$unicode_string = decode_from_bom($string, $default, $check)
($unicode_string, $encoding) = decode_from_bom($string, $default, $check)
Reads a BOM from the beginning of $string, decodes $string (minus the BOM) and
returns it to you as a perl unicode string.
if $string doesn't have a BOM, $default is used instead.
$check, if supplied, is passed to Encode::decode as the third argument.
If there's no BOM and no default, the original string is returned and encoding
is ''.
See L<Encode>
=cut
lib/File/BOM.pm view on Meta::CPAN
($encoding, $spillage) = get_encoding_from_filehandle(HANDLE)
Returns the encoding found in the given filehandle.
The handle should be opened in a non-unicode way (e.g. mode '<:bytes') so that
the BOM can be read in its natural state.
After calling, the handle will be set to read at a point after the BOM (or at
the beginning of the file if no BOM was found)
If called in scalar context, unseekable handles cause a croak().
If called in list context, unseekable handles will be read byte-by-byte and any
spillage will be returned. See get_encoding_from_stream()
lib/File/BOM.pm view on Meta::CPAN
=head2 get_encoding_from_stream
($encoding, $spillage) = get_encoding_from_stream(*FH);
Read a BOM from an unrewindable source. This means reading the stream one byte
at a time until either a BOM is found or every possible BOM is ruled out. Any
non-BOM bytes read from the handle will be returned in $spillage.
If a BOM is found and the spillage contains a partial character (judging by the
expected character width for the encoding) more bytes will be read from the
handle to ensure that a complete character is returned.
Spillage is always in bytes, not characters.
lib/File/BOM.pm view on Meta::CPAN
_get_encoding_unseekable($fh);
}
# internal:
#
# Return encoding and seek to position after BOM
sub _get_encoding_seekable (*) {
my $fh = shift;
# This doesn't work on all platforms:
# defined(read($fh, my $bom, $MAX_BOM_LENGTH))
# or croak "Couldn't read from handle: $!";
my $bom = eval { _safe_read($fh, $MAX_BOM_LENGTH) };
croak "Couldn't read from handle: $@" if $@;
my($enc, $off) = get_encoding_from_bom($bom);
seek($fh, $off, SEEK_SET) or croak "Couldn't reset read position: $!";
lib/File/BOM.pm view on Meta::CPAN
return $enc;
}
# internal:
#
# Return encoding and non-BOM overspill
sub _get_encoding_unseekable (*) {
my $fh = shift;
my $so_far = '';
for my $c (1 .. $MAX_BOM_LENGTH) {
# defined(read($fh, my $byte, 1)) or croak "Couldn't read byte: $!";
my $byte = eval { _safe_read($fh, 1) };
croak "Couldn't read byte: $@" if $@;
$so_far .= $byte;
# find matching BOMs
my @possible = grep { $so_far eq substr($_, 0, $c) } keys %bom2enc;
if (@possible == 1 and my $enc = $bom2enc{$so_far}) {
# There's only one match, this must be it
return ($enc, '');
lib/File/BOM.pm view on Meta::CPAN
$spill .= $extra;
return ($enc, $spill);
}
else {
# no BOM
return ('', $so_far . $spill);
}
}
}
}
lib/File/BOM.pm view on Meta::CPAN
=head2 get_encoding_from_bom
($encoding, $offset) = get_encoding_from_bom($string)
Returns the encoding and length in bytes of the BOM in $string.
If there is no BOM, an empty string is returned and $offset is zero.
To get the data from the string, the following should work:
use Encode;
lib/File/BOM.pm view on Meta::CPAN
}
}
=head1 PerlIO::via interface
File::BOM can be used as a PerlIO::via interface.
open(HANDLE, '<:via(File::BOM)', 'my_file.txt');
open(HANDLE, '>:encoding(UTF-16LE):via(File::BOM)', 'out_file.txt');
print "foo\n"; # BOM is written to file here
This method is less prone to errors on non-seekable files as spillage is
incorporated into an internal buffer, but it doesn't give you any information
about the encoding being used, or indeed whether or not a BOM
was present.
There are a few known problems with this interface, especially surrounding
seek() and tell(), please see the BUGS section for more details about this.
=head2 Reading
The via(File::BOM) layer must be added before the handle is read from, otherwise
any BOM will be missed. If there is no BOM, no decoding will be done.
Because of a limitation in PerlIO::via, read() always works on bytes, not characters. BOM decoding will still be done but output will be bytes of UTF-8.
open(BOM, '<:via(File::BOM)', $file);
$bytes_read = read(BOM, $buffer, $length);
$unicode = decode('UTF-8', $buffer, Encode::FB_QUIET);
# Now $unicode is valid unicode and $buffer contains any left-over bytes
=head2 Writing
Add the via(File::BOM) layer on top of a unicode encoding layer to print a BOM
at the start of the output file. This needs to be done before any data is
written. The BOM is written as part of the first print command on the handle, so
if you don't print anything to the handle, you won't get a BOM.
There is a "Wide character in print" warning generated when the via(File::BOM)
layer doesn't receive utf8 on writing. This glitch was resolved in perl version
5.8.7, but if your perl version is older than that, you'll need to make sure
that the via(File::BOM) layer receives utf8 like this:
# This works OK
open(FH, '>:encoding(UTF-16LE):via(File::BOM):utf8', $filename)
# This generates warnings with older perls
open(FH, '>:encoding(UTF-16LE):via(File::BOM)', $filename)
=head2 Seeking
Seeking with SEEK_SET results in an offset equal to the length of any detected
BOM being applied to the position parameter. Thus:
# Seek to end of BOM (not start of file!)
seek(FILE_BOM_HANDLE, 0, SEEK_SET)
=head2 Telling
In order to work correctly with seek(), tell() also returns a postion adjusted
by the length of the BOM.
=cut
sub PUSHED { bless({offset => 0}, $_[0]) || -1 }
lib/File/BOM.pm view on Meta::CPAN
=item * L<Encode>
=item * L<Encode::Unicode>
=item * L<http://www.unicode.org/unicode/faq/utf_bom.html#BOM>
=back
=head1 DIAGNOSTICS
lib/File/BOM.pm view on Meta::CPAN
_get_encoding_seekable() couldn't read the handle. This function is called from
get_encoding_from_filehandle(), defuse() and open_bom()
=item * Couldn't reset read position: $!
_get_encoding_seekable couldn't seek to the position after the BOM.
=item * Couldn't read byte: $!
get_encoding_from_stream couldn't read from the handle. This function is called
from get_encoding_from_filehandle() and open_bom() when the handle or file is
File-Copy-clonefile
view release on metacpan or search on metacpan
lib/File/Copy/ppport.h view on Meta::CPAN
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
lib/File/Copy/ppport.h view on Meta::CPAN
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
File-Find-Rule-BOM
view release on metacpan or search on metacpan
package File::Find::Rule::BOM;
use base qw(File::Find::Rule);
use strict;
use warnings;
use String::BOM qw(file_has_bom);
our $VERSION = 0.03;
# Detect BOM.
sub File::Find::Rule::bom {
my $file_find_rule = shift;
return _bom($file_find_rule);
}
# Detect UTF-8 BOM.
sub File::Find::Rule::bom_utf8 {
my $file_find_rule = shift;
return _bom($file_find_rule, 'UTF-8');
}
# Detect UTF-16 BOM.
sub File::Find::Rule::bom_utf16 {
my $file_find_rule = shift;
return _bom($file_find_rule, 'UTF-16');
}
# Detect UTF-32 BOM.
sub File::Find::Rule::bom_utf32 {
my $file_find_rule = shift;
return _bom($file_find_rule, 'UTF-32');
}
=encoding utf8
=head1 NAME
File::Find::Rule::BOM - Common rules for searching for BOM in files.
=head1 SYNOPSIS
use File::Find::Rule;
use File::Find::Rule::BOM;
my @files = File::Find::Rule->bom->in($dir);
my @files = File::Find::Rule->bom_utf8->in($dir);
my @files = File::Find::Rule->bom_utf16->in($dir);
my @files = File::Find::Rule->bom_utf32->in($dir);
=head1 DESCRIPTION
This Perl module contains File::Find::Rule rules for detecting Byte Order Mark
in files.
BOM (Byte Order Mark) is a particular usage of the special Unicode character,
U+FEFF BYTE ORDER MARK, whose appearance as a magic number at the start of a
text stream can signal several things to a program reading the text.
See L<Byte order mark on Wikipedia|https://en.wikipedia.org/wiki/Byte order mark>.
=head2 C<bom>
my @files = File::Find::Rule->bom->in($dir);
The C<bom()> rule detect files with BOM.
=head2 C<bom_utf8>
my @files = File::Find::Rule->bom_utf8->in($dir);
The C<bom_utf8()> rule detect files with UTf-8 BOM.
=head2 C<bom_utf16>
my @files = File::Find::Rule->bom_utf16->in($dir);
The C<bom_utf16()> rule detect files with UTF-16 BOM.
=head2 C<bom_utf32>
my @files = File::Find::Rule->bom_utf32->in($dir);
The C<bom_utf32()> rule detect files with UTF-32 BOM.
=head1 EXAMPLE1
use strict;
use warnings;
use File::Find::Rule;
use File::Find::Rule::BOM;
# Arguments.
if (@ARGV < 1) {
print STDERR "Usage: $0 dir\n";
exit 1;
}
my $dir = $ARGV[0];
# Print all files with BOM in directory.
foreach my $file (File::Find::Rule->bom->in($dir)) {
print "$file\n";
}
# Output like:
use strict;
use warnings;
use File::Find::Rule;
use File::Find::Rule::BOM;
# Arguments.
if (@ARGV < 1) {
print STDERR "Usage: $0 dir\n";
exit 1;
}
my $dir = $ARGV[0];
# Print all files with UTF-8 BOM in directory.
foreach my $file (File::Find::Rule->bom_utf8->in($dir)) {
print "$file\n";
}
# Output like:
use strict;
use warnings;
use File::Find::Rule;
use File::Find::Rule::BOM;
# Arguments.
if (@ARGV < 1) {
print STDERR "Usage: $0 dir\n";
exit 1;
}
my $dir = $ARGV[0];
# Print all files with UTF-16 BOM in directory.
foreach my $file (File::Find::Rule->bom_utf16->in($dir)) {
print "$file\n";
}
# Output like:
use strict;
use warnings;
use File::Find::Rule;
use File::Find::Rule::BOM;
# Arguments.
if (@ARGV < 1) {
print STDERR "Usage: $0 dir\n";
exit 1;
}
my $dir = $ARGV[0];
# Print all files with UTF-32 BOM in directory.
foreach my $file (File::Find::Rule->bom_utf32->in($dir)) {
print "$file\n";
}
# Output like:
# Usage: qr{[\w\/]+} dir
=head1 DEPENDENCIES
L<File::Find::Rule>,
L<String::BOM>.
=head1 SEE ALSO
=over
=back
=head1 REPOSITORY
L<https://github.com/michal-josef-spacek/File-Find-Rule-BOM>
=head1 AUTHOR
Michal Josef Å paÄek L<mailto:skim@cpan.org>
File-Find-Rule-ConflictMarker
view release on metacpan or search on metacpan
requires 'Test::Pod';
requires 'Test::NoTabs';
requires 'Test::Perl::Metrics::Lite';
requires 'Test::Vars';
requires 'Test::File::Find::Rule';
requires 'File::Find::Rule::BOM';
};
File-Find-Upwards
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
( run in 1.734 second using v1.01-cache-2.11-cpan-e9daa2b36ef )