Hey guys,

i have one Irssi script, based on C, but my bot uses TCL. Is it possible to convert script from C to TCL?

code:

---

#!/usr/bin/perl
my $ch = shift;
my $n2ita = 0;
if ($ch eq "etv") {
    $ch = 1;
    $kanal =  "ETV";
    }
    elsif ($ch eq "kanal2")
    {
    $ch = 2;
    $kanal = "Kanal 2";
    }
    elsif ($ch eq "tv3")
    {
    $ch = 3;
    $kanal = "TV 3";
    }
    else
    {
    print " Tundmatu kanal. Valikud on etv, kanal2, tv3\n";
    exit 0;
}
my $url = "http://www.w3.ee/index.php?id=54";
my @page = `lynx -display_charset=UTF-8 -crawl -width=20000 -source $url | grep -A 6 header`;

foreach(@page) {
    next if(/^\s*$/);
        $n2ita = 1 if(/$ch/);
    s/^\s*//;
    s/<tr>/\n/g;
    s/<\/tr>/\n/g;
#    s/<[^>]*>/;/g;
#    s/<.b>/;/g;
#    s/<.td>/;/g;
#    s/\s\s*/ /g;
    s/ä/ä/g;
    s/ü/ü/g;
    s/Ã\//Ü/g;
    s/õ/õ/g;
    s/ÃU/Õ/g;
    s/ö/ö/g;
    s/ž/¸/g;
    s/â/"/g;
    s/&otilde;/õ/g;
    s/<[^>]*>/;/g;
    s/Ã/Ü/g;
#    s/^(.{389}).*$/\1.../;
#    s/--//g;
        push(@kava,$_);
}
$a = join(" ", @kava);
$a = substr($a, 4, -13);
@saade = split(/;/, "$a");
#print @kava;
if ($ch eq "1") {
    print "Kanal: [" . $kanal ."] Saade: [" . @saade[35] . "] Algas: [" . @saade[32] . "] Kirjeldus: [" . @saade[37] . "] Aeg: [" .  @saade[38] . "]\n";
        }
        elsif ($ch eq "2")
    {   
    print "Kanal: [" . $kanal ."] Saade: [" . @saade[49] . "] Algas: [" . @saade[46] . "] Kirjeldus: [" . @saade[51] . "] Aeg: [" .  @saade[52] . "]\n";
    }
    elsif ($ch eq "3")
    {
    print "Kanal: [" . $kanal ."] Saade: [" . @saade[63] . "] Algas: [" . @saade[60] . "] Kirjeldus: [" . @saade[65] . "] Aeg: [" .  @saade[66] . "]\n";
    }
#print @kava;

---

That's perl.

I'd convert it, but I don't know TCL.

That's sad. But script author said it's in C. I don't know anything about it...actually he mentioned perl.

Is there anybody who knows both perl & tcl?