conver~2.pl

来自「100 病毒源碼,原始碼,無毒 ......」· PL 代码 · 共 27 行

#! /usr/bin/perl -w 

my $scan = 0;
my $i = 0;
while (<>) {
	s/# modlogan - 0.4/# modlogan - 0.5/;
	if ($scan) {
		if (/^# -e- -web- visit --$/) {
			$scan = 0;
			print $_;
		} else {
			if ($i == 2) {
			## adding the browser
				print "-\n";
				$i = -1;
			}
			print $_;
			$i++;
		}
	} elsif (/^# -b- -web- visit --$/) {
		$scan = 1;
		print $_;
	} else {
		print $_;
	}
	
}