Module for accessing samba smbclient command

[Anonymous Monk]

Hi, I wish to list printers using in a web interface running on a unix sysetm. From the command line I can do smbclient -L and list printers etc. Is there a module I can use from CPAN which interfaces with samba to allow me to access this? Thanks

[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.