Perl編程有許多值得我們學習的地方，你對Perl使用chdir有過了解嗎？武林技術小編今天就給大伙分享下Perl使用chdir的示例代碼，需要的小伙伴，不妨學習看看。
?
# 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的內容請繼續關注武林技術頻道。
新聞熱點
疑難解答
圖片精選
