35 lines
444 B
Perl
35 lines
444 B
Perl
|
#!/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__
|