forum.lissyara.su

Код: Выделить всё

system("cp 1 2");
system("cp 1 3");
system("cp 1 4");

Код: Выделить всё

perldoc -f exec

Код: Выделить всё

           exec (cp 1 4')   or print STDERR "couldn't exec foo: $!";
                   { exec ('cp 1 4') }; print STDERR "couldn't exec foo: $!";
                   { exec ('cp 1 4') }; print STDERR "couldn't exec foo: $!";

Код: Выделить всё

  If there is more than one argument in LIST, or if LIST is an
               array with more than one value, calls execvp(3) with the argu-
               ments in LIST.  If there is only one scalar argument or an
               array with one element in it, the argument is checked for shell
               metacharacters, and if there are any, the entire argument is
               passed to the system's command shell for parsing (this is
               "/bin/sh -c" on Unix platforms, but varies on other platforms).
               If there are no shell metacharacters in the argument, it is
               split into words and passed directly to "execvp", which is more
               efficient.  Examples:

                   exec '/bin/echo', 'Your arguments are: ', @ARGV;
                   exec "sort $outfile | uniq";

Код: Выделить всё

my $cp1 = `cp 1 2`;
my $cp2 = `cp 2 3`;
my $cp3 = `cp 3 4`;

Код: Выделить всё

($file !~ /^[A-Za-z0-9]+$/)

Код: Выделить всё

  package User;

        @ISA = qw(Object::Transaction);

        use Object::Transaction;

        my $top = "/some/path";

        sub new { 
                my ($package, $login) = @_;
                die unless getpwnam($login);
                return bless { UID => getpwnam($login) };
        }

        sub file { 
                my ($ref, $id) = @_;
                $id = $ref->id() unless $id;
                return "$top/users/$id/data.storable";
        }

        sub id {
                my ($this) = @_;
                return $this->{UID};
        }

        sub preload
        {
                my ($id) = @_;
                return if getpwuid($id);
                return getpwnam($id) if getpwnam($id);
                die;
        }

        sub postload
        {
                my ($this) = @_;
                my ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,
                        $shell,$expire) = getpwuid($this->{UID});
                $this->{SHELL} = $shell;
        }

        sub presave
        {
                my ($this, $old) = @_;
                my $id = $this->{UID};
                mkdir("$top/users/$id", 0700);
                delete $this->{SHELL};
        }

        sub postsave
        {
                goto &postload;
        }

        sub postremove
        {
                delete from pw file...
        }

        my $joe = new User "joe";
        $joe->savelater();

        my $fred = new User "fred";
        $fred->savelater();

        $joe->commit();