新手问题：如何将文件里两行合并为一行（含具体文件格式）？

redmaple_v1

偶还是没有看懂呢。。

“忽略这句话”

[ 本帖最后由 redmaple_v1 于 2009-3-25 14:58 编辑 ]

redmaple_v1

原帖由 which 于 2009-3-25 15:32 发表

哦？
出了什么事？

#!/usr/bin/perl -w open FILE ,"text.txt"; read(FILE,$text,-s "text.txt"); print $text; $text =~ s/\n\s+//s; print $text;

改了哈which的代码，莫见怪。现在应该可以了。

redmaple_v1

问一下which， \t  是啥意思，从来没有见过呢，我也刚接触perl。。

redmaple_v1

[quote]原帖由 redmaple_v1 于 2009-3-25 15:44 发表
next，可以进行多行了，并写入一个文件中。

#!/usr/bin/perl -w use strict; my $file; open (FILE,"file")or die "can't open file $:!"; my @file=<FILE>; close(FILE); open (OUTFILE,">>out")or die "can't open out $:!"; foreach $file(@file){     if($file =~ /[a-z]/){         $file =~ s/\n//;         print OUTFILE $file;     }     else{         $file =~ s/\s+//;         print OUTFILE $file;     }    }

redmaple_v1

原帖由 chenzq1604 于 2009-3-25 16:07 发表



\t  =tab

谢谢。。

redmaple_v1

原帖由 which 于 2009-3-25 16:43 发表


我也仿照你的写了一个


cat chop.pl

#!/usr/bin/perl -w

use strict;

$^I = ".bak";

while()
{
        unless(/[a-z]/){
                $_ =~ s/\s+//;
                print; ...

哈哈，又学到一招，
$^I=".bak"是不是读后面的文件“test.txt”的意思？

redmaple_v1

原帖由 which 于 2009-3-25 17:58 发表


读命令行给出的文件。 $^I 是一种备份的用法。

谢谢详解！

redmaple_v1

原帖由 MMMIX 于 2009-3-26 11:07 发表

这个你在 perlvar 中查查 $^I 的意思就清楚了。

谢谢MMMIX老大，我电脑里面没有找到perlvar，只有在网上搜到一个。

redmaple_v1

原帖由 MMMIX 于 2009-3-26 11:54 发表

不会吧？perldoc 都没法用？或者是不知道有这个？

额，说实话，不会用perldoc。能否简单介绍哈嘛？

redmaple_v1

原帖由 MMMIX 于 2009-3-26 14:22 发表

执行 perldoc perldoc 就可以看到 perldoc 的手册

谢了，但是偶下了一个网页版的perldoc，比命令行的看起要方便一些。