我想返回這個perl腳本上的Unix用戶列表。我用Passwd :: Unix使用Mojolicious框架。Mojolicious和Passwd :: Unix
參考文獻:
- Mojolicious(http://metacpan.org/pod/Mojolicious)
- 的passwd :: UNIX(http://metacpan.org/pod/Passwd::Unix)
這是我的代碼:
test.pl
#!/usr/bin/env perl
use Mojolicious::Lite;
use Passwd::Unix;
# Instance
my $pu = Passwd::Unix->new();
get '/' => sub {
my $self = shift;
my $users = $pu->users;
$self->stash(
users => $users
);
} => 'test';
app->start;
__DATA__
@@ test.html.ep
<ul>
<% foreach my $user ($users) { %>
<li><%= $user %></li>
<% } %>
</ul>
但是,不是返回用戶,而是隻打印總用戶數。
嘗試省略'my $ users = $ pu-> users;'並用foreach my $ user替換您的循環($ pu-> users){' – hwnd
@JasonGray,不工作,它不是漂亮的解決方案,但無論如何感謝。 :) –