用perl处理txt文件。
答案:2 悬赏:80 手机版
解决时间 2021-01-10 00:56
- 提问者网友：临风不自傲
- 2021-01-09 05:45
用perl处理txt文件。
最佳答案
- 五星知识达人网友：往事隔山水
- 2021-01-09 06:50
#!/usr/bin/perl -w
use strict;
die "perl $0" unless(@ARGV == 1);
open IN,$ARGV[0];
open OUT,">new.txt";
while(){
chomp;
next unless($_=~/\+/);
$_=~s/[\s \+]//g;
print OUT "$_\n";
print "$_\n";
}
close IN;
close OUT;
上面的代码存为 run.pl 输入文件假设为a.txt 命令行进入到所在目录之后，运行perl run.pl a.txt 运行结束之后，会在该目录下生成一个 new.txt 里面是结果。
use strict;
die "perl $0
open IN,$ARGV[0];
open OUT,">new.txt";
while(
chomp;
next unless($_=~/\+/);
$_=~s/[\s \+]//g;
print OUT "$_\n";
print "$_\n";
}
close IN;
close OUT;
上面的代码存为 run.pl 输入文件假设为a.txt 命令行进入到所在目录之后，运行perl run.pl a.txt 运行结束之后，会在该目录下生成一个 new.txt 里面是结果。
全部回答
- 1楼网友：神也偏爱
- 2021-01-09 07:29
#!/usr/bin/perl -w
use strict;
die "perl $0" unless(@ARGV == 1);
open IN,$ARGV[0];
open OUT,">new.txt";
while(){
chomp;
next unless($_=~/\+/);
$_=~s/[\s \+]//g;
print OUT "$_\n";
print "$_\n";
}
close IN;
close OUT;
上面的代码存为 run.pl 输入文件假设为a.txt 命令行进入到所在目录之后，运行perl run.pl a.txt 运行结束之后，会在该目录下生成一个 new.txt 里面是结果。希望对你有帮助，有问题继续追问吧。
use strict;
die "perl $0
open IN,$ARGV[0];
open OUT,">new.txt";
while(
chomp;
next unless($_=~/\+/);
$_=~s/[\s \+]//g;
print OUT "$_\n";
print "$_\n";
}
close IN;
close OUT;
上面的代码存为 run.pl 输入文件假设为a.txt 命令行进入到所在目录之后，运行perl run.pl a.txt 运行结束之后，会在该目录下生成一个 new.txt 里面是结果。希望对你有帮助，有问题继续追问吧。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯