#!/usr/bin/perl -w my $dir = "/home/test/folder"; opendir(BIN, $dir) || die "Can't open $dir: $!"; my @array = grep { -T "$dir/$_" } readdir BIN; foreach $file (@array) { $file = symlink ("/home/test/folder/$file","/home/folder/$file") }
In reply to symbolic links by muizelaar
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |