【 在 javame (yimin) 的大作中提到: 】
: 标 题: perl代码获取歌曲曲目单(原创)
: 发信站: 水木社区 (Tue Apr 27 19:36:52 2021), 站内
:
: $filename='flims.txt';
: open(FILE,$filename) or die;
:
: @names;
: $i=0;
: while($line = <FILE>){
此处可以简写 while(<FILE>)，或者如果你利用STDIN，while(<>)
: $names[$i]=$line;
然后$line就可以利用$_替代
: $i++;
: }
: close(FILE);
:
: #print "$names[5]\n";
:
: #$j=0;
: #while($j <= $i){
: #print "$names[$j]";
: #$j++;
: #}
: #print "\n";
:
: $j=0;
: while($j <= $i){
可以写成for-each的形式:
for my $n (@names) { say $n; }
: if ($names[$j]=~/[0-9][0-9]\./){
: print "$names[$j]";
: }
: $j++;
: }
: print "\n";
: --
:
: ※ 来源:·水木社区
http://m.newsmth.net·[FROM: 124.78.12.*]
--
FROM 111.166.6.*