Re: [ic] Bad GlobalSub

[Richard Eicher II <winward1@yahoo.com>]

Here what I get.

---Command Line

[root@nemisis /root]# ./self_test.sh linkpt
./self_test.sh:
@l=map{/^\s*Global.*<<(.*)/?$GL=$1:1;$_}<>;map{$str.=$_}grep{
!/(?:^\s*globalsub\s*<<)|(^$GL)/i}@l;eval$str;print"\n\nGlobal

Sub ",$@?" failed
\n\n$@":" passed\n\n";: No such file or directory
No code specified for -e.
./self_test.sh:
map{$s.=$_}grep{!/(?:^\s*globalsub\s*<<(.*)$)|(^\1)/i}<>;eval$s;print"\nGlobal
Sub ",$@?" failed\n$@":"passed","\n\n";: No such
file or directory
[root@nemisis /root]# 

---Command Line


Here is my self_test.sh file.


---BASH

#!/bin/bash

#   self_test.sh
# Test a minivend/interchange Global subroutine
# Usage ./self_test.sh  <file with only global
sub in it>



if [ $# = 0 ]
then
        echo "Syntax =  ./self_test.sh 
/root/linkpt";
        exit 1;                               
fi ;



#cat $1 | perl -e
'@l=map{/^\s*Global.*<<(.*)/?$GL=$1:1;$_}<>;map{$str.=$_}grep{
!/(?:^\s*globalsub\s*<<)|(^$GL)/i}@l;eval$str;print"\n\nGlobal
Sub ",$@?" failed
\n\n$@":" passed\n\n";'


---BASH

Side note: I cp linkpt to root just to test.
I do not think that I have done the test right,
as the out put tells me nothing. What have I done
wrong. :)

Thank you for your time,
Richard Eicher II

__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail
http://personal.mail.yahoo.com/