Reformat the file names with Perl
...;; $| = 1; my %hash; my @files = glob "*.scf"; if (!$ARGV[0]){ print "...by one for (0..$#files){ $files[$_] =~ s/\.scf$//; my @pName = split /\_/...0]"."_$hash{$pName[0]}{code}"."_$pName[1]"."."."scf"; if ( -f "$files[$_].scf"...2387 days ago
Perl script to count the number of files in a directory with regex
...PRIM16_","_A21_","_A22_","_A32_","_A33_","_A24_","_A25_","_A23_","_B34_","_B38_","_E3B2_","_E3T1_","_HPRIM14_","_H158_"); my @files = glob("*.scf *.SCF"); foreach my $name (@allNam...2289 days ago
1566 days ago
1561 days ago
1493 days ago