我的测试文件有“n”线数,在每一行之间有^M,这反过来又使它成为大举。 我的守则是公开的,应当放下头盔,然后是随后的行文,然后搜索长途和档案名称。 但是,由于档案只是一纸空洞而告终,那就没有正确开展工作。
#!/usr/bin/perl
#use strict;
#use warnings;
open (DATA, "<file.txt") or die ("Unable to open file");
my $search_string = "Directory Path";
my $column_search = "Filename";
my $header = <DATA>;
my @header_titles = split / /, $header;
my $extract_col = 0;
my $col_search = 0;
for my $header_line (@header_titles) {
last if $header_line =~ m/$search_string/;
$extract_col++;
}
for my $header_line (@header_titles) {
last if $header_line =~m/$column_search/;
$col_search++;
}
print "Extracting column $extract_col $search_string
";
while ( my $row = <DATA> ) {
last unless $row =~ /S/;
chomp $row;
my @cells = split / /, $row;
$cells[74]=~s/:///g;
$cells[$extract_col]= $cells[74] . $cells[$col_search];
print "$cells[$extract_col]
";
}
一、在六国开启试验档案时,i
:%s/^M/
/g
并且删除了英国皇家骑自行车,但如何在这项 per方案内这样做? 一经试试试试,插入s^M/g,并写到不同的档案中。