OpenForum RSS: �� ͣ� ��

� �� eval � perl (angra)

Thu, 05 Nov 2009 14:18:14 GMT

��, �� ?

� �� eval � perl (��)

Wed, 04 Nov 2009 13:39:03 GMT

>�� .

�� , �� -�� : �� , �� , �� , �� .
eval �� . �� eval �� , �� , �� eval.
��: ��, Randal L.Schwartz "Intermediate Perl".

�� ͣ� �� (Andrey Mitrofanov)

Thu, 29 Oct 2009 11:15:56 GMT

>�� .

�� -- ��-�-��. :)))

>�� .

�� -��? �� "��" ��: �� , �� ... :) ..."�� !" %)

>�� - ��
>, �� 99% �� :)

��, �� /�� , �� , � �� ... ��-�-��! :)

��, ��, sed-�� http:/openforum/vsluhforumID9/7801.html . �� sed-�, �� (��) �� , �� ^W(��)awk-�.

�� "chmod -x chmod" -- �� -��. �� -- �� , �� . http:/openforum/vsluhforumID1/83651.html

� ��, �� , �� -- �� [�

�� ͣ� �� (nastr)

Thu, 29 Oct 2009 10:19:57 GMT

>��, �� ݣ � http:/openforum/vsluhforumID9/8262.html#5 for-� �� eval-��. ��, ��
>...� �� -- �� ! ;-D

�� :
for (( a = 0; a <= rows; a++ ))
do
echo -en "`echo ${Filesystem[$a]} | awk '{printf("%24s",$0); print " "}'`"
for (( b = 0; b <= colu; b++ ))
do
eval "echo -en \"\${arr$b[$a]} \""
done
echo
done

�� !
�� !:)

�� ͣ� �� (angra)

Thu, 29 Oct 2009 09:53:59 GMT

�� . �� eval �� (�� ) �� .
� �� "�� " �� - �� , �� 99% �� :)

�� ͣ� �� (Andrey Mitrofanov)

Thu, 29 Oct 2009 09:37:04 GMT

>�� , �� ! �� eval.:)

��. :) �� -- �� У�� .

>�� ݣ �� .
>�� , ��
>eval �� ..:(

��, ��! ;)

>[�� ]
>while [ "$b" -le "$colu" ]
>do
>case $b in
>0) echo -en "${arr0[$a]}
>let b=b+1
>done
>echo
>b=0
>let a=a+1
>done

for((a=0;a<rows;a++)); do
for((b=0;b<colu;b++)); do
eval "echo -en \"\${arr$a[$b]} \""
done
echo
done

>�� ?

�� "��" �� : �� , �� - � ��.

��, �� ݣ � http:/openforum/vsluhforumID9/8262.html#5 for-� �� eval-��. ��, �� -- �� "�� ".

#!/bin/bash

# UNO:
a=0
N=5
arr0=(one two tree

�� ͣ� �� (nastr)

Thu, 29 Oct 2009 08:18:31 GMT

>>1) arr1=( `echo $tmp`) ;;
>��, ��-��, =($tmp)
>� ��-��,
>if (( a>0 && a<N )); then
> eval "arr$a=($tmp)"
>else
> echo ERROR
>fi

�� , �� ! �� eval.:)
�� ݣ �� .
�� , �� eval �� ..:(

a=0; b=0
while [ "$a" -le "$rows" ]
do
while [ "$b" -le "$colu" ]
do
case $b in
0) echo -en "${arr0[$a]} " ;;
1) echo -en "${arr1[$a]} " ;;
2) echo -en "${arr2[$a]} " ;;
3) echo -en "${arr3[$a]} " ;;
4) echo -en "${arr4[$a]} " ;;
5) echo -en "${arr5[$a]} " ;;
...
*) echo ERROR ;;
esac
let b=b+1
done
echo
b=0
let a=a+1
done

�� :
echo -en "${arr"{b}"[$a]} "
�� :
./disk_load.sh: line 32: ${arr`echo $b`[$a]} : bad substitution
./disk_load.sh: line 32: ${`eval "arr$b"`[$a]} : bad substitution
./disk_load.

�� ͣ� �� (Andrey Mitrofanov)

Thu, 29 Oct 2009 07:15:24 GMT

>1) arr1=( `echo $tmp`) ;;

��, ��-��, =($tmp)

>2) arr2=( `echo $tmp`) ;;
>3) arr3=( `echo $tmp`) ;;
>4) arr4=( `echo $tmp`) ;;
>5) arr5=( `echo $tmp`) ;;
>...
>*) echo ERROR ;;
>esac

� ��-��,
if (( a>0 && a<N )); then
eval "arr$a=($tmp)"
else
echo ERROR
fi

>�� , �� ?

�� , �� _�ӣ_ �� ... %)

�� ͣ� �� (nastr)

Thu, 29 Oct 2009 07:07:29 GMT

>>+1
>>�� , awk, grep, sed �� perl,
>>��
>>�� .
>
>� ��
>)
>��
>�� !

�� ... �� , �� !
� � �� ?

OpenForum RSS: ������� �ͣ� ������� � �����

� ������ eval � perl (angra)

� ������ eval � perl (����)

������� �ͣ� ������� � ����� (Andrey Mitrofanov)

������� �ͣ� ������� � ����� (nastr)

������� �ͣ� ������� � ����� (angra)

������� �ͣ� ������� � ����� (Andrey Mitrofanov)

������� �ͣ� ������� � ����� (nastr)

������� �ͣ� ������� � ����� (Andrey Mitrofanov)

������� �ͣ� ������� � ����� (nastr)

OpenForum RSS: �� ͣ� ��

� �� eval � perl (angra)

� �� eval � perl (��)

�� ͣ� �� (Andrey Mitrofanov)

�� ͣ� �� (nastr)

�� ͣ� �� (angra)

�� ͣ� �� (Andrey Mitrofanov)

�� ͣ� �� (nastr)

�� ͣ� �� (Andrey Mitrofanov)

�� ͣ� �� (nastr)