[ create a new paste ] login | about

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

skeletonkey - Perl, pasted on Oct 14:
1
2
3
4
5
6
my @x = (1, 'foo', 2, 'bar', 'hello world');
f($_) for @x;
sub f {
    my $arg = shift;
    print "f recevied $arg\n";
}


Output:
1
2
3
4
5
f recevied 1
f recevied foo
f recevied 2
f recevied bar
f recevied hello world


Create a new paste based on this one


Comments: