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"...2390 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...2291 days ago
1568 days ago
1563 days ago
1496 days ago