谁能帮我写个perl脚本

Beta

谁能帮我写个perl脚本让附件文本转变成下面格式？感激不尽！
打daa1       
咑daa1               
花faa1
華faa1
蘤faa1
化faa1
嘩faa1
錵faa1
家gaa1
加gaa1
嘉gaa1
傢gaa1
......

ybyygu

你给的文件编码很奇怪，用的是ucs-2le。
我把它转成utf8会，用下面的awk命令处理：
awk {'for(i=2;i<=NF;i++) print $i $1'} utf8_file
打daa1
咑daa1
花faa1
華faa1
蘤faa1
化faa1
嘩faa1
錵faa1
家gaa1
...
处理后的结果放在附件里。不知道楼主是否一定用perl处理？

Beta

嗯，我现在只能用公共计算机，没办法在Linux下工作
这计算机里面装有windows版的perl，所以只能用perl解决一点繁琐的问题。
我看了一天书，写了个脚本，如下：

1. 
   
2. [size=3]open (FILE1,"d:\1.txt")||die ("不能打开1.TXT。\n");
   
3. [i][color="Red"]#打开待转换文件1.txt。[/color][/i]
   
4. while ($line=&ltfile>)
   
5. [i][color="Red"]#读入一行。[/color][/i]
   
6. {
   
7. $py=$line;
   
8. $hz=$line;
   
9. $py=~ /^[\w]+/;
   
10. [i][color="red"]#去掉$py值后面的汉字和空格。[/color][/i]
    
11. $hz=~ /^[\S]*[\W]+/;
    
12. [i][color="Red"]#去掉$hz值中的非汉字字符。[/color][/i]
    
13. chop ($hz);[i][color="red"]
    
14. #去掉$hz值最后的换行符。[/color][/i]
    
15. @dhz=split (//,$hz);
    
16. [i][color="red"]#将$hz中的汉字串劈成一个个单独的汉字装入数组@dhz中。[/color][/i]
    
17. @rhz=map ($_.$py.\n,@dhz);
    
18. [i][color="red"]#将$dhz中的每一个汉字加上$py的值和换行符，装入数组@rhz中。[/color][/i]
    
19. open (FILE2,">>d:\2.txt")||die ("不能打开2.TXT。\n");
    
20. [i][color="red"]#创建一个新文档，方便后续循环中追加数据。[/color][/i]
    
21. print FILE2 ("@rhz");
    
22. [i][color="red"]#将$rhz中的东西写入2.txt。[/color][/i]
    
23. close (FILE2);
    
24. [i][color="red"]#关掉2.txt。[/color][/i]
    
25. @dhz=();
    
26. @rhz=();
    
27. [i][color="red"]#清空两个数组。[/color][/i]
    
28. }
    
29. [i][color="red"]#回去循环读下一行，再处理。[/color][/i]
    
30. cloze (FILE1);[/size]
    

复制代码

不知道为什么运行起来老是出错，说是第3行和第16行有语法错误。不解。能给我改改么？
我这个脚本转换的文本文档（1.txt）和上面的那个附件基本相同，只是各个汉字之间没有空格。

我初学perl，不太懂。shell也只会一点

ybyygu

perl我也不太熟悉，google + 一些电子书搞定了这个问题，楼主见笑了。

windows下使用的unicode编码为utf-16，或者是utf-16LE，具体不太清楚，不过使用utf-16可以工作的很好。
下面是我的代码：

1. my $file1 = 'c:\2.txt';
   
2. my $file2 = 'c:\3.txt';
   
3. 
   
4. open (FILE1, "< :encoding(UTF-16)", $file1)||die ("can not open $file1\n");
   
5. open (FILE2, ">$file2")||die ("can not open $file2\n");
   
6. select(FILE2);
   
7. 
   
8. while (<FILE1>)
   
9. {
   
10.     if (/(^[a-z0-9]+)(.+)/) {
    
11.         my $hzs = $2;
    
12.         chop($hzs);
    
13.         my @hz = split(//, $hzs);
    
14.         for $i (0..$#hz) {
    
15.             use bytes;
    
16.             print($hz[$i], $1, "\n");
    
17.             no bytes;
    
18.         }
    
19.     }
    
20. }
    
21. 
    
22. close(FILE1);
    
23. close(FILE2);
    

复制代码

输入格式为：

1. daa1打咑
   
2. faa1花華蘤化嘩錵
   
3. gaa1家加嘉傢枷迦嘎噶伽袈鎵痂葭豭尕癿泇珈笳耞跏椵犌鴐茄猳麚瘕釓毠貑

复制代码

输出为：

1. 打daa1
   
2. 咑daa1
   
3. 花faa1
   
4. 華faa1
   
5. 蘤faa1
   
6. 化faa1
   
7. 嘩faa1
   
8. 錵faa1
   
9. 家gaa1
   
10. 加gaa1
    
11. 嘉gaa1

复制代码