version 1.18, 2010/01/19 18:53:36 |
version 1.19, 2010/01/21 21:10:38 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1: todo.pl,v 1.17 2010/01/16 06:07:13 andrew Exp $ |
# $AFresh1: todo.pl,v 1.18 2010/01/19 18:53:36 andrew Exp $ |
######################################################################## |
######################################################################## |
# todo.pl *** a perl version of todo.sh. Uses Text::Todo. |
# todo.pl *** a perl version of todo.sh. Uses Text::Todo. |
# |
# |
|
|
if (s/^\s*export\s+//xms) { |
if (s/^\s*export\s+//xms) { |
my ( $key, $value ) = /^([^=]+)\s*=\s*"?(.*?)"?\s*$/xms; |
my ( $key, $value ) = /^([^=]+)\s*=\s*"?(.*?)"?\s*$/xms; |
if ($key) { |
if ($key) { |
foreach my $k ( keys %config ) { |
foreach my $k ( keys %{ $config } ) { |
$value =~ s/\$\Q$k\E/$config{$k}/gxms; |
$value =~ s/\$\Q$k\E/$config->{$k}/gxms; |
$value =~ s/\${\Q$k\E}/$config{$k}/gxms; |
$value =~ s/\${\Q$k\E}/$config->{$k}/gxms; |
} |
} |
foreach my $k ( keys %ENV ) { |
foreach my $k ( keys %ENV ) { |
$value =~ s/\$\Q$k\E/$ENV{$k}/gxms; |
$value =~ s/\$\Q$k\E/$ENV{$k}/gxms; |