testread.pl

来自「测试glob的使用」· PL 代码 · 共 18 行

open(FILE,"e:/asd.txt")||die("Cannot open the file:$!!");
@string=<FILE>;
for($i=0;$i<@string;$i++){
	$line=$string[$i];
	print"$line";
	}
	for($j=0;$j<@string;$j++){
	$line=$string[$j];
	chomp($line);
	if($line=~/$\\.sac/){
	print"\n$line";}
	}
	$string8="uip";
	$string8=$string8.".uip";
	print "\n$string8";
	$string8=($string8);
	print "\n$string8";
	$stt=@ARGV;