All pastes #494294 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-05-18 04:54 UTC
rendered paste body
open(INPUTFILE, $arg) || die("Error opening file.");

@htmlContent = <INPUTFILE>;

close(INPUTFILE);

foreach (@htmlContent)
{
	# Read from the input file line by line and push onto an array
	push @streamHTML, $_;
}

$htmlString = "@streamHTML";

$htmlString =~ s/<!--.*?-->//gs;

if ($htmlString =~ m/.*\<a href\=\".*\"/gis)
{
	
}