diff options
| author | Michael Vogel <icarus@dabo.de> | 2012-05-16 08:24:46 +0200 |
|---|---|---|
| committer | Michael Vogel <icarus@dabo.de> | 2012-05-16 08:24:46 +0200 |
| commit | f2c0c40f6e488f1a8e62bda9449b28115f343cac (patch) | |
| tree | ae1418141f85be49b7d8cb3d2a0e8b2a7acc4eb4 /library/langdet/docs/example_web.php | |
| parent | f2e648d62fe7cafb9a55c7505687ea4d1c294778 (diff) | |
| parent | a65bd73bf3f4a1e6ccfcdf0a06c70a4f1f4182ce (diff) | |
| download | volse-hubzilla-f2c0c40f6e488f1a8e62bda9449b28115f343cac.tar.gz volse-hubzilla-f2c0c40f6e488f1a8e62bda9449b28115f343cac.tar.bz2 volse-hubzilla-f2c0c40f6e488f1a8e62bda9449b28115f343cac.zip | |
Merge remote branch 'upstream/master'
Diffstat (limited to 'library/langdet/docs/example_web.php')
| -rw-r--r-- | library/langdet/docs/example_web.php | 72 |
1 files changed, 72 insertions, 0 deletions
diff --git a/library/langdet/docs/example_web.php b/library/langdet/docs/example_web.php new file mode 100644 index 000000000..1e155fef2 --- /dev/null +++ b/library/langdet/docs/example_web.php @@ -0,0 +1,72 @@ +<?php + +/** + * example usage (web) + * + * @package Text_LanguageDetect + * @version CVS: $Id: example_web.php 205493 2006-01-18 00:26:57Z taak $ + */ + +// browsers will encode multi-byte characters wrong unless they think the page is utf8-encoded +header('Content-type: text/html; charset=utf-8', true); + +require_once 'Text/LanguageDetect.php'; + +$l = new Text_LanguageDetect; +if (isset($_REQUEST['q'])) { + $q = stripslashes($_REQUEST['q']); +} + +?> +<html> +<head> +<title>Text_LanguageDetect demonstration</title> +</head> +<body> +<h2>Text_LanguageDetect</h2> +<? +echo "<small>Supported languages:\n"; +$langs = $l->getLanguages(); +sort($langs); +foreach ($langs as $lang) { + echo ucfirst($lang), ', '; + $i++; +} + +echo "<br />total $i</small><br /><br />"; + +?> +<form method="post"> +Enter text to identify language (at least a couple of sentences):<br /> +<textarea name="q" wrap="virtual" cols="80" rows="8"><?= $q ?></textarea> +<br /> +<input type="submit" value="Submit" /> +</form> +<? +if (isset($q) && strlen($q)) { + $len = $l->utf8strlen($q); + if ($len < 20) { // this value picked somewhat arbitrarily + echo "Warning: string not very long ($len chars)<br />\n"; + } + + $result = $l->detectConfidence($q); + + if ($result == null) { + echo "Text_LanguageDetect cannot identify this piece of text. <br /><br />\n"; + } else { + echo "Text_LanguageDetect thinks this text is written in <b>{$result['language']}</b> ({$result['similarity']}, {$result['confidence']})<br /><br />\n"; + } + + $result = $l->detectUnicodeBlocks($q, false); + if (!empty($result)) { + arsort($result); + echo "Unicode blocks present: ", join(', ', array_keys($result)), "\n<br /><br />"; + } +} + +unset($l); + +/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */ + +?> +</body></html> |