Re: Module for accessing samba smbclient command

[quester]

I don't see a CPAN module offhand, but you might consider a simple-minded approach. What happens if you try

my $output = qx{smbclient -L};
say $output;

[Anonymous Monk]

Thank you. I've got the results in a variable. Here is how it prints with DataDumper:

$VAR1 = 'Printer1        Printer   Printer 1
Printer2       Printer   Printer 2
Store          Printer   Store printer
';

How can I create an array containing just the printer names (col 1)?

[quester]

my @printers = $VAR1 =~ /^(\S+)/mg;

See Matching in list context in perlop.