get_src.pl

来自「关于ns2的一些源码和资料」· PL 代码 · 共 8 行

#!/usr/bin/perl

while ($input=<STDIN>) {
	if ($input=~/^$ARGV[0]/) {
		print $input;
	}
}