Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: Other uses for 'Perl'

by Fingo (Monk)
on Aug 25, 2001 at 01:07 UTC ( [id://107719]=note: print w/replies, xml ) Need Help??


in reply to Other uses for 'Perl'

For us non-Germans

Replies are listed 'Best First'.
Re: Re: Other uses for 'Perl'
by khippy (Scribe) on Sep 17, 2001 at 17:42 UTC
    Hi Fingo, hi all,

    I have just extracted the intelligence out of Fingo's link
    to have a script, which expects an url and gives the babelfish
    link for the translation.
    #!/usr/local/bin/perl -w use URI; use strict; sub usage { print <<EOF; usage: $0 <url> <translatemodus> e.g. : $0 http://www.where_ever.arg/index.html en_de EOF exit; } my $url=$ARGV[0]; my $tl =$ARGV[1]; $tl="en_de" if not $tl; usage if not $url; my $u1 = URI->new("$url", "html"); my $base=$u1->authority; my @parts=$u1->path_segments; my $target ="http://babelfish.altavista.com/urltrurl?url=http%3A%2F%2 +F"; $target .=$base; foreach (@parts) { $target .= "%2F$_" if $_; } $target .="&lp=$tl&tt=url&urltext=&doit=done"; print "$target\n";


    just a quick hack, I don't know if I ever use this, but maybe
    there are some folks who appreciate this.

    --

    there are no silly questions
    killerhippy

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://107719]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others cooling their heels in the Monastery: (5)
As of 2024-03-19 05:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found