Re: Acme::Translator

This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.

D4 M0NZ374RY G8Z is too funny, ++!

Here's a slightly rearranged version of the first print block with a minor typo corrected in the line after end_form (ended with ; instead of ,):

    print $q->header(),
        $q->start_html('Acme::Translator'),
        $q->h1('Acme::Translator'),
        $q->start_form(-method=>'get'),
        $q->p('Enter a URL, or Text with no URL, to translate:'),
        $q->p("URL ", $q->textfield('url','http://','45'), 
        $q->submit('Translate!')),
        $q->p($q->radio_group(
                'language',
                [keys %languages],
                'russian')),
        $q->p("Text<br>", $q->textarea('text','','10','60')),
          $q->end_form,
              $q->p("'k3wlt0k' and 'pig' are just hooks to the Text::B
+astardize function"),
              $q->p("Remove the URL to translate what's in the textare
+a"),
          $q->end_html;
[download]

You could also make $location set itself by moving it after the new CGI and saying:

my $location = $q->url();
[download]

--
Get some Perlmonks Related Scripts like framechat, reputer, and xNN.

Comment on Re: Acme::Translator Select or Download Code

• hippo

‥ epoptai's answer Re: how do I set a cookie and redirect was blessed by hippo!

• erzuuli

‥ Anonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.


Clear questions and runnable code get the best and fastest answer
	PerlMonks