Question,
 how can print out one line (whole), then the second line, etc., until
+ all 8 lines are displayed on the dos screen using DzSoft Perl Editor
+ 5.8.9.  I am very new at this but like it to much to give up.  Pleas
+e advise.

[download]
#!/usr/bin/perl

print "Content-type: text/html\n\n";

#List14_09
#Read fixed length records from a file
#1 Verify the record length
$NL = "\n";
$DC = sprintf("%c", 236);   #Special character
$TW = 63;                  #Line with
$DL = sprintf( "%63s", $NL . $DC x $TW); #top and bottom lines

$Record = "A3 A20 A20 A20";
$RecordLength = length(pack($Record));
print "$NL  Record length: $RecordLength";

#2 Open the data file--read only
open(FILE, "lab8_tcpdump2.txt") || die "\n Cannot access file.";

#3  Set the file at the end (option 2)
    seek(FILE, 0 , 2);
#  Obtain the length
    $FileLength =  tell(FILE);
    print "$NL  The length of the file is $FileLength";
    $NumOfRecords = int($FileLength/$RecordLength);
    print("$NL  $NumOfRecords records are in the file.");
  print($DL);
    print "$NL>>Press <Enter>";

#4 Use seek and read to obtain records by multiplying by length
    for($Itr = 0; $Itr < $NumOfRecords; $Itr++){
       $Count = $Itr + 1;
       $AnyChar = <STDIN>;
       seek(FILE, $Itr * $RecordLength, 0);
       read(FILE, $LineRead, $RecordLength, 0);
       print(" >> $Count $LineRead");
    }
 print($DL);

#5 Use seek and record length to find a record for display
    seek(FILE, 0, 0);
    print("$NL $NL Enter a record number. $NL  >>");
    $LineNumber = <STDIN>;
    # print "$NL The record length: $RecordLength $NL";
    $SeekPoint = ($LineNumber - 1)* $RecordLength;
    seek(FILE, $SeekPoint, 0);
    read(FILE, $LineRead, $RecordLength);
    # print "$NL The line read is: $NL";
    print "$LineRead\n";

    close(FILE) || "Cannot close file: $!";

print "\n";
print "\n";

 <>

[download]
Data file "lab8_tcpdump.txt": 
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

Note: each lines above ends with LF CTRL char.

[download]

In reply to 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.