shell为什么没有顺序执行？

cxfcxf

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my @num;
   
8. my @title;
   
9. 
   
10. while (<>) {
    
11.     push @num, $1 if (/Num\:(.+)/);
    
12.     push @title, $1 if (/Title\:(.+)/);
    
13. }
    
14. 
    
15. foreach (0 .. $#num) {
    
16.     print "mv $num[$_] $title[$_]\n";
    
17. #    system("mv $num[$_] $title[$_]");
    
18. }
    

复制代码

development:~# cat num.txt
Num:123
Title:chapter1
Content:123

Num:124
Title:chapter2
Content:124

Num:125
Title:chapter3
Content:126

development:~# ./num.pl num.txt
mv 123 chapter1
mv 124 chapter2
mv 125 chapter3

你那个判断的 写的有点乱...
关键我的grep 预编译不带perl正则的 试不出来..... 所以我只能说我的算法...写不出东西...

HongLian3

用awk实现了lz说的最后输出ok:
================================================
#!/bin/sh

while read line
do
  echo $line | awk -F':' '$1~/Num/ {print $2}'
  echo $line | awk -F':' '$1~/Title/ {print $2 "\n" echo "OK"}'
done  < num.txt
================================================
lz的程序每读一行都进行匹配比较，且无论匹配成功与否，都输出一个OK，这样每读一行就会输出一个OK。

HongLian3

====================================================
#!/bin/sh
while read line
do
  temp1=`echo $line | awk -F':' '$1~/Num/ {print $2}'`
  if [ -n $temp1 ]; then
    par[0]=$temp1
  fi

  temp2=`echo $line | awk -F':' '$1~/Title/ {print $2}'`
  if [ -n $temp2 ]; then
    par[1]=$temp2
    echo "mv ${par[0]}.txt ${par[1]}.txt"
    mv ${par[0]}.txt ${par[1]}.txt
  fi
done < num.txt
====================================================
程序读取行进行判断，若为Num行，取出：后字符串，存入临时变量temp1，temp1非空，将其存入数组par，为par[0]，若不是Num行，则temp1为空，不更新par[0]；对Title行的判断同理。当temp2非空时，源文件名及目标文件都已获取，分别存于par[0]和par[1]，程序输出将要进行的文件名转换操作，接着完成文件名转换。程序经测试通过。

[ 本帖最后由 HongLian3 于 2009-10-9 20:55 编辑 ]