linux-l: perl-tk

[Olaf Radicke]

On Thu, Jan 10, 2002 at 12:29:10PM +0100, Steffen Dettmer wrote:
> * Olaf Radicke wrote on Wed, Jan 09, 2002 at 17:33 +0000:
> > Also Python finde ich sehr interessant, 
> 
> Warum?
Die Skripts die ich gesehen habe, sahen von der Syntax her, 
klarer und übersichtlicher aus. Und zum anderen höre/lese
ich ständig Leute davon schwärmen.

> C?! Wieso C? Na gut, wer Unix mag sollte C mal gesehen haben,
[...]
Nun, weil es denke ich eine gute Ergänzung zu Perl sein kann. 
Man kann ja beides "mischen" und die jeweiligen stärken dabei
ausspielen. Also Perl in C/C++ "einbetten" b.z.w. C-Erweiterungen
für Perl machen.
> 
> > Für die Die es interessiert, das Skript sieht jetzt so bei mir aus:
...Äh, nein! Momentan so (weil ich es immernoch nicht mit File::Find
gepeilt kriege):

#! /usr/bin/perl -w

use strict;
use Tk;
use File::Find;

my $zwischen;
my @liste;
my $zufall; 
my $ausgabe;
my $anzahl;
my $durchlauf;
my $mw;
my $print;

$mw = MainWindow->new;
$mw->title("scheiß");

$mw->Button(-text => "Verzeichnis aktuallisieren",
            -command => \&suchen)->pack;
$anzahl = "1";
  foreach my $p (1, 2, 3, 4){
    $mw->Radiobutton(-text => $p,
                   -value => $p,
                   -variable => \$anzahl)->pack;
  };  
    $mw->Button(-text => "Start",
            -command => \&rotiene)->pack;
MainLoop;


sub rotiene {
  chomp($anzahl);
  open(LISTE, " /backup2/backup/cd/liste.txt") || die "dateihandel fehlgeschlagen";
  @liste = <LISTE>;
  close(LISTE);

    for ($durchlauf =0; $durchlauf < $anzahl ; ++$durchlauf ){ 
      srand;
      $zufall = int( rand(@liste));
      $ausgabe = $liste[$zufall];      
      chomp($ausgabe);
      system "gqview $ausgabe \&";
    };   
};
sub suchen {system ("find /backup2/backup/cd/ -type d > /backup2/backup/cd/liste.txt");
 };