21. Directory

 

Display all the files

 

use strict; use warnings;   # /temp 폴더에 속한 모든 파일들을 출력한다. my $dir = "/temp/*"; my @files = glob($dir);   foreach(@files) {        print $_ ."\n"; }   # /temp 폴더에 속한 모든 C source 를 출력한다. $dir = "/temp/*.c" ; @files = glob ($ dir);   foreach(@files) {        print $_ ."\n"; }   #  /temp 폴더에 속한 모든 hidden 파일을 출력한다. $dir = "/temp/.*" ; @files = glob ($ dir);   foreach(@files) {        print $_ ."\n"; }   # /temp 와 /home 폴더에 속한 모든 파일을 출력한다. $dir = "/temp/* /home/*" ; @files = glob ($ dir);   foreach(@files) {        print $_ ."\n"; }

 

 

 

Create new directory

 

use strict; use warnings;   my $dir = "/tmp/perl";   # This creates perl directory in /tmp directory. mkdir( $dir ) or die "Couldn't create $dir directory, $!" ; print "Directory created successfully\n";

 

 

 

Remove a directory

 

use strict; use warnings;   my $dir = "/tmp/perl";   # This removes perl directory from /tmp directory. rmdir( $dir ) or die "Couldn't remove $dir directory, $!" ; print "Directory removed successfully\n";

 

 

 

Change a directory

 

use strict; use warnings;   my $dir = "/home";   # This changes perl directory  and moves you inside /home directory. chdir( $dir ) or die "Couldn't go inside $dir directory, $!" ; print "Your new location is $dir\n";