Perl 脚本返回值作为第二个 Perl 脚本的输入

发布于 2024-12-17 10:13:16 字数 423 浏览 0 评论 0原文

我需要编写一个脚本 getPwd.pl($user) 来解析密码文件并返回特定用户的密码。

要解析的文件 (password.txt)

DEFINE ALICE = 'alice#1';
DEFINE BENICE = 'benice#1';
DEFINE CATHY = 'cathy#1';

第二个脚本 authUser.pl 必须调用 getPwd.pl($user) 并且返回的值将传递到第二个脚本进行身份验证一个用户。

模块不是一个选项，因为 getPwd.pl 将由不同的用户拥有，我将使用 sudo 来执行 getPwd.pl。

请协助并提供一些有关如何解决此问题的指导。

原文

I need to write a script getPwd.pl($user) that parses a password file an returns the password for a particular user.

file to parse (password.txt)

DEFINE ALICE = 'alice#1';
DEFINE BENICE = 'benice#1';
DEFINE CATHY = 'cathy#1';

A second script authUser.pl must call getPwd.pl($user) and the returned value will be passed into the second script to authenticate a user.

Modules is not a option as the getPwd.pl will be owned by a different user and I will be using sudo to execute getPwd.pl.

Please assist and provide some guidance on how to go about this.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

第七度阳光i 2024-12-24 10:13:16

我同意整个系统应该得到修复。如果你可以执行 sudo 那么你肯定有能力解决问题！

然而，要回答实际问题，最好的办法是将 getPwd.pl 作为命令调用（而不是像上面所示的函数）。

my $pwd = `getPwd.pl $user`

然后将 $pwd 参数作为响应。

但是，如果您至少可以将另一个文件作为模块或源文件，那么情况会好得多。

I agree that the system, as a whole, should be fixed. And if you can execute sudo then you certainly have the ability to fix the problem!

However, to answer the actual question, the best thing to do would be to call getPwd.pl as a command (not as a function like you've shown above).

my $pwd = `getPwd.pl $user`

And then take the $pwd argument as the response.

However, if you can at least make the other file a module or a sourced file you'd be much better off.

回复收藏 0 原文

夏见 2024-12-24 10:13:16

您可以简单地打印从密码文件中提取的值，并使用反引号或 qx() 在授权脚本中捕获它。例如：

my $pass = qx(/path/to/password.pl cathy);

密码脚本可能很简单：

my $name = shift;
open my $fh, '<', '/path/to/password.txt' or die $!;
while (<$fh>) {
    /^DEFINE $name =/i && last; # Optional /i modifier for case insensitive match
}

if ($_ && /^DEFINE $name = '([^']+)'/) { # Must check $_ is not empty
    print $1;
}

You can simply print the value extracted from the password file, and use backticks or qx() to capture it in the authorization script. E.g.:

my $pass = qx(/path/to/password.pl cathy);

The password script might be something as simple as:

my $name = shift;
open my $fh, '<', '/path/to/password.txt' or die $!;
while (<$fh>) {
    /^DEFINE $name =/i && last; # Optional /i modifier for case insensitive match
}

if ($_ && /^DEFINE $name = '([^']+)'/) { # Must check $_ is not empty
    print $1;
}

回复收藏 0 原文

~没有更多了~