library
latex (12)| name | language | licence |
|---|---|---|
| grep | Perl | Other |
| Comparison operators | Other | Other |
| Foreach loop | Perl | 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 >
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) {