Polygen per il web – Generatore di testo casuale.

Polygen è un software gratuito, che genera testo casuale basato su delle grammatiche programmabili con un metalinguaggio molto facile da apprendere. 

Nel loro sito (tutto in italiano) è possibile scaricare molte grammatiche già pronte come ad esempio l’oroscopo o il divertentissimo Lettere a riviste per teenager.
I testi prodotti da polygen sono pseudo casuali e con una buona semantica, utilissimi per dei TEST, per riempire pagine web vuote e per dare quindi qualcosa in pasto ai motori di ricerca e che che non dia troppo nell’occhio anche ad quality rater rispetto al classico testo casuale realizzato con le markov chain.

Polygen però viene fornito in formato eseguibile e non è solitamente utilizzabile nelle pagine web, per cui ho pensato di integrare l’eseguibile di polygen, con codice php o asp.net.

Purtroppo l’unico requisito scomodo è che per utilizzare questo codice bisogna avere permessi di esecuzione sul file, quindi fruibile solo su un server vostro e non sui classici hosting gratuiti.

Procedura:

-scaricate l’eseguibile di polygen (download per linux o per windows)   ed il file per la grammatica scelta o realizzata da voi in formato .grm.

-Copiate l’eseguibile di polygen ad esempio nella stessa cartella della pagina php o .aspx (se è sistema microsoft dovete copiare anche cygwin1.dll), copiate anche la grammatica di vostro interesse.

Di seguito le due versioni:

Codice PHP:

< ?php
$grammatica=”oroscopo.grm”; //qui mettete il nome del file di grammatica da voi scelto
echo system_o(realpath(“polygen.exe”) . ” ” . $grammatica); //eliminare “.exe” nel caso di sistema linux

   function system_o($cmd)
   {
       global $ret;
       exec(“$cmd”, $f);
       foreach($f as $output) {
           //$output = htmlentities($output); //decommentate questa al posto della successiva se volete strippare via tutto l’eventuale codice html
           $ret .= “$output\n”;
       }
       return $ret;
   }
?>

Codice ASP.NET

   < %
   Dim p As System.Diagnostics.Process = New System.Diagnostics.Process
 ’instanzio il processo eliminando la shell dos e redirezionando l’output.
        With p.StartInfo
            .FileName = Server.MapPath(“.”) + “\” + “polygen.exe”
            .Arguments = Server.MapPath(“.”) + “\” + “oroscopo.grm”
            .CreateNoWindow = True
            .RedirectStandardInput = True
            .RedirectStandardOutput = True
            .RedirectStandardError = True
            .UseShellExecute = False
        End With
        ‘lancio il processo
        p.Start()
        Dim StdOut As System.IO.StreamReader = p.StandardOutput
        Dim sTemp As String

        sTemp += StdOut.ReadToEnd

 ’decommentare solo se volete leggere anche lo stderr
        ‘Dim StdErr As System.IO.StreamReader = p.StandardError
        ‘sTemp += StdErr.ReadToEnd

 ’stampa a video del testo generato
        Response.Write(sTemp)
        %>

Se avete problemi o domande, contattatemi pure.

Giuseppe Liguori