列表 ==> 文本，可行吗？

列表 ==> 文本，可行吗？
因为刚接触Perl，我还不清楚他能不能实现我想要达到的目标。我首先把问题描述一下：
我需要将一个列表转换成文本,列表中的每一行对应文本中的一条语句。
如果可以的话，我的列表用什么形式保存比较好呢？可以用Office的Excel吗，还是只能用
存文本的形式啊？

souce:
G11 G12 G13 | G21 G22 | G31 G32 G33 |
1 0 1 | 1 0 | 1 0 1 |
0 0 1 | 0 1 | 0 1 1 |

des:
G11, G13, G21 --> G31, G33;
G13, G22 --> G32, G33;

谢谢大家的热心帮助先，嘿嘿 [CCB]1[/CCB]

   

可以保存为逗号分割的文档.
可以保存为逗号分割的文档
可以用 execl打开的

txt is preferred if you want simple
Generally speaking, whatever file types as source style, perl can treat it with no problem. You can find necessary module under CPAN if possible. However, plain text format is the simpliest one perl can deal with because of no need to import any module. I recommend txt to you as source.

嗯，我也觉得用文本是个好.
嗯，我也觉得用文本是个好主意。能不能介绍一下，代码该怎么写呀，呵呵。我研究了几天语法了，还是没啥头绪

if this is the source st.
if this is the source style:
1 0 1 | 1 0 | 1 0 1 |
0 0 1 | 0 1 | 0 1 1 |
then try the following:

my @g123=('G11', 'G12', 'G13', 'G21', 'G22', 'G31', 'G32', 'G33');
my $sep=4;

open(FH,"sourcefile") || die;
while (my @line=split /[\s\|]+/,<FH>) {
for($i=0;$i<@g123;$i++) {
print "$g123[$i] " if $line[$i]==1;
print "--> " if $i==$sep;
}
print "\n";
}
close FH;

嗯，谢谢你的code哈，呵呵.
嗯，谢谢你的code哈，呵呵。 [CCB]1[/CCB]

viqfhvf
wzRkfU <a href="http://jmnuzgraxayp.com/">jmnuzgraxayp</a>, [url=http://xskkppjinyrw.com/]xskkppjinyrw[/url], [link=http://fdblymwomyls.com/]fdblymwomyls[/link], http://hjzizhgxrblq.com/

[img]http://lmfvgfzbphza.com/[/img]
[COLOR=BLUE]URL：[/COLOR][url]ScfihHoQkWND[/url]