会python真的可以为所欲为0(回)
359天前
这里还有人吗1(回)
544天前这里还有人吗0(回)
544天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
769天前到处都是羊，不想上班0(回)
849天前
鸽子
0(回)
853天前#----------------------------- |
while (<CONFIG>) { |
chomp; # no newline |
s/#.*//; # no comments |
s/^\s+//; # no leading white |
s/\s+$//; # no trailing white |
next unless length; # anything left? |
my ($var, $value) = split(/\s*=\s*/, $_, 2); |
$User_Preferences{$var} = $value; |
} |
#----------------------------- |
do "$ENV{HOME}/.progrc"; |
#----------------------------- |
# set class C net |
NETMASK = 255.255.255.0 |
MTU = 296 |
|
DEVICE = cua1 |
RATE = 115200 |
MODE = adaptive |
#----------------------------- |
no strict 'refs'; |
$$var = $value; |
#----------------------------- |
# set class C net |
$NETMASK = '255.255.255.0'; |
$MTU = 0x128; |
# Brent, please turn on the modem |
$DEVICE = 'cua1'; |
$RATE = 115_200; |
$MODE = 'adaptive'; |
#----------------------------- |
if ($DEVICE =~ /1$/) { |
$RATE = 28_800; |
} else { |
$RATE = 115_200; |
} |
#----------------------------- |
$APPDFLT = "/usr/local/share/myprog"; |
do "$APPDFLT/sysconfig.pl"; |
do "$ENV{HOME}/.myprogrc"; |
#----------------------------- |
do "$ENV{HOME}/.myprogrc"; |
or |
do "$APPDFLT/sysconfig.pl" |
#----------------------------- |
{ package Settings; do "$ENV{HOME}/.myprogrc" } |
#----------------------------- |
eval `cat $ENV{HOME}/.myprogrc`; |
#----------------------------- |
$file = "someprog.pl"; |
unless ($return = do $file) { |
warn "couldn't parse $file: $@" if $@; |
warn "couldn't do $file: $!" unless defined $return; |
warn "couldn't run $file" unless $return; |
} |
#----------------------------- |
