求助获取字符串长度

zero_BX

需要处理的文本：$A
1234
$B
123
4
5
以$后的字符作为ID，求接下来的一行或多行字符个数，得到：
A    4
B    5


我的程序：
$\="$";
while(<DATA>){
    chomp;
    my($id,$v)=split("\n",$_);
}


$v能够得到id下一行的数据，如果是多行就不行了，请教大神怎么能得到所有行的值，并且得到字符个数啊？

sunzhiguolu

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

$/ = '$';
$" = '';
while(<DATA>){
    next if(chomp and !length);
    my ($id, @aT) = split(/\n/, $_);
    print("$id => ", length("@aT"), "\n");
}

__DATA__
$A
1234
$B
123
4
5

只如初见407

1. #!usr/bin/perl -w
   
2. use strict;
   
3. my ($infile, $outfile) = @ARGV;
   
4. open IN, "<$infile" or die$!;
   
5. open OUT, ">$outfile" or die$!;
   
6. $/ = "\[        DISCUZ_CODE_3        ]quot;;
   
7. <IN>;
   
8. while(<IN>){
   
9.         my @temp = split /\n/, $_;
   
10.         my $id = $temp[0];
    
11.         chomp;
    
12.         s/\s//g;
    
13.         my $len = length($_)-length($id);
    
14.         print OUT "$id\t$len\n"
    
15. }
    
16. close IN;
    
17. close OUT;

复制代码

只如初见407

上面那个第6行显示错了，重来一发，刚刚学perl，请多指教！

#!usr/bin/perl -w
use strict;
my ($infile, $outfile) = @ARGV;
open IN, "<$infile" or die$!;
open OUT, ">$outfile" or die$!;
$/ = "\$";
<IN>;
while(<IN>){
        my @temp = split /\n/, $_;
        my $id = $temp[0];
        chomp;
        s/\s//g;
        my $len = length($_)-length($id);
        print OUT "$id\t$len\n"
}
close IN;
close OUT;