tests/varenv/varenv/varenv3.sub

   1 #   This program is free software: you can redistribute it and/or modify
   2 #   it under the terms of the GNU General Public License as published by
   3 #   the Free Software Foundation, either version 3 of the License, or
   4 #   (at your option) any later version.
   5 #
   6 #   This program is distributed in the hope that it will be useful,
   7 #   but WITHOUT ANY WARRANTY; without even the implied warranty of
   8 #   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   9 #   GNU General Public License for more details.
  10 #
  11 #   You should have received a copy of the GNU General Public License
  12 #   along with this program.  If not, see <http://www.gnu.org/licenses/>.
  13 #
  14
  15 oifs=$IFS
  16
  17 inner () {
  18 #recho inner: "$IFS" >&2
  19         echo a/b/c/d
  20         exit 0
  21 }
  22
  23 outer() {
  24 #recho outer: "$IFS" >&2
  25 for i in 1; do
  26         IFS=/ read m v k a < <(IFS=$oifs inner)
  27
  28 echo $m:$v:$k:$a
  29 done
  30 }
  31
  32 outer
  33 unset m k v a b c d
  34
  35 for j in 1; do
  36         IFS=: read a b c d
  37 done < <(outer)
  38
  39 echo $a-$b-$c-$d
  40 unset m k v a b c d
  41
  42 IFS=: read a b c d < <(outer)
  43
  44 echo $a:$b:$c:$d