#!/usr/bin/perl
symlink "/usr/src/linux-source-2.6.39.4/","/root/myperl/chap13/linux" or warn "cannot symlink linux to sourcecode: $!";
my $where = readlink "linux";
print "$where\n";
# ./symlink.pl
/usr/src/linux-source-2.6.39.4/
欢迎光临 曲径通幽论坛 (http://www.groad.net/bbs/) | Powered by Discuz! X3.2 |