- or download this
# foreach (@Dirs)
# foreach (@Dirs)
...
# if( @readbuffer == 4 )
# if( exists( $input1{$key2} ) )
# else
- or download this
#!/usr/bin/perl --
use strict;
...
TwoThing( $file );
}
exit 0;
- or download this
for my $file ( find( name => qr/R2_001.fastq$/, in => $root ) ){
SomeThing( $file );
...
}
...
}