1

プログラムはperlで書かれており、perlで警告と厳密の両方を使用していますが、テキストファイルの最後に到達すると、最後のアウトプット。

my $filename = 'trace-804-2.txt';
open(my $input, '<:encoding(UTF-8)', $filename)
or die "Couldn't open file '$filename' $!";

while ( <$input> )
{
    my ($row) = $_;
    chomp $row;
    ( $pkt_number[$i], $pkt_arrival[$i], $pkt_length[$i] ) = ( split(':',$row, 8)) [0,3,5];
    $pkt_number[$i] =~ s/\D//g;
    $pkt_length[$i] =~ s/\D//g;
    printf "Packet number %d ",$pkt_number[$i];
    printf "Arrival time %s ",$pkt_arrival[$i];
    printf "Length %d \n",$pkt_length[$i];
    $i++;
    $nr_of_pkts++;
}

これは私が得る出力です

 Packet number 3 Arrival time 2662.050878565250 Length 256
 Packet number 4 Arrival time 2662.050981740750 Length 256
 Packet number 5 Arrival time 2662.051084976000 Length 256
 Packet number 6 Arrival time 2662.051188151750 Length 256
 Packet number 7 Arrival time 2662.051291327500 Length 256
 Packet number 8 Arrival time 2662.051394562750 Length 256
 Packet number 9 Arrival time 2662.051469485750 Length 256
 Packet number 10 Arrival time 2662.051497738250 Length 256
 Packet number 11 Arrival time 2662.051573317000 Length 256
 Packet number 12 Arrival time 2662.051600914000 Length 256
 Packet number 13 Arrival time 2662.051677088750 Length 256
 Packet number 15 Arrival time 2662.051704149250 Length 256
 Packet number 17 Arrival time 2662.051780920000 Length 256
 Packet number 18 Arrival time 2662.051807324750 Length 256
 Packet number 20 Arrival time 2662.051890115750 Length 256
 Packet number 21 Arrival time 2662.051910560000 Length 256
 Packet number 23 Arrival time 2662.051993887250 Length 256
 Packet number 24 Arrival time 2662.052013735750 Length 256
 Packet number 27 Arrival time 2662.052097718750 Length 256
 Packet number 29 Arrival time 2662.052116911250 Length 256

プログラムがその段階を過ぎたことを示すために、ループの後に簡単なprintfがあるので、それ以上進まないことはわかっています。

そして、これはテキストファイルの内容です：

[   3]:d10:mp10165:2662.050878565250:LINK(1266):CAPLEN( 256)
[   4]:d10:mp10165:2662.050981740750:LINK(1266):CAPLEN( 256)
[   5]:d10:mp10165:2662.051084976000:LINK(1266):CAPLEN( 256)
[   6]:d10:mp10165:2662.051188151750:LINK(1266):CAPLEN( 256)
[   7]:d10:mp10165:2662.051291327500:LINK(1266):CAPLEN( 256)
[   8]:d10:mp10165:2662.051394562750:LINK(1266):CAPLEN( 256)
[   9]:d00:mp10165:2662.051469485750:LINK(1266):CAPLEN( 256)
[  10]:d10:mp10165:2662.051497738250:LINK(1266):CAPLEN( 256)
[  11]:d00:mp10165:2662.051573317000:LINK(1266):CAPLEN( 256)
[  12]:d10:mp10165:2662.051600914000:LINK(1266):CAPLEN( 256)
[  13]:d00:mp10165:2662.051677088750:LINK(1266):CAPLEN( 256)
[  15]:d10:mp10165:2662.051704149250:LINK(1266):CAPLEN( 256)
[  17]:d00:mp10165:2662.051780920000:LINK(1266):CAPLEN( 256)
[  18]:d10:mp10165:2662.051807324750:LINK(1266):CAPLEN( 256)
[  20]:d00:mp10165:2662.051890115750:LINK(1266):CAPLEN( 256)
[  21]:d10:mp10165:2662.051910560000:LINK(1266):CAPLEN( 256)
[  23]:d00:mp10165:2662.051993887250:LINK(1266):CAPLEN( 256)
[  24]:d10:mp10165:2662.052013735750:LINK(1266):CAPLEN( 256)
[  27]:d00:mp10165:2662.052097718750:LINK(1266):CAPLEN( 256)
[  29]:d10:mp10165:2662.052116911250:LINK(1266):CAPLEN( 256)
4

1 に答える 1