怎么从一个文件里找到‘=’字符，并把这个字符前面的单词保存在另外一个文件里，谢谢

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

11^# hepower 发表于 2007-10-11 17:35

对把＼ｓ去了是吧，这个是空格，好的

kgd924

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

12^# kgd924 发表于 2007-10-11 17:39

这是是命令行的写法,好像精华帖里有讲.

perl -ne "print \"$1,\n\" if(/(\w+)\s*=/);" Input >output

>（＼Ｗ＋）是什么意思
这是正则表达式.

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

13^# hepower 发表于 2007-10-11 17:44

我刚才试了一下，能不能写一个可以兼容有空格，没空格，或者＝号前是＼ｔ的，
都可以提取前面内容的脚本呢？

kgd924

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

14^# kgd924 发表于 2007-10-11 17:46

perl -ne "print \"$1,\n\" if(/(\w+)\s*=/);" Input >output

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

15^# hepower 发表于 2007-10-11 18:03

QUOTE:

原帖由 kgd924 于 2007-10-11 17:46 发表
perl -ne "print \"$1,\n\" if(/(\w+)\s*=/);" Input >output

你好，还有一个问题，我想把这个脚本写成一个windows下的.pl文件，也就是perl的文本，怎么写？

#！/ usr/bin/Perl
if(/(\w+)\t+=/)
print \"E$1,\n\";
In.txt > out.txt

这样好像不行，谢谢

Lonki

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

16^# Lonki 发表于 2007-10-11 19:22

use strict;
    use warnings;

    open(FIN,  '<', $ARGV[0]) or die "Cannot open $ARGV[0]: $!\n";
    open(FOUT, '>', $ARGV[1]) or die "Cannot open $ARGV[1]: $!\n";

    while (<FIN>) {
        print FOUT "$1,\n" if ($_ =~ /(.+?)\s*=/);
    }

    close FOUT;
    close FIN;

windows.li

UID: 36776
帖子: 119
积分: 273
在线时间: 19 小时

17^# windows.li 发表于 2007-10-12 09:19

这里我也提供一个方法:

按楼主说的,在WINDOWS平台下:
$^I=".bak";
while (<>){
print "$1,\n" if ($_ =~ /(.+?)\s*=/);
}

将上面的程序保存为tem.pl;
假设原文本文件为in.txt;
运行tem.pl in.txt即可!

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

18^# hepower 发表于 2007-10-12 09:30

QUOTE:

原帖由 Lonki 于 2007-10-11 19:22 发表
use strict;
    use warnings;

    open(FIN,  '', $ARGV[1]) or die "Cannot open $ARGV[1]: $!\n";

     ...

多谢，可以用哈，太感谢了

hepower

UID: 45832
帖子: 168
积分: 386
在线时间: 1 天 14 小时

19^# hepower 发表于 2007-10-12 09:38

QUOTE:

原帖由 windows.li 于 2007-10-12 09:19 发表
这里我也提供一个方法:

按楼主说的,在WINDOWS平台下:
$^I=".bak";
while (){
print "$1,\n" if ($_ =~ /(.+?)\s*=/);
}

将上面的程序保存为tem.pl;
假设原文本文件为in.txt;
运行tem.pl in.tx ...

多谢，perl是个好东西啊