婷婷综合国产,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的實例代碼的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 页游| 江津市| 兖州市| 类乌齐县| 常州市| 万盛区| 新营市| 大名县| 伽师县| 遂川县| 蓬安县| 景泰县| 南投市| 武城县| 凤山县| 长丰县| 宜兰市| 巴彦淖尔市| 那曲县| 潜江市| 阿坝县| 义马市| 达州市| 永胜县| 马公市| 崇阳县| 阳谷县| 磐石市| 综艺| 哈巴河县| 比如县| 光山县| 托克逊县| 远安县| 宜兰市| 江山市| 漯河市| 沙洋县| 平塘县| 大悟县| 南华县|