#!/usr/local/bin/perl

if (@ARGV == 0 || $ARGV[0] eq "--help")  {
    print "g\@xxxx or -gxxxx :get file name xxxx.\n";
    print "c\@     or -c     :copy file to current 
directory.\n";
    print "cr\@    or -cr    :cp -R file to current 
directory.\n";
    print "m\@     or -m     :move file to current 
directory.\n";
    print "h\@     or -h     :hold current directory.\n";
    print "r\@     or -r     :return directory that 
holded.\n";
    print "l\@xxxx or -lxxxx :Creat symbolic link as xxxx 
to current directory.\n";
    print "n\@xxxx or -nxxxx :ReName as xxxx\n";      

    exit(-1);
}

use Cwd;

my %cmd = ('c'=>['cp', 'copy'], 'cr'=>['cp -R', 'copy'],
	   'm'=>['mv', 'move'], 'l'=>['ln -s', 'create 
symlink'],
	   'n'=>['mv', 'rename']);
my $src_dir;
my $src;
my $held_dir = Cwd::getcwd();

foreach my $arg (@ARGV) {
    if (chdir $arg) {
	ls();
	next;
    }

    $arg =~ s/^(\w+)@(.*)/lc(-$1).$2/e;
    my ($op, $dst) = $arg =~ /^-(g|cr|c|m|h|r|l|n)(.*)/;
    unless ($op) {
	system $arg;
    } elsif ($op eq 'g') {
	$src = $dst;
	$src_dir = Cwd::getcwd();
    } elsif ($op eq 'h') {
	$held_dir = Cwd::getcwd();
    } elsif ($op eq 'r') {
	print "nxt return $held_dir\n";
	chdir $held_dir;
	ls();
    } else {
	$src or die "Nothing copyed.\n";
	print "nxt gonna $cmd{$op}[1] from $src\n";
	system "$cmd{$op}[0] $src_dir/$src ./$dst";
    }
}

sub ls {
    system 'ls';
    
print "____________________________________________________
______________________\n";
    
}

## end