0

実際、この質問はこれのコピーですhttp://stackoverflow.com/questions/12813317/text-file-operation-in-perl 。しかし、ここでは、上司が提案したように、いくつかの差分 o/p を出力しようとしています :(

何か助けを期待できますか？:)

私は打撃がデータであるテキストファイルを持っています:

Id:001;status:open;Name:AB;Id:002;status:open;Name:AB;Id:003;status:closed;Name:BC;
Id:004;status:open;Name:AB;Id:005;status:closed;Name:BB;Id:006;status:open;Name:CD;
.... 
....

ここに私のコードがあります:

#!/usr/bin/perl -w
use strict;

open IN, "<", "ABC.txt" 
    or die"Can not open the file $!";

my @split_line;           
while(my $line = <IN>) {

    @split_line = split /;/, $line;

    for (my $i = 0; $i <= $#split_line; $i += 2) {

        print "$split_line[$i]"." "."$split_line[$i+1]\n";  
    }
}

実際の O/P:

Id:001      status:open    Name:AB
Id:002      status:open    Name:AB

期待される O/p

Id         Status    Name
001        open      AC
002        open      AB
003        close     BC
4

2 に答える 2

1 
#!/usr/bin/perl -w
use strict;

open IN, "<", "ABC.txt"
    or die"Can not open the file $!";

my @split_line;

print "Id\tStatus\tName\n";
while(my $line = <IN>) {

    @split_line = split /[;:]/, $line;

    for (my $i = 1; $i <= $#split_line; $i += 6) {

        print "$split_line[$i]"."\t"."$split_line[$i+2]"."\t"."$split_line[$i+4] \n";
    }
}
于 2012-10-10T10:06:06.067 に答える
0

あなたのスクリプトは、あなたが説明した出力を生成しません。私のシステムで生成されるものは次のとおりです。

Id:001 status:open
Name:AB Id:002
status:open Name:AB
Id:003 status:closed
Name:BC 

Id:004 status:open
Name:AB Id:005
status:closed Name:BB
Id:006 status:open
Name:CD

次のように変更する必要があると思います。

#!/usr/bin/perl
use strict;
use warnings;

open (my $IN, "<", "ABC.txt") or die "Can not open the file $!";

my @split_line;           
while(<$IN>) {

    @split_line = split /;/ ;

    foreach ( @split_line ) { s/.*?:// ; }

    for (my $i = 0; $i < $#split_line; $i += 3) {
        print join( " ", @split_line[$i .. $i+2] ) . "\n" ; 
    }
}
close $IN ;
于 2012-10-10T10:08:20.337 に答える