陆星儿

摘要： 1，利用Tie::File模块来直接对文件内容进行修改。#!/usr/bin/perl -wmy $std="F160";my $fast="FAST";my $file=shift @ARGV;updatefile2($file);sub updatefile2 {if(defined($file)) { use Tie::File; tie my @contents, 'Tie::File', "$file" or die "can't open $!\n"; for(@contents 阅读全文