kiyotakagoto · September 28, 2011 03:57
diff --git a/alias_test.pl b/alias_test.pl
 #! /usr/bin/env perl
 use strict;
 use warnings;

 our $foo = 'This is foo schalar';
 our @foo = ('This', 'is', 'foo', 'array');
 our %foo = ('This is foo' => 'hash');
 our ( $bar, @bar, %bar );

 *bar = *foo;

 print "$bar\n";
 print join ',', @bar, "\n";
 print %bar, "\n";
	#! /usr/bin/env perl
	use strict;
	use warnings;

	our $foo = 'This is foo schalar';
	our @foo = ('This', 'is', 'foo', 'array');
	our %foo = ('This is foo' => 'hash');
	our ( $bar, @bar, %bar );

	bar = foo;

	print "$bar\n";
	print join ',', @bar, "\n";
	print %bar, "\n";
No results found