Select Code to Download

# Example 1.
# @now will be (40, 51, 20, 9, 0, 109, 5, 8, 0)
...
# Example 2.
# $now will be "Fri Jan  9 20:51:40 2009"
$now = localtime();

perl -e "@now = localtime(); for $now(@now) {print $now;}"
432351301092120

perl -e "$now = localtime(); print $now;"
Tue Jan 13 05:26:30 2009

# Example 3.
# $sec will be 40, $min will be 51, $hr will be 20
($sec,$min,$hr) = localtime();

my ($x) = localtime();     # Example 4

my $x = localtime();       # Example 5

# BAD!   [Example 6]
my %h = ( now => localtime() );

# GOOD    [Example 7]
my %h = ( now => scalar localtime() );

# GOOD     [Example 8]
my %h = ( now => [ localtime() ] );

# Example 9
sub print_time {
...

# prints "The time is now Tue Jan 13 05:26:30 2009"
print_time( scalar localtime() );

# Example 10
my @loc = ($offset, $length);
my $part = substr( $string, @loc );

print clock();          # Example 11

sub clock {
    return localtime();
}

print scalar localtime();     # Example 12

my $match_count = ()= /x/g;       # Example 13

# Example 14
while (<>) {
    ponder( $_ );   # void context
}

# Example 15

...
void
list
scalar

# Example 16

...
__END__
how much beer?  99 bottles
how much beer?  98

# Example 17

...
my $stringified = ''. $n;  # "31337"
my $numified    = 0+  $s;  # 12
my $boolean     = !!  $n;  # 1

# Example 18

...

# does the same thing:
#my @listy = ('snake');

# Example 19

...

my $r = ( 'larry', 'moe', @t );         # 2
my $f = ( 'old', 'man', localtime() );  # "Fri Jan  9 20:51:40 2009"

# Example 20

my $friend   = 'Perl';
my $literal  = '$friend';   # literally, '$friend'
my $expanded = "$friend";   # literally, 'Perl'