perl unpack用法（CU回复备查）

00014367423811520328285王小勇-109.00
C0024367423811520214121刁晓用-7.25
00034367423811520214071喻大森409.00
10014367423811520212695吕二青234.18
10036227003818620017835王得丹679.49
D0046227003813550029454**767.22
R0054367423811520212943徐小明559.32

希望得到：

1︱4367423811520328285︱王小勇 | 0
2︱4367423811520214121︱刁晓用︱0
3︱4367423811520214071︱喻大森︱409
4︱4367423811520212695︱吕二青︱234.18
5︱6227003818620017835︱王得丹︱679.49
6︱6227003813550029454︱**︱767.22
7︱4367423811520212943︱徐小明︱559.32
合计                   | 2649.21

#!/usr/bin/perl

use strict;
use warnings;
my ( $id, $name, $salary, $sum );
while (<>) {
    chomp;
    my ( $id, $name, $salary ) = unpack( "x4 A19 A9 A*", $_ );
    $salary = 0 if $salary < 0;
    print "$.|$id|$name|$salaryn";
    $sum+=$salary;
}
print "合计t|$sumn";