Übersetzungstool

[Twee]

hi

Ich möchte eine Übersetzungsmaschine ungefähr in der Art von google auf meiner Seite haben. Eine Seite wird überarbeitet und dann in einem Frame leicht verändert angezeigt. Ich weiß aber überhauptnicht wie ich mit perl irgendeine Seite im Internet auslesen kann.

soweit bin ich ungefähr

for ($i=2;$i<=$zahl;$i++) {
  my $line = $text[$i];

@dingsis = split(/>/, $line);
  $theline = "";
  foreach $line2 (@dingsis) {
    ($thingsi, $dingsda) = split(/</, $line2);
    $thingsi =~ s/en/0rn/g;
    $thingsi =~ s/er/0r/g;
    $thingsi =~ s/e/3/g;
    $thingsi =~ s/o/0/g;
    if (defined $dingsda) {
      $dingsda = "<$dingsda>";
    }
    $theline = "$theline$thingsi$dingsda";
  }
  $text[$i] = "$theline\n";
}

bitte regt euch nicht über meine variablennamen auf, ich weiß, es gibt bessere. Die eigentlichen Ersetzungen sind erstmal nur zum testen ;D und um die Geschichte mit den Tags überdenke ich nochmal. Es geht mir nur um eine Möglichkeit Seiten zu lesen.

Danke fürs durchlesen und ggf helfen

Tweet

[alligator]

AHoi,

das kannst du mit dem Module LWP::Simple bzw LWP::UserAgent machen.
Hier eine Seite, die recht einfach zu verstehen ist, aber du alles erlernst was du brauchst zu dem Thema ...

http://www.thomas-fahle.de/pub/perl/LWP/index.html

cya
alligator