Script/Perl
21. Directory
삽질의 달인
2020. 1. 21. 11:30
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";
|