library
latex (12)| name | language | licence |
|---|---|---|
| TTree aliases | C++ | Other |
| TNtuple simple analysis | C++ | Other |
| Table - default | Latex | Other |
| Rename a lot of files in a directory 2 | Perl | Other |
| Repeating string using the x operator | Perl | Other |
| Softlink to multiple files | Perl | Other |
| Substitution of one part of a string with another | Perl | Other |
| Substring | Perl | Other |
< 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 >
language: Perl
licence: Other
Softlink to multiple files
options: view full snippet • send to code collector
#!/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) {