23 lines
676 B
Perl
23 lines
676 B
Perl
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
## Fjerne linjeskift fra det du leser
|
|
# Til forskjell fra f.eks. sed og grep, fjerner ikke perl linjeskift av seg
|
|
# selv. Om du ikke vil ha dem, må du fjerne dem.
|
|
# Til dette har vi kommandoen chomp.
|
|
|
|
while (my $linje = <STDIN>) {
|
|
chomp($linje);
|
|
print "$linje\n"; # ok, litt unyttig å bare sette på igjen linjeskiftet.
|
|
}
|
|
|
|
# chomp kan også kjøres rett på en hel array. Da fikser den alle verdiene.
|
|
|
|
my @array = <STDIN>;
|
|
chomp(@array);
|
|
|
|
# NB! Det er veldig vanlig å glemme chomp, og så fortsette i god tro.
|
|
# Det kan føre til ekle bugs der linjeskift dukker opp på rare steder.
|
|
# Jeg vet dette fordi jeg gjør det hele tiden selv ;-)
|