- 论坛徽章:
- 1
|
回你的那句:
> 或者“$%^&*{}”之类的符号对你而言与火星文无异;
背景:水木 Python 版有个人问:
- 发信人: ckidawei ( CK ), 信区: Python
- 标 题: 【求助】再问一个比较变态的问题
- 发信站: 水木社区 (Fri Dec 8 17:38:13 2006), 转信
- 如果一个文件中有很多“OK”字样,
- 如何以“OK”为下刀之处,
- 把这个文件切分成很多个小文件?
- 谢谢。
- --
复制代码
于是有个 Perl 爱好者给提供了一段代码:
- 发信人: superisaac (自己作的抓饭真好吃), 信区: Python
- 标 题: Re: 【求助】再问一个比较变态的问题
- 发信站: 水木社区 (Sat Dec 9 19:41:32 2006), 转信
- $/ = 'OK';
- while (<>){
- chomp;
- # 写到小文件里
- }
复制代码
虽然我对该同志无视少数民族语言习惯的行为多多少少有点鄙视,
但是当我看到下面这个回复时:
- 发信人: scaner (ec8030f7-c20a-464f-9b0e-13a3a9e97384), 信区: Python
- 标 题: Re: 【求助】再问一个比较变态的问题
- 发信站: 水木社区 (Sat Dec 9 19:54:48 2006), 转信
- perl这种方法最讨厌了,
- 虽然写得时候看起来挺爽的.
复制代码
还是忍不住回了一段:
- 发信人: flw (flw), 信区: Python
- 标 题: Re: 【求助】再问一个比较变态的问题
- 发信站: 水木社区 (Sat Jan 20 16:56:15 2007), 转信
- 我对自己的评价是:不排斥,不盲从。我们要学会兼收并蓄,要学会包容:
- use English;
- $INPUT_RECORD_SEPARATOR = 'OK'; # or $RS = 'OK';
- 或者:
- open my $handle, '</path/to/foo.bar';
- $handle->input_record_separator( 'OK' );
- while( readline( $handle ) ){
- 写入小文件
- }
- close($handle);
- 【 在 scaner (ec8030f7-c20a-464f-9b0e-13a3a9e97384) 的大作中提到: 】
- : perl这种方法最讨厌了,
- : 虽然写得时候看起来挺爽的.
- --
- 毫无疑问
- 我编的程序
- 是全天下
- 最鲁棒的!
复制代码 |
|