????????????????
????????????????????λ???????????統(tǒng) Perl ??????????е??? 73 ?г???????????????????????????? 1892 ?У?????????sed ???????????У?????????????? 1892 ?У?????????????????????????????????С?
?????????????????????????
????“syntax error line 73 near ”} else“ ”
???????????????sed???????????????????У?
????$ sed -n 73p showvars
????else
??????????????У????????????б????????Щ????????????漸?п?????????????????????????????λ???????????????????????????????к???????У?
????sed -n 63??73p showvars
????if $password eq "a_secret";
????{
????foreach $var (sort(keys(%ENV))) {
????$val = $ENV{$var};
????$val =~ s|n|n|g;
????$val =~ s|"|"|g;
????print '${var}="${val}"n'
????};
????}
????else
?????????????????Щ????д if ????????????????????????????????
????????????? sed ??????????????????????С??????????????????????????? “??????” ????????????? foreach ??????У?
????$ sed '/print/{b label1; {:label1 ; s/^/# / ; s/$/ <===/ ;} }' showvars
????#!/bin/bash
????if $password eq "a_secret";
????{
????foreach $var (sort(keys(%ENV))) {
????$val = $ENV{$var};
????$val =~ s|n|n|g;
????$val =~ s|"|"|g;
????#         print '${var}="${val}"n' <===
????};
????}
????else
???????????????????????????? print ????
????$ sed '/print/{b label1; {:label1 ; s/^/# / ; s/$/ <===/ ;} }' showvars
????#!/bin/bash
????if $password eq "a_secret";
????{
????foreach $var (sort(keys(%ENV))) {
????$val = $ENV{$var};
????$val =~ s|n|n|g;
????$val =~ s|"|"|g;
????#         print '${var}="${val}"n' <===
????};
????}
????else
???????????????????????????????????????????????Щ???? Unix ???????Σ???????????????????????????????????????????????