Regex perl如何处理包含不同用户的文本文件

superadmin.txt文件的格式如下：

def
ghi
pqr
...etc

Perl如何读取不同的用户？ 它是否能够识别superadmin.txt中的不同文本？ 代码如下：

  @prelist = ();
  @prelist = `cat ../cgi-bin/superadmin.txt`;
  foreach $prename (@prelist) {
  $prename =~s/\n//g ;
  $superadminstaff{$prename} = "Y";

---

好吧，让我们重新编写代码，这样它a）可以编译，b）使用当前的最佳实践，c）不需要分叉到

cat

my @prelist = ();
my %superadminstaff = ();
open my $admin, '<', '../cgi-bin/superadmin.txt' or die "Can't open ../cgi-bin/superadmin.txt: $!\n";
chomp(@prelist = <$admin>);
@superadminstaff{@prelist} = ("Y") x @prelist;

my@prelist=（）；
我的%superadminstaff=（）；
打开我的$admin，“好吧，让我们重新编写代码，这样它a）可以编译，b）使用当前的最佳实践，c）不会出现
cat

my @prelist = ();
my %superadminstaff = ();
open my $admin, '<', '../cgi-bin/superadmin.txt' or die "Can't open ../cgi-bin/superadmin.txt: $!\n";
chomp(@prelist = <$admin>);
@superadminstaff{@prelist} = ("Y") x @prelist;

my@prelist=（）；
我的%superadminstaff=（）；
打开我的$admin，'我恐怕这真的不清楚。在您的文件中，什么是不同的用户？你想在这里实现什么？您想要什么输出？请更详细地解释输入文件的格式。什么是
def
和
ghi
？我刚刚注意到您正在将数据文件存储在
cgi-bin
目录中。这是一个非常糟糕的主意
cgi-bin
用于可执行文件。数据文件通常应该存储在您的web根目录之外。我恐怕这真的不清楚。在您的文件中，什么是不同的用户？你想在这里实现什么？您想要什么输出？请更详细地解释输入文件的格式。什么是
def
和
ghi
？我刚刚注意到您正在将数据文件存储在
cgi-bin
目录中。这是一个非常糟糕的主意
cgi-bin
用于可执行文件。数据文件通常应该存储在web根目录之外。我可能会在最后一行使用
map
，因为我觉得它更清晰一些：
my%superadminstaff=map{$\u=>“Y”}@prelist-虽然结果相同，但这是一个品味问题。我可能会在最后一行中使用
map
，因为我觉得它更清晰一些：
my%superadminstaff=map{$\u=>“Y”}@prelist-虽然结果相同，但这只是口味的问题。