You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
255 B
17 lines
255 B
undef $switch;
|
|
open(INFILE, "$ARGV[0]");
|
|
open(OUTFILE, ">oe50intl.tmp");
|
|
while(<INFILE>)
|
|
{
|
|
if(/intl hack/)
|
|
{
|
|
$switch = 1;
|
|
}
|
|
if($switch && !/msoe50/)
|
|
{
|
|
next;
|
|
}
|
|
print OUTFILE;
|
|
}
|
|
close INFILE;
|
|
close OUTFILE;
|