如何清理编辑器等环境变量？

Question

我有以下代码，但我认为我需要清理环境变量，但我不确定应该如何清理它们。我意识到我可以对它们进行消毒的程度可能有限，但我能做什么呢？

#!/usr/bin/perl
use 5.012;
use warnings;
use autodie;
use Env qw( EDITOR VISUAL );
use File::Temp qw( :seekable );

my $editor = '/usr/bin/nano';
if ( $VISUAL ) {
    $editor = $VISUAL;
}
elsif ( $EDITOR ) {
    $editor = $EDITOR;
} else {
    warn 'set VISUAL and EDITOR env variables not set falling back to nano'
    . "\n";
}

my $tmpf = File::Temp->new;

system $editor, $tmpf->filename;

open $tmpf, '<', $tmpf->filename;

print while ( <$tmpf> );

Answer 1

我只在 CGI 脚本中做过类似的事情，所以也许这根本不是您想要的；我只是希望它能有所帮助。这是我使用的允许字符选择的修改版本，以及代码建议：

   my $editor = '/usr/bin/nano';
   my $allowed = 'a-zA-Z0-9.\-_/';

   # this is what I did, but you will probably not want to do this... 
   #$file =~ s/[^$allowed]//go; # Remove every character thats NOT in the OK-list

   # check that the variables contain only allowed characters
   if ($VISUAL =~ m/^[$allowed]+$/) {
      $editor = $VISUAL;
   }
   elsif ($EDITOR =~ m/^[$allowed]+$/) {
      $editor = $EDITOR;
   } 
   else {
      # message
   }

   # The code I have given above should also leave $editor in its default
   # state if neither $VISUAL nor $EDITOR has been set, as the condition
   # will not be true for empty strings/undef values.

显然，如果您注意到环境变量中存在您认为不应该存在的字符（即不在 $allowed 中的字符），则无法更改环境变量string），但您可以检查此类字符是否存在，并在这种情况下使用默认编辑器。这只是我的拙见；也许该主题的专家稍后会回复，您将得到她/他的智慧:)

Answer 2

为什么需要对它们进行消毒？如果脚本的用户使用 VISUAL="rm -f" 和 EDITOR 进行其他奇怪的操作，将会发生什么损害？在执行任何危险操作之前，您需要检查编辑器操作是否成功、文件是否已打开以及编辑后其内容是否有意义。但是，如果用户只能损坏自己的文件（您运行的系统不会让他们损坏您的文件，是吗？），那么就没有必要清理它们。提供默认值是合理的；当地情况决定了 nano 是否比 vim 更好。

如果用户不能通过滥用 VISUAL 和 EDITOR 来损坏您的东西，那么我不会太担心他们选择损坏自己的东西。

如果您正在编写将以提升的权限运行的东西（例如，使用 SetUID 或 SetGID 权限），那么您必须更加担心它。 （Perl 代码缺少比担心要使用的编辑器更基本的检查。哦，但是 use autodie; 意味着脚本在出现错误时自动中止，这对我来说听起来有点激进，但它可能确实可以原谅你 - 尽管我注意到它不处理系统 或 exec 除非您有 use autodie qw(:all);)

Answer 3

我认为你需要对此稍微有不同的思考。毕竟，您的脚本似乎需要用户交互。因此，询问用户使用哪个编辑器并不是没有道理的。您可以在执行编辑器之前发出提示，如下所示：

您想使用哪个编辑器 [/usr/bin/vi]？

，其中默认值将从 $ENV{EDITOR}、$ENV{ 填写VISUAL} 或者如果两者均未定义，则为 /usr/bin/nano。这样，用户就可以判断该值是否有意义。

如果您对 $ENV{EDITOR} 指向何处感到疑虑，那么您可能还必须对是否有人在用户路径中放置恶意可执行文件并将其命名为 greateditor 或类似的一些。

Answer 4

使用带有多个参数的 system 不需要您清理任何内容，因为不会调用任何 shell。您可能想先检查可执行文件是否存在，但这会使您的程序不必要地复杂化，并且您必须查看$PATH。像这样的环境变量通常也是可信的。

不过，您可能想从系统中调用退出状态。您可以尝试先调用 $VISUAL，如果失败，再调用 $EDITOR （如果设置了 $VISUAL，则 $ EDITOR 应该充当后备）。