Perl a exec

9.10.2005 22:45 | Přečteno: 1151× | Jen tak

Tak jsem byl nucen napsat malý cyklus v Perlu, což je jazyk, ve kterém prakticky neumím pracovat. Zatímco Python jsem zvládl bez problému, u Perlu jsem to nedokázal rozjet.

## Python
import os
mtab=file("/etc/mtab","r")
for line in mtab:
  print line
  os.system("...")

## Perl
open(MTAB,"/etc/mtab")
@foo=<MTAB>
foreach (@foo) {
  print $_;
  exec("...");
}

Zatímco Python prošel všechny řádky, program v Perlu se zasekl na prvním a skončil. V dokumentaci jsem nic nenašel, ale zkusil jsem i tu funkci system, o níž je tam zmínka. A voilà, cyklus projel všechny řádky v souboru. Sice nevím proč, ale jsem rád, že to bylo tak jednoduché. Alespoň si to budu do příště pamatovat, pokud se zase budu pokoušet programovat v Perlu .

       

Komentáře

[Abraxis]

Exec neeeeeeeeeeee Perl jen system... - exec se uz "nikdy nevrati do Perlu".

Ale jinak se mi to zda dobre - jen na Perlu nesnasim to $_ - pak clovek musi u kodu "moc premyslet", co v tom ma...

[Jáchym Čepický]

open (MTAB, "/etc/mtab") or die "Could not open mtab: $!";
foreach (<MTAB>) {
  system($_);
  # nebo
  # `$_`;
}
close MTAB;

Problem neni v jazyku, je to někde jinde...

[Lucke]

exec se v "Perlu" chová stejně jako v "céčku" (a myslím si, že i v "Pythonu"). Ostatně man perlfunc vypíše toto: The "exec" function executes a system command and never returns-- use "system" instead of "exec" if you want it to return.

exec (včetně jeho ostatních variant) se dá použít v případě, že se nejdříve vytvoří další proces a ten (potomek) se přepíše. Viz. dokumentace k fork.

Ostatně system to dělá přesně tak. V souvislosti s ním ještě zbývá zmínit další volání jádra waitpid.

[unchallenger]

Eh? Když pokaždé použiješ úplně jinou funkci (system vs. exec), tak proč se divíš?

$perldoc -f exec
exec PROGRAM LIST
               The "exec" function executes a system command and never
               returns-- use "system" instead of "exec" if you want it to
               return. ...

$perldoc -f system
system LIST
       system PROGRAM LIST
               Does exactly the same thing as "exec LIST", except that a fork
               is done first, and the parent process waits for the child pro-
               cess to complete. ...

$pydoc os.execve
os.execve = execve(...)
    execve(path, args, env)
    
    Execute a path with arguments and environment, replacing current process.

    ...

$pydoc os.sysem
os.system = system(...)
    system(command) -> exit_status
    
    Execute the command (a string) in a subshell.

$man execve
NAME
       execve - execute program

SYNOPSIS
       #include <unistd.h>

       int  execve(const  char  *filename,  char  *const  argv [], char *const
       envp[]);

DESCRIPTION
       execve() executes the program pointed to by filename.
       ...

       execve() does not return on success, and the text, data, bss, and stack
       of the calling process are overwritten by that of the  program  loaded.
       The  program  invoked  inherits the calling process's PID, ...

$man system
NAME
       system - execute a shell command

SYNOPSIS
       #include <stdlib.h>

       int system(const char *command);

DESCRIPTION
       system()  executes a command specified in command by calling /bin/sh -c
       command, and returns after the command has been completed. ... 

[Michal Vyskočil]

Já se nedivím, tohle jsem vyplodil po čtvrt hodince v Perlu - vím, moje chyba, neumím ho. Ale díky za vysvětlení.