寒假【perl语言学习脚本】17.1 17.2 17.3

#!/usr/bin/perl -w my $filename =’/home/zhangjingjing/perl5/sample_text.txt’; open my f h , ′ < ′ , fh,'<', fh,′<′,filename or die “can’t open ' f i l e n a m e ′ : filename': fil

>>阅读原文<<