mklink.pl (55714) | mklink.pl (68651) |
---|---|
1#!/usr/local/bin/perl 2 3# mklink.pl 4 5# The first command line argument is a non-empty relative path 6# specifying the "from" directory. 7# Each other argument is a file name not containing / and 8# names a file in the current directory. --- 35 unchanged lines hidden (view full) --- 44 push(@pwd_path, $dirname); 45 } 46} 47 48my $to = join('/', @to_path); 49 50my $file; 51foreach $file (@files) { | 1#!/usr/local/bin/perl 2 3# mklink.pl 4 5# The first command line argument is a non-empty relative path 6# specifying the "from" directory. 7# Each other argument is a file name not containing / and 8# names a file in the current directory. --- 35 unchanged lines hidden (view full) --- 44 push(@pwd_path, $dirname); 45 } 46} 47 48my $to = join('/', @to_path); 49 50my $file; 51foreach $file (@files) { |
52# print "ln -s $to/$file $from/$file\n"; 53 symlink("$to/$file", "$from/$file"); 54 print $file . " => $from/$file\n"; | 52 my $err = ""; 53 symlink("$to/$file", "$from/$file") or $err = " [$!]"; 54 print $file . " => $from/$file$err\n"; |
55} | 55} |