You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
444 B
35 lines
444 B
14 years ago
|
#!/usr/bin/env perl
|
||
|
use strict;
|
||
|
use warnings;
|
||
|
|
||
|
|
||
|
print qq{I said "They're the most delicious fruits!".\n};
|
||
|
print q/I said "They're the most delicious fruits!"./ . "\n";
|
||
|
|
||
|
|
||
|
print <<OUTPUT
|
||
|
I said "They're the most delicious fruits!".
|
||
|
OUTPUT
|
||
|
;
|
||
|
|
||
|
my $one = 'mangoes';
|
||
|
|
||
|
print "I like $one.\n";
|
||
|
print 'I like $one.' . "\n";
|
||
|
print qq/I love $one.\n/;
|
||
|
print q#I love $one.# . "\n";
|
||
|
|
||
|
print <<OUT
|
||
|
I <3 $one
|
||
|
OUT
|
||
|
;
|
||
|
|
||
|
print <<'OUT'
|
||
|
I <3 $one
|
||
|
OUT
|
||
|
;
|
||
|
|
||
|
|
||
|
1;
|
||
|
__END__
|