soh-i

#!/usr/bin/env perl

use strict;
use warnings;

my $name = {};
my @cmd = `last`;
for (reverse @cmd) {
    next if $_ =~ /wtmp|^\s+/;
    my ($user, undef, $from, $w, $m, $d, $t) = split /\s+/;

soh-i

#!/usr/bin/env perl -w
use strict;

my $fh;

open $fh, '<', $ARGV[0];
while (my $line =  <$fh> ) {
    if ( $line =~ /www\.uniprot\.org\/uniprot\/(\w+)/){
	print $1, "\n";
    }

soh-i

#!/usr/bin/env perl 
use strict;
use warnings;
use LWP::Simple;

my $file = './list';
open my $fh, '<', $file or die "$!";
open my $out, ">>", "get_seq.fa" or die "$!";

while (my $id=<$fh>) {

soh-i

{ i=$1;
  var[i]++
}
END{ for (i in var) { 
    print i, var[i] }

}

soh-i

(defun perltidy-region ()
  "Run perltidy on the current region."
  (interactive)
  (save-excursion 
    (shell-command-on-region (point) (mark)"perltidy -q" nil t)))
(defun perltidy-defun()
  "Run perltidy on the current defun."
  (interactive)
  (save-excursion (mark-defun)
                  (perltidy-region)))

soh-i

tell application "System Events"
   tell current location of network preferences
      set VPNservice to service "VPN" -- name of the VPN service
      if exists VPNservice then connect VPNservice
   end tell
end tell

soh-i

if ( -x `which zsh` ) then
    exec zsh
else if ( -x `which tcsh` ) then
    exec tcsh
endif

soh-i

bindkey -e
# pager
export LESS='--LONG-PROMPT'
#allow tab completion in the middle of a word
setopt COMPLETE_IN_WORD
#keep background processes at full speed
setopt NOBGNICE
# Core size
limit coredumpsize 0
# restart running processes on exit

soh-i

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;

open my $fh, '<', $ARGV[0] or die;
local $/ = undef;

soh-i

#!/usr/bin/env perl

use strict;
use warnings;

use LWP::Simple;

if ( scalar @ARGV != 1) {
    die "Usage: perl $0 input.newick\n";
}