Perl

[fabbasey]

Hi Every one,
I am trying to write a code that should move the file from one folder to another folder in PERL. Its really very urgent. Please tell me how I can write the code for that.
If someboday can help me out I would really appreciate that.

Thanks!!!

[redhead]

How about this:

#!/usr/bin/perl
use File::Copy;
move($oldfile, $newfile)
    or die "move failed: $!";

OR if you want all the things done by hand, and not use some fancy library function

#!/usr/bin/perl
open(IN,  "< $oldfile")                     or die "can't open $oldfile: $!";
open(OUT, "> $newfile")                     or die "can't open $newfile: $!";

$blksize = (stat IN)[11] || 16384;          # preferred block size?
while ($len = sysread IN, $buf, $blksize) {
    if (!defined $len) {
        next if $! =~ /^Interrupted/;       # ^Z and fg
        die "System read error: $!\n";
    }
    $offset = 0;
    while ($len) {          # Handle partial writes.
        defined($written = syswrite OUT, $buf, $len, $offset)
            or die "System write error: $!\n";
        $len    -= $written;
        $offset += $written;
    };
}

close(IN);
close(OUT);
unlink($oldfile) or die "Can't unlink $oldfile: $!";

Naturaly you can change the $oldfile/$newfile with whatever you'd parsed as arguments.. I assume you know how to fetch arguments parsed to your program.
Else read up on the Perl cookbook, happy reading

[teknomage1]

And of course if you're using perl on unix you can just

system("mv $oldfile $newfile");

or

my $mv_output = `mv $oldfile newfile`; #note those are backticks not single quotes!

[computer geek47]

I feel so stupid that i cant understand a word you people say!Oh well...everyone has to start somewhere.

[sde]

Originally Posted by computer geek47

everyone has to start somewhere.

indeed

[computer geek47]

No way!!I use that word and nobody else does!!

[sde]

Originally Posted by computer geek47

No way!!I use that word and nobody else does!!

indeed, (c) 1995-2006, sde

sorry, if i print this disclaimer, i have the rights to this intellectual property. you now owe me money for each time you have used the word in the last 11 years.

[teknomage1]

Wait a minute there Mike, my patent on single word agreements of univeral truisms clearly trumps your (c). Luckily for you I'll license it to you for 50% of your "indeed" revenues in royalties.

[computer geek47]

Ya I dont do law.Im just here for the code.You can have your word.I have a new one!
perhaps, (c) 0-2006

[redhead]

Hey Computer geek, welcome here at CodeNewbie, don't be afraid to ask any form of question, as I'm sure we will be capable of providing you with an answer.