perl遍历文件

timebegin.pl

my $originalList = 'tt.log';

open LIST_SRC,"$originalList";

while (<LIST_SRC>) {
	chomp;
	my $line = $_;
#	print $line."\n";

	if ($line =~ /timestamp=(\d+)/) {
        my $time = $1;
		print "$time,\n";

	} else {
    }
}
close LIST_SRC;