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",...2319 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...2221 days ago
1498 days ago
1493 days ago
1425 days ago