Wie kann ich die cd in ein Verzeichnis mit perl?

Ich versuche Folgendes..
system "cd directoryfolder"
aber es funktioniert nicht, auch ich versuche das system "exit" verlassen Sie das terminal, aber es funktioniert nicht.

InformationsquelleAutor sirplzmywebsitelol | 2011-08-10
  1. 25

    Code:

    chdir('path/to/dir') or die "$!";

    Perldoc:

       chdir EXPR
   chdir FILEHANDLE
   chdir DIRHANDLE
   chdir   Changes the working directory to EXPR, if possible. If EXPR is omitted,
           changes to the directory specified by $ENV{HOME}, if set; if not, changes to
           the directory specified by $ENV{LOGDIR}. (Under VMS, the variable
           $ENV{SYS$LOGIN} is also checked, and used if it is set.) If neither is set,
           "chdir" does nothing. It returns true upon success, false otherwise. See the
           example under "die".

           On systems that support fchdir, you might pass a file handle or directory
           handle as argument.  On systems that don't support fchdir, passing handles
           produces a fatal error at run time.
    • Ich betrat die Zeile " chdir('folder01') or die "$!";' nach meiner entpacken Linie ist, aber ich bekomme die folgende Fehlermeldung. syntax Fehler an it.pl die Linie 6, in der Nähe von "system" - Ausführung it.pl abgebrochen, weil Kompilierungsfehler.
    • Ihre "unzip-Zeile" nicht sinnvoll in diesem Zusammenhang. Können Sie aktualisieren Sie Ihre Frage mit einer mehr oder weniger vollständigen code-snippet, damit wir sehen können, was Sie sind versuchen zu tun?
    • system "wget download.com/download.zip" system "entpacken download.zip" chdir('download') or die "$!"; system "sh install.sh";
    • Ihnen fehlt ein Semikolon nach der system vor der chdir.
    • Durch die Möglichkeit, ein perl-Skript, das aus fast vollständig von system fordert, muss wohl ein shell-Skript statt. Versuchen Sie Folgendes direkt auf der command line: wget download.com/download.zip; unzip download.zip; cd download; sh install.sh.
    • Perl - Archive::Extract kann Ihnen helfen, entpacken Dinge direkt aus Ihrem Programm mit der system-Aufrufe.

    InformationsquelleAutor bobah
  2. 14

    Der Grund, warum Sie nicht tun, diese Dinge durch den Aufruf system ist, dass system wird einen neuen Prozess starten, führen Sie Ihren Befehl, und die Rückgabe des exit-status. Also, wenn Sie rufen system "cd foo" starten Sie ein shell-Prozess, das wird, wechseln Sie zu den "foo" - Verzeichnis und beendet sich dann. Nichts jeder Folge passieren wird, in Ihrem perl-Skript. Ebenso system "exit" wird einen neuen Prozess starten und sofort beenden es wieder.

    Was wollen Sie für die cd-Hülle, ist - wie bobah Punkte aus - die Funktion chdir. Für das beenden des Programms, gibt es eine Funktion exit.

    Jedoch - weder von denen auf den Zustand des terminal-Sitzung, die Sie sind in. Nach Ihrem perl-Skript abgeschlossen ist, wird das Arbeitsverzeichnis des Terminals wird die gleiche wie vor dem Start, und Sie werden nicht in der Lage, um zu beenden der terminal-Sitzung, indem Sie exit in Ihrem perl-Skript.

    Dies ist, weil Ihre perl-Skripts ist wieder ein separater Prozess vom terminal aus Schale, und die Dinge, die geschehen, in separaten Prozessen in der Regel nicht gegenseitig stören. Dies ist ein feature, kein bug.

    Wenn Sie möchten, Dinge zu ändern, die in Ihrer shell-Umgebung, müssen Sie Anweisungen, die verstanden und interpretiert, die von Ihrer shell. cd ist so ein builtin-Befehl in der shell, wie exit.

    InformationsquelleAutor Peder Klingenberg
  3. 4

    Ich immer wieder gerne erwähnen File::chdir für cd-ing. Es ermöglicht änderungen an der working-directory, die lokal auf den umschließenden block.

    Als Peder erwähnt, das Skript ist im Grunde alle Systemaufrufe zusammen gebunden mit Perl. Ich präsentiere eine weitere Perl-Implementierung.

    "wget download.com/download.zip"; 
system "unzip download.zip" 
chdir('download') or die "$!"; 
system "sh install.sh";

    wird:

    #!/usr/bin/env perl

use strict;
use warnings;

use LWP::Simple; #provides getstore
use File::chdir; #provides $CWD variable for manipulating working directory
use Archive::Extract;

#download
my $rc = getstore('download.com/download.zip', 'download.zip');
die "Download error $rc" if ( is_error($rc) );

#create archive object and extract it
my $archive = Archive::Extract->new( archive => 'download.zip' );
$archive->extract() or die "Cannot extract file";

{
  #chdir into download directory
  #this action is local to the block (i.e. {})
  local $CWD = 'download';
  system "sh install.sh";
  die "Install error $!" if ($?);
}

#back to original working directory here

    Diese verwendet auch zwei nicht-core-Module (und Archive::Extract wurde nur Kern seit Perl v5.9.5), so müssen Sie möglicherweise um Sie zu installieren. Verwenden Sie die cpan - Dienstprogramm (oder ppm auf AS-Perl) zu tun.

    InformationsquelleAutor Joel Berger
Schreibe einen Kommentar