deleof.pl

来自「一个用于点对点传输加密的工具包源码」· PL 代码 · 共 8 行

#!/usr/local/bin/perl

while (<>)
	{
	print
	last if (/^# DO NOT DELETE THIS LINE/);
	}