view release on metacpan or  search on metacpan

t/config/30-alt_symbols_03.cfg  view on Meta::CPAN

           b       :=       B is for Bat!    ? A comment

c:=@C is for Cat!@    ? Another comment

? Another comment ...
d :=D is for Dog!     ? Comment (????) ...

e := @E is for Elephant!@

f := 'F is for Frog!"   ? Unbalanced Quotes are not removed. (can't implement)

g := G is for Gold Fish!

g := $fooled you        ? Not a variable substitution!

h_pwd := @Hello World!@    ? Should@t appear in fish.

? --------------------------------------------------------------

one := ONE
two := TWO
three := THREE

? All 3 evaluate to the same value ...
number 1 := @$[one] $[two] $[three]@
number 2 := @$[one] $[two] $[three]@
number 3 :=  $[one] $[two] $[three]

? All 3 evaluate to the same value again ...
number 6 := @$[one] $[two] $[three]@    ? A comment ...
number 5 := @$[one] $[two] $[three]@    ? A comment ...
number 4 :=  $[one] $[two] $[three]     ? A comment ...

number 8 := $[number 1]

rule8 missing := $[undefined]    ? Returns @@ as it@s value.

? Testing the special variables ... (Rule 0)
shft3 := @zzzzzzzzz@         ? Line should be ignored!

cmt  := $[shft3]
cmt2 := $[shft33]
cmt3 := $[shft333]

? Look up these 3 special perl variables ... (Rule 5)
rule5_pid  := $[$]          ? Different per test ...
rule5_prog := $[0]
rule5_os   := $[^O]

? Look up these special variables ... (Rule 6)
rule6_host := $[hostname]
rule6_user := $[user]
rule6_pid  := $[PID]       ? Should match $[rule5_pid]
rule6_ppid := $[PPID]      ? Different per test ...
rule6_p    := $[program]
rule6_sep  := $[sep]       ? Varies by OS

? Here are some dates we are interested in!

? The date keywords use rule 7 ... So mixes rule 6 & 7.
log1 := t$[sep]logs$[sep]$[program].$[today].txt
log2 := t$[sep]logs$[sep]$[program].$[yesterday].txt
log3 := t$[sep]logs$[sep]$[program].$[tomorrow].txt

? Here are some strange variables to see what happens!
empty_1 := $[]
empty_2 := $[   ]

empty_3 := abc $[] xyz
empty_4 := abc $[   ] xyz