«

Thanks in advance for your help.

I am trying to fill an array by using grep
so I can print out only the lines with ip
addresses in them.

The following prints the system call on
the screen but does not fill the array.

I don't want the system call to print on
the screen, and I want to fill the array.

#!/usr/bin/perl -w
use strict;
my @array = system("ps ax | grep sendmail");
foreach (@array) {
if ($_ =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/) {
print "$_ \n";
}
}

Any and all help is appreciated.

Chip

Chip wrote:
> The following prints the system call on
> the screen but does not fill the array.
>
> I don't want the system call to print on
> the screen, and I want to fill the array.
>
> #!/usr/bin/perl -w
> use strict;
> my @array = system("ps ax | grep sendmail");

Then don't use system(). The docs explain why and what to use instead:

perldoc -f system

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

"Chip" <> wrote in news:cqednb4QNYIgsBTfRVn-:

> The following prints the system call on
> the screen but does not fill the array.
>
> I don't want the system call to print on
> the screen, and I want to fill the array.

Then you should read the documentation:

perldoc -f system

> #!/usr/bin/perl -w

use warnings;

is preferable. Read more about it in

perldoc warnings
perldoc perllexwarn

> use strict;
> my @array = system("ps ax | grep sendmail");

Once you have read about the backtick operator (see above),
you might still want to avoid spawning the grep above, and
instead use a pipe open to ps, and process the output of the
command line by line. See:

perldoc -f open

> foreach (@array) {
> if ($_ =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/) {

That would match things other than IP addresses as well.

See

<URL: http://search.cpan.org/dist/Regexp-Common/lib/Regexp/Common/net.pm>

Sinan

--
A. Sinan Unur <>
(reverse each component and remove .invalid for email address)

comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/cl...uidelines.html

Thanks for your help.

#!/usr/bin/perl
use strict;
use warnings;
my $ps = `ps ax | grep sendmail`;
my @array = split /\n/, $ps;
foreach (@array) {
if ($_ =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/) {
print "$_ \n";
}
}

Seems to work ok for me.
Chip

"A. Sinan Unur" <> wrote in message
news:Xns9658C88D4120Dasu1cornelledu@127.0.0.1...
> "Chip" <> wrote in
news:cqednb4QNYIgsBTfRVn-:
>
> > The following prints the system call on
> > the screen but does not fill the array.
> >
> > I don't want the system call to print on
> > the screen, and I want to fill the array.
>
> Then you should read the documentation:
>
> perldoc -f system
>
> > #!/usr/bin/perl -w
>
> use warnings;
>
> is preferable. Read more about it in
>
> perldoc warnings
> perldoc perllexwarn
>
> > use strict;
> > my @array = system("ps ax | grep sendmail");
>
> Once you have read about the backtick operator (see above),
> you might still want to avoid spawning the grep above, and
> instead use a pipe open to ps, and process the output of the
> command line by line. See:
>
> perldoc -f open
>
> > foreach (@array) {
> > if ($_ =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/) {
>
> That would match things other than IP addresses as well.
>
> See
>
> <URL: http://search.cpan.org/dist/Regexp-Common/lib/Regexp/Common/net.pm>
>
> Sinan
>
> --
> A. Sinan Unur <>
> (reverse each component and remove .invalid for email address)
>
> comp.lang.perl.misc guidelines on the WWW:
> http://mail.augustmail.com/~tadmc/cl...uidelines.html

Chip wrote:

> my $ps = `ps ax | grep sendmail`;
> my @array = split /\n/, $ps;

Change that to either

my @array = `ps ax | grep sendmail`;

or

my @array = grep /sendmail/,`ps ax`;

-Joe