#!/usr/bin/perl -w
use File::Copy;
print "后缀名：";
chomp(my $filename = <STDIN>);
my @txt_files = glob "*.$filename";
print "输出文件夹名";
chomp(my $filesname =<STDIN>);
mkdir " $filesname",0755;
foreach $_(@txt_files){
File::Copy::move("$_"," $filesname");
}

#!/usr/bin/perl -w
use strict;
print "Enter Folder name";
chomp(my $enterfilesname =<STDIN>);
mkdir " $enterfilesname",0755;
my @number = qw(1..10000);
foreach $_(@number){
system "perl WHAMM.pl --iHS-std ihs_stdfile.txt $_.whamm.ihs";
$filename = "whamm.ihs";
$newfilename = "$_".".ihs";
rename $filename,$newfilename;
File::Copy::move("$newfilename"," $enterfilesname");
}


#! /usr/bin/perl -w
@files = (1..10000);
foreach $_(@files){
open COMPAREIN, "$_.ihs";
open COMPAREOUT,">>test3out.txt";
while(<COMPAREIN>){
if (/(?:rs(?:[0-9]+))(?: +)([0-9]+)(?: +)(?:(?:0\.)(?:[0-9]{4}))(?: +)(NA|[0-9]+\.[0-9]{3}|-[0-9]+\.[0-9]{3})(?: +)/){
if ($2 != "NA"){
$value_number = $1;
$value = $2;
if ($value > $max){
$max = $value;
$max_number = $value_number;
}elsif($value < $min){
$min = $value;
$min_number = $value_number;
}
}
}
}
printf COMPAREOUT "%-7s %-8s %-7s %-8s\n",$max_number,$max,$min_number,$min;
$max = 0;
$min = 0;
}