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