groups

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

Rename a lot of files in a directory 2

options: view full snippet • send to code collector 
#!/usr/bin/perl -w

$dir = "fet_tuning";

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

foreach $file (@files) {
  $run = substr($file, 13, 4);
  system("mv $dir/$file $dir/Run$run");
}
(Continues...)