Loop over with perl
By Surabhi Chaudhary 2455 days ago
my @ids =qw (scaffold_4
scaffold_4
scaffold_15
scaffold_40
scaffold_44
scaffold_51
scaffold_54
scaffold_129
scaffold_138
scaffold_138
scaffold_180
scaffold_182
scaffold_184
scaffold_219
scaffold_219
scaffold_267
scaffold_273
scaffold_282
scaffold_282
scaffold_458
scaffold_470
scaffold_480
scaffold_521
scaffold_644);
foreach my $i (@ids) {
print "Working on $i\n";
mkdir $i;
system ("./actor.sh $i");
system ("cp *.* $i");
}
