Ideone.com

language:	Perl (perl 5.16.2)
date:	212 days 6 hours ago
link:
visibility:	public private user's deleted

Embed source code on your page

source code clone download copy to clipboard report bug / make suggestion

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use warnings;
use strict;
 
my @array = (1,2,3,4,5);
my $v = 1;
 
sub by_ref 
{
    my ($array_ref,$v) = @_;  
    @$array_ref = (0,0,0);
    print "Array inside by_ref: @$array_ref\n"; 
}
 
by_ref(\@array,$v);
print "Array changed: @array\n";

clone download copy to clipboard

compilation info hide

input / output show all hide all

# 6 # 5 # 4 # 3 # 2 # 1

upload with new input

# 6: show clone input 212 days 5 hours ago Success

input:

use warnings;
use strict;
 
my @array = (1,2,3,4,5);
my $v = 1;
 
sub by_ref 
{
    my ($array_ref,$v) = @_;  
	print "$array_ref[1]";
    @$array_ref = (0,0,0);
    print "Array inside by_ref: @$array_ref\n"; 
}
my @b = @array;
by_ref(\@b,$v);
@array = @b;

output:

Array inside by_ref: 0 0 0
Array changed: 0 0 0

# 5: show clone input 212 days 5 hours ago Success

input:

use warnings;
use strict;
 
my @array = (1,2,3,4,5);
my $v = 1;
 
sub by_ref 
{
    my ($array_ref,$v) = @_;  
	print "123  $array_ref[1]";
    @$array_ref = (0,0,0);
    print "Array inside by_ref: @$array_ref\n"; 
}
my @b = @array;
by_ref(\@b,$v);
@array = @b;

print "Array changed: @array\n";

output:

Array inside by_ref: 0 0 0
Array changed: 0 0 0

# 4: show clone input 212 days 5 hours ago Success

input:

use warnings;
use strict;
 
my @array = (1,2,3,4,5);
my $v = 1;
 
sub by_ref 
{
    my ($array_ref,$v) = @_;  
	print "$array_ref[1]";
    @$array_ref = (0,0,0);
    print "Array inside by_ref: @$array_ref\n"; 
}
my @b = @array;
by_ref(\@b,$v);
@array = @b;

print "Array changed: @array\n";

output:

Array inside by_ref: 0 0 0
Array changed: 0 0 0

# 3: show clone input 212 days 5 hours ago Success

input:

use warnings;
use strict;
 
my @array = (1,2,3,4,5);
my $v = 1;
 
sub by_ref 
{
    my ($array_ref,$v) = @_;  
	print "$array_ref[1]";
    @$array_ref = (0,0,0);
    print "Array inside by_ref: @$array_ref\n"; 
}
my @b = @array;
by_ref(\@b,$v);
@array = @b;

print "Array changed: @array\n";

output:

Array inside by_ref: 0 0 0
Array changed: 0 0 0

# 2: show clone input 212 days 5 hours ago Success

input:

use warnings;
use strict;

my @array = (1,2,3,4,5);

sub by_ref 
{
    my $array_ref = @_;
    @$array_ref = (0,0,0);
    print "Array inside by_ref: @$array_ref\n"; 								
}

by_ref(\@array);
print "Array inside : @array\n";

output:

Array inside by_ref: 0 0 0
Array changed: 0 0 0

# 1: hide show clone input 212 days 6 hours ago Success

result: Success time: 0s memory: 4684 kB returned value: 0

input: no
output:
```
Array inside by_ref: 0 0 0
Array changed: 0 0 0
```

UsernamePassword

Username
Password