Generally ask about the real issue. You are likely to get a better solution and may learn more in the process. The following code uses a regular expression to extract the data I think you want based on the sample you have supplied. It may not do exactly what you require, but learn about regular expressions and alter the match as required.

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

my $fileData = <<FILE;
19:39:44.765096 IP 10.195.32.212.49152 > 255.255.255.255.trivnet1: UDP
+, length 12
19:39:44.765572 IP 10.195.32.212.49152 > 239.0.82.11.trivnet1: UDP, le
+ngth 12
19:39:45.202568 IP 10.195.32.96.61804 > 255.255.255.255.sentinelsrm: U
+DP, length 40
19:39:45.265116 IP 10.195.32.212.49152 > 255.255.255.255.trivnet1: UDP
+, length 12
19:39:45.265590 IP 10.195.32.212.49152 > 239.0.82.11.trivnet1: UDP, le
+ngth 12
19:39:45.411153 IP 10.195.32.198.netbios-ns > 10.195.32.255.netbios-ns
+: NBT UDP PACKET(137): QUERY; REQUEST; BROADCAST
19:39:45.412136 IP 10.195.32.198.netbios-dgm > 10.195.32.255.netbios-d
+gm: NBT UDP PACKET(138)
19:39:45.620442 STP 802.1d, Config, Flags [none], bridge-id 8020.00:22
+:56:29:3a:00.8014, length 43
19:39:45.765086 IP 10.195.32.212.49152 > 255.255.255.255.trivnet1: UDP
+, length 12
FILE
my @headRow = ('Time stamp', 'Source IP address', 'Destination IP addr
+ess');
my $rowFormat = "%-17s %-22s %-22s\n";

open my $fIn, '<', \$fileData;
printf $rowFormat, @headRow;

while (<$fIn>) {
    my ($time, $from, $to) = /(.{8})\.\d+ IP ([\d.]+)\.\d+ > ([\d.]+)\
+./;
    
    next if ! defined $to;
    printf $rowFormat, $time, $from, $to;
}

[download]

Prints:

Time stamp        Source IP address      Destination IP address
19:39:44          10.195.32.212          255.255.255.255       
19:39:44          10.195.32.212          239.0.82.11           
19:39:45          10.195.32.96           255.255.255.255       
19:39:45          10.195.32.212          255.255.255.255       
19:39:45          10.195.32.212          239.0.82.11           
19:39:45          10.195.32.212          255.255.255.255

[download]
True laziness is hard work

In reply to Re^3: Test Code to read data from file by GrandFather
in thread Test Code to read data from file by 1hab

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.