婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > Perl使用chdir的實例代碼

Perl使用chdir的實例代碼

熱門標簽:買了外呼系統不想用了怎么辦 開封百應電銷機器人聯系方式 武漢呼叫中心外呼系統線路商 樂昌電話機器人 電話機器人電話卡封號怎么辦 真人語音電銷機器人系統 邯鄲外呼調研線路 浦東上海400開頭的電話申請 北京語音電銷機器人價格

復制代碼 代碼如下:

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();

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

巨人網絡通訊聲明:本文標題《Perl使用chdir的實例代碼》,本文關鍵詞  Perl,使用,chdir,的,實例,代碼,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《Perl使用chdir的實例代碼》相關的同類信息!
  • 本頁收集關于Perl使用chdir的實例代碼的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 承德市| 开鲁县| 江北区| 鄂托克前旗| 临朐县| 佛冈县| 惠东县| 邵东县| 冕宁县| 仙桃市| 台前县| 顺昌县| 微博| 铜鼓县| 卓尼县| 桐乡市| 交口县| 肥东县| 台东市| 驻马店市| 手机| 奉新县| 虹口区| 额济纳旗| 宁蒗| 嘉义县| 苏尼特右旗| 丰都县| 洛隆县| 和静县| 炎陵县| 高邮市| 靖西县| 延边| 江源县| 平乐县| 安顺市| 清新县| 龙江县| 宁蒗| 东山县|