#!/usr/bin/perl
use strict; use warnings;

## Splitting av tekststrenger
# Ofte har man en lang greie man vil splitte inn i en array. No problem!

my $string = "www.pvv.ntnu.no";
my @deler = split(".", $string);
# nå inneholder @deler dette: ('www', 'pvv', 'ntnu', 'no');

# Man kan også splitte på flere tegn:
my $verdier = "en, to, tre, fire, fem";
my @verdier = split(", ", $verdier);

# I stedet for å skrive en string som tegnet man kan splitte på, kan man også
# skrive et regulært uttrykk. Vi tar kanskje noe om regulære uttrykk senere,
# hvis vi rekker det.

# Å splitte på " " (mellomrom) er litt spesielt. Da oppfører perl seg som awk,
# og gir deg alle ordene, uansett hvor mye whitespace det er mellom. 
my $setn = "hei, jeg  er    ikke så   flink    med      mellomrom";
my @setn = split(" ", $setn);

# Om du vil at det skal bli som i cut, med blanke felter mellom spaces som er 
# inntil hverandre, bruk regulæruttrykket / /:
@setn = split(/ /, $setn);