Fatal编程技术网
  • regex/
  • Regex Can'；I don’我想不出这个文件要读的格式

Regex Can'；I don’我想不出这个文件要读的格式

regex perl

Regex Can'；I don’我想不出这个文件要读的格式,regex,perl,Regex,Perl,我有一个perl块，它应该从静态文件中读取IRC主机掩码、特权级别和注释。在Perl（我是这方面的认证新手）和regex之间，我在创建文件时遇到了一些问题 sub read_users { @users = (); open CONFIG, "<", "users"; while (my $line = <CONFIG>) { next if $line =~ /^\s*#/; my ($mask, $level

我有一个perl块，它应该从静态文件中读取IRC主机掩码、特权级别和注释。在Perl（我是这方面的认证新手）和regex之间，我在创建文件时遇到了一些问题

sub read_users {
    @users = ();

    open CONFIG, "<", "users";
    while (my $line = <CONFIG>)
    {
        next if $line =~ /^\s*#/;
        my ($mask, $level, $comment) = split /\s+/, $line, 3;

        push @users, [$mask, $level];
    }
    close CONFIG;
}

子读取用户{
@用户=（）；

打开配置，“文件的每一行必须是：


    

  • 注释（被忽略），由可选空白、
    #
    和任意文本组成
    • 

  • “掩码”、“级别”和“注释”，由空格分隔，掩码前没有前导空格。掩码和级别不能包含空格，但注释可以
    • 



不是有效的行；
my$line=
表达式仅从
配置文件句柄读取一行，并将其存储在
$line
中，
while
导致重复该操作，直到
返回一个假值（通常
在文件末尾取消定义
）.
谢谢，这很有帮助。行中用户的含义是什么：打开配置，“@DanielTharp:
users
是脚本将从中读取的文件名。工作非常完美。没有用户文件，所以我没有这一点线索。感谢您的帮助！@DanielTharp:您通常应该使用类似于：
my$usersfile=“users”；open-CONFIG”澄清一下，我基本上继承了这个项目，对perl的了解不多，但这对我来说更容易理解，是的。谢谢你的建议。

<CONFIG>
irc.hostmask.goes.here 500 comment