如何用命令返回值給變量賦值

b4and5

請問：
my $dir = '/home/jac/down'  ;
在 $dir下面有很多 *.ctl文件：test1.ctl    test2.ctl     abc.ctl     shit.ctl     hahaha.ctl     noway.ctl ;
$dir和dir下面的.ctl文件都不是固定 ;

想設(shè)置一個數(shù)組變量@CTL_FILE, 并使@CTL_FILE的值為目標dir下面的ctl文件列表.
(在此例中 @CTL_FILE 的值應(yīng)該為 (test1.ctl test2.ctl abc.ctl shit.ctl hahaha.ctl noway.ctl))
請問，怎么弄....謝謝

jason680

回復(fù) 1# b4and5

would you like it?

@CTL_FILE = glob("$dir/*.ctl")

Note: it include the directory $dir
   

b4and5

回復(fù) 2# jason680


   Thanks!

@CTL_FILE=system "ls $dir/*.ctl"

為什么不行呢.....

zhlong8

應(yīng)該用 ``

The return value of 'system' is the exit status of the program as returned by the wait call. To get the actual exit value, shift right by eight (see below). See also exec. This is not what you want to use to capture the output from a command; for that you should use merely backticks or qx//, as described in `STRING` in perlop.

b4and5

回復(fù) 4# zhlong8

Thanks a lot!

I'm just a beginner... So poor...{:3_201:}
   

jason680

回復(fù) 3# b4and5

$ 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 process to
            exit. Note that argument processing varies depending on the number
            of arguments. If there is more than one argument in LIST, or if
            LIST is an array with more than one value, starts the program
            given by the first element of the list with arguments given by the
            rest of the list. If there is only one scalar argument, 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.

            Beginning with v5.6.0, Perl will attempt to flush all files opened
            for output before any operation that may do a fork, but this may
            not be supported on some platforms (see perlport). To be safe, you
            may need to set $| ($AUTOFLUSH in English) or call the
            "autoflush()" method of "IO::Handle" on any open handles.

            The return value is the exit status of the program as returned by
            the "wait" call. To get the actual exit value, shift right by
            eight (see below). See also "exec". This is not what you want to
            use to capture the output from a command; for that you should use
            merely backticks or "qx//", as described in "`STRING`" in perlop.
            Return value of -1 indicates a failure to start the program or an
            error of the wait(2) system call (inspect $! for the reason).

            ...