How to move file from one directory to another directory in linux

[kirankr1234]

@files = `ls /home/perl/`;
 
foreach $file (@files) {
    print "$file";
    $file_size = `du -h /home/perl/working/kiran/$file`;
    if ( $file_size == 0 ) {
        print "$file";
        if(( $value = rename ("/home/perl/working/kiran/$file", "/home/perl/working/kalyan/$file")) == 0) {
            print "success\n";
        } else {
            print "failure";
        }
        print "hello";
    }
}
 

can any one correct this program

[jonathan184]

first you need to use open opendir command to open the dir

Then read the dir in the array
@array = readdir(DIR);

just to give you a start.


If you just want to run unix instead of perl comands

use the unxi commands like this

system "unix command";

[miller]

Greetings,

You really should be able to do something this simple rather easily if you just read the documentation for each function at:

http://perldoc.perl.org/

Nevertheless, here is ultimately what you're trying to acheive:

my $source = '/home/perl/working/kiran/';
my $destination = '/home/perl/working/kalyan/';
 
opendir(DIR, $source) or die "can't open $source: $!";
 
foreach my $file (grep {! /^\.\.?$/} readdir(DIR)) {
    if (-f "$source$file") {
        print "$file";
        rename("$source$file", "$destination$file") or die "Can't rename $file: $!";
    }
}
closedir(DIR);
 

- Miller

[RonB]

Use the File::Path module - Create or remove directory trees
http://search.cpan.org/~dland/File-Path-2.08/Path.pm

I'm not sure what you mean by "disable the folder in source directory", especially since your question deals with moving the directory.