File Truncation Problem

Select or download this

#!/perl/bin/perl.exe -w

...
    truncate $fh, ++$cur_pos if $cur_pos;

    close $fh;

Select or download this

0x130002a; 12.23.34.45; 0x2c60021; RstoneSwRtr
0x130009d; 12.23.34.45; 0x3c6000e; LucentP550R
...
0x13001f9; 1.2.3.4; 0x21000c; Rtr_Cisco

Select or download this

0x130002a; 12.23.34.45; 0x2c60021; RstoneSwRtr
0x130009d; 12.23.34.45; 0x3c6000e; LucentP550R
...
0x1300183; 1.2.3.4; 0x21b001d; 6H262_18
0x13001a8; 1.2.3.4; 0x2c60021; RstoneSwRtr
0x13001f9; 1.2.3.4; 0x21000c; Rtr_

Select Code to Download