主頁 > 知識庫 > Perl使用chdir的實(shí)例代碼

Perl使用chdir的實(shí)例代碼

熱門標(biāo)簽:買了外呼系統(tǒng)不想用了怎么辦 開封百應(yīng)電銷機(jī)器人聯(lián)系方式 武漢呼叫中心外呼系統(tǒng)線路商 樂昌電話機(jī)器人 電話機(jī)器人電話卡封號怎么辦 真人語音電銷機(jī)器人系統(tǒng) 邯鄲外呼調(diào)研線路 浦東上海400開頭的電話申請 北京語音電銷機(jī)器人價(jià)格

復(fù)制代碼 代碼如下:

use strict;
use warnings;

# Print all files in a directory
sub print_files {
    my $dir = 'd:/code';
    opendir DIR, $dir or die $!;
    my @files = readdir DIR;
    chdir $dir; # Use chdir or -f will not work, since -f need absolutely path
    foreach my $file (@files) {
        if (-f $file) {
            print "$file\n";
        }
    }
    closedir DIR;
}

print_files();

標(biāo)簽:松原 石嘴山 河北 鄂州 自貢 宜春 淄博 六安

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《Perl使用chdir的實(shí)例代碼》,本文關(guān)鍵詞  Perl,使用,chdir,的,實(shí)例,代碼,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《Perl使用chdir的實(shí)例代碼》相關(guān)的同類信息!
  • 本頁收集關(guān)于Perl使用chdir的實(shí)例代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章