linux-l: perl-tk

[Steffen Dettmer]

* Olaf Radicke wrote on Sat, Jan 05, 2002 at 15:40 +0000:
> $mw->Button(-text => "Start",
>             -command => \&rotiene)->pack;

Das baut die Liste mit vielen Systems bei jedem Knopfdruck auf.
Soll das so sein? Die Liste selbst beleibt doch, oder?

> foreach my $p (1, 2, 3, 4){
>   $mw->Radiobutton(-text => $p,
>                    -value => $p,
>                    -variable => \$anzahl)->pack;
> #                   -command => \&rotiene)->pack;
> }

Schade, daß ich hier kein X hab, würde mir das gerne mal
angucken... 

> MainLoop;
> 
> sub rotiene {
> 
> chomp($anzahl);
> 
> #######erstes Verzeichnis einlesen#######
> 
> system("ls ./cd1 >liste.txt") && die 'kann liste.txt nicht anlegen';
> open(LISTE, "liste.txt") || die "dateihandel fehlgeschlagen";
> while (<LISTE>) {
>     chomp;
>     $zwischen = ("./cd1/"."$_");
>     @liste = ($zwischen, at liste);
> };
> close(LISTE);

Das ist doof so, finde ich. Würde schreiben:

system(") && die 'kann liste.txt nicht anlegen';
open(LISTE, "find ./cd1 |") || die "fork failed";
@liste = <LISTE>;
close(LISTE);

Dann für "./cd1" ne Variable nehmen :)

> for ($durchlauf =0; $durchlauf < $anzahl ; ++$durchlauf ){ 
> 
>     $zufall = rand(@liste);
>     $ausgabe = $liste[$zufall];
> 
>     system ("gqview $ausgabe &");
> };

Wat is dat?! Was machen die Prozeße da dann? 

oki,

Steffen

-- 
Dieses Schreiben wurde maschinell erstellt,
es trägt daher weder Unterschrift noch Siegel.