On Tuesday, June 4, 2002, at 04:44 , David T-G wrote:
> % or am I missing something in the voodoo
>
> I hope so, because if you aren't then I am :-)
I like SO SUCK[1]..
my $PING1='SPAGO';
print "And it is now $PING1 \n";
my $word = " fred 12 spot 345 67 bax 89%
drieux, et al --
...and then drieux said...
%
% On Tuesday, June 4, 2002, at 02:38 , John W. Krahn wrote:
% [..]
...
% >>( $PING1 = $_ ) =~ s/\D+//g;
% >
% >Sorry, missed a step. :-)
% >
% > ( $PING1 = (split)[6] ) =~ s/\D+//g;
...
% but notice that your first one squeez
On Tuesday, June 4, 2002, at 02:38 , John W. Krahn wrote:
[..]
>> #!/usr/bin/perl
>> @SERVERS = qw(itsux17 its29 itsux24 int-dns1 int-dns2 mrtg defgtway);
>> for $S ( @SERVERS ) {
>> for ( `/etc/ping $S 32 -n 6` ) {
>> if ( /trans/ ) {
>> ( $PING1 = $_ ) =~ s/\D+//g;
>
> S
"John W. Krahn" wrote:
>
> [EMAIL PROTECTED] wrote:
> >
> > ive got a simple sh script that pings machines on my network segment.
> >
> > very new to perl, could folx on the list give me some hints/pointers to how
> > to make this shell
> > script into a perl one?
> >
> > !/usr/bin/sh
> > SERVERS
[EMAIL PROTECTED] wrote:
>
> ive got a simple sh script that pings machines on my network segment.
>
> very new to perl, could folx on the list give me some hints/pointers to how
> to make this shell
> script into a perl one?
>
> !/usr/bin/sh
> SERVERS="itsux17 its29 itsux24 int-dns1 int-dns2 m
On Tuesday, June 4, 2002, at 01:01 , <[EMAIL PROTECTED]> wrote:
[..]
> !/usr/bin/sh
> SERVERS="itsux17 its29 itsux24 int-dns1 int-dns2 mrtg defgtway"
> for S in $SERVERS
> do
> PING1=`/etc/ping $S 32 -n 6 | grep trans | awk '{print $7}' | cut
> -d"%" -f1`
> if [ $PING1 -gt 25 ]; t
ive got a simple sh script that pings machines on my network segment.
very new to perl, could folx on the list give me some hints/pointers to how
to make this shell
script into a perl one?
!/usr/bin/sh
SERVERS="itsux17 its29 itsux24 int-dns1 int-dns2 mrtg defgtway"
for S in $SERVERS
do
