groups

Link to this snippet:


Download to Code Collector

language: Perl
licence: Other

Softlink to multiple files

options: send to code collector • view all nepahwin's snippets
#!/usr/bin/perl -w

$dir = "fet_tuning";

opendir(DIR, "$dir/.");
@files = grep(/.Run./,readdir(DIR));
closedir(DIR);

opendir(DIR, "$dir/.");
@files_addition = grep(/^Run/,readdir(DIR));
closedir(DIR);

push (@files, @files_addition);

foreach $file (@files) {
  system("ln -s $dir/$file $file\n");
}