寒假【perl语言学习脚本】12.1 12.2 12.3

#!/usr/bin/perl -w foreach my $file(@ARGV){ my KaTeX parse error: Expected 'EOF', got '&' at position 12: attribs = &̲attributes(file); print “’$file’ $attribs.\n”; } sub attributes{ #子程序 #报告某个给定文件的属性

>>阅读原文<<