Здравейте всички,

Аз нужда от помощ при написването на сценария за след question.please помогне.

Non-рекурсивни шел скрипт, който приема произволен брой аргументи и отпечатва
тях в обратен ред. (Например, ако скриптът е кръстен rargs, а след това
изпълняващата rargs ABC следва да изготвя КТД на стандартния изход).

Благодарности

Защо да не използваме рекурсия?

#!/bin/sh

case $# in
  0|1) echo "$@";;
  *) arg=$1; shift; exec "$0" "$@" "$arg"
esac

... Всъщност това е доста разбити, но получите представа (-:

Без никакви рекурсивно програмиране е интересен обрат. Но, си помислих, трябва да има "някои" Причината за това изискване.

Както и да е поета от печат в обратен ред, в който разбира за заден ход на влизане ред. Казаха, че може би на следния скрипт:

#! /bin/bash
#shift_input

tmp_file="shift_value_temp"
tmp_file2="shift_value_temp2"
tmp_file3="shift_value_temp3"
tmp_file4="shift_value_temp4"
rm $tmp_file 2>/dev/null
rm $tmp_file2 2>/dev/null
rm $tmp_file3 2>/dev/null
rm $tmp_file4 2>/dev/null

echo "$*" >$tmp_file
cat $tmp_file | tr " " "\n" >$tmp_file2
tac $tmp_file2 >$tmp_file3
cat $tmp_file3 | tr "\n" " ">$tmp_file4

cat $tmp_file4
echo " "

> shift_input a b c g h i d e f
f e d i h g c b a  
>

Ето един на Bash

while [ $# -gt 0 ]
do
  rev="$1 $rev"
  shift
done
echo $rev

while(@ARGV)
{
  unshift @rev, shift @ARGV;
}
print join ' ', @rev, "\n";

За Perl версия, може просто да кажа обратно @ ARGV - Няма нужда да се кода на линия на ръка.

#!/bin/sh
exec perl -le '$, = " "; print reverse @ARGV' "$@"

echo "$@" | tr -s " \t" "\n" | tac | tr "\n" " "