You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
13 lines
362 B
Perl
13 lines
362 B
Perl
#!/usr/bin/perl
|
|
use warnings;
|
|
use strict;
|
|
my @array1;
|
|
my $scalar1;
|
|
@array1 = qw(Monday Tuesday Wednesday Thursday Friday Saturday Sunday);
|
|
$scalar1 = @array1;
|
|
print "Array 1 is @array1\nScalar 1 is $scalar1\n";
|
|
my @array2;
|
|
my $scalar2;
|
|
@array2 = qw(Winter Spring Summer Autumn);
|
|
$scalar2 = @array2;
|
|
print "Array 2 is @array2\nScalar 2 is $scalar2\n"; |