求教格式检查的方法

不死草

请教各位大虾，现在有如下类型的数据

1. 
   
2. 70  ABC123******DEF456******
   
3. 70  AB12********DE4*********
   

复制代码

其中“*”应该是空格，为了醒目，现在用“*”来替代。
偶现在要做的是保证数据第2个field( ABC123 )是从第五个字符位开始到16位；
                      第3个field( DEF456 )是从第17个字符位开始到第28位。
各个field的字符串中间没有空格，空格就是用分隔和补充位的。

然后，假如数据移位了，
少了空格：

1. 
   
2. 70  ABC123******DEF456******
   
3. 70  AB12*******DE4*********
   

复制代码

多了空格：

1. 
   
2. 70  ABC123******DEF456******
   
3. 70  AB12********DE4**********
   

复制代码

使用什么方法可以检查出来，请大家不吝赐教，谢谢哈。
或者，可以用XML来做检查吗？怎么做呢？^_^

DQP

就喜欢给分的

1. 
   
2. 
   
3. while(<DATA>){
   
4.   print 'problem 1' if substr($_, 4, 11) =~ m/\s[^\s]+\s*$/;
   
5.   print 'problem 2' if substr($_, 16, 11) =~ m/^\s/;
   
6. }
   

复制代码

不死草

难道你就不怕我不识货？
呵呵，下班了，明天我再试试效果。
明天通过就马上给分。

cobrawgl

有检查的功夫，你重新格式化不行么

不死草

哦，关键是数据是本身存在的，如果格式不对，我读的数据就不对，怎么再格式化啊？而且我不是需要格式化的数据，我只是需要保证读出的数据是正确的。所以读数据之前的一步是我必须先确认数据的格式正确，然后再读。

MMMIX

原帖由 不死草 于 2009-5-7 10:15 发表
哦，关键是数据是本身存在的，如果格式不对，我读的数据就不对，怎么再格式化啊？而且我不是需要格式化的数据，我只是需要保证读出的数据是正确的。所以读数据之前的一步是我必须先确认数据的格式正确，然后再读。

我觉得你读数据的代码写的有问题，对格式太挑剔了。

不死草

你的方法不行哦，解决不了第二种错误情况。

DQP

如果字段中没有空格那么 按空格分不好么.

这时候就体现出用csv YAML 或 XML的好处了。 定义的更明确。 等易用。
更重要的是有一大堆现成的工具可以利用。

不死草

哦，算是读数据的代码的问题吧，但是我不可能现在去修改所有的程序的读读数据的方式，再说这个也是对数据本身的要求。这只是一个常规的读数据，并且需要保证数据的正确性的做法哦。你想想看哈，假如我现在需要读“123456**adb5689**”中的前面的字段“123456“这一部分，而我给这部分数据预留的数据长度是8位，但是做数据的人不小心输入错误，输入成了“***123456”，那么我使用按位读取的数据只能截取读到“***12345”，格式处理后我也只能得到“12345”，而不是我本来要得到的“123456”啦而且后面那部分的数据本身应该是读到“adb5689”但是结果会变成“6adb5689”。

不死草

知道XML好也没用啊，我们现在所用的体制就是这么用的，我只能补漏洞，而不能马上全部更换全部的东西，大工程啊。我们最老的Program用AI倒是可以完全控制格式，可惜我不会，而且现在也不用那玩意儿啦。。。