On Friday, May 17, 2002, at 07:50 , drieux wrote:
> my $count = 1;
> foreach my $line (@INC) {
> print "($count) $line\n";
> $count++;
> }
perchance an illustration may help here:
[jeeves:~/bin] drieux% rshAround "uname -a ; atInc"
going to vladimir with command uname -a ; atInc
SunOS vladimir 5.7 Generic_106541-08 sun4u sparc SUNW,Ultra-1
(1) /usr/local/lib/perl5/5.6.1/sun4-solaris
(2) /usr/local/lib/perl5/5.6.1
(3) /usr/local/lib/perl5/site_perl/5.6.1/sun4-solaris
(4) /usr/local/lib/perl5/site_perl/5.6.1
(5) /usr/local/lib/perl5/site_perl
(6) .
#------------------------------
going to wetware with command uname -a ; atInc
SunOS wetware 5.6 Generic_105181-20 sun4u sparc SUNW,Ultra-1
(1) /usr/local/lib/perl5/5.6.1/sun4-solaris
(2) /usr/local/lib/perl5/5.6.1
(3) /usr/local/lib/perl5/site_perl/5.6.1/sun4-solaris
(4) /usr/local/lib/perl5/site_perl/5.6.1
(5) /usr/local/lib/perl5/site_perl
(6) .
#------------------------------
going to gax with command uname -a ; atInc
Linux gax 2.4.9-31 #1 Tue Feb 26 06:23:51 EST 2002 i686 unknown
(1) /usr/lib/perl5/5.6.1/i686-linux
(2) /usr/lib/perl5/5.6.1
(3) /usr/lib/perl5/site_perl/5.6.1/i686-linux
(4) /usr/lib/perl5/site_perl/5.6.1
(5) /usr/lib/perl5/site_perl/5.6.0
(6) /usr/lib/perl5/site_perl
(7) .
#------------------------------
going to mex with command uname -a ; atInc
SunOS mex 5.7 Generic_106542-08 i86pc i386 i86pc
(1) /usr/local/lib/perl5/5.6.1/i86pc-solaris
(2) /usr/local/lib/perl5/5.6.1
(3) /usr/local/lib/perl5/site_perl/5.6.1/i86pc-solaris
(4) /usr/local/lib/perl5/site_perl/5.6.1
(5) /usr/local/lib/perl5/site_perl/5.005/i86pc-solaris
(6) /usr/local/lib/perl5/site_perl/5.005
(7) /usr/local/lib/perl5/site_perl
(8) .
#------------------------------
going to xanana with command uname -a ; atInc
Linux xanana 2.4.9-13 #1 Tue Oct 30 20:11:04 EST 2001 i686 unknown
(1) /usr/lib/perl5/5.6.0/i386-linux
(2) /usr/lib/perl5/5.6.0
(3) /usr/lib/perl5/site_perl/5.6.0/i386-linux
(4) /usr/lib/perl5/site_perl/5.6.0
(5) /usr/lib/perl5/site_perl
(6) .
#------------------------------
[jeeves:~/bin] drieux% sed 's/^/### /' atInc
### #!/bin/sh
###
### perl -e 'my $count = 1; foreach my $line (@INC) { print "($count)
$line\n"; $count++; }'
###
[jeeves:~/bin] drieux% ./atInc ; uname -a
(1) /System/Library/Perl/darwin
(2) /System/Library/Perl
(3) /Library/Perl/darwin
(4) /Library/Perl
(5) /Library/Perl
(6) /Network/Library/Perl/darwin
(7) /Network/Library/Perl
(8) /Network/Library/Perl
(9) .
Darwin jeeves.wetware.com 5.4 Darwin Kernel Version 5.4: Wed Apr 10 09:27:
47 PDT 2002; root:xnu/xnu-201.19.3.obj~1/RELEASE_PPC Power Macintosh
powerpc
[jeeves:~/bin] drieux%
Of the lot - the only one who does not call out their
'arch' specific instance is the Macintosh OS X darwin
version - which I personally consider to be APOSTATE!
ciao
drieux
---
and since you asked:
[jeeves:~/bin] drieux% sed 's/^/### /' rshAround
### #!/bin/sh
###
### HOSTS="vladimir wetware gax mex xanana"
###
### CMD=$1
###
### if [ "${CMD}" == "" ]
### then
### echo "Way Dumb - no command"
### exit 7
### fi
###
### for host in $HOSTS
### do
### echo "going to $host with command $CMD"
###
### rsh $host "$CMD"
### echo "#------------------------------"
### done
###
[jeeves:~/bin] drieux%
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
