seit Jahren verwende: leo
Oft braucht man mal eben eine Übersetzung eines Wortes von Englisch
nach Deutsch oder umgekehrt.
Alles was man dazu braucht ist : ein Perlinterpreter, wget und w3m
CODE:
#!/usr/bin/env perl
use strict; use warnings;
if ($ARGV[0] =~ /^-[\?h]/){
print "usage: $0 <string> \n lookup <string> at dict.leo.org\n";
exit 1;
}
my $translate=$ARGV[0];
open (IN, "wget --quiet -O - http://dict.leo.org?search=$translate |")
or die "Can't start wget: $!";
while (my $line = <IN>){
chomp $line;
if ($line =~ /ENGLISCH/){
open (OUT, "| w3m -dump -T text/html | grep -v -- ----")
or die "Can't pipe to w3m: $!";
print OUT $line;
close OUT;
}
}
close IN;
use strict; use warnings;
if ($ARGV[0] =~ /^-[\?h]/){
print "usage: $0 <string> \n lookup <string> at dict.leo.org\n";
exit 1;
}
my $translate=$ARGV[0];
open (IN, "wget --quiet -O - http://dict.leo.org?search=$translate |")
or die "Can't start wget: $!";
while (my $line = <IN>){
chomp $line;
if ($line =~ /ENGLISCH/){
open (OUT, "| w3m -dump -T text/html | grep -v -- ----")
or die "Can't pipe to w3m: $!";
print OUT $line;
close OUT;
}
}
close IN;
