27 lines
968 B
Perl
27 lines
968 B
Perl
#!/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);
|