Perl編程有許多值得我們學(xué)習(xí)的地方，你對Perl使用chdir有過了解嗎？武林技術(shù)小編今天就給大伙分享下Perl使用chdir的示例代碼，需要的小伙伴，不妨學(xué)習(xí)看看。
?
# 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的示例代碼，通過上文想必都已清楚明了，更多關(guān)于Perl的內(nèi)容請繼續(xù)關(guān)注武林技術(shù)頻道。
新聞熱點
疑難解答
圖片精選
