1
2
3
4
5
6
7
8
9
10
11
12
$name = "Wastl";
$~ = NAME;
write;
format NAME =
@<<<<<<<<
$name
.
format NAME_TOP =
Name
.
$^ = NAME_TOP;
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
my $name = "Wastl"; print "\$^: $~ \n"; print "\$^: $^ \n"; $~ = TEST; #$^ = TEST_TOP; format TEST = @<<<<<<<< $name . format TEST_TOP = Name . print "\$^: $~ \n"; print "\$^: $^ \n"; write;