20 lines
264 B
Perl
20 lines
264 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
my $foo = 'foo';
|
||
|
|
print "\$foo=$foo\n";
|
||
|
|
|
||
|
|
my @foo = (1, 2, 3);
|
||
|
|
print "\@foo=@foo\n";
|
||
|
|
|
||
|
|
my %foo = (
|
||
|
|
1 => 'one',
|
||
|
|
2 => 'two',
|
||
|
|
3 => 'three',
|
||
|
|
);
|
||
|
|
print "\%foo=" . %foo . "\n";
|
||
|
|
|
||
|
|
my $log = *STDIN;
|
||
|
|
print $log . "\n";
|