[求助]一个SHELL编程

zhangyi0504

UID: 5459
帖子: 156
积分: 358
在线时间: 1 天 9 小时

1^# zhangyi0504 发表于 2006-10-23 11:55

[求助]一个SHELL编程

有三个要求。
1，读入文件名为123.TXT的文件。
2.找出该文件内所有以字母A开头的段落。
3.去掉所找段落内的空格和回车并打印。
请大家帮帮忙，关系到吃饭问题哦~~~~先谢谢了　　　　　　

dearvoid

UID: 41384
帖子: 4
积分: 9
在线时间: 10 分钟

2^# dearvoid 发表于 2006-10-23 12:22

又一个懒人

li-jiahuan

UID: 22298
帖子: 1
积分: 2
在线时间: 10 分钟

3^# li-jiahuan 发表于 2006-10-24 01:11

复制内容到剪贴板

代码:

[0 No.2098 huan@huan ~/tmp]$ cat kk
Aasdf fa;lkdfj aldkfj
asf;lak    djfasdkfj
askdjf       END

kkkkkkkkkkkkkkkkkkkkkakdfj

Aasdfjl lkfdj afdklj
fjaslk;dfj
asdflj          END

[0 No.2099 huan@huan ~/tmp]$ cat k.pl
#! /usr/bin/perl

$/ = '';
while (<>) {
if (/^\s*A/){
s/\s|\n//g;
print $_, "\n";
}
}

[0 No.2100 huan@huan ~/tmp]$ ./k.pl kk
Aasdffa;lkdfjaldkfjasf;lakdjfasdkfjaskdjfEND
Aasdfjllkfdjafdkljfjaslk;dfjasdfljEND

li-jiahuan

UID: 22298
帖子: 1
积分: 2
在线时间: 10 分钟

4^# li-jiahuan 发表于 2006-10-24 01:20

复制内容到剪贴板

代码:

perl -0000 -ne ' if ( /^A/ ) { s/\s|\n//g; print $_, "\n"; } ' kk

[*求助*]一个SHELL编程

[*求助*]一个SHELL编程

代码:

代码:

[求助]一个SHELL编程

[求助]一个SHELL编程