Re: [PERL] eksikvering af eksterne programmer med system()

[Christian Hansen <sslug@sslug>]

Peter Andreasen wrote:
> 
> * Christian Hansen (sslug@sslug) [2000-09-16 23:08]:
> > > Ligesom i shell'en (hvis du bruger UN*X):
> > >
> > >   #!/usr/bin/perl -w
> > >   system ('cat /etc/passwd | wc');
> >
> > Programmerne skal ikke bruge resultaterne direkte og det er vist nok det
> > pipes gør, hvis jeg har forstået det korrekt. Nogle af programmerne
> > udfører operationer på filer, som skal være færdige, før næste program
> > begynder at udfører operationer.
> 
> Ja, pipes sender output fra eet program videre som input til det næste.
> Jeg er ikke helt sikker på jeg forstår hvad du mener, men kan flg.
> løse dit problem?
> 
>    #!/usr/bin/perl -w
>    system('firstprog');
>    system('secondprog');
>    system('thirdprog');
> 
> system() returnerer først når programmet er færdigt. Hmm, jeg har en
> fornemmelse af at det heller ikke helt er hvad du har i tankerne. Hvis
> ikke, må du nok være lidt mere konkret. Giv fx. et konkret eksempel.

Jeg har måske misforstået noget mht system() kommandoen. Jeg var ikke
klar over at system() først returnerede, når programmet var færdigt. Jeg
var bange for at alle 3 programmer i dit eksempel ville starte
sideløbende, men det gør de åbentbart ikke.

Helt konkret, skal jeg ændre i en tekstfil og det dur ikke at alle 3
programmer laver ændringer samtidigt og derefter overskriver, hvad
hinanden har lavet. Derfor er jeg nødt til at være sikker på, at første
program er færdigt, før det næste går i gang.

jeg er ved at lave et program, der vil lette brugeroprettelsen på
linuxmaskiner i forbindelse med gnuskole-projektet
http://gnuskole.u-net.dk/ Programmet virker næsten perfekt, og kan ret
mange ting. Indtil nu har programmet lavet shellscripts, som så blev
eksikveret, men jeg ville da hellere benytte system() til at eksiskvere
forskellige kommandoer med, da det er mere elegant.

Jeg valgte at bruge perl til opgaven, da det er forholdsvist nemt, og
samtidig giver folk en mulighed for hurtig at rette det til hvis det er
nødvendigt.

Kan man udgive et perl-program under GPL?

MVH Christian