vtx2xawtv

xawtv绝版源码

#!/usr/bin/perl
#
#  vtx2xawtv - Konvertiert Kabel1-Kanalliste ins .xawtv-Format 
#
#  1) Mit Videotext-Tool aus dem Kabel1-Text die Seiten mit
#     den Kanal-Listen aufrufen und abspeichern, z.B. als 
#     vtx1.txt bis vtx3.txt
#
#  2) Diese Seiten durch vtx2xawtv pipen:
#
#        cat vtx?.txt | vtx2xawtv >> ~/.xawtv
#
#
#  Have Fun, 
#     Kai  ([e-mail])
#
#  PS: Dieses Scriptchen ist nat黵lich Public Domain, es w鋜e aber sch鰊,
#      wenn mein Name in weiteren Versionen drinbleibt.
#
#############################################################################
                                                                            #
while(<STDIN>){                                                             #
    if (/\*/) {                                                             #
                                                                            #
      # Zeile in 3 Teile zerlegen, jeweils feste Breite                     #
                                                                            #
      /(.........................)(..)(...)/;                               #
        $name=$1;                  $typ=$2; 
                                       $chan=$3;

      $name=~s/\(.*\)//;   # Bemerkungen in Klammern l鰏chen
      $name=~s/(\ )*$//;   # Leerzeichen am Ende...
      $name=~s/^(\ )//;    # ...und am Anfang l鰏chen
 
      if ($typ=~/K/){$typ='E'}                # Die Kabel1-Liste notiert
      if ($typ=~/S/ and $chan<21){$typ='SE'}  # die Kan鋖e etwas
      if ($typ=~/S/ and $chan>20){$typ='S'}   # anders als xawtv

      $chan=~s/(\ )*$//;  # Auch wieder f黮lende 
      $chan=~s/^(\ )*//;  # und f黨rende Leerzeichen abschneiden

      print "[$name]\nchannel=$typ$chan\n\n"; # Und im xawtv-Format ausgeben.
   }
}