DedSec Project

Perl — arrays — DedSec Project

use strict; use warnings; my @names = ('Ada', 'Grace', 'Linus'); for my $name (@names) { print "Hello $name n"; }

Αναφορά πηγαίου κώδικα

use strict;
use warnings;
my @names = ('Ada', 'Grace', 'Linus');
for my $name (@names) {
    print "Hello $name\n";
}