what will be the value if we directly print the reference in perl?
Method 1:
$ref=\"DAM-DAMA-DAMAAR";
print $ref; #SCALAR(0x111ac40)
Method 2:
$varr=6;
$ref="varr";
print "$ref"; #varr
Method 3:
@b=(4,5,6);
$ref="b";
print "$ref"; #b
Method 4:
%I=(c,d);
$ref="I";
print "$ref"; #I
Method 5:
sub FName
{
print "DAM-DAMA-DAMAAR\n";
}
$ref="FName";
print $ref; #FName
Method 6:
$varr=7;
$ref=\$varr;
print $ref; #SCALAR(0x14bcc28)
Method 7:
@b=(4,5,6);
$ref=\@b;
print "$ref"; #ARRAY(0x23a1c28)
Method 8:
%f=(b=>c);
$ref=\%f;
print "$ref\n"; #HASH(0x22e3c28)
Method 9:
sub FName
{
print "DAM-DAMA-DAMAAR\n";
}
$ref=\&FName;
print $ref; #CODE(0xa70c28)
Method 10:
sub FName
{
my $b=shift;
print $b; #GLOB(0x1fc6bf8)
}
open(FIL1,">b.txt");
name(\*FIL1);
Method 11:
$b="DAM-DAMA-DAMAAR";
$ref=\substr($b,0,1);
print $ref; #LVALUE(0x112af30)
Method 12:
$ref=[4,5,6];
print "$ref"; #ARRAY(0x17f2f30)
Method 13:
$ref=[qw/4 5 6/];
print "$ref"; #ARRAY(0xd3af30)
Method 14:
$ref=[qq/4 5 6/];
print "$ref"; #ARRAY(0x27a6f30)
Method 15:
$ref={c=>D,f=>U};
print $ref; #HASH(0x1408f30)
Method 16:
$ref= sub {print "DAM-DAMA-DAMAAR\n"};
print $ref; #CODE(0x25b0c40)
Method 17:
$varr=55;
$ref=*varr{SCALAR};
print $ref; #SCALAR(0x23f6c28)
Method 19:
sub FName
{
print "DAM-DAMA-DAMAAR\n";
}
$ref=*FName{CODE};
print $ref; #CODE(0x2699c28)
Method 20:
@a[0]=[1,2,9,4,5];
@a[1]=[1,2,9,4,5];
@a[2]=[1,2,9,4,5];
@a[3]=[1,2,9,4,5];
print @a;
#3HASH(0xfdd640)1HASH(0xfbff30)2HASH(0xfc0128)
$ref=\"DAM-DAMA-DAMAAR";
print $ref; #SCALAR(0x111ac40)
Method 2:
$varr=6;
$ref="varr";
print "$ref"; #varr
Method 3:
@b=(4,5,6);
$ref="b";
print "$ref"; #b
Method 4:
%I=(c,d);
$ref="I";
print "$ref"; #I
Method 5:
sub FName
{
print "DAM-DAMA-DAMAAR\n";
}
$ref="FName";
print $ref; #FName
Method 6:
$varr=7;
$ref=\$varr;
print $ref; #SCALAR(0x14bcc28)
Method 7:
@b=(4,5,6);
$ref=\@b;
print "$ref"; #ARRAY(0x23a1c28)
Method 8:
%f=(b=>c);
$ref=\%f;
print "$ref\n"; #HASH(0x22e3c28)
Method 9:
sub FName
{
print "DAM-DAMA-DAMAAR\n";
}
$ref=\&FName;
print $ref; #CODE(0xa70c28)
Method 10:
sub FName
{
my $b=shift;
print $b; #GLOB(0x1fc6bf8)
}
open(FIL1,">b.txt");
name(\*FIL1);
Method 11:
$b="DAM-DAMA-DAMAAR";
$ref=\substr($b,0,1);
print $ref; #LVALUE(0x112af30)
Method 12:
$ref=[4,5,6];
print "$ref"; #ARRAY(0x17f2f30)
Method 13:
$ref=[qw/4 5 6/];
print "$ref"; #ARRAY(0xd3af30)
Method 14:
$ref=[qq/4 5 6/];
print "$ref"; #ARRAY(0x27a6f30)
Method 15:
$ref={c=>D,f=>U};
print $ref; #HASH(0x1408f30)
Method 16:
$ref= sub {print "DAM-DAMA-DAMAAR\n"};
print $ref; #CODE(0x25b0c40)
Method 17:
$varr=55;
$ref=*varr{SCALAR};
print $ref; #SCALAR(0x23f6c28)
Method 19:
sub FName
{
print "DAM-DAMA-DAMAAR\n";
}
$ref=*FName{CODE};
print $ref; #CODE(0x2699c28)
Method 20:
@a[0]=[1,2,9,4,5];
@a[1]=[1,2,9,4,5];
@a[2]=[1,2,9,4,5];
@a[3]=[1,2,9,4,5];
print @a;
#ARRAY(0x20e0f30)ARRAY(0x20fe640) ARRAY(0x210b370)ARRAY(0x210b418) Method 21:
$h{1} = { c => "jhjhjh", m => "jhkjkjh",
r => "jgjhgjh", };
$h{2} = { a => "nbvbnv", b => "fdfdf",
d => "nbmnbm", };
$h{3} = { k => "jhgjh", g => "jhhbm",
h => "jhjh", };
print %h;
|
0 Comments:
Post a Comment
Note: only a member of this blog may post a comment.
<< Home