sashaphanes

#!/usr/bin/perl

use strict;
require "getopts.pl";

use vars qw ($opt_f $opt_p $opt_q $opt_s $opt_t $opt_l $opt_m $opt_F $opt_Q $opt_L $opt_M $opt_c $opt_o $opt_h $opt_H);

&Getopts('f:p:q:l:s:t:m:F:Q:L:M:c:o:hH:');

my $executable = "merge.basedOn.column.pl";

sashaphanes

#!/usr/bin/perl

use strict;
#use warnings;

require "getopts.pl";
   
use vars qw ($opt_f $opt_s $opt_h $opt_H);

&Getopts('f:s:hH:');

sashaphanes

#!/usr/bin/perl

use strict;
#use warnings;

require "getopts.pl";
   
use vars qw ($opt_f $opt_s $opt_h $opt_H);

&Getopts('f:s:hH:');

sashaphanes

#!/usr/bin/perl

use warnings;

open FILE, 'practice.txt';
my @content = <FILE>;

print "raw content:\n @content\n\n";

my $line;

sashaphanes

#!/usr/bin/perl

use strict;
use warnings;

my $DNAfilename = 'exampleSequence.txt';

unless (open(DNAFILE, $DNAfilename)) {
    print "Could not open file $DNAfilename\n\n";
    exit;

sashaphanes

#!user/bin/perl

use strict;
use warnings;

my $password = 'poops!';

print "Please enter your guess:\n";
my $guess = <STDIN>;
chomp $guess;

sashaphanes

#!/usr/bin/perl

use strict;
use warnings;

print "Which file would you like to use?\n";

my $DNAfilename = <>;

open(DNAfile, $DNAfilename);

sashaphanes

#!/usr/bin/perl

use strict;
use warnings;

print "Which sequence would you like to view?\n\n";

my $DNAfilename = <>;

open(DNAfile, $DNAfilename);

sashaphanes

#!/usr/bin/perl -sw

my $DNAfilename = 'exampleSequence.txt';

open(DNAfile, $DNAfilename);

my $DNA = <DNAfile>;

close DNAfile;

sashaphanes

my $DNA1 = 'AAATTTTGGGGCCCCaaaaatttttcccccggggg';

my $rev = reverse($DNA1);

my $DNA2 = $DNA1;
$DNA2 =~ tr /atcgATCG/tagcTAGC/;

print "$rev\n";

exit;