19 lines
550 B
Perl
19 lines
550 B
Perl
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
## Join, det motsatte av split
|
|
# Hvis du har en array, og skal lage en tekststreng av verdiene, er join
|
|
# tingen for deg. Den setter sammen alle feltene, med en tekststreng mellom.
|
|
|
|
my @koner = ("magda", "gunhild", "gunda");
|
|
my $penliste = join(", ", @koner);
|
|
print "Koner: $penliste\n";
|
|
|
|
# Ut kommer dette: "Koner: magda, gunhild, gunda"
|
|
|
|
|
|
# Gammelt jegertriks for å lage en diger variabel av en array du har lest inn:
|
|
my @linjer = <STDIN>;
|
|
my $digervariabel = join("", @linjer); # Vi joiner på tom streng
|