stratust

#!/bin/sh
sudo tc qdisc add dev wlan0 root tbf rate 300kbit burst 5000 latency 50ms
sudo tc qdisc add dev eth0 root tbf rate 300kbit burst 5000 latency 50ms

stratust

wget -r -nH --cut-dirs=5 --no-parent http://mirrors.vbi.vt.edu/mirrors/ftp.ncbi.nih.gov/blast/temp/igblast/

stratust

wget -r --no-parent http://mirrors.vbi.vt.edu/mirrors/ftp.ncbi.nih.gov/blast/temp/igblast/

stratust

#!/usr/bin/env perl

use Moose;
use MooseX::Declare;
use 5.10.0;

# Define base class extending MooseX::App::Cmd
class MyApp 
{
    extends 'MooseX::App::Cmd';

stratust

#!/usr/bin/env perl

use Moose;
use MooseX::Declare;
use 5.10.0;

# Define base class extending MooseX::App::Cmd
class MyApp 
{
    extends 'MooseX::App::Cmd';

stratust

[stratus@darkside blog]$ ./create_sequence.pl
Available commands:

  commands: list the application's commands
      help: display a command's help screen

       dna: Create a DNA sequence
   protein: Create a Protein sequence

[stratus@darkside blog]$ ./create_sequence.pl dna

stratust

[stratus@darkside blog]$ ./create_sequence.pl
Available commands:

  commands: list the application's commands
      help: display a command's help screen

       dna: Create a DNA sequence
   protein: Create a Protein sequence

stratust

#!/usr/bin/env perl

use Moose;
use MooseX::Declare;
use 5.10.0;

class MyApp extends MooseX::App::Cmd {
    # Use to change de default command (help is the default)
    sub default_command {  }
}