perl从文件取行号？

joefun

一、将文件按行分成若干文件：
total.txt内容如下：
1 nmap -sP -PI 60.171.108.1 >;>; clientStatus.txt
2 nmap -sP -PI 211.141.244.1 >;>; clientStatus.txt
3 nmap -sP -PI 61.191.159.1 >;>; clientStatus.txt
4 nmap -sP -PI 218.22.129.1 >;>; clientStatus.txt
5 nmap -sP -PI 218.23.44.1 >;>; clientStatus.txt
6 nmap -sP -PI 218.22.237.1 >;>; clientStatus.txt
7 nmap -sP -PI 220.178.201.1 >;>; clientStatus.txt
8 nmap -sP -PI 218.22.218.1 >;>; clientStatus.txt
9 nmap -sP -PI 60.171.72.1 >;>; clientStatus.txt
10 nmap -sP -PI 220.179.244.1 >;>; clientStatus.txt
11 nmap -sP -PI 60.173.64.1 >;>; clientStatus.txt
12 nmap -sP -PI 61.191.214.1 >;>; clientStatus.txt
13 nmap -sP -PI 218.23.212.1 >;>; clientStatus.txt
14 nmap -sP -PI 220.179.248.1 >;>; clientStatus.txt
15 nmap -sP -PI 60.194.85.1 >;>; clientStatus.txt
16 nmap -sP -PI 61.51.196.1 >;>; clientStatus.txt
17 nmap -sP -PI 211.155.137.1 >;>; clientStatus.txt
18 nmap -sP -PI 218.247.206.1 >;>; clientStatus.txt
19 nmap -sP -PI 219.238.110.1 >;>; clientStatus.txt
1.如何将其平均分成4分？
2.指定具体的行范围分成若干行（1－3，2－5，6－11.....）？

二、提取某行（或某范围行）及其行号
如提取“nmap -sP -PI 218.23.44.1 >;>; clientStatus.txt”及其行号“5”
或
nmap -sP -PI 60.171.72.1 >;>; clientStatus.txt
nmap -sP -PI 220.179.244.1 >;>; clientStatus.txt
nmap -sP -PI 60.173.64.1 >;>; clientStatus.txt
及其行号范围9、10、11（最好能表示为“9，11”

lych

这个好像用shell比较好一点

joefun

awk与sed当然容易实现，不过现在windows平台下想用perl实现
因为装cygwin很麻烦（网络不好，^_^）

subs

gnuwin32.sourceforge.net  有 Win32 的 awk 和 sed。

ocean2000

用一个数组按照行来读出文件内容，然后处理这个数组而已

joefun

ocean2000 能说得详细点吗？
用数组读文件的内容好像只读取到$array[0]中

[quote]原帖由 "ocean2000 "]用一个数组按照行来读出文件内容，然后处理这个数组而已[/quote 发表：

joefun

[quote]原帖由 "subs"]gnuwin32.sourceforge.net  有 Win32 的 awk 和 sed。[/quote 发表：



gnuwin32的东西实在不能跟bash或其他shell下的同一命令的实用性相比

再说了，我们要用的是perl，为哈要在perl版大力推shell呢？

笨狗

[quote]原帖由 "joefun"]用数组读文件的内容好像只读取到$array[0]中[/quote 发表：

不知道你从哪里得到的这种结论
直接把文件copy到array
或者在读文件的循环中$.就是行号
也可以用tie::File来读文件,也是把文件读入array,不过这个文件的大小可以大于内存

ocean2000

一年半没有写程序了，这个你看看
open(F,"cgi.lst" || die "can't open!\n";
@cgi=<F>;;
close F;
数组@cgi就是文件的内容.

joefun

perl操作文件时，能不能直接删文件中的空行后在被操作的文件中生效，
而不用写入另外一个文件？