Re^3: unix command in perl

my $chk_user=system("ypmatch $user passwd"); where $user is any username. the output i get in case the username doesn't exist: Can't match key sss in map passwd.byname. Reason: No such key in map. and in case the username exists, i get some details about this user. i don't want the results in any case to be shown in the terminal window. thanks

Comment on Re^3: unix command in perl

Replies are listed 'Best First'.
Re^4: unix command in perl by liverpole (Monsignor) on Sep 25, 2007 at 14:58 UTC
Hi sagibeli, That's not going to work, if you're trying to capture the text. If you want to make an assignment, use qx (same as the `...` operator). When you use system, the return value has a different meaning (it's the program's exit status). Why don't you try what jettero suggested? ... use strict; use warnings; + my $user = 'root'; my $chk_user = `ypmatch $user password 2>&1`; print "Results of 'ypmatch' for user '$user' => '$chk_user'\n"; [download] s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: unix command in perl
by liverpole (Monsignor) on Sep 25, 2007 at 14:58 UTC

sagibeli

That's not going to work, if you're trying to capture the text. If you want to make an assignment, use qx (same as the `...` operator). When you use system, the return value has a different meaning (it's the program's exit status).

Why don't you try what jettero suggested? ...

use strict;
use warnings;
                                                                      
+          
my $user = 'root';
my $chk_user = `ypmatch $user password 2>&1`;
print "Results of 'ypmatch' for user '$user' => '$chk_user'\n";
[download]

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

[reply]
[d/l]