[ create a new paste ] login | about

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

sironekotoro - Perl, pasted on Sep 24:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use strict;
use warnings;

my @array = qw(0120 123 XXX);
for my $foo(@array){
    print "$foo\n";
}

print "\n";

my $tel = join '-' , @array;
print "$tel\n";

my $path = "/usr/bin/env perl";
my @element = split /\// , $path;
for my $bar(@element){
    print "$bar\n";
}


Output:
1
2
3
4
5
6
7
8
9
0120
123
XXX

0120-123-XXX

usr
bin
env perl


Create a new paste based on this one


Comments: