Difference between revisions of "Exercise 5.1"

From Earlham CS Department
Jump to navigation Jump to search
 
(2 intermediate revisions by the same user not shown)
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>
  
<code>#!/usr/bin/perl -w
+
<pre>
use strict;</nowiki>
+
#!/usr/bin/perl -w
 +
use strict;
 
# Erika Phelps
 
# Erika Phelps
 
# Sept. 21, 2009
 
# Sept. 21, 2009
Line 20: Line 21:
  
 
exit;
 
exit;
</code>
+
</pre>

Latest revision as of 18: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;