[ create a new paste ] login | about

Link: http://codepad.org/tc5dsbIK    [ raw code | output | fork ]

skeletonkey - Perl, pasted on Feb 18:
1
2
3
4
5
6
7
8
9
10
11
12
13
my @strings = (
    "Hello world",
    "multi\n
    line
    string",
    "tabbing\talong\twith spaces",
);

foreach my $s (@strings) {
    my $t = $s;
    $t =~ s/\s*//g;
    print "$s -> $t\n";
}


Output:
1
2
3
4
5
6
Hello world -> Helloworld
multi

    line
    string -> multilinestring
tabbing	along	with spaces -> tabbingalongwithspaces


Create a new paste based on this one


Comments: