Difference between revisions of "Exercise 5.1"

From Earlham CS Department
Jump to navigation Jump to search
 
Line 2: Line 2:
 
Exercise 5.1 in <i>Beginning Perl for Bioinformatics</i></b>
 
Exercise 5.1 in <i>Beginning Perl for Bioinformatics</i></b>
  
<source lang=perl>
+
<pre>
 
#!/usr/bin/perl -w
 
#!/usr/bin/perl -w
 
use strict;
 
use strict;
Line 21: Line 21:
  
 
exit;
 
exit;
</source>
+
</pre>

Latest revision as of 17:54, 22 September 2009

Return to Week 2 Exercise 5.1 in Beginning Perl for Bioinformatics

#!/usr/bin/perl -w
use strict;
# Erika Phelps
# Sept. 21, 2009
# Exercise 5.1

# Write a nonhalting program.

# Define variables
my $var = 'DNA is COOL';
my $constant = '1';

# Create the while loop to be neverending...
    while($constant = '1'){
        print "$var!\n";
}

exit;